Порядок выполнения работы
1. Проверить наличие личной папки. Если ее нет – создать.
2. Войти в среду Visual Basic .
3. Создать новый проект, выбрав в диалоговом окне запуска (рис.1) создание нового проекта Standart Exe. Присвоить созданному проекту имя Lab1. Для этого в окне проекта (Project) выбрать первую строку (строку проекта) и затем открыть окно свойств командой View Properties Window.(Вид Окно Параметров) В появившемся окне свойств Properties (Параметры) для свойств Name указать значение Lab1.
4. Используя меню View включить/отключить основные окна среды Visual Basic: окно форм, окно кода, окно управления раскладкой, окно свойств, панель элементов, окно проекта. Описать назначение каждого окна. Как еще можно открыть и закрыть эти окна?
5. Изменить значение свойства Name формы на Form1. Свойству Caption присвоить значение «Лаб№1. Выполнил <ФИО>. Группа <группа>». Этот текст будет отображаться в строке заголовка формы при запуске приложения.
6. Запустить приложение, т.е. перейти в режим Run-Time. Для этого нажать клавишу F5. Закрыть приложение. Описать, какие еще есть способы запуска приложения.
7. Используя панель элементов управления ToolBox cоздать в форме командную кнопку (элемент управления типа CommandButton) с именем «EXIT» (свойство Name) и написать на ней «Выход» (свойство Caption).
Путем изменения свойств и повременного переключения в режим Run-Time и обратно – в режим конструктора исследовать и описать такие свойства командной кнопки, как размеры, местоположение, цветовое оформление, внешний вид, вид и параметры шрифта и т.п.
8. Аналогично создать кнопку Hello с подписью «Привет».
9. Запустить приложение на выполнение. Реагируют ли кнопки на щелчки? Возвратиться в режим конструктора.
10. Двойным щелчком на кнопке EXIT войти в окно кода формы и ввести следующий код обработки события Click кнопки EXIT (обрамляющие строки будут сгенерированы Visual Basic автоматически):
Private Sub EXIT_Click()
End
End Sub
11. С событием Clik кнопки Hello связать следующий код:
Private Sub Hello_Click()
Print “Привет! Моя первая программа”
End Sub
12. Запустить приложение на выполнение (F5). Как теперь реагируют на щелчки командные кнопки Hello и EXIT? Сделать несколько щелчков на кнопке Hello.
13. Изменить процедуру обработки события Click кнопки Hello, включить в нее дополнительные инструкции для запроса и установки размера шрифта:
Private Sub Hello_Click()
Dim i as integer
i = InputBox(“Введите размер шрифта”)
Font.Size = i
Print “Привет! Моя первая программа”
End Sub
Как теперь работает приложение? Сделайте несколько щелчков на кнопке, задавая каждый раз разные размеры шрифта.
14. Создать в форме элемент управления Check1 типа CheckBox (флажок) с подписью «Подчеркивание».
15. В процедуру обработки события Click кнопки Hello добавить запрос размера шрифта, а также установку/снятие режима подчеркивания в зависимости от состояния флажка Check1:
Private Sub Hello_Click()
Dim i as integer
i = InputBox(“Введите размер шрифта”)
Font.Size = i
Font.Underline = Check1.Value
Print “Привет! Моя первая программа”
End Sub
Запустить приложение на выполнение. Какова теперь реакция приложения на щелчки на кнопке Hello при разных установках флажка Check1.
16. Изменить код процедуры Hello_Click() так, чтобы сообщение выводилось в центре формы. Для этого с помощью методов TextHeight и TextWidth определить фактическую высоту и ширину выводимой строки. Размеры (высота и ширина) рабочей области формы (области, доступной для размещения информации) находятся в свойствах ScaleHeight и ScaleWidth соответственно. Процедура имеет вид:
Private Sub Hello_Click()
Dim Str as string
Dim i as integer
Str = “Привет! Моя первая программа”
i = InputBox(“Введите размер шрифта”)
Font.Size = i
Font.Underline = Check1.Value
CurrentY = (ScaleHeight – TextHeight(Str))/2
CurrentX = (ScaleWidth – TextWidth(Str))/2
Print Str
End Sub
Запустить приложение на выполнение и проверить его работу.
17. Создать в форме элемент управления Text1 типа TextBox (Текстовое поле) и соответствующую ему подпись – элемент управления Label1 типа Label (Надпись) с надписью (свойство Caption) “Введите текст”, как показано на рис.9.
Рис.9. Проект формы Form1.
18. Изменить код процедуры Hello_Click() так, чтобы введенный в поле Text1 текст объединялся с заранее определенным текстом. Для этого используется операция конкатенации (объединение) - &. Чтобы текст не сливался, следует после слова «программа» добавить пробел.
Private Sub Hello_Click()
Dim i As Integer
Dim str As String
Cls
str = "Привет! Моя первая программа " & _
Text1.Text
i = InputBox("Введите размер шрифта")
Font.Size = i
Font.Underline = Check1.Value
CurrentY = (ScaleHeight - TextHeight(str)) / 2
CurrentX = (ScaleWidth - TextWidth(str)) / 2
Print str
End Sub
Запустить приложение на выполнение и проверить его работу.
19. Командой Project Add Form (Проект Добавить форму) создать форму Form2, а в ней командную кнопку EXIT с надписью «Закрыть» для закрытия этой формы. С событием Click для этой кнопки связать код:
Private Sub Exit_Click()
Visible = False
End Sub
Присвоение свойству Visible (Видимость) этой формы значения False (Ложь) делает форму невидимой (убирает с экрана).
20. В форме Form1 создать командную кнопку F2 с надписью «Запуск формы» и процедурой обработки события Click:
Private Sub F2_Click()
Form2.Visible = True
End Sub
Выполнение этого кода приводит к появлению на экране формы Form2 (она становится видимой). Удостовериться в этом можно, перейдя в режим Run-Time и попеременно включая /отключая форму.
21. Используя элемент управления Image, Line, Shape, Label оформить внешний вид формы Form2. При этом выбрать различные цвета, толщину линий и т.п.
22. Используя окно управления раскладкой Form Layout (План формы), разместить формы Form1 и Form2 на экране так, чтобы они не перекрывали друг друга.
23. Сохранить результаты в личной папке, соблюдая требования, изложенные в разделе 4. Именно, присвоив следующие имена файлов:
Форма 1: L1_<ФИО>_Form1
Форма 2: L1_<ФИО>_Form2
Проект: L1_<ФИО>_Project
24. По результатам работы составить отчет.