SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: adrianeitor92 en Martes 26 de Mayo de 2009, 22:43

Título: Que tal veis mi programa?
Publicado por: adrianeitor92 en Martes 26 de Mayo de 2009, 22:43
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
  1. Dim a As Variant
  2. Dim b As Variant
  3. Dim c As Variant
  4. Dim Ag As Variant
  5. Dim Bg As Variant
  6. Dim Cg As Variant
  7.  
  8.  
  9. Dim altura As Variant
  10. Dim base As Variant
  11. Dim area As Variant
  12.  
  13. Private Sub Timer1_Timer()
  14. display = Time
  15. End Sub
  16.  
  17. Private Sub Aa_Click()
  18. Ag = display
  19. End Sub
  20.  
  21. Private Sub ap_Click()
  22. a = display
  23. End Sub
  24.  
  25.  
  26.  
  27. Private Sub Bb_Click()
  28. Bg = display
  29. End Sub
  30.  
  31. Private Sub bp_Click()
  32. b = display
  33. End Sub
  34.  
  35. Private Sub Cc_Click()
  36. Cg = display
  37. End Sub
  38.  
  39. Private Sub cp_Click()
  40. c = display
  41.  
  42. End Sub
  43.  
  44.  
  45.  
  46.  
  47.  
  48. Private Sub Areaa_Click()
  49. altura = Sin(Ag * (3.1415 / 180)) * c
  50. Bg = 180 - Ag - Cg
  51. base = (c * Sin(Bg * (3.1415 / 180))) / Sin(Cg * (3.1415 / 180))
  52. area = (base * altura) / 2
  53. display = area
  54. End Sub
  55.  


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