Timer

Należy utworzyć nowy projekt, rozmieścić obiekty na formatce według wzoru przedstawionego poniżej.

Zaprogramować działanie przycisku Wlacz/Wylacz korzystając z poniższego wzoru: If Command1.Caption = "Wlacz" Then

Command1.Caption = "Wylacz"

Timer1.Enabled = True

Else

Command1.Caption = "Wlacz"

Timer1.Enabled = False

End If

Zadeklarować zmienną licznik, która będzie potrzebna do sterowania kolejnością pojawiania się kolorowych pól.

Dim licznik As Integer

Zaprogramować funkcję Load formatki tak, by pierwszy obiekt miał kolor czerwony.

Picture1(2).BackColor = QBColor(12)

Zaprogramować działanie funkcji Timer uruchamianej przyciskiem Wlacz.

licznik = licznik + 1

If licznik = 5 Then licznik = 0

If Picture1(licznik).BackColor = QBColor(12) Then Picture1(licznik).BackColor =

QBColor(14)

If licznik = 4 Then licznik = -1

Picture1(licznik + 1).BackColor = QBColor(12) Zadanie

Dodać możliwość zmiany szybkości przechodzenia czerwonego pola oraz zaprogramować działanie przycisku zakończ.