FORM:
NOMBRE: Form1
CAPTION: Calculadora
TEXTBOX:
TEXTBOX1 NOMBRE: n1
TEXTBOX1 TEXT: (VACIO)
TEXTBOX2 NOMBRE: n2
TEXTBOX2 TEXT: (VACIO)
LABEL:
LABEL 1 NOMBRE: opc
LABEL 1 CAPTION: (VACIO)
LABEL 2 NOMBRE: Label2
LABEL 2 CAPTION: "="
LABEL 3 NOMBRE: res
LABEL 3 CAPTION: (VACIO)
COMMANDBUTTON:
COMMANDBUTTON 1 NOMBRE: suma
COMMANDBUTTON 1 CAPTION: "+"
COMMANDBUTTON 2 NOMBRE: resta
COMMANDBUTTON 2 CAPTION: "-"
COMMANDBUTTON 3 NOMBRE: multi
COMMANDBUTTON 3 CAPTION: "*"
COMMANDBUTTON 4 NOMBRE: div
COMMANDBUTTON 4 CAPTION: "/"
COMMANDBUTTON 5 NOMBRE: Command1
COMMANDBUTTON 5 CAPTION: "Salir"
CODIGO
Private Sub Command1_Click()End
End Sub
__________________________________________________
Private Sub div_Click()
opc.Caption = "/"
res.Caption = Val(n1.Text) / Val(n2.Text)
End Sub
__________________________________________________
Private Sub multi_Click()
opc.Caption = "x"
res.Caption = Val(n1.Text) * Val(n2.Text)
End Sub
__________________________________________________
Private Sub resta_Click()
opc.Caption = "-"
res.Caption = Val(n1.Text) - Val(n2.Text)
End Sub
__________________________________________________
Private Sub suma_Click()
opc.Caption = "+"
res.Caption = Val(n1.Text) + Val(n2.Text)
End Sub
__________________________________________________
DESCARGA EL .EXE DEL PROGRAMA: Click aquí


No hay comentarios:
Publicar un comentario