Контрольные вопросы

1. Каков синтаксис заголовка процедуры обработки события?

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

3. Каковы основные свойства элемента управления TextBox? Назначение свойстваScrollBar.

4. Как обратиться к объекту управления из программы?

5. Как программно задать местоположение объекта управления, цвет фона и символов, шрифт?

6. Как очистить текстовое окно и установить фокус?

7. Каково назначение элемента управления CommandButton? Назовите его основные свойства и события.

8. Как обеспечить выход из программы в VB?

2.3. Задание 3. Линейки прокрутки

1. Спроектировать интерфейс пользователя (см. рис.9.), на котором расположить элементы управления: 2 метки, текстовое окно, линейку прокрутки (горизонтальную или вертикальную), командную кнопку.

Общие требования к интерфейсу:

• ползунок должен находиться в центре полосы прокрутки;

• в текстовом окне должно быть значение, соответствующее ползунку;

• должен быть показан диапазон возможных значений полосы прокрутки (с помощью меток);

• имеется кнопка для выхода из программы.

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

3. Запустить проект. Проанализировать работу полосы прокрутки (щелкнуть мышью на стрелках, на самой полосе, плавно переместить ползунок).

4. Сохранить проект на диске А: после окончания работы.

5. Сформировать окно формы с теми же самыми объектами управления, но с пустыми значениями их полей. Значения границ диапазона вычислить, используя генератор случайных чисел, и загрузить в соответствующие поля объектов при выполнении программы. Величину малого изменения определить, как 5% от диапазона значений, величину большого изменения определить, как 10% от диапазона значений.

6. Запустить проект.

7. Сохранить его также на диске А:.

Рис. 9. Интерфейс пользователя

Таблица свойств формы и элементов управления.

Таблица 4.

Объект	Свойство	Значение
Form	Name BackColor Caption WindowState	Form1 светло-зеленый Программа скорость 2
TextBox	Name Alignment BackColor ForeColor Text Font.Name Font.Size	txtV 2 красный белый 50 км/час (для п.5) Arial 10
HScrollBar	Name Min Max Value SmallChange LargeChange	HsbSpeed 0 100 50 2 10
CommandButton	Name Caption Font.Name	CmdExit Выход Arial
Label	Name Caption Font BackColor ForeColor Alignment BorderStyle	LblMin 0 (для п.5) 18 белый черный 2 1
Label	Name Caption Font BackColor ForeColor Alignment BorderStyle	LblMax 100 (для п.5) 18 белый черный 2 1

Программные коды

Private Sub СmdExit_Click()Выход из программы вVB

End

End Sub

Private Sub HsbSpeed_Change()Вывод значения скорости (событие Change)

TxtV.Text = Str(HsbSpeed.Value) + "км/час"

Событие Change (изменение) возникает, когда:

 а) щелкаем мышью на стрелках или на полосе прокрутки;

 б) отпускаем клавишу мыши после протяжкиползунка на новое место.

End Sub

PrivateSubHsbSpeed_Scroll()Вывод значения скорости (событиеScroll)

TxtV.Text = Str(HsbSpeed.Value) + "км/час"

Событие Scroll (прокрутка) возникает в самом процессе протяжкиползунка,событие Change при этом не порождается.

End Sub

Пояснения к пункту № 5 задания

При запуске программы должно формироваться окно заданного вида.

С событием «Запуск программы» Loadсвязана процедура загрузки формыForm_Load. Значит, именно в этой процедуре должны содержаться утверждения присваивания свойствамMin,Max,Value,SmallChange,LargeChangeсоответствующих значений. Кроме того, граничные значения должны быть помещены в меткиLblMinиLblMax, а величинаValue– в текстовое окноtxtV.

PrivateSubForm_Load()

Randomize’инициируем датчик случайных чисел

’формирование Minзначения полосы прокрутки

HsbSpeed.Min=Int(Rnd*10) ‘функцияRndформирует случайное число в диапазоне 01, функцияIntвозвращает ближайшее целое число, не превосходящее аргумент.

’формирование Maxзначения полосы прокрутки

HsbSpeed.Max= Int(Rnd*100) + HsbSpeed.Min+1

’ формирование середины диапазона

HsbSpeed.Value= (HsbSpeed.Max - HsbSpeed.Min)/2

’ формирование малого изменения

HsbSpeed.SmallChange=(HsbSpeed.Max - HsbSpeed.Min)*0.05

’ формирование большого изменения

HsbSpeed.LargeChange= (HsbSpeed.Max - HsbSpeed.Min)*0.1

’ пересылка границ диапазона в метки

LblMin.Caption= HsbSpeed.Min

LblMax.Caption= HsbSpeed.Max

’ пересылка начального значения в текстовое поле

txtV.Text=Str(HsbSpeed.Value) +” км/час”

EndSub

Варианты заданий

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

Студенты с нечетными номерами в журнале используют горизонтальную линейку прокрутки, с четными вертикальную.

Возможные названия программ:

“Вес” (кг)

“Объем” (л)

“Плотность” (г/см.куб.)

“Удельный вес” (кг/м.куб.)

“Капитал” (руб.)

“Расход бензина” (л/км)