ИНФОРМАТИКА

После определения типа переменных целесообразно вернуться к изображению калькулятора, чтобы описать функции (т. е. задать методы), выполняемые каждой кнопкой. Для этого нужно нажать кнопку View Object (Посмотреть объект), которая расположена в Окне Проектов.
Далее, переходя от одной кнопки калькулятора к другой, надлежит задать функции, которые они выполняют.
Ниже приведена подпрограмма загрузки формы.
При загрузке формы переменная fistt получает булево значение True (Истина), т. е. ноль на индикаторе можно заменить набираемой цифрой. Строка Private Sub Form_Load() является заголовком подпрограммы, а строка End Sub показывает место ее окончания. Имя подпрограммы – Form_Load.
Ниже приведен текст процедуры, фиксирующий момент нажатия кнопки с изображением цифры 1.
Рассмотрим назначение каждой строки составленной программы.
Строка Private Sub Command1_Click() является заголовком подпрограммы. Имя подпрограммы – Command1_Click. Строка End Sub показывает место окончания данной подпрограммы.
Строка If fistt = True Then является заголовком блочного оператора условной передачи управления. Если условие, записанное в заголовке, выполняется, то на индикаторе появляется первая единица. Условием появления единицы является выполнение равенства fistt = True. В результате выполнения этого фрагмента программы переменная fistt получает булево значение False (Ложь).
Если условие, указанное в заголовке оператора, не выполняется, то вычислительный процесс идет к группе операторов, расположенных после ключевого слова Else (Иначе). За счет этого на индикаторе добавляется новая единица к числу, набранному на предыдущих этапах работы калькулятора. Oсуществляется это с помощью строки Text1.Text = Str$(Text1.Text) + " 1".
End If показывает место окончания оператора условного перехода.
Аналогично построены остальные подпрограммы, которые служат для обработки информации при нажатии цифровых клавиш 2, 3, 4 и т. д.
Следующая подпрограмма используется для сброса показаний калькулятора в ноль при нажатии клавиши «С».