ДОЛОЙ ВСЕ РАССУЖДЕНИЯ, НАЧИНАЕМ ПРОГРАММИРОВАТЬ!

Итак, мы уже многое умеем, давайте попробуем написать свою программу, а чтоб долго не раздумывать, попробуем решить знакомую нам задачу про светофор, но уже с помощью диалоговых окон. Для этого создайте новую книгу и сохраните ее под именем "Светофор"
Войдите в редактор VBA и создайте новый модуль
Войдите в модуль и там напишите следующую строку sub svetofor() и нажмите клавишу ENTER, редактор автоматически создаст новую строку End sub, тем самым мы создали свою процедуру для последующего написания программного кода.


ПРИМЕЧАНИЕ: Создать процедуру можно и по- другому.После входа в окно модуля нажмите клавишу Insert, а в открывшемся окне выберите Procedure. Появится диалоговое окно "Add Procedure" - Вставка процедуры. В поле имя (Name) введите svetofor. После этого отметьте переключатели Sub и Private и нажмите кнопку Ok. В окне модуля выведется пустая процедура с заданным именем:(кому как, но лично я предпочитаю давать переменным и процедурам русские имена, мне в них легче ориентироваться и сами процедуры создаю вручную, так быстрее)

Private Sub svetofor()

End Sub

Между созданными словами вписываем следующие строки

Dim сообщение, заголовок, по_умолчанию, светофор
сообщение = "введите любое целое число минут из интервала в один час"
заголовок = "Задача про светофор"
по_умолчанию = 1
время = InputBox(сообщение, заголовок, по_умолчанию)
If время > 5 Then время = врем Mod 5
If время <= 3 Then светофор = "ЗЕЛЕНЫЙ" Else светофор = "КРАСНЫЙ"
MsgBox (светофор)

Где инструкция Dim применяется для описания переменных.Функция InputBox служит для ввода данных, а MsgBox - для вывода сообщения. Думаю, что вам будет интересно самостоятельно разобраться с ними, тем более что в справке они подробно описаны и даже я со своим школьным немецким смог понять, хотя там все на английском. Для того чтобы получить справку по любой функции, необходимо ее выделить и нажать клавишу F1.

В итоге получается следующая процедура:

Private Sub svetofor()
Dim сообщение, заголовок, по_умолчанию, светофор
сообщение = "введите любое целое число минут из интервала в один час"
заголовок = "Задача про светофор"
по_умолчанию = 1
время = InputBox(сообщение, заголовок, по_умолчанию)
If время > 5 Then время = врем Mod 5
If время <= 3 Then светофор = "ЗЕЛЕНЫЙ" Else светофор = "КРАСНЫЙ"
MsgBox (светофор)
End Sub

Все, можно тестировать программу! Для этого ставим курсор на любую строку написанной нами процедуры и запускаем на исполнение.

Примечание: если курсор будет находиться вне процедуры, то количество манипуляций по запуску увеличится на объяснении которых я не останавливаюсь, поскольку знаю, что с этим разобраться в ваших силах.

Нам остается только подключить написанный только что макрос к кнопке, находящейся на рабочем листе.Для этого выйдете из редактора VBA и, создав на рабочем листе кнопку, так же, как мы ее создавали на форме, точно так двойным кликом войдите в процедуру кнопки и впишите там только одно слово, а именно: имя нашего макроса, т.е. svetofor. У вас должно получиься следующее:

Private Sub CommandButton1_Click()
svetofor

End Sub

продолжение :

Рейтинг@Mail.ru главная программы задачи карта Copyright © СОМИТ, А.Козлов, 2005 г