Visual Basic - Tengo dudas

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Tengo dudas

Publicado por Santiago (4 intervenciones) el 19/04/2013 15:03:28
Hola de nuevo, estoy haciendo un ejercicio, ya le tengo echo, pero me falta una parte que no consigo averiguar, haber si alguien puede ayudarme.
El ejercicio es el siguiente:

Se pide dos numeros y la operacion a realizar al usuario. Se debe de comprobar que los numeros [/u[u]]introducidos son mayores de cero y menores de 100. Los valores introducidos por el usuario, se pasan como parametros a una funcion que nos devuelve el resultado.

Lo subrayado es lo que me falta por hacer, de que forma puedo hacerlo. Es aplicacion consola.
Muchas gracias por anticipado.
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

Tengo dudas

Publicado por jcmg (24 intervenciones) el 22/04/2013 05:37:39
hola Santiago aqui esta este code:
1
2
3
4
5
Private Sub Command1_Click()
    If ((Text1 < 1) Or (Text1 > 100)) Or ((Text2 < 1) Or (Text2 > 100)) Then
        MsgBox "Numero incorrecto", 32, "Mensaje"
    End If
End Sub
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
sin imagen de perfil

Tengo dudas

Publicado por Victor (34 intervenciones) el 15/05/2013 19:47:38
Hola Santiago

Debes de hacer una funcion boolena, y mandarle de parametros los 2 valores teleado por el usuario
quedaria algo asi:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
A=primer valor
B=segundo valor
 
If Validar(A,B)=True then
    MsgBox "Correcto"
Else
    MsgBox "Incorrecto"
End If
 
Private Function Validar(vA as Long, vB as Long) as Boolean
Validar=False
''Comparamos primer valor (vA)
If Val(vA)<1 Or Val(vA)>100 Then
   Exit Function
End If
''Comparamos segundo valor(vB)
If Val(vB)<1 Or Val(vB)>100 Then
   Exit Function
End If
Validar=True
 
End Function


Espero haberte ayudador, Salud2
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