Timer

Wie meinst das als pause?
Erlär mal genau was du machen willst

Gruß

hi,

 ???Ein bischen ausführlicher wär nicht schlecht! ???

oh, ja. dumm von mir...

ich meinte eine ause, für einen Trickfilm zum Beispiel.

Circle (500,500), 100
Timer 'Private Sub Pause
Cls
Circle (500, 1750), 100 'usw.

Also so, dass der kreis nach z.B. 5 sec. nach unten wandert.

Jo dann must den Timer-Interval auf 5000(5000ms=5sek) stellen, machste in den Eigenschaften des Timers oder per Code festlegen..

Und im Code des Timers brauchst ja nur den wert um den sich der kreis verschieben soll erhöhen

Also im Deklarationsbereich des Formulars ne Variable Definieren

Dim vorschub as integer

Dann ein Timer-Obkjekt im Formular einfügen
Doppelklick aufs Timerobjekt

Timer-Code:

Private Sub Timer1_Timer()
Cls 'heisst das so?
Vorschub = Vorschub + verschiebungswert
Circle (500, Vorschub), 100
End sub

Ereignis Form_load:

Private Sub Form_Load()
Vorschub = Anfangswert des Kreises
Timer1.Interval = 5000
Timer1.enabled=true
end sub

Gruß

Nee, so meinte ich das:

Dim Verschieben As Integer

Private Sub Form_Click()
   Verschieben = Verschieben + 100
   Circle (500, Verschieben), 250
   Pause 'In Form eines Timers
   Cls
End Sub

Meine Frage ist jetzt nur noch, wie der Timer zu programmieren ist. So soll immer Wenn ich auf die Form klicke, soll immer ein Kreis entstehen, eine Pause kommen dann soll er wieder gelöscht werden.

jo dann musst den Timer interval auf 1000 beim klick aufs Formular den Kreis zeichen Timer enablen

Innerhalb des timers ne variable bis auf 5 hochzählen und im timer die variable abfragen ob se schon 5 ist

Wenn 5 kreis löschen varaible zurücksetzen und timer deaktivieren

Gruß

ah, danke.

hat mir weitergeholfen.

gruß Zwosch

PS: Cls heißt "Clear Screen" das löscht das gezeichnete...