Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

5.3: Zeitsteuerung in der Hauptschleife

Uploader:Redakteurnemored
Datum/Zeit:24.09.2011 12:27:47
Hinweis: Dieser Quelltext ist Bestandteil des Projekts OpenBook: 2D-Spieleprogrammierung, zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.

' *** CODE 5.3: Zeitsteuerung in der Hauptschleife

DIM AS DOUBLE letzteAusfuehrung = TIMER  ' Zeitpunkt der letzten Ausfuehrung
DIM AS DOUBLE naechsteAusfuehrung = 1.0  ' Abstand zwischen zwei Ausfuehrungen
DIM AS STRING taste                      ' Benutzereingabe
DO
  taste = INKEY
  IF taste = CHR(27) THEN
    EXIT DO                              ' Programmende bei Eingabe von ESC
  ELSEIF taste <> "" THEN
    PRINT taste;                         ' Benutzereingabe anzeigen
  END IF
  IF TIMER > letzteAusfuehrung + naechsteAusfuehrung THEN
    ' Ausfuehrung des Ereignisses
    PRINT ".";
    letzteAusfuehrung = TIMER            ' aktuellen Zeitpunkt speichern
  END IF
  SLEEP 1                                ' Pause fuer den Prozessor
LOOP