Programación en VB Calcular Áreas de un Cuadrado, un Rectángulo y un Triangulo
FORM:
NOMBRE: Form1
CAPTION: Calcular area
FRAME:
FRAME 1 NOMBRE: Frame1
FRAME 1 CAPTION: CUADRADO
FRAME 2 NOMBRE: Frame2
FRAME 2 CAPTION: RECTANGULO
FRAME 3 NOMBRE: Frame3
FRAME 3 CAPTION: TRIANGULO
LABEL:
LABEL 1 NOMBRE: Label1
LABEL 1 CAPTION: "Valor de lado"
LABEL 2 NOMBRE: Label2
LABEL 2 CAPTION: "Valor de lado mayor"
LABEL 3 NOMBRE: Label3
LABEL 3 CAPTION: "Valor del lado menor"
LABEL 4 NOMBRE: Label4
LABEL 4 CAPTION: "Valor de la base"
LABEL 5 NOMBRE: Label5
LABEL 5 CAPTION: "Valor de la altura"
LABEL 6 NOMBRE: Label6
LABEL 6 CAPTION: "RESULTADO"
LABEL 7 NOMBRE: RES
LABEL 7 CAPTION: (VACIO)
TEXTBOX:
TEXTBOX1 NOMBRE: cuadrado
TEXTBOX1 TEXT: (VACIO)
TEXTBOX2 NOMBRE: Text1
TEXTBOX2 TEXT: (VACIO)
TEXTBOX3 NOMBRE: Text2
TEXTBOX3 TEXT: (VACIO)
TEXTBOX4 NOMBRE: Text3
TEXTBOX4 TEXT: (VACIO)
TEXTBOX5 NOMBRE: Text4
TEXTBOX5 TEXT: (VACIO)
COMMANDBUTTON:
COMMANDBUTTON 1 NOMBRE: Command1
COMMANDBUTTON 1 CAPTION: "CALCULAR"
COMMANDBUTTON 2 NOMBRE: Command2
COMMANDBUTTON 2 CAPTION: "CALCULAR"
COMMANDBUTTON 3 NOMBRE: Command3
COMMANDBUTTON 3 CAPTION: "CALCULAR"
COMMANDBUTTON 4 NOMBRE: Command4
COMMANDBUTTON 4 CAPTION: "LIMPIAR"
COMMANDBUTTON 5 NOMBRE: Command5
COMMANDBUTTON 5 CAPTION: "SALIR"
CODIGO
Private Sub Command1_Click()
RES.Caption = Val(cuadrado.Text) * Val(cuadrado.Text)
End Sub
_________________________________________________________
Private Sub Command2_Click()
RES.Caption = Val(Text1.Text) * Val(Text2.Text)
End Sub
_________________________________________________________
Private Sub Command3_Click()
RES.Caption = (Val(Text3.Text) * Val(Text4.Text)) / 2
End Sub
_________________________________________________________
Private Sub Command4_Click()
cuadrado.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
_________________________________________________________
Private Sub Command5_Click()
End
End Sub
_________________________________________________________
Private Sub RES_Click()
End Sub
DESCARGA EL .EXE DEL PRPGRAMA: CLICK AQUÍ