Suscribase:

martes, 26 de abril de 2011

Calculadora de numeros positivos y negativos VISUAL BASIC


Mediante esta calculadora se insertara un numero a un textbox y luego saldra un mensaje que dira si el numero digitado fue positivo o negativo. Tambien cuenta con una pequeña recta numerica que se marcara a la derecha si el numero es positivo y a la izquierda si es negativo.

Para la calculadora: insertar un textbox y un commandbotton.
Para la recta numerica: insertar un line, para la recta y otro para el centro, tambien cinco labels dos para los signos de "menos" y "mas". Otro para el "cero" del centro y dos mas para los signos "menor" y "mayor". Como ultimo elemento un shape en forma de rectangulo para ponerlo encima del cero y sirva como indicador; este lo renombrare con el nombre de "punto". 


Por ultimo insertar los siguentes codigos en el boton calcular(command1):


Private Sub Command1_Click()
If Val(Text1) < 0 Then
punto.Left = 1440
MsgBox ("El numero digitado es negativo")

Else

If Val(Text1) > 0 Then
punto.Left = 4320
MsgBox ("El numero digitado es positivo")
End If
End If

If Val(Text1) = 0 Then
punto.Left = 2850
MsgBox ("El numero digitado es neutro")
End If

End Sub

Private Sub Form_Load()
punto.Left = 2850
End Sub

0 comentarios:

Publicar un comentario