Практическая работа по информатике _Проект «Калькулятор» на языке ООП Visual Basic_ 9 класс

Практическая работа

Проект «Калькулятор» на языке ООП Visual Basic

Public Class Form1

Dim a As Double

Dim b As Integer

'b=1 - сложение

'b=2 - вычитание

'b=3 - умножение

'b=4 - деление

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

TextBox1.Text &= "1"

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

TextBox1.Text &= "2"

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

TextBox1.Text &= "3"

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

TextBox1.Text &= "5"

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

TextBox1.Text &= "4"

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

TextBox1.Text &= "6"

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox1.Text &= "7"

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox1.Text &= "8"

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

TextBox1.Text &= "9"

End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

If TextBox1.Text = "0" Then

Else

TextBox1.Text &= "0"

End If

End Sub

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

a = TextBox1.Text

TextBox1.Text = ""

b = 1

End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

TextBox1.Text &= ","

End Sub

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

a = TextBox1.Text

TextBox1.Text = ""

b = 2

End Sub

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

a = TextBox1.Text

TextBox1.Text = ""

b = 3

End Sub

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

a = TextBox1.Text

TextBox1.Text = ""

b = 4

End Sub

Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

Select Case b

Case Is = 1

' если сложение

TextBox1.Text = a + TextBox1.Text

Case Is = 2

' если вычитание

TextBox1.Text = a - TextBox1.Text

Case Is = 3

' если умножение

TextBox1.Text = a * TextBox1.Text

Case Is = 4

' если деление

If TextBox1.Text "" And TextBox1.Text "0" Then

TextBox1.Text = a / TextBox1.Text

End If

End Select

End Sub

Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

TextBox1.Text = ""

a = 0

b = 0

End Sub

End Class