Приложение «калькулятор»
Для создания приложения запустите Visual Basic, и создайте новый проект Standart Application. Сохраните проект как Calc1.prj, а форму как Calc.frm.
В появившейся форме создайте 15 кнопок CommandButton.
В окне Properties из выпадающего списка выберете Command1, после этого найдите в том же окне свойство Caption и измените его значение на «1».
Повторите предыдущий шаг для кнопок Command2-Command10, подставляя вместо «1» цифры 2-9, 0.
Оставшиеся кнопки обозначьте как «С», «*», «-», «+», «=».
Расположите кнопки как показано на рис. 24.
Создайте элемент ввода текста TextBox. Расположите его вверху формы. Измените свойство Text на пустую строку.
Теперь сохраните проект на диске, т.к. форма приложения уже создана, и это позволит вам не переделывать всё заново, если на следующем этапе вы сделаете ошибки. Следующим шагом будет написание кода программы, которая будет реагировать на нажатия пользователем элементов формы, и выполнять основные функции приложения.
Щелкните два раза на кнопке Command1. Появится окно редактора кода с заготовкой функции реакции на нажатие кнопки. Из левого выпадающего списка вверху окна выберете (General), курсор перейдёт на самое начало кода, где необходимо ввести следующий код:
Dim x As Double
Dim y As Double
Dim c
Dim rez As Double
Здесь объявляются переменные: х – первый операнд, у – второй операнд, с – вид операции между ними, rez – результат операции.
Приведите заготовку функции к виду:
Private Sub Command1_Click(Index As Integer)
x = Text1 + "1"
Text1 = x
End Sub
Повторите предыдущие 2 шага для всех кнопок с цифрами, заменяя во второй строке кода «1» на соответствующую для каждой кнопки цифру.
Для кнопки «С» функция должна содержать только оду строку: Text1=””. Это очистит поле ввода, которое в данном случае является «индикатором» калькулятора.
Для кнопок «+», «-», «*» код должен быть таким:
Private Sub Command12_Click()
c = "*"
y = x
Text1 = ""
End Sub
Т.е. при нажатии на кнопку какой-либо арифметической функции введенное число становится вторым операндом, а поле ввода очищается для ввода другого операнда. В зависимости от нажатой кнопки устанавливается и сама операция: во второй строке необходимо вместо «*» поставить знак операции в соответствии с названием кнопки.
Для кнопки «=» следует ввести следующий код:
Private Sub Command15_Click(Index As Integer)
Select Case c
Case "+"
rez = y + x
Case "-"
rez = y - x
Рис. 24 Рис. 25
Case "*"
rez = y * x
End Select
Text1 = rez
End Sub
Здесь в зависимости от типа функции высчитывается результат, который затем отображается в поле ввода.
Сохраните проект, запустите программу на выполнение, попробуйте произвести различные действия, протестируйте работу приложения.
