Практическая работа в редакторе VBA «Создание пользовательской формы "Расчет скорости"»

Разделы: Информатика

Тип урока: урок закрепления новых знаний и выработки умений.

Цель урока: закрепление пройденного материала по созданию пользовательской формы; вставки надписей, полей, кнопок и картинки в пользовательскую форму; программирование кнопок пользовательской формы; вызов пользовательской формы на рабочий стол редактора Excel; проверка работы пользовательской формы.

Оборудование: компьютер, проектор, экран.

Продолжительность работы: 40 минут.

Домашнее задание: 5 минут.

  1. Открыть или создать файл для работы;
  2. Перейти в редактор Visual Basic (Сервис > Макрос > редактор Visual Basic);
  3. Создать пользовательскую форму (Insert> UserForm);

(Рис.1)

  1. На панели элементов выбрать пиктограмму “Label” - “Надпись”;

    2. (Рис.2)

  2. В пользовательской форме нарисовать окно для надписи.
  3. В окне сделать надпись “Расстояние”, для этого:
    - щелкнуть правой кнопкой по окну “Label1” и выбрать команду “Properties”;

    4. - в появившемся окне свойств выбрать:

    (Рис.3)

    - свойство “Caption”, в котором вместо слова “Label1” написать слово “Расстояние”;
    -     свойство “TextAlign”, в котором поставить цифру 2 – выравнивание по центру.

  4. Аналогичным образом сделать еще две надписи: “Время” и “Скорость”.
  5. Подключить пиктограмму “TextBox” - “Поле” и под каждой надписью нарисовать окно.

    6. (Рис.4)

  6. Подключить пиктограмму “CommandButton” - “Кнопка”.

    (Рис.5)

  1. Нарисовать в пользовательской форме 2 кнопки и подписать их “Выход из формы” и “Расчет Скорости” с помощью свойств “Caption” и “TextAlign”.
  2. Свернуть окно редактора Visual Basic.
  3. Войти в редактор Paint и нарисовать машинку в верхнем левом углу рабочего листа.
  4. Сохранить данный рисунок на Рабочем столе под именем “Машина”.
  5. Развернуть Пользовательскую форму.
  6. Нажать пиктограмму “Image”.

    7. img7.jpg (8061 bytes)

    (Рис.6)

  7. Нарисовать окно в пользовательской форме.
  8. В появившемся окне “Properties” выбрать:
    - свойство “Picture” и щелкните по слову “None”;
    - в появившемся окне “LoadPicture” войти на Рабочий стол, найти

    9. свой файл “Машина” и выполнить команду “Открыть”;
    - в свойстве “PictureAlignment” поставить “0”, должна появиться картинка
    Вашей машины.

  9. В получившейся пользовательской форме запрограммируйте кнопку “CommandButton1” для этого:
    - два раза щелкните по кнопке “Выход из формы”;
    - написать оператор UserForm1.Hide (закрыть пользовательскую форму №1);

(Рис.7)

  1. Запрограммировать кнопку “CommandButton2” - “Расчет скорости” для этого:

    2. - два раза щелкнуть по кнопке;
    - написать программу:
    S = Val(TextBox1) - считываем значение из окошка TextBox1

    T = Val(TextBox2) - считываем значение из окошка TextBox2

    V = S / T - производим вычисление скорости

    TextBox3 = Str(V) - полученное значение записываем в окошко TextBox3

    (Рис.8)

  2. Перейти на рабочий лист редактора Excel.
  3. Подключить панель элементов (Вид > Панели инструментов > Панель элементов).
  4. Начертить кнопку и подписать ее “Вызов формы”.
  5. Запрограммировать данную кнопку, для этого:
    ? два раза щелкнуть по кнопке левой кнопкой мыши;
    ? написать фразу – UserForm1.Show (Показать пользовательскую форму №1)

    6. (Рис.9)

  6. На панели элементов отключить Режим конструктора.

    7. (Рис.10)

  7. Вызвать получившуюся форму и проверить работу всех кнопок.

img12.jpg (34925 bytes) 

(Рис.11)

 Домашнее задание:

Создать пользовательскую форму по заданному образцу и проверить ее работу.

См. приложение.