Ejercicio Para Emulador De Hp 50g 244v2

Ejercicios para emulador de hp 50g

Cualquier numero entero te da 3 numeros consecutivos Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim a As Single a=1 a = TextBox1.Text Do While a <= 20 ListBox1.Items.Add(a & " "&a*a&" "&a*a*a&" "& Math.Sqrt(a)) a=a+1 Loop

End Sub

Trabajo de topo Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click Dim az, di, ce, alf, dh, dv, As Single az = TextBox1.Text di = TextBox2.Text ce = TextBox3.Text If az > 90 Then alf = az - 90 Else alf = 90 - az End If dh = Math.Cos(alf * 3.141592 / 180) * Math.Cos(alf * 3.141592 / 180) * di dv = Math.Sin(alf * 3.141592 / 180) * Math.Cos(alf * 3.141592 / 180) * di If az > 90 Then = ce - dv Else = ce + dv End If ListBox1.Items.Add("dh=" & dh) ListBox1.Items.Add("dv=" & dv) ListBox1.Items.Add("cota punto=" & ) End Sub End Class

HOY DIA SE HIZO ESTO.. QJJAJAJAJAJAJAJA End Sub End Class Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim A, B, C As Single C = Math.Cos(A) * Math.Cos(A) * 3.141592 / 180 + Math.Sin(B) * 3.141592 / 180

A = TextBox1.Text B = TextBox2.Text Do While a <= 20 ListBox1.Items.Add(C = Math.Cos(A) * Math.Cos(A) * 3.141592 / 180 + Math.Sin(B) * 3.141592 / 180 & "ANGULO DE C") Loop End Sub