fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Grafik-SCREEN und MULTIKEY

Uploader:	Sebastian
Datum/Zeit:	01.05.2008 13:31:53

'Quelle: http://www.freebasic-portal.de/index.php?s=reftopic&id=215



DIM AS INTEGER work_page, x, y

 'Bildschirmmodus 640x480x8 mit zwei Seiten initialisieren

SCREEN 18, ,2

COLOR 2, 15

work_page = 0

x = 320

y = 240

DO

    sleep 1

    ' Eine Seite beschreiben, während die andere angezeigt wird

    SCREENSET work_page, work_page XOR 1

     ' Überprüfe die Pfeiltasten und aktualisiere die Koordinaten

    ' x, y entsprechend.

    IF MULTIKEY(&h4D) AND x < 639 THEN x += 1

    IF MULTIKEY(&h4B) AND x >   0 THEN x -= 1

    IF MULTIKEY(&h50) AND y < 479 THEN y += 1

    IF MULTIKEY(&h48) AND y >   0 THEN y -= 1

    CLS

    CIRCLE(x, y), 30, , , , ,F

    ' Seite wechseln

    work_page = work_page XOR 1

LOOP UNTIL INKEY = CHR(27) ' Bis ESC gedrückt wird weitermachen

' Setze aktive und sichtbare Bildschirmseite wieder auf 0

SCREENSET

PRINT "Beliebige Taste zum Beenden druecken..."

GETKEY

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.