klkuladora

Public Class Form1
Dim n1, n2 As Double
Dim opera As Double
Dim resp As Double
Dim seno As Double
Dim tangente As Double
Dim coseno As Double


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text + Str(1)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text + Str(2)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = TextBox1.Text + Str(3)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = TextBox1.Text + Str(4)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = TextBox1.Text + Str(5)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox1.Text = TextBox1.Text + Str(6)
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox1.Text = TextBox1.Text + Str(7)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBox1.Text = TextBox1.Text + Str(8)
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox1.Text = TextBox1.Text + Str(9)
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
n1 = Val(TextBox1.Text)
opera = 1
TextBox1.Text = " "
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
n1 = Val(TextBox1.Text)
opera = 2
TextBox1.Text = " "
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
n1 = Val(TextBox1.Text)
opera = 3
TextBox1.Text = " "
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
n1 = Val(TextBox1.Text)
opera = 4
TextBox1.Text = " "
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
resp = 0
n2 = Val(TextBox1.Text)
If (opera = 1) Then
resp = n1 * n2
TextBox1.Text = resp
End If
If (opera = 2) Then
resp = n1 / n2
TextBox1.Text = resp
End If
If (opera = 3) Then
resp = n1 + n2
TextBox1.Text = resp
End If
If (opera = 4) Then
resp = n1 - n2
TextBox1.Text = resp
End If
If (opera = 5) Then
resp = n1 ^ n2
TextBox1.Text = resp
End If


End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
TextBox1.Text = (" ")
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
n1 = Val(TextBox1.Text)
TextBox1.Text = n1 Mod 2
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
Dim raiz As Double
n1 = Val(TextBox1.Text)
raiz = Math.Sqrt(n1)
TextBox1.Text = raiz
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
Dim inver As Double
n1 = Val(TextBox1.Text)
inver = 1 / n1
TextBox1.Text = inver
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
n1 = Val(TextBox1.Text)
TextBox1.Text = n1 ^ 2
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
n1 = Val(TextBox1.Text)
TextBox1.Text = n1 ^ 3
End Sub
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
n1 = Val(TextBox1.Text)
opera = 5
TextBox1.Text = " "
End Sub
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
n1 = Val(TextBox1.Text)
TextBox1.Text = 0 - n1
End Sub
Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
TextBox1.Text = Math.PI

End Sub

Private Sub Button24_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
Dim den As Double
n1 = Val(TextBox1.Text)
den = 180 / n1
seno = Math.Sin(Math.PI / den)
TextBox1.Text = seno
End Sub
Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
Dim den As Double
n1 = Val(TextBox1.Text)
den = 180 / n1
coseno = Math.Sin(Math.PI / den)
TextBox1.Text = coseno
End Sub
Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
Dim den As Double
n1 = Val(TextBox1.Text)
den = 180 / n1
tangente = Math.Sin(Math.PI / den)
TextBox1.Text = tangente
End Sub
Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
While (n1 > 0)
fac = * n1
n1 = n1 - 1
End While
End Sub
End Class