VISUAL BASIc EXPRESS?
Solo quiero qeu me digan como sumar dos números, así de simple.
Pongan el código completo porfa por ejemplo de 1 + 2 + 3 en Visual basic.
10 puntotes y 5 estrellas en este mismo instante
De antemano GRACIAS.
Solo quiero qeu me digan como sumar dos números, así de simple.
Pongan el código completo porfa por ejemplo de 1 + 2 + 3 en Visual basic.
10 puntotes y 5 estrellas en este mismo instante
De antemano GRACIAS.
Comments
Dim Num1
Dim Num2
Dim suma
Num1 = 5
Num2 = 3
suma = Num1 + Num2
Print suma
facilito saludos
Antes que empezar a escribir el codigo, habria que colocar en un formulario nuevo tres cajas de texto (Textbox) alineadas horizontalmente y tambien cuatro botones (CommandButton).
Una vez hecho eso, ir al codigo y escribir:
Dim A As Long
Dim B As Long
Private Sub Form_Load()
'Esto hace que las cajas de texto colocadas se limpien y que la caja del resultado no sea modificable.
Text1.text = ""
Text2.text = ""
Text3.text = ""
Text3.locked = True
'Esto le da los signos de operacion a los CommandButton.
Command1.Caption = "+"
Command2.Caption = "-"
Command3.Caption = "*"
Command4.Caption = "/"
End Sub
'Los siguientes cuatro Private Subs establecen que al apretar cada boton se ejecute la operacion y muestre el resultado en la caja de texto bloqueada.
Private sub Command1_Click()
A = text1.text
B = text2.text
text3.text = A + B
If text1.text="" Then
MsgBox "Imposible hacer la suma por falta de un valor",vbInformation
Else
If text2.text="" Then
MsgBox "Imposible hacer la suma por falta de un valor",vbInformation
End If
End If
End Sub
Private sub Command2_Click()
A = text1.text
B = text2.text
text3.text = A - B
If text1.text="" Then
MsgBox "Imposible hacer la resta por falta de un valor",vbInformation
Else
If text2.text="" Then
MsgBox "Imposible hacer la resta por falta de un valor",vbInformation
End If
End If
End Sub
Private sub Command3_Click()
A = text1.text
B = text2.text
text3.text = A * B
If text1.text="" Then
MsgBox "Imposible multiplicar por falta de factor",vbInformation
Else
If text2.text="" Then
MsgBox "Imposible multiplicar por falta de factor",vbInformation
End If
End If
End Sub
Private sub Command4_Click()
A = text1.text
B = text2.text
text3.text = A / B
If text1.text="" Then
MsgBox "Imposible hacer la division por falta de un valor",vbInformation
Else
If text2.text="" Then
MsgBox "Imposible hacer la division por falta de un valor",vbInformation
Else
If text1.text="0" Then
MsgBox "Imposible dividir entre cero",vbInformation
Else
If text2.text="0" Then
MsgBox "Imposible dividir entre cero",vbInformation
End If
End If
End If
End If
End Sub
'Fin del codigo
Lo que necesitan es agregar estos bloques de codigo "If", el If es un valor condicional considerado en el VB como parte fundamental, puesto que en el se establecen las condiciones de como funciona una parte del programa.
En este caso, en la calculadora, hemos puesto condiciones, si las cajas de texto donde se escriben los valores se encuentran vacÃas, nos mandara un error sin necesidad de entrar en una depuracion (proceso de verificacion de nuestro codigo), es decir, la calculadora solo nos señalara el error y nos dejara modificarlo, y, en el caso de la division, que no se puede dividir entre 0 una cantidad, hemos hecho que nos marque tambien este error, señalando que "No se puede dividir entre cero".
Es un buen ejemplo de operandos matematicos y de condiciones, en caso de que no se puedan cumplir éstos.