Пример 2. «Утоляем жажду».

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

При щелчке на кнопке «Выход» - заканчиваем работу с нашим проектом. При щелчке на переключателе «Хочу чая!» появляется окно вида:

В имеющемся окне мы задаём :

1. Пьём чай с лимоном или без

2. Сколько ложечек сахара заказываем

В разделе «стоимость» получаем стоимость чая, рассчитанную по формуле:

(0,2 (чай) + 0,1*п (количество ложек сахара) + 0,3 (лимон) )грн

Кнопка «назад», позволяет вернуться к первому окну.

При работе с элементами управления на форме данного проекта сперва разместите на форме переключатели и измените их свойства и лишь после этого, поверх их, разместите рамку с элементами управления на ней! Переключателей первого окна не будет видно и работать с ними и их свойствами будет очень затруднительно!

Таблица основных объектов, их свойств и значений.

объекты	свойства	значение
Форма	Name Caption	FrmDrink Утоляет жажду
– переключатель	Name Value Caption Visible	Optчай False хочу чая! True
– переключатель	Name Caption Auto size Value	Optwithout ничего не хочу True True
– кнопка	Name Caption	CmdExit Выход
Рамка	Name Font Caption Visible	Fraлимон MS SANS Serif Пьём чай False
… флажок	Name Caption Triple state Value	сhkчай С лимоном False False (выключен)
… Label	Name Caption	Lblsugar Сахар
… полоса прокрутки	Name Value Min Max Small change Large сhange	Scr sugar 1 0 20 1 2
… поле	Name Text	Txtсколько 1 ложка
… label	Name Caption	Lbl цена Стоимость
… поле	Name Text	Txt цена 0,3 грн
Кнопка	Name Caption Visible	CmdGoAway Назад False

Запишем коды обработки наших событий.

‘Щелчок на кнопке «выход».

Private Sub cmd Exit_Click

End

End Sub

Процедура обработки щелчка на переключателе «хотите чаю?»

Private Sub opt чай_Click()

Fra лимон. Visible=TRUE

CmdGoAway. Visible=TRUE

End Sub

Обратите внимание, что следующая процедура изменение не обрабатывает событие!

Private Sub изменение()

IF chkчай.value =TRUE THEN

txt цена.text=str(0.1 * (scrsugar. Value)+0.2+0.3) & ”грн”

ELSE

txt цена.text=str(*0.1(scr sugar. Value)+0.2) + ”грн”

End if

txtсколько.text = str(scrsugar.value) & “ложк”

End sub

Процедура обработки события «изменение активности флажка «с лимоном»

Private Sub chkчай_change()

изменение ‘ вызов процедуры-подпрограммы

End Sub

Процедура обработки щелчка на кнопке «назад»

Private Sub CmdGoAway_Click()

Fra лимон. Visible=FALSE

CmdGoAway. Visible=FALSE

Opt without. Value=TRUE ‘щелкаем “программно” на «ничего не хочу»

End Sub

Процедура обработки изменения на полосе прокрутки

Private Sub Scrsugar_Change()

‘ событие наступает, когда отпускаем мышь или щелкаем на кнопке полосы

изменение ‘ вызов процедуры-подпрограммы

End Sub

Процедура обработки события «двигаем бегунок на полосе прокрутки»

Private Sub Scr sugar_scroll()

‘Наступает, когда тянем бегунок

‘полосы прокрутки, а не в момент

‘отпускания мыши

изменение ‘ вызов процедуры-подпрограммы

End Sub