Читать книгу Программирование для карманных компьютеров - Владимир Волков - Страница 27

1. На форме нужно разместить три компонента Shape, один компонент Label, одну кнопку и компонент Timer так, как это показано на рис. 3.12.

Рис. 3.12. Создание формы приложения.

2. Двойным щелчком на кнопке Command1 создайте обработчик события щелчка на кнопке. Окно с кодом будет открыто автоматически и шаблон обработчика данного события будет создан. В этом шаблоне нужно ввести код, приведенный в листинге 3.1.

Листинг 3.1

Private Sub Command1_Click()

Label1.Font.Size = 20

Label1.Font.Bold = True

Label1.WordWrap = True

Label1.Alignment = vbCenter

Label1.Caption = «Здравствуй, Мир!»

Timer1.Interval = 300

Timer1.Enabled = True

Shape1.FillColor = &HFF&

Shape2.FillColor = &HFF&

Shape3.FillColor = &HFF&

End Sub

3. Двойным щелчком на компоненте Timer1 нужно создать обработчик события срабатывания таймера и ввести код из листинга 3.2.

Листинг 3.2

Private Sub Timer1_Timer()

If (Shape1.FillStyle = 1) Then

Shape1.FillStyle = 0

Shape2.FillStyle = 0

Shape3.FillStyle = 0

Else

Shape1.FillStyle = 1

Shape2.FillStyle = 1

Shape3.FillStyle = 1

End If

End Sub

4. В списке устройств нужно выбрать эмулятор Pocket PC 2002 (рис. 3.13).

Рис. 3.13. Выбор устройства.

5. Выполнить команду меню Run ► Execute или использовать сочетание клавиш Ctrl+F5. Среда запустит эмулятор, загрузит в него программу и начнет ее выполнение.

6. В окне программы нужно нажать кнопку Command1. В результате будет выведена надпись «Здравствуй, Мир!», а три прямоугольника в верхней части окна будут мигать красным цветом (рис. 3.14).

Рис. 3.14. Результат выполнения программы.