Итак, приступим к созданию нашего первого калькулятора!

Для этого откройте новую форму, расположите в ней четыре элемента Label, три элемента TextBox и пять элементов CommandButton. Подберите их размеры и расположение.

Измените нужным образом свойства Caption элементов Label и CommandButton, а также свойства Text элементов TextBox. Подберите во всех случаях шрифт.

Расположите элемент Label1 рядом с элементом TextBox1 как показано на рисунке. Элемент Label2 рядом с элементом TextBox2, а элемент Label3 рядом с элементом TextBox3. В элемент Label4 вы можете вписать все что угодно и расположить где угодно, на нашем рисунке это надпись Super X.

В окне свойств элемента Label1 в графу Caption впишите "Число Х", Label2 - "Число Y", Label3 - "Результат Z".

В окне свойств элемента CommandButton1 в графу Caption впишите "+", в окне свойств элемента CommandButton2 впишите "-", CommandButton3 сделайте "х", CommandButton4 сделайте "/". Эти знаки соответствуют значениям сложения, вычитания, умножения и деления.

CommandButton5 сделайте кнопкой СБРОС. В графу Caption в окне свойств элемента CommandButton5 внесите соответствующие изменения.

Сделайте двойной щелчок на кнопке сложения и впишите в подпрограмму код:

Dim x,y,z As Single
x = CSng(TextBox1.Text)
y = CSng(TextBox2.Text)
z = x + y
TextBox3.Text = CStr(z)

Запустите программу и проверьте действие операции сложения. Для этого в окно TextBox1 введите 1-е число, в окно TextBox2 введите 2-е число, а в третьем окне TextBox3 при нажатии на кнопку сложения появится результат вычислений.

Сделайте двойной щелчок на кнопке вычитания и вставьте в подпрограмму с помощью копирования и исправления предыдущего кода следующий код:

Dim x,y,z As Single
x = CSng(TextBox1.Text)
y = CSng(TextBox2.Text)
z = x - y
TextBox3.Text = CStr(z)

Сделайте двойной щелчок на кнопке умножения и вставьте в подпрограмму с помощью копирования и исправления предыдущего кода следующий код:

Dim x,y,z As Single
x = CSng(TextBox1.Text)
y = CSng(TextBox2.Text)
z = x * y
TextBox3.Text = CStr(z)

Сделайте двойной щелчок на кнопке деления и вставьте в подпрограмму с помощью копирования и исправления предыдущего кода следующий код:

Dim x,y,z As Single
x = CSng(TextBox1.Text)
y = CSng(TextBox2.Text)
z = x / y
TextBox3.Text = CStr(z)

Сделайте двойной щелчок на кнопке СБРОС и вставьте в подпрограмму с помощью копирования и исправления предыдущего кода следующий код:

TextBox1.Text = " "
TextBox2.Text = " "
TextBox3.Text = " "

Запустите программу. Проверьте действие кнопок. При нажатии на кнопку СБРОС из всех полей элементов TextBox, куда были введены значения и был получен результат, все числа должны исчезнуть.

Вот и всё! Наш первый калькулятор готов! Надеюсь все очень и очень рады

Источник:http://justadream.my1.ru
Крутой калькулятор