Programación General > Visual Basic 6.0 e inferiores

 Que tal veis mi programa?

(1/1)

adrianeitor92:
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)




--- Código: Text ---Dim a As VariantDim b As VariantDim c As VariantDim Ag As VariantDim Bg As VariantDim Cg As Variant  Dim altura As VariantDim base As VariantDim area As Variant Private Sub Timer1_Timer()display = TimeEnd Sub Private Sub Aa_Click()Ag = displayEnd Sub Private Sub ap_Click()a = displayEnd Sub   Private Sub Bb_Click()Bg = displayEnd Sub Private Sub bp_Click()b = displayEnd Sub Private Sub Cc_Click()Cg = displayEnd Sub Private Sub cp_Click()c = display End Sub     Private Sub Areaa_Click()altura = Sin(Ag * (3.1415 / 180)) * cBg = 180 - Ag - Cgbase = (c * Sin(Bg * (3.1415 / 180))) / Sin(Cg * (3.1415 / 180))area = (base * altura) / 2display = areaEnd 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

Navegación

[0] Índice de Mensajes