Pętla czasowa

CodeLan

1. Tworzymy nowy projekt z formą i umieszczamy na niej 2 przyciski Command oraz obiekt Imane.
2. Dodajemy moduł, w którym umieszczamy deklarację użycia funkcji GetTickCount oraz zmienną stoped.
Wygląda to tak:

Declare Function GetTickCount Lib "kernel32" () As Long
Global stoped As Byte

3. Pierwszy przycisk nazwywamy Start, drugi Stop, a obiekt Imane nazywamy Obraz.
4. Do przycisku Stop dodajemy kod przypisujący zmiennej stoped wartość 1.

stoped = 1

5. Do przycisku Start dodajemy kod, w którym tworzymy 2 zmienne typu Long , przypisujemy jednej zmiennej wartość bieżącego tyknięcia zegara oraz pętlę Do…Loop. LOP pętli umieszczamy następujący kod:

Dim biezace, ostatnie As Long

Do

biezace = GetTickCount() ‘przypisanie zmiennej bieżącego tyknięcia

If biezace - ostatnie > 50 Then ’50 oznacza czas przerwy między wykonaniami pętli w ms
Obrazek.Move Obrazek.Left + 20, Obrazek.Top - 0 ’20 oznacza, że przesuwamy obrazek o 20px w lewo,
'a 0 że nie ruszamy go w pionie
If Obrazek.Left >= 5000 Then Text1.Left = 20 ‘5000 oznacza dokąd ma poruszać się obrazek,
'a 20 położenie początkowe
ostatnie = biezace
DoEvents

Else

End If

If stope = 1 Then ‘jeśli klikniemy stop to stoped=1 i koniec programu
End
End If

Loop