Лабораторная работа №1 Тема: Интерфейс Microsoft Visual Basic.

Лабораторная работа №1. Тема: Интерфейс Microsoft Visual Basic.

Цель: Научить вызывать в приложении MS Office систему программирования Visual Basic быстрым способом. Продемонстрировать ее применение на элементарном уровне в MS Excel. Объяснить назначение элементов управления в интерфейсе VB. Решить задачу на алгоритм линейного вида.

Ход занятия:

1. Интерфейс  MS Visual Basic.

Создать макрос Вышивка линейного алгоритма в приложении MS Excel с помощью Visual Basic for Application.

1. Загрузка программы Visual Basic.
   1. Загрузите программу MS Excel через главное меню: Пуск/Программы/Excel.
   2. Сохраните файл в своей папке под названием Калейдоскоп.xls (Файл/Сохранить).

1. Уменьшите ширину первых столбцов до 1 см: для чего 1)выделите столбцы А:Н, 2) наведите указатель между А и В, 3) сдвиньте влево.
2. Вызовите окно программы Visual Basic, нажав сочетание клавиш ALT + F11.
3. Стандартным способом должны отобразиться на экране строка заголовка, строка горизонтального меню, панель инструментов Стандартная, окно Проект (Project), окно Свойства (Properties). Ознакомьтесь с видом окна и отметьте для себя их наличие.
4. Если на экране имеются другие окна или, наоборот, отсутствуют перечисленные, то на Стандартной панели найдите одноименные кнопки  или через пункт View откройте недостающие. Лишние окна закройте щелчком по кнопке с крестиком. 
5. Интерфейс VBA.
   1. Подводя указатель на кнопки Стандартной панели, запишите в тетрадь по вертикали назначение инструментов (если версия на англ.яз, то в дальнейшем следует перевести текст).
   2. В окне Project, напоминающее окно Проводник, определите объекты, которые обычно в файле Excel размещаются автоматически (напр., Лист 1, .., ЭтаКнига).
   3. В этом же окне находится панель инструментов. Выделите объект Лист1 и щелкните первую кнопку View Code (просмотр программы), справа появилось окно, в котором редактируется код программы, имеющий отношение к Листу 1 и выполняющийся только в нем.
   4. Нажмите следующую кнопку View Object (просмотр объекта). Вы перешли на форму, т.е. объект, в котором производятся действия при выполнении программы, а это Лист1.
   5. Вернитесь в VBA, щелкнув кнопку на панели задач (внизу экрана).
   6. Прочтите в строке заголовка окна для отражения кода программы название проекта и, после тире название объекта. Просмотрите содержимое окна Properties, которое отражает свойства выделенного в окне Project объекта.
   7. Измените одно из главных свойств объекта (Name), щелкнув в этой строке значение Лист1, сотрите его и наберите новое – Рабочий. В строке заголовка автоматически название сменилось.
   8. Самостоятельно просмотрите свойства объекта ЭтаКнига, для чего сначала выделите его в окне Объекты.

1. Закройте окно кода Рабочий.

1. Добавление модуля
   1. Добавьте новый объект в проект, который будет содержать код, доступный из любого листа. Для этого в пункте меню Insert (Вставка) выберите Module (модуль).
   2. В окне Object найдите его месторасположение.
   3. В окне Properties просмотрите свойства объекта Модуль.
   4. Щелкните в окне кода, где приступите непосредственно к созданию программы, т.е. ее части – процедуры.

1. Объявите начало процедуры ключевым словом Sub. Через пробел введите название процедуры Узор(), где скобки предполагаю возможные входные переменные (аргументы).
2. Нажмите Ввод. Курсор перешел на следующую строку, но автоматически снизу появилось ключевое словосочетание, которое заканчивает любую процедуру: End Sub.
3. Наберите первую строку тела процедуры, начиная с указания объекта Range(“A1”), т.е. ячейка с адресом А1.
4. После нажатия точки, автоматически VBA предлагает список свойств, согласно объекту. Не торопитесь, нажмите первую букву свойства I, подсветка разместится по алфавиту в нужное место. Выберите свойство Interior (содержимое).
5. Снова нажмите точку и выберите свойство ColorIndex предыдущего свойства, которое одновременно само является объектом.
6. Присвойте последнему свойству значение с помощью функции Rnd(), т.е. генерация произвольного числа от 0 до 1.
7. Но это число слишком мало, для его увеличения умножьте функцию на 8.
8. ВВыделите эту строчку как на рисунке. Скопируйте в буфер обмена, воспользовавшись контекстным меню, где выберите Copy.
9. Разместите курсор на строку ниже. Вставьте из буфер содержимое еще семь раз и смените адреса ячейки, опираясь на текст программы.

1. Продолжите работу самостоятельно, учитывая, что первый блок меняет случайным образом цвет номерами 0-8 в ячейках в диапазоне А1:D2.
2. Во втором блоке с помощью метода (т.е. стандартной команды действия) с названием .Copy происходит поочередное копирование в буфер обмена 4 клетки в первом ряду. С помощью метода .PasteSpecial происходит вставка в соответствующие адресам клетки.
3. Самостоятельно разберитесь с третьим и четвертым блоками, запоминая, что метод .Select – это выделение указанного диапазона ячеек.
4. Выполнение макроса
   1. Переключитесь в окно Excel (либо через панель задач, либо через кнопку View Object окна Project).
   2. Вызовите диалоговое окно Макрос, для чего выполните Сервис/Макрос/Макрос.
   3. В окне подсветку поместите на название процедуры Узор.   Выполнить.
   4. Повторите п.4.3. несколько раз (8).