Agenda

Solo disponible en BuenasTareas
  • Páginas : 8 (1862 palabras )
  • Descarga(s) : 0
  • Publicado : 16 de mayo de 2011
Leer documento completo
Vista previa del texto
2.2 form 2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim op As Integer
Dim h, co, ca, sena, cosa, tana, senb, cosb, tanb, A, B As Single
op = TextBox1.Text
Select Case op
Case 1
MsgBox("elegiste la opcion para encontrar Angulo A")
co =InputBox("introduce el valor del cateto opuesto")
h = InputBox("introduce el valor de la hipotenusa")
sena = co / h
A = Math.Asin(sena)
MsgBox("El valor del Angulo A es " & A * 57.295779513082323)
Case 2
MsgBox("elegiste la opcion para encontrar el lado C")
co = InputBox("introduce el valordel cateto opuesto")
sena = InputBox("introduce el valor del angulo A")
h = co / Math.Sin(sena / 57.295779513082323)
MsgBox("El valor del lado C es " & h)
Case 3
MsgBox("elegiste la opcion para encontrar el lado A ")
sena = InputBox("introduce el valor del angulo A")
h =InputBox("introduce el valor de la hipotenusa")
co = Math.Sin(sena / 57.295779513082323) * h
MsgBox("El valor del lado A es " & co)
Case 4
MsgBox("elegiste la opcion para encontrar Angulo A")
ca = InputBox("introduce el valor del cateto adyacente")
h = InputBox("introduce el valor de la hipotenusa")cosa = ca / h
A = Math.Acos(cosa)
MsgBox("El valor del Angulo A es " & A * 57.295779513082323)
Case 5
MsgBox("elegiste la opcion para encontrar el lado C")
ca = InputBox("introduce el valor del cateto adyacente")
cosa = InputBox("introduce el valor del angulo A")
h = ca /Math.Cos(cosa / 57.295779513082323)
MsgBox("El valor del lado C es " & h)
Case 6
MsgBox("elegiste la opcion para encontrar el lado B ")
cosa = InputBox("introduce el valor del angulo A")
h = InputBox("introduce el valor de la hipotenusa")
ca = Math.Cos(cosa / 57.295779513082323) * hMsgBox("El valor del lado B es " & ca)
Case 7
MsgBox("elegiste la opcion para encontrar Angulo A")
co = InputBox("introduce el valor del cateto opuesto")
ca = InputBox("introduce el valor del cateto adyacente")
tana = co / ca
A = Math.Atan(tana)
MsgBox("El valor del Angulo A es " & A *57.295779513082323)
Case 8
MsgBox("elegiste la opcion para encontrar el lado B")
co = InputBox("introduce el valor del cateto opuesto")
tana = InputBox("introduce el valor del angulo A")
ca = co / Math.Tan(tana / 57.295779513082323)
MsgBox("El valor del lado B es " & ca)
Case 9MsgBox("elegiste la opcion para encontrar el lado A ")
tana = InputBox("introduce el valor del angulo A")
ca = InputBox("introduce el valor del cateto adyacente")
co = Math.Tan(tana / 57.295779513082323) * ca
MsgBox("El valor del lado A es " & co)
Case 10
MsgBox("elegiste la opcion para encontrarAngulo B")
co = InputBox("introduce el valor del cateto opuesto")
h = InputBox("introduce el valor de la hipotenusa")
senb = co / h
B = Math.Asin(senb)
MsgBox("El valor del Angulo B es " & B * 57.295779513082323)
Case 11
MsgBox("elegiste la opcion para encontrar el lado C")...
tracking img