2.1 Проект prjClock. Графический интерфейс пользователя

В проекте, который вы будете делать, будет поворачиваться стрелка с севера на восток, затем на юг, затем на запад и обратно на север. Каждый поворот стрелки будет сопровождаться коротким звуковым сигналом. Повороты будут осуществляться через небольшие равные промежутки времени. Форму назовите (свойство Name) frmClock, свойству Caption присвойте значение Часы.

Поместите на форму элемент управления Image, назовите его imgClock. Из коллекции графических значков Visual Basic выберите файл, содержащий пиктограмму стрелочки, показывающей на север. Свойству Picture элемента imgClock присвойте значение имени этого файла. Таким образом, начальное изображение элемента imgClock будет стрелочка, направленная вверх.

Вставьте четыре метки на форму С, В, Ю, З используйте любой цвет и шрифт. Поместите на форму элемент управления Timer. Свойству Name его присвойте значение tmrTimer. Установите свойство Interval в 250 миллисекунд, чтобы он генерировал событие Timer каждые четверть секунды.

Кроме этого поместите на форму четыре элемента image. Первый назовите imgRight и поместите на него с помощью свойства picture картинку со стрелочкой вправо, второй назовите imgDown и поместите на него картинку со стрелочкой вниз, третий назовите imgLeft и поместите на него картинку со стрелочкой влево, четвертый назовите imgUp и поместите на него картинку со стрелочкой вверх. Свойство Visible у этих элементов image приравняйте значению False.

Еще на форму поместите две командные кнопки. Одну назовите cmdStart и значение свойства Caption у нее задайте равное Старт, вторую назовите cmdFinish и значение свойства Caption у нее задайте равное Финиш.

2.2 Проект prjClock. Составление кода

Приступим к составлению кода проекта. В нашем проекте потребуется переменная, поэтому в общей части проекта (перед всеми процедурами) объявим переменную:

Dim С As Integer

Переменная имеет имя С, значения, которые она может принимать – натуральные числа. В процедуре cmdFinish_Click программа заканчивает свою работу. Составьте соответствующий код:

Private Sub cmdFinish_Click( )

End Sub

В процедуре cmdStart_Click( ) будет включаться таймер, т.е. его свойство Enabled будет приравниваться значению True. Составьте код.

Private Sub cmdStart_Click( )

End Sub

Анимировать движение стрелки будем в процедуре tmrTimer_Timer( ). Если значение переменной Сравно нулю, будем свойство Picture нашего главного элемента imgClock приравнивать значению свойстваPicture элемента imgRight. Этому смысловому “куску” кода соответствуют следующие строки:

If C = 0 Then

ImgClock.Picture = imgRight.Picture

End If

Если значение переменной C равно единице, будем свойство Picture нашего главного элемента imgClockприравнивать значению свойства Picture элемента imgDown. Этому смысловому фрагменту кода соответствуют следующие строки:

If C =1 Then

ImgClock.Picture = imgDown.Picture

End If

Если значение переменной C равно двойке, будем свойство Picture нашего главного элемента imgClockприравнивать значению свойства Picture элемента imgLeft. Этому смысловому фрагменту кода соответствуют следующие строки:

If C = 2 Then

ImgClock.Picture = imgLeft.Picture

End If

Если значение переменной C равно трем, будем свойство Picture нашего главного элемента imgClockприравнивать значению свойства Picture элемента imgUp. Этому смысловому фрагменту кода соответствуют следующие строки:

If C = 3 Then

ImgClock.Picture = imgUp.Picture

End If

Далее будем увеличивать значение переменной C на единицу:

C = C + 1

Если значение переменной становится равным четырем, то мы его снова обнуляем и процесс повторяется.

If C = 4 Then

C = 0

End If

В конце кода поставим оператор Beep, который воспроизводит короткий звуковой сигнал. Напишите все, что обсуждалось выше в коде и опробуйте свой проект на компьютере.

Private Sub tmrTimer_Timer( )

End Sub