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

Read more

Calculadora de numeros pares e impares VISUAL BASIC

Esta calculadora funcionara utilizando un textbox ( txtv1) y un boton de comando (Command1). Y producira una salida en un mensaje que dira si el numero digitado es par o no. Para hacer el programa se escribira el siguiente codigo en el boton Calcular (Command1):

 

Private Sub Command1_Click()
If CInt(Txtv1) Mod 2 Then
Txtv1 = ""
MsgBox ("El valor digitado es un numero impar")
Else
MsgBox ("El valor digitado es un numero par")
End If
End Sub

Read more