Tengo gran parte realizada solo necesito dos cosas mas
Publicado por david (7 intervenciones) el 17/06/2017 22:11:36
en un estacionamiento se tiene una tarifa, en la semana si dias feriados tiene un costo de dia la hora y la hora extra otro costo, de noche un costo la hora y las horas extras otro, asi mismo en fechas feriadas, Se requiere determinar el números de carros que entró en el día, el monto a pagar por carro y cuanto fue le total recaudado por el día. Se desconoce la cantidad de carros en el día. ya casi todo eso lo realice, lo que no se como hacer es para calcular el total recaudado y como hacer para que guarde los datos, es decir, ya que no se cuantos carros se van a ingresar no puedo colocar el for (ojo soy principiante) otra cosa, utilice un case dentro de otro, siendo el primer case el menu principal, como hago para ir del case2 al case 1?? todo esto a juro lo debo trabajar en consola
aca les pego el codigo de lo que he realizado
aca les pego el codigo de lo que he realizado
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
Module Module1
Dim i As Integer
Dim op, op2, op3 As Integer
Dim hora, minuto, minuto1, result As Single
Dim total As String
Dim seguir As Char
Dim resultado(i) As String
Sub Main()
Console.Title = "Estacionamiento Privado UJAP"
menu()
End Sub
Sub menu()
While 1
Console.Clear()
Console.SetCursorPosition(38, 1)
Console.WriteLine("MENU")
Console.SetCursorPosition(30, 3)
Console.WriteLine("1. Feriado")
Console.SetCursorPosition(30, 5)
Console.WriteLine("2. Semana normal")
Console.SetCursorPosition(30, 7)
Console.WriteLine("3. total recaudado")
Console.SetCursorPosition(30, 9)
Console.WriteLine("4.Salir")
Console.SetCursorPosition(30, 11)
Console.WriteLine("Seleccione una opcion: ")
Console.SetCursorPosition(53, 11)
op = Console.ReadLine
Select Case op
Case 1 ' Feriado
While 1
Console.Clear()
Console.SetCursorPosition(38, 1)
Console.WriteLine("MENU")
Console.SetCursorPosition(30, 3)
Console.WriteLine("1. diurno")
Console.SetCursorPosition(30, 5)
Console.WriteLine("2. nocturno")
Console.SetCursorPosition(30, 7)
Console.WriteLine("3. menu anterior")
Console.SetCursorPosition(30, 9)
Console.WriteLine("Seleccione una opcion: ")
Console.SetCursorPosition(53, 9)
op2 = Console.ReadLine
Select Case op2
Case 1 'menu para diurno feriado
Console.Write("ingrese el tiempo en horas ") : hora = Console.ReadLine
Console.Write("ingrese cantidad de minutos ") : minuto = Console.ReadLine
If minuto = 0 Then minuto1 = 0Else
If minuto > 0 And minuto <= 60 Then
minuto1 = 1000Else
minuto1 = 0Console.Write("ingrese minutos entre 0 y 60 ") : minuto = Console.ReadLine()
If minuto > 0 And minuto <= 60 Then
minuto1 = 1000End If
End If
End If
result = (hora * 2000) + minuto1
Console.WriteLine("el pago a realizar es " & result)
Console.Write("presione enter para terminar") : Console.ReadLine()
Case 2 'nocturno feriado
Console.Write("ingrese el tiempo en horas ") : hora = Console.ReadLine
Console.Write("ingrese cantidad de minutos ") : minuto = Console.ReadLine
If minuto = 0 Then minuto1 = 0Else
If minuto > 0 And minuto <= 60 Then
minuto1 = 1500Else
minuto1 = 0Console.Write("ingrese minutos entre 0 y 60 ") : minuto = Console.ReadLine()
If minuto > 0 And minuto <= 60 Then
minuto1 = 1500End If
End If
End If
result = (hora * 4000) + minuto1
Console.WriteLine("el pago a realizar es " & result)
Console.Write("presione enter para terminar") : Console.ReadLine()
Case 3 'menu anterior
End Select
End While
Case 2 'semana normal
While 1
Console.Clear()
Console.SetCursorPosition(38, 1)
Console.WriteLine("MENU")
Console.SetCursorPosition(30, 3)
Console.WriteLine("1. diurno")
Console.SetCursorPosition(30, 5)
Console.WriteLine("2. nocturno")
Console.SetCursorPosition(30, 7)
Console.WriteLine("Seleccione una opcion: ")
Console.SetCursorPosition(53, 7)
op3 = Console.ReadLine
Select Case op3
Case 1 'menu para diurno normal
Console.Write("ingrese el tiempo en horas ") : hora = Console.ReadLine
Console.Write("ingrese cantidad de minutos ") : minuto = Console.ReadLine
If minuto = 0 Then minuto1 = 0Else
If minuto > 0 And minuto <= 60 Then
minuto1 = 500Else
minuto1 = 0Console.Write("ingrese minutos entre 0 y 60 ") : minuto = Console.ReadLine()
If minuto > 0 And minuto <= 60 Then
minuto1 = 500End If
End If
End If
result = (hora * 1500) + minuto1
Console.WriteLine("el pago a realizar es " & result)
Console.Write("presione enter para terminar") : Console.ReadLine()
Case 2 'nocturno normal
Console.Write("ingrese el tiempo en horas ") : hora = Console.ReadLine
Console.Write("ingrese cantidad de minutos ") : minuto = Console.ReadLine
If minuto = 0 Then minuto1 = 0Else
If minuto > 0 And minuto <= 60 Then
minuto1 = 1000Else
minuto1 = 0Console.Write("ingrese minutos entre 0 y 60 ") : minuto = Console.ReadLine()
If minuto > 0 And minuto <= 60 Then
minuto1 = 1000End If
End If
End If
result = (hora * 3000) + minuto1
Console.WriteLine("el pago a realizar es " & result)
Console.Write("presione enter para terminar") : Console.ReadLine()
Case Else
Debug.WriteLine("No eligio un numero valido")
End Select
End While
Case 3 'total recaudado
End Select
End While
End Sub
End Module
Valora esta pregunta
0
