 Autor
|
Tema: [VB6.0] Duda con como hacer una comprobacion (Leído 2,758 veces)
|
FranciskoAsdf
 Desconectado
Mensajes: 231
Ni bueno, ni malo. Solo nada.
|
Hola, buenas , :DD Tengo una duda sobre como implementar una comprobacion sobre un inputbox. Tengo este codigo 'codigo anterior respuesta = InputBox ("ESCRIBA MOTIVO MERMA", "MERMA") ' demas codigo
El tema es que solo hay 6 tipos de merma, entonces mi idea es hacer una comprobacion sobre SI NO escribe ninguno de los motivos permitidos aparezca un error o advertencia. PERO el tema es que no se como hacerlo.. o sea pense con IF's, pero creo que es muy engorroso hacer un if por cada motivo, porque el programa tendria que comprobar muchas veces cada vez que se ingrese y eso lo haria lento. Es por eso que vengo a solicitar ayuda a ver si me pueden guiar sobre como hacerlo. Pense que podia ser con WHILE, pero no se como usar WHILE con variables. Eso, porfavor si alguien me puede ayudar se lo agradeceria mucho. Los motivos son en este formato : 51
52
53
54
70
71
72
O sea eso seria lo que el usario debiera ingresar y si no, bueno pues que de el error xD. Saludos y gracias de ante mano.
|
|
|
|
|
En línea
|
Asdf debería ser algún tipo de función.
|
|
|
|
MCKSys Argentina
|
Una idea: respuestas = " 51 52 53 54 70 71 72" respuesta = InputBox ("ESCRIBA MOTIVO MERMA", "MERMA") if instr(respuestas, " " + respuesta, 1) = 0 then 'No es una respuesta valida else 'Si es una respuesta valida end if
Saludos!
|
|
|
|
|
En línea
|
MCKSys Argentina "Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando." |
|
|
|
Mad Antrax
|
Otra idea: respuesta = InputBox ("ESCRIBA MOTIVO MERMA", "MERMA") Select Case respuesta Case 51 'Aquí tu acción por responder 51 Case 52 'Aquí tu acción por responder 52 Case 53 'Aquí tu acción por responder 53 Case 54 'Aquí tu acción por responder 54 Case 70 'Aquí tu acción por responder 70 Case 71 'Aquí tu acción por responder 71 Case 72 'Aquí tu acción por responder 72 Case Else 'Has fallado, melón End Select
|
|
|
|
|
En línea
|
No hago hacks/cheats para juegos Online.
Tampoco ayudo a nadie a realizar hacks/cheats para juegos Online.
|
|
|
FranciskoAsdf
Desconectado
Mensajes: 231
Ni bueno, ni malo. Solo nada.
|
Hola, probé el primero, pero me sale "Error en tiempo de ejecución: No coinciden los tipos", probé cambiando el tipo de variable a; INTEGER, LONG, STRING, pero me sale el mismo error :/. FiltroMotivoMerma = "51 52 53 61 70 72" If Combo2.Text = "ABARROTES" Then MotivoMerma = InputBox("Ingrese Motivo Merma", "Mermas") If InStr(FiltroMotivoMerma, " " + MotivoMerma, 1) = 0 Then respuesta = MsgBox("asdf", "asdf") Else MotivoMerma = FiltroMotivoMerma End If End If
Y el segundo código igual lo probé, pero a pesar de que funciona, después de darme el error "pasa" a lo que sigue del código y la idea es que se repita el InputBox hasta que el usuario ingrese lo que corresponde. A ver si me pueden echar una mano por favor  !! Saludos y gracias de ante mano |
|
|
|
« Última modificación: 1 Abril 2014, 23:57 pm por FranciskoAsdf »
|
En línea
|
Asdf debería ser algún tipo de función.
|
|
|
noele1995
Desconectado
Mensajes: 137
|
Pues con un simple while... Dim error As Boolean = true While error respuesta = InputBox ("ESCRIBA MOTIVO MERMA", "MERMA") error = false Select Case respuesta Case 51 '... Case 52 '... Case 53 '... Case 54 '... Case 70 '... Case 71 '... Case 72 '... Case Else error = true End Select End While
Saludos |
|
|
|
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! Noele... uso de variable sin sentido: "error" Do respuesta = InputBox ("ESCRIBA MOTIVO MERMA", "MERMA") Select Case respuesta Case 51 '... Case 52 '... Case 53 '... Case 54 '... Case 70 '... Case 71 '... Case 72 '... Case Else Exit Loop End Select Loop
GRACIAS POR LEER!!! |
|
|
|
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
FranciskoAsdf
Desconectado
Mensajes: 231
Ni bueno, ni malo. Solo nada.
|
Gracias por responder!!. Ahora si funciona como queria !!! Gracias de nuevo!! |
|
|
|
|
En línea
|
Asdf debería ser algún tipo de función.
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
[Una duda]Acerca de la comprobacion de los serial´s...
Ingeniería Inversa
|
eDDy-X
|
4
|
2,397
|
29 Diciembre 2004, 13:33 pm
por Jec
|
|
|
|
Como modificar a un exe,Comprobación de fecha.
« 1 2 »
Ingeniería Inversa
|
Snipersnake
|
12
|
8,289
|
8 Marzo 2007, 05:36 am
por Snipersnake
|
|
|
|
Duda con comprobación CRC
Ingeniería Inversa
|
.:UND3R:.
|
8
|
3,955
|
26 Agosto 2011, 21:59 pm
por .:UND3R:.
|
|
|
|
No puedo hacer la comprobacion del disco duro
Windows
|
CATBro
|
1
|
4,213
|
25 Marzo 2012, 01:03 am
por ahrgon
|
|
|
|
Como creo una suma de comprobacion sencilla
Scripting
|
Pedro122h
|
0
|
1,677
|
26 Marzo 2021, 05:38 am
por Pedro122h
|
 |
