y este es el código escrito
Public Sub _new()
End
Public Sub Form_Open()
End
Public Sub salir_Click()
Quit
End
Public Sub reiniciar_Click()
area1.Text = ""
area2.Text = ""
area3.Text = ""
End
Public Sub informacion_Click()
Message.Info("Calculatox es una calculadora para linux sencilla y rápida, pero que cumple su propósito calculatox es capas de sumar, restar, multiplicar, o dividir, 2 numeros de 1 o mas dígitos.")
Message.Info("Este progra esta publicado bajo la licencia GNU usted puede copiarlo modificarlo y distribuirlo sin problema alguno")
Message.Info("desarrollado por el equipo piperlan")
End
Public Sub sumar_Click()
If
area1.Text = ""
Message.Info("la primera casilla esta bacía ")
Return
Endif
If
area2.Text = ""
Message.Info("la segunda casilla esta bacía ")
Return
Endif
area3.Text = Val(area1.Text) + Val(area2.Text)
End
Public Sub restar_Click()
If
area1.Text = ""
Message.Info("la primera casilla esta bacía ")
Return
Endif
If
area2.Text = ""
Message.Info("la segunda casilla esta bacía ")
Return
Endif
area3.Text = Val(area1.Text) - Val(area2.Text)
End
Public Sub multiplicar_Click()
If
area1.Text = ""
Message.Info("la primera casilla esta bacía ")
Return
Endif
If
area2.Text = ""
Message.Info("la segunda casilla esta bacía ")
Return
Endif
area3.Text = Val(area1.Text) * Val(area2.Text)
End
Public Sub dividir_Click()
If
area1.Text = ""
Message.Info("la primera casilla esta bacía ")
Return
Endif
If
area2.Text = ""
Message.Info("la segunda casilla esta bacía ")
Return
Endif
area3.Text = Val(area1.Text) / Val(area2.Text)
End
End
Public Sub Form_Open()
End
Public Sub salir_Click()
Quit
End
Public Sub reiniciar_Click()
area1.Text = ""
area2.Text = ""
area3.Text = ""
End
Public Sub informacion_Click()
Message.Info("Calculatox es una calculadora para linux sencilla y rápida, pero que cumple su propósito calculatox es capas de sumar, restar, multiplicar, o dividir, 2 numeros de 1 o mas dígitos.")
Message.Info("Este progra esta publicado bajo la licencia GNU usted puede copiarlo modificarlo y distribuirlo sin problema alguno")
Message.Info("desarrollado por el equipo piperlan")
End
Public Sub sumar_Click()
If
area1.Text = ""
Message.Info("la primera casilla esta bacía ")
Return
Endif
If
area2.Text = ""
Message.Info("la segunda casilla esta bacía ")
Return
Endif
area3.Text = Val(area1.Text) + Val(area2.Text)
End
Public Sub restar_Click()
If
area1.Text = ""
Message.Info("la primera casilla esta bacía ")
Return
Endif
If
area2.Text = ""
Message.Info("la segunda casilla esta bacía ")
Return
Endif
area3.Text = Val(area1.Text) - Val(area2.Text)
End
Public Sub multiplicar_Click()
If
area1.Text = ""
Message.Info("la primera casilla esta bacía ")
Return
Endif
If
area2.Text = ""
Message.Info("la segunda casilla esta bacía ")
Return
Endif
area3.Text = Val(area1.Text) * Val(area2.Text)
End
Public Sub dividir_Click()
If
area1.Text = ""
Message.Info("la primera casilla esta bacía ")
Return
Endif
If
area2.Text = ""
Message.Info("la segunda casilla esta bacía ")
Return
Endif
area3.Text = Val(area1.Text) / Val(area2.Text)
End