Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Например, значением функции Val("2000") является число 2000. Эта функция часто применяется для преобразования строкового значения свойства Text текстовых полей в число, которое затем используется в арифметических выражениях.
Воспользуемся функцией Val для создания приложения «Обычный калькулятор», которое будет производить арифметические действия над целыми десятичными числами, которые будут вводиться и выводиться в текстовые поля на форме. Для создания графического интерфейса приложения разместим на форме три текстовых поля (два поля для ввода числовых данных и одно для вывода результата) и пять кнопок для реализации событийных процедур: сложения, вычитания, умножения, деления и завершения работы.
JJH Проект «Обычный калькулятор»
1. Создать новый проект. Разместить на форме три тексто
вых поля и пять кнопок. Присвоить им имена: txtl,
txt2, txt3, cmdPlus, cmdMmus, cmdUmn, cmdDelen,
cmdExit.
Событийная процедура сложения CmdPlus_Click должна изменять значения свойства Text текстового поля txt3 так, чтобы оно являлось суммой числовых значений свойства Text текстовых полей txtl и txt2. Для преобразования строковых значений, вводимых в текстовые поля, в десятичные числа, воспользуемся функцией Val. Код событийной процедуры будет следующим:
Sub cmdPlus_Click()
txt3.Text = Val(txtl.Text) + Val(txt2.Text)
Дата публикования: 2014-10-30; Прочитано: 344 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!