Всім привіт! На сьогоднішньому занятті ми з вами створимо самий звичайний калькулятор, який буде схожий на стандартний калькулятор ОС Windows.

Ну, якщо Ви готові, тоді приступаємо. Створюємо новий проект та форму Form1. Додаємо одне текстове поле та 18 кнопок в три ряди. Кожна кнопка матиме розмір в довжину та висоту 735 пт. Рис. 1

calc3

Рис. 1

Потім підписуємо кнопки так як показано на Рис. 2

calc2

 Рис. 2

 Залишається останній етап нашого проекту і самий головний. Це введення коду. Почергово клікаючи на кнопки починаючи з "1" вводимо код і запускаємо проект на перевірку.

Dim x As Currency, y As Currency, z As Currency, znak As Integer
Private Sub Command1_Click()
Text1.Text = Text1.Text + "1"
End Sub
Private Sub Command10_Click()
Text1.Text = Text1.Text + "0"
End Sub
Private Sub Command11_Click()
Text1.Text = Text1.Text + ","
End Sub
Private Sub Command12_Click()
z = Text1.Text
z = z * (-1)
Text1.Text = z
End Sub
Private Sub Command13_Click()
x = Text1.Text
Text1.Text = ""
znak = 1
End Sub
Private Sub Command14_Click()
x = Text1.Text
Text1.Text = ""
znak = 2
End Sub
Private Sub Command15_Click()
x = Text1.Text
Text1.Text = ""
znak = 3
End Sub
Private Sub Command16_Click()
x = Text1.Text
Text1.Text = ""
znak = 4
End Sub
Private Sub Command17_Click()
y = Text1.Text
If znak = 1 Then z = x + y
If znak = 2 Then z = x - y
If znak = 3 Then z = x * y
If znak = 4 Then z = x / y
Text1.Text = z
End Sub
Private Sub Command18_Click()
x = 0
y = 0
z = 0
znak = 0
Text1.Text = ""
End Sub
Private Sub Command2_Click()
Text1.Text = Text1.Text + "2"
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text + "3"
End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text + "4"
End Sub
Private Sub Command5_Click()
Text1.Text = Text1.Text + "5"
End Sub
Private Sub Command6_Click()
Text1.Text = Text1.Text + "6"
End Sub
Private Sub Command7_Click()
Text1.Text = Text1.Text + "7"
End Sub
Private Sub Command8_Click()
Text1.Text = Text1.Text + "8"
End Sub
Private Sub Command9_Click()
Text1.Text = Text1.Text + "9"
End Sub

Дякую за увагу. Зустрінемось на слідуючизх заняттях. З Вами був Super User.