Главная

Популярная публикация

Научная публикация

Случайная публикация

Обратная связь

ТОР 5 статей:

Методические подходы к анализу финансового состояния предприятия

Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века

Ценовые и неценовые факторы

Характеристика шлифовальных кругов и ее маркировка

Служебные части речи. Предлог. Союз. Частицы

КАТЕГОРИИ:






Практическое занятие №7. - закрепление полученных знаний по темам «Основные элементы и объекты VBA»«Основы программирования на VBA»;




Тема «Отладка программ»

Цели занятия:

- закрепление полученных знаний по темам «Основные элементы и объекты VBA»«Основы программирования на VBA»;

- формирование умения создавать приложения в VBA;

- формирование умения выполнять отладку и тестирование программы на уровне модуля;

- формирование умения осуществлять разработку кода программного модуля на современных языках программирования.

Вопросы для актуализации опорных знаний:

  1. что такое отладка программы?

2. каких видов бывают ошибки?

3. как можно выявить ошибку?

Задания для практического занятия и инструктаж по их выполнению

Задание №1

1. Откройте новую рабочую книгу в Excel.

2. Подготовьте экранную форму, представленную на рисунке. Внедрите в созданную форму с помощью панели Toolbox небольшой объект Image .

Форма для выполнения задания

3. На кнопку «Измени надпись» создайте новую процедуру.

4. Введите текст процедуры. В тексте сделайте ошибку в свойстве Size (напишем Sie)

Private Sub CommandButton1_Click()

Label1.Caption = "Флаг России"

UserForm2.Image1.Picture = LoadPicture("C:\FlgRUS.gif")

Label1.Font.Sie = 14

End Sub

5. Вернитесь в редакторе к созданной форме и выведите форму для работы, нажав клавишу <F5>.

6. После появления формы на экране нажмите на кнопку «Измени надпись». Так как в программе заложена ошибка, появится окно сообщения об ошибке, и откроется редактор VBA.

Окно редактирования кода с окном сообщения об ошибке.

7. Нажмите на кнопку Debug (Отладка) и отладчик укажет, в какой строке у вас ошибка.

Окно редактирования кода с указанной ошибкой

8. Исправьте ошибку и нажмите на стандартной панели инструментов на кнопку (Продолжение).

9. Тексты программ для кнопок CommandButton2, CommandButton3, CommandButton4, CommandButton5:

 

Объект Программа
CommandButton2 (Сдвинь рисунок вправо) Private Sub CommandButton2_Click() Image1.PictureAlignment = 4 End Sub
CommandButton4 (Измени цвет фона и формы) Private Sub CommandButton4_Click() Image1.BackColor = &HFF80FF UserForm2.BackColor = RGB(64, 0, 0) End Sub
CommandButton3(Мозаика) Private Sub CommandButton3_Click() Image1.PictureTiling = True End Sub
CommandButton5(Измени рисунок флага и надпись) Private Sub CommandButton5_Click() Label1.Caption = "Флаг Англии" Label1.Font.Size = 14 Label1.Font.Name = "Arial Black" UserForm2.Image1.Picture = LoadPicture("C:\FlgEng.gif") End Sub

10. Щелкнув по кнопке «Измени надпись», получаем:

 

11. Щелкнув по кнопке «Сдвинь рисунок вправо», получаем:

 

 

12. Щелкнув по кнопке «Мозаика», получаем:

 

13. Щелкнув по кнопке «Смена флага и надписи», получаем:

14. Можно предусмотреть разные комбинации рисунков и надписей.

15. Сохраните работу, результат предъявите преподавателю.

 

 






Не нашли, что искали? Воспользуйтесь поиском:

vikidalka.ru - 2015-2024 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных