Sanidad Forestal

calculadora cientifica en visual basic

 
 
Public
 
Class Form1
 
Dim n1, n2, y As Double
 
Dim opera As Integer
 
Dim respu As Double
 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click
n1 = Val(TextBox1.Text)
opera = 3
TextBox1.Text =
" "
 
End Sub
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton2.Click
n1 = Val(TextBox1.Text)
opera = 4
TextBox1.Text =
" "
 
End Sub
 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton3.Click
n1 = Val(TextBox1.Text)
opera = 1
TextBox1.Text =
" "
 
End Sub
 
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton4.Click
n1 =Val(TextBox1.Text)
opera = 2
TextBox1.Text =
" "
 
End Sub
 
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton5.Click
TextBox1.Text = TextBox1.Text+ Str(1)
 
End Sub
 
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton6.Click
TextBox1.Text = TextBox1.Text + Str(2)
 
End Sub
 Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton7.Click
TextBox1.Text = TextBox1.Text + Str(3)
 
End Sub
 Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton8.Click
TextBox1.Text = TextBox1.Text + Str(4)
 
End Sub
 Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton9.Click
TextBox1.Text = TextBox1.Text + Str(5)
 
End Sub
 
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton10.Click
TextBox1.Text =TextBox1.Text + Str(6)
 
End Sub
 
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton11.Click
TextBox1.Text =...