Visual Basic.NET - Tengo gran parte realizada solo necesito dos cosas mas

   
Vista:

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

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 = 0
                                Else
                                    If minuto > 0 And minuto <= 60 Then
                                        minuto1 = 1000
                                    Else
                                        minuto1 = 0
                                        Console.Write("ingrese minutos entre 0 y 60 ") : minuto = Console.ReadLine()
                                        If minuto > 0 And minuto <= 60 Then
                                            minuto1 = 1000
 
                                        End 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 = 0
                                Else
                                    If minuto > 0 And minuto <= 60 Then
                                        minuto1 = 1500
                                    Else
                                        minuto1 = 0
                                        Console.Write("ingrese minutos entre 0 y 60 ") : minuto = Console.ReadLine()
                                        If minuto > 0 And minuto <= 60 Then
                                            minuto1 = 1500
 
                                        End 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 = 0
                                Else
                                    If minuto > 0 And minuto <= 60 Then
                                        minuto1 = 500
                                    Else
                                        minuto1 = 0
                                        Console.Write("ingrese minutos entre 0 y 60 ") : minuto = Console.ReadLine()
                                        If minuto > 0 And minuto <= 60 Then
                                            minuto1 = 500
 
                                        End 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 = 0
                                Else
                                    If minuto > 0 And minuto <= 60 Then
                                        minuto1 = 1000
                                    Else
                                        minuto1 = 0
                                        Console.Write("ingrese minutos entre 0 y 60 ") : minuto = Console.ReadLine()
                                        If minuto > 0 And minuto <= 60 Then
                                            minuto1 = 1000
 
                                        End 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de melqui

Tengo gran parte realizada solo necesito dos cosas mas

Publicado por melqui (22 intervenciones) el 28/06/2017 19:25:11
vea se este video ayuda el tiene tambien un ejemplo disponible puede ser que te ayude
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Tengo gran parte realizada solo necesito dos cosas mas

Publicado por david (7 intervenciones) el 28/06/2017 19:28:09
Listo amigo ya resolvi todo eso, pero no se como borrar o cerrar el tema. gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de xve

Tengo gran parte realizada solo necesito dos cosas mas

Publicado por xve (94 intervenciones) el 29/06/2017 14:27:31
Hola David, nos puedes compartir como lo solucionaste?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar