Blights Blinker mit einer Zeituhr programmiert ?      Zurück

Starten sie ein neues Projekt . Holen Sie sich eine neue Form mit der Rechten Maustaste auf Form im Projekt.

Nennen Sie die Form wie sie wollen.

Platzieren sie auf der Form einen Timer durch Klick auf die entsprechenden Felder der Werkzeugkiste. Außerdem brauchen Sie 4 Befehlstasten, 1 Pictureboxen und 2 Bilddateien blon.xpm und bloff.xpm, die sie unter blights in den Beispielen von Gambas finden

Das ganze schaut dann so aus:

Mit den Tasten An und Aus laden Sie nur verschiedene Bilder in die PictureBox1. Außerdem schalten Sie den Timer ab , falls er laufen sollte.

Interessant ist die Taste Automatisch . Hier wird der Timer mit 2 Phasen gewechselt und die Delays der Phasen sind auch noch verschieden einstellbar.

Der Programmcode schaut so aus :

' Gambas class file

PUBLIC SUB Button1_Click()

Timer1.Enabled = FALSE

PictureBox1.Picture = Picture["bloff.xpm"]

END

PUBLIC SUB Button2_Click()

Timer1.Enabled = FALSE

PictureBox1.Picture = Picture["blon.xpm"]

END

PUBLIC SUB Button3_Click()

ME.Close

END

PUBLIC SUB Button4_Click()

Timer1.Enabled = TRUE

'Timer anschalten

END

PUBLIC SUB Timer1_Timer()

IF PictureBox1.Picture = Picture["blon.xpm"] THEN

Timer1.Delay = 1000

PictureBox1.Picture = Picture["bloff.xpm"]

RETURN

' wenn man hier nicht mit Return aus dem Timer herausspringt ,

' bleibt er immer in

' einer Position hängen und schaltet zb nur aus und nie mehr an .

' Trotzdem bleibt der Timer angeschaltet !!

ELSE

Timer1.Delay = 2000

PictureBox1.Picture = Picture["blon.xpm"]

END IF

END