Visual Basic - ejemplo de calculo de area de triangulo

es super bueno el foro de la web del programador necesito un codigo fuente para calcular el area de triangulo en visual basic espero su respuesta es urgente gracias erick

Pues asi a vote pronto te dejo este:

Dim Base As Long, Altura As Long, Area As Long

Private Sub CmdCalcula_Click()
Base = InputBox("Introduce la base: ")
Altura = InputBox("Introduce la altura: ")
Area = Base * Altura
MsgBox ("El area es: " & Area)
End Sub

Y si no conocemos ninguno de los lados sino que el usuario debe digitar esos datos (o sea el programa le pidiera digitar lado 1, lado 2 y lado 3, cómo haríamos el código?

Private Sub PolsadorTriangle_Click()
'Declaració de Constants i Variables d’àmbit local.
Dim PCentreTriangle_x As Double
Dim PCentreTriangle_y As Double
Dim PIniciTriangle_x As Double
Dim PIniciTriangle_y As Double
Dim PFiTriangle_x As Double
Dim PFiTriangle_y As Double
Const Pi As Single = 3.14159265359
Const Angle30 As Double = (30 * Pi) / 180
Dim Radi As Double
Dim Angle As Double

'Conversió de la cadena introduïda per teclat (centre del quadrat) a format Double (N. real)
PCentreTriangle_x = CDbl(edPCentreT_x.Text)
PCentreTriangle_y = CDbl(edPCentreT_y.Text)
Angle = CDbl(edangleTriangle.Text) * Pi / 180
Radi = CDbl(edRadiTriangle.Text)
No se si te servira lo que te mando es dibujar un Triangulo a partir de un Radio
Suerte

'Càlcul 1ra línia
PIniciTriangle_x = PCentreTriangle_x + (Radi * Cos(Angle30))
PIniciTriangle_y = PCentreTriangle_y - (Radi * Sin(Angle30))
PFiTriangle_x = PCentreTriangle_x - (Radi * Cos(Angle30))
PFiTriangle_y = PCentreTriangle_y - (Radi * Sin(Angle30))

'Dibuixa 1ra línia
VisorGrafic.Line (PIniciTriangle_x, PIniciTriangle_y)-(PFiTriangle_x, PFiTriangle_y), vbBlue

'Càlcul 2na línia
PIniciTriangle_x = PFiTriangle_x
PFiTriangle_x = PCentreTriangle_x
PIniciTriangle_y = PFiTriangle_y
PFiTriangle_y = PCentreTriangle_y + Radi

'Dibuixa2na línia
VisorGrafic.Line (PIniciTriangle_x, PIniciTriangle_y)-(PFiTriangle_x, PFiTriangle_y), vbBlue

'Càlcul 3era línia
PIniciTriangle_x = PCentreTriangle_x
PFiTriangle_x = PCentreTriangle_x + (Radi * Cos(Angle30))
PIniciTriangle_y = PFiTriangle_y
PFiTriangle_y = PCentreTriangle_y - (Radi * Sin(Angle30))

'Dibuixa3era línia
VisorGrafic.Line (PIniciTriangle_x, PIniciTriangle_y)-(PFiTriangle_x, PFiTriangle_y), vbBlue

me podrian mandar como se puede crear una interfaz para calcular areas de un rectangulo y un cuadrado, y un triangulo y un poligono