© 2017 Ольшевский Андрей Георгиевич (консультирую по Скайп da.irk.ru)

Сайт www.super-code.ru наполняется бесплатными книгами. Книги периодически редактируются

Калькулятор на VB.NET (Visual Basic.NET) в Microsoft Visual Studio 2017 (2008, 2012, 2015)

Если в форме Form1 двойным щелчком нажать на кнопке, то создается или открывается ранее созданный код, выполняемый при клике на эту кнопку.

Чтобы при нажатии кнопки Button1 с цифрой 1 на калькуляторе в окне TextBox1 появилась цифра 1 выполните следующие действия.

Двойным щелчком кликните кнопку 1 на форме Form1, в появившемся коде в строке под оператором

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

наберите оператор

    TextBox1.Text = TextBox1.Text & 1

Получится код

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    TextBox1.Text = TextBox1.Text & 1
End Sub

Проверьте выполнение программы, нажав на зеленый треугольник с надписью "Пуск". На появившемся после запуска программы окне калькулятора нажмите кнопку 1 и в текстовом поле уведите появившуюся цифру 1.

Код калькулятора

Public Class Form1

Dim a As String

Dim b As String

Dim c As String


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

    TextBox1.Text = TextBox1.Text & 1

End Sub


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

    TextBox1.Text = TextBox1.Text & 2

End Sub


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

    TextBox1.Text = TextBox1.Text & 3

End Sub


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

    TextBox1.Text = TextBox1.Text & 4

End Sub


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

    TextBox1.Text = TextBox1.Text & 5

End Sub


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

    TextBox1.Text = TextBox1.Text & 6

End Sub


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

    TextBox1.Text = TextBox1.Text & 7

End Sub


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

    TextBox1.Text = TextBox1.Text & 8

End Sub


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

    TextBox1.Text = TextBox1.Text & 9

End Sub


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

    TextBox1.Text = TextBox1.Text & 0

End Sub


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

    TextBox1.Text = TextBox1.Text & ","

End Sub


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

    a = TextBox1.Text

    c = "+"

    TextBox1.Text = ""

End Sub


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

    a = TextBox1.Text

    c = "-"

    TextBox1.Text = ""

End Sub


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

    a = TextBox1.Text

    c = "*"

    TextBox1.Text = ""

End Sub


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

    a = TextBox1.Text

    c = "/"

    TextBox1.Text = ""

End Sub


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

    TextBox1.Text = ""

End Sub


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

    If c = "+" Then TextBox1.Text = Val(a) + Val(TextBox1.Text)

    If c = "-" Then TextBox1.Text = Val(a) - Val(TextBox1.Text)

    If c = "*" Then TextBox1.Text = Val(a) * Val(TextBox1.Text)

    If c = "/" Then TextBox1.Text = Val(a) / Val(TextBox1.Text)

End Sub


Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click

    TextBox1.Text = -Val(TextBox1.Text)

End Sub


Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click

    TextBox1.Text = 1 / Val(TextBox1.Text)

End Sub


End Class

14.10.17


© 2017 Ольшевский Андрей Георгиевич e-mail: da.irk.ru@mail.ru