Visual Basic - Duda de novato

Life is soft - evento anual de software empresarial
   
Vista:

Duda de novato

Publicado por Juan (2 intervenciones) el 11/02/2010 23:37:54
Hola, antes que todos perdon sino va aca. La pregunta es muy facil siguiendo un tutorial hice una pequeña calculadora. Andubo lo mas bien, espues le quice agregar un if... para aprender pero no me funciona o sea hace lo que le pido cuando cumple la condicion y cuando no tampoco.
Y otra cosa si quecieran que cuando uno ponga una letra en lugar de un numero ¿como harian?
Muchas gracias

Private Sub Sumar_click()
Dim N1 As Integer
Dim N2 As Integer
If N1 < 10 Then
Resultado = "numero muy chico, no uses la calculadora"
Else
Resultado = Val(N1) + Val(N2)
End If
End Sub

Private Sub Restar_click()

Resultado = Val(N1) - Val(N2)

End Sub
Private Sub Multiplicar_click()

Resultado = Val(N1) * Val(N2)

End Sub
Private Sub Dividir_click()

Resultado = Val(N1) / Val(CN2)

End Sub
Private Sub nuevocalculo_click()

N1 = ""
N2 = ""
Resultado = ""

End Sub
Private Sub salir_click()

End

End Sub
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

RE:Duda de novato

Publicado por Juan (2 intervenciones) el 11/02/2010 23:40:52
Me olvide de poner es que si qucieran que cuando ponga una letra parezca "error no puso un numero" que usarian
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

RE:Duda de novato

Publicado por Josman Pérez (40 intervenciones) el 12/02/2010 06:17:09
Private Sub Sumar_click()
Dim N1 As Integer
Dim N2 As Integer
if not isnumeric(N1) then
resultado="introduzca un numero"
exit sub
elseif not isnumeric(N2) then
resultado="introduzca un numero"
exit sub
end if

If N1 < 10 Then
Resultado = "numero muy chico, no uses la calculadora"
Else
Resultado = Val(N1) + Val(N2)
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

RE:Duda de novato

Publicado por Pedro Luis (878 intervenciones) el 12/02/2010 08:47:43
Después de un Dim N1, N1 no tiene valor, está esperando que alguien le de valor, por lo que no es mayor ni menor que nada, las cosas hay que ponerlas en su sitio.
El Dim en General y para evaluar si es número o mayor en Change o LostFocus, KeyPress, etc.
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

RE:Duda de novato

Publicado por Josman Pérez (40 intervenciones) el 12/02/2010 15:09:18
es logico que debe darsele valor a las variables la duda la tiene el es solo en como verificar si es un numero
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

RE:Duda de novato

Publicado por Omar (2 intervenciones) el 17/02/2010 15:21:40
Hola.

Primero.

para sumas solo debes hacer lo siguiente

asumiendo que tienes 3 text
txet1 para n1
text2 para n2
text3 el ultimo para resultado
ademas tienes el boton de calculo,resultado.etc

en ese boton pones lo siguiente

dim n1
dim n2

if text1 ="" then
msgbox"Ingrese el primer numero"
text1.setfocus
elseif isnumeric(text1.text)= false then
msgbox"Error ingrese solo numeros"
text1.text = ""
text1.setfocus
elseif text2.text = "" then
msgbox"ingrese el segundo numero"
text2.setfocus
elseif isnumeric(text2.text)= false then
msgbox"Error ingrese solo numeros"
text2.text = ""
text2.setfocus
else

n1=text1.text
m2 = text2.text
text3 = val(n1)+val(n2)

end if

debiera funcionar de lo contrario me avisas por que no lo probe en vb
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