Aún no está acabado.
Sirve para encontrar el área de cualquier triángulo no rectángulo, sabiendo 3 variables que no sean 3 ángulos.
De momento lo he hecho sabiendo A,C y c
Lo raro es que me ha salido a la primera.
Ahora sólo me faltan las otras 6 opciones con las que lo puedo resolver(depende de las variables que introduzcas)
Dim a As Variant
Dim b As Variant
Dim c As Variant
Dim Ag As Variant
Dim Bg As Variant
Dim Cg As Variant
Dim altura As Variant
Dim base As Variant
Dim area As Variant
Private Sub Timer1_Timer()
display = Time
End Sub
Private Sub Aa_Click()
Ag = display
End Sub
Private Sub ap_Click()
a = display
End Sub
Private Sub Bb_Click()
Bg = display
End Sub
Private Sub bp_Click()
b = display
End Sub
Private Sub Cc_Click()
Cg = display
End Sub
Private Sub cp_Click()
c = display
End Sub
Private Sub Areaa_Click()
altura = Sin(Ag * (3.1415 / 180)) * c
Bg = 180 - Ag - Cg
base = (c * Sin(Bg * (3.1415 / 180))) / Sin(Cg * (3.1415 / 180))
area = (base * altura) / 2
display = area
End Sub
Cabe decir que he empezado hace muy poco...
PD: Para que la maquina sepa que operación hacer segun los datos que le entres lo haré con el If...Then o con el select case
Mostrar Mensajes
