double arrow

Практическая работа 9

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

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

1. Открыть или создать файл для работы;

2. Перейти в редактор Visual Basic (Сервис > Макрос > редактор Visual Basic);

3. Создать пользовательскую форму (Insert > UserForm);

(Рис.1)

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

(Рис.2)

5. В пользовательской форме нарисовать окно для надписи.

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

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

(Рис.3)

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

7. Аналогичным образом сделать еще две надписи: “Время” и “Скорость”.

8. Подключить пиктограмму “TextBox” - “Поле” и под каждой надписью нарисовать окно.

(Рис.4)

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

(Рис.5)

10. Нарисовать в пользовательской форме 2 кнопки и подписать их “Выход из формы” и “Расчет Скорости” с помощью свойств “Caption” и “TextAlign”.

11. Свернуть окно редактора Visual Basic.

12. Войти в редактор Paint и нарисовать машинку в верхнем левом углу рабочего листа.

13. Сохранить данный рисунок на Рабочем столе под именем “Машина”.

14. Развернуть Пользовательскую форму.

15. Нажать пиктограмму “Image”.

(Рис.6)

16. Нарисовать окно в пользовательской форме.

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

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

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

(Рис.7)

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

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

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

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

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

(Рис.8)

20. Перейти на рабочий лист редактора Excel.

21. Подключить панель элементов (Вид > Панели инструментов > Панель элементов).

22. Начертить кнопку и подписать ее “Вызов формы”.

23. Запрограммировать данную кнопку, для этого:
? два раза щелкнуть по кнопке левой кнопкой мыши;
? написать фразу – UserForm1.Show (Показать пользовательскую форму №1)

(Рис.9)

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

(Рис.10)

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


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



Сейчас читают про: