Информатика

61

9. Результатом работы приложения является форма, приведенная ниже.

10.Выполнить самостоятельно следующие упражнения:

•для формы “Мое приветствие” и объектов управления TextBox и Label задать дополнительные свойства:

¾Alignment – выравнивает содержимое окна слева, справа, по центру;

¾BackColor – задает цвет фона;

¾BorderStyle – задает стиль обрамления;

¾ForColor – задает цвет шрифта;

¾Font – устанавливает параметры шрифта.

•Заполнить табл.7, указав в ней, каким объектам можно назначить приведенные в таблице свойства.

62

Задание 2. Разработка VB – приложения “Определение возраста”

Разработать проект, содержащий форму, в которой в зависимости от возраста сотрудника и его стажа работы выдаются соответствующие сообщения.

Порядок выполнения задания

1.Запустить приложение Visual Basic и создать новый проект “Определение возраста”.

2.Разработать пользовательский интерфейс, расположив на форме с помощью панели элементов управления, следующие объекты управления:

две метки (Label1, Label2); три текстовых поля (TextBox1, TextBox2, TextBox3); три командные кнопки (CommandButton1, CommandButton2, CommandButton3).

3.В окне Properties (Свойства) для каждого объекта управления установить свойства.

4.Форме и объектам, расположенным на ней, задать различные дополнительные свойства.

5.Ввести и проанализировать программный код для объекта управления

КнопкаНачать:

Private Sub КнопкаНачать_Click()

If Возраст.Text > 58 Or (Возраст.Text > 55 And Стаж.Text > 15) Then

Сообщение.Text = "Ваш возраст вызывает уважение" Else

Сообщение.Text = "Вы еще молоды!" End If

End Sub

6.Записать программный код для объектов управления КнопкаОчистить

и КнопкаВыход.

7.Разработать свой вариант программного кода для объекта управления КнопкаНачать, создав различные варианты сообщений в зависимости от возраста и стажа работы сотрудника.

8.Запустить программу на выполнение, а при наличии ошибок в программе – исправить их.

9.Сохранить в своей папке форму и проект соответственно под именами

Определение возраста. frm и Определение возраста. Vbp. 10.Результатом работы приложения является форма, приведенная ниже.

63

Задание 3. Разработка VB – приложения “Рисунок на форме”

Задание позволяет познакомиться с приемами размещения рисунка в экранной форме, используя функцию LoadPicture (Загрузка рисунка). Функция LoadPicture присваивает рисунок объектам Image, Picture или экранной форме. Синтаксис функции:

Object . Picture = LoadPicture ( filename )

Объект Picture (Рисунок) - отображает рисунок так, как он нарисован, не растягивая и не сжимая его по размерам объекта. Чтобы приспособить объект Picture по размеру к выдаваемому рисунку, применяется свой-

ство AutoSize (Автоматический размер), которое может принимать два значения:

•False - оставляет размер объекта тем же, что задан при помещении объекта в форму.

•True - автоматически приспосабливает объект по размеру к выдаваемому рисунку.

Объект Image (Изображение) - рисует объект на форме и назначает файл его свойству Picture. Изменить размер рисунка можно свойством Stretch (Растяжение), которое может принимать два значения:

•False - по умолчанию;

•True - рисунок будет сжиматься или расширяться в зависимости от размера объекта.

Порядок выполнения задания

1.Запустить приложение Visual Basic и создать новый проект “Рисунок на форме”.

2.Разработать пользовательский интерфейс, расположив на форме с помощью панели элементов управления, следующие объекты управления: Графическое окно (PictureBox), текстовое поле(TextBox), три команд-

65

ИмяРисунка . SetFocus

6.Записать программный код для командной кнопки КнопкаВыход.

7.Запустить проект на выполнение, просмотреть результат работы и, если необходимо, исправить ошибки.

8.Сохранить в своей папке форму под именем Рисунок на форме.frm и

проект Рисунок на форме.vbp.

9.Результатом работы приложения является форма, представленная ниже.

Задание 4. Разработка VB – приложения “Удача”

Программа имитирует игровой автомат: если при случайном выпадении из трех чисел хотя бы одно содержит цифру 7, то на экране появляется картинка.

Порядок выполнения задания

1.Создать новый проект.

2.Разработать пользовательский интерфейс, расположив на форме с помощью панели элементов управления, следующие объекты управления:

три командные кнопки (CommandButton1, CommandButton2, CommandButton3), четыре метки (Label1, Label2, Label3, Label4), окно изображения (Image).

Метки Label1, Label2 и Label3 будут использоваться для заполнения случайными числами, а Label4 – для названия игры.

Окно изображения (Image) будет использоваться для вывода картинки – результата выполнения программы.

Рисунок можно выбрать среди Windows – метафайлов, которые имеют формат .wmf и содержат графические объекты, масштабируемые без искажений;

3.С помощью окна Properties (Свойства) задать свойства объектам управления, описанные в табл. 9.

Для объекта Image могут быть использованы следующие свойства:

•Stretch (Вытягивание) – для установки точного размера рисунка;

•Picture (Рисунок) – для указания имени графического файла;

66

•Visible (Видимость) – для определения состояния рисунка в начале работы программы;

•чтобы сделать рисунок невидимым в момент запуска программы, надо изменить свойство Visible (Видимость) на значение

False (Ложь).

4.Объектам, расположенным на форме, задать дополнительные свойства.

5.Записать программный код для объекта управления КнопкаКонец.

6.Ввести программный код для объекта управления кнопкаВращать, поместив в событие Click () следующие операторы:

Private Sub КнопкаВращать_Click()

РисунокУдача.Visible = False 'скрыть рисунок

Label1.Caption = Int (Rnd * 10) 'показать числа Label2.Caption = Int (Rnd * 10)

Label3.Caption = Int (Rnd * 10)

'Если любое число =7, показать рисунок и дать сигнал

If (Label1.Caption =7) Or (Label2.Caption=7) Or (Label3.Caption=7)

Then

РисунокУдача.Visible = True Beep

End If End Sub

7.Запустить проект и программу в среде Visual Basic и проверить правильность работы программы.

8.Сохранить в своей папке форму под именем Удача . frm и проект под именем Удача . vbp.

Таблица 9

Объекты, свойства и события элементов управления

67

9. Результат работы приложения представлен в форме, приведенной ниже.

Задание 5. Разработка VB – приложения “Почтовые наклейки”

Задание позволяет познакомиться с приемами работы с новым объектом управления, который называется контейнером.

При недостатке места на форме можно использовать объекты управления, называемые контейнерами. Это позволит размещать на форме все необходимые объекты управления, но показывать только те, которые необходимы в данный момент для работы.

Существуют три типа контейнеров:

•Frame (Рамка) – для данного объекта управления можно задать свойство Appearance (Внешний вид), которое может придать рамке плоский или рельефный вид

•PictureBox (Графическое окно) – может использоваться в качестве контейнера, как и рамка. Особенности графического окна:

9 графическое окно не имеет заголовка;

9 может иметь или не иметь очерченные границы;

9 может содержать рисунок, который будет являться фоном для других объектов управления в этом окне.

•Sheridan Tabbed Dialog (Диалог с закладками).

Порядок выполнения задания

1.Запустить приложение Visual Basic и создать новый проект “Почтовые наклейки”.

68

2.Разработать пользовательский интерфейс, расположив на форме с помощью панели элементов управления следующие объекты управления:

рамка (Frame), пять меток (Label1, Label2, Label3, Label4, Label5), пять текстовых полей (TextBox1, TextBox2, TextBox3, TextBox4, TextBox5), две командные кнопки (CommandButton1, CommandButton2), графическое окно (PictureBox), два переключателя (OptionButton1, OptionButton2).

3.Задать объектам управления свойства, указанные в табл. 10, а также описать обрабатываемое событие для каждого объекта управления.

69

Продолжение табл. 10

4.Задать форме и объектам управления, расположенным на ней, дополнительные различные свойства.

5.В проекте при разработке программных кодов использовались следующие функции:

•Cmd - возвращает часть аргументов командной строки, используемой при запуске MS Visual Basic или выполняемой программой, разработанной с помощь VB. В нашем примере – представляет информацию об аргументах, возвращаемую функцией Command.

•Str – преобразует числовое выражение в строку.

6.Ввести программный код для объекта управления CommandButton - Напечатать наклейку, поместив в событие Click () следующие операторы:

Private Sub cmdPrint_Click() strИмя$ = Имя.Text strФамилия$ = Фамилия.Text strАдрес$ = Адрес.Text strГород$ = Город.Text

strПочтовыйИндекс$ = Format(ПочтовыйИндекс.Text, “000000") If Обращение1.Value Then strОбращение$ = "Господин"

If Обращение2.Value Then strОбращение$ = "Госпожа" Строка1$ = strОбращение$& " "& strФамилия$ &" "&strИмя$ Строка3$ = strГород$ & ", " & strПочтовыйИндекс$ Наклейка.Print Строка1$

Наклейка.Print strАдрес$ Наклейка.Print Строка3$ End Sub

7.Разработать программный код для объекта управления КнопкаВыход.

8.Ввести программный код для объекта управления КнопкаОчистить, поместив в событие Click () следующие операторы:

Private Sub КнопкаОчистить_Click() Имя.Text = " "

Фамилия.Text = " " Адрес.Text = " " Город.Text = " "

70

ПочтовыйИндекс.Text = " " Наклейка.Cls

End Sub

9.Сохранить созданные форму и проект соответственно под именами

Почтовые наклейки.frm и Почтовые наклейки.Vbp.

10.Результат работы приложения представлен в форме, приведенной ниже.

Задание 6. Разработка VB – приложения “Пересчет валюты”

Требуется разработать форму, в которой на основании введенной информации о виде валюты и ее текущем курсе можно было бы произвести перевод денег из одной валюты в другую по текущему курсу.

Порядок выполнения задания

1.Создать новый проект “Пересчет валют”.

2.Разработать пользовательский интерфейс, расположив на форме с помощью панели инструментов следующие объекты управления: два тек-

стовых поля (TextBox1, TextBox2), два поля со списком (ListBox1, ListBox2), метки (Label1 – Label10), три командные кнопки (CommandButton1, CommandButton2, CommandButton3).

3.Задать объектам управления свойства, указанные в табл. 11.