Programacion Visual Basic Calcular Areas

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Í