Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
3. С помощью панели инструментов поместить на форму
три текстовых поля и пять кнопок. Присвоить полям
имена txtl, txt2, txt3, а кнопкам — cmdPlus, cmdMi-
nus,cmdUmn, cmdDelen, cmdExit.
Создадим теперь событийные процедуры сложения, вычитания, умножения, деления и выхода из программы. Сначала необходимо присвоить ячейкам электронной таблицы с помощью функции Val числовые значения, которые будут вводиться в текстовые поля аргументов. Затем в текстовое поле результата необходимо вывести значение одной из ячеек, содержащих формулы арифметических операций.
Аргументы в электронной таблице будут храниться в ячейках А1 и В1, а формулы сложения, вычитания, умножения и деления — соответственно в ячейках С1, С2, СЗ и С4.
При адресации ячеек необходимо помнить, что в VBA ячейки являются объектами семейства Cells (R,C), где R — номер строки, а С — номер столбца.
4. Для каждой из кнопок ввести программные коды собы
тийных процедур. Программный код событийной проце
дуры сложения cmdPlus_Click () будет следующий:
Private Sub cmdPlus_Click()
Cells (1, 1) = Val(txtl.Text) Cells (1, 2) = Val(txt2.Text) txt3.Text = Cells (1, 3) End Sub
Калькулятор | '■ ' '> "-Я''":':1Р1 | \ 'id |
В 234Ш: | S671 0,41269841269SB | |
и | — __________ | |
I^HH^I Выход Ц | ||
mm | ш |
5. Установить для свойства Alignment текстовых полей значение Right Justuf у и подходящий размер шрифта с использованием свойства Font.
6. Запустить проект на выполнение. Ввести числа в два левых текстовых поля и щелкнуть по кнопке арифметической операции. В правом поле будет выведен результат.
Проект хранится в файле Макросы и проекты xls rn ппм jrs^
в каталоге \textbook\VBA\ _____________________ uu-hum «^
„Шц Практические задания
4.35. На базе проекта «Калькулятор» создать проект «Инженерный калькулятор».
Глава 5 _______
Дата публикования: 2014-10-30; Прочитано: 331 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!