Calculadora aritmetica VISUAL BASIC 6.0


Para hacer esta calculadora insertar dos 3 textbox, dos para insertar los valores y uno para que presente el resultado. Tambien se utilizaran 4 commandbotton para hacer las 4 operaciones basicas. Y un boton final para limpiar los cuadros de texto. Para que la calculadora funcione escribir el siguiente codigo:

Private Sub Command1_Click()
Text3 = Val(Text1) / Val(Text2)
End Sub

Private Sub Command2_Click()
Text3 = Val(Text1) * Val(Text2)
End Sub

Private Sub Command3_Click()
Text3 = Val(Text1) - Val(Text2)
End Sub

Private Sub Command4_Click()
Text3 = Val(Text1) + Val(Text2)
End Sub

Private Sub Command5_Click()
Text1 = Clear
Text2 = Clear
Text3 = Clear
Text1.SetFocus
End Sub


*Notas:
-Los codigos se pegaran en el evento Click de los Commandbotton.
-Clear se utiliza para limpiar los cuadros de texto.
-La cadena Text1.SetFocus indicara adonde ira el cursor luego de pulsar el boton en donde se encuentra dicho codigo.

Publicar un comentario