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

'Tunnel'-Zeichnen

Uploader:MitgliedThe_Muh
Datum/Zeit:01.09.2007 17:37:12

dim as integer x,y
dim as string key
screenres 800,600
do
    do:sleep 1:key = inkey:loop until key <>""
    select case key
    case CHR(255,72) 'oben
        y -= 5
        if y < 5 then y = 600
    case chr(255,80) 'unten
        y += 5
        if y > 595 then y = 0
    case chr(255,75) 'links
        x -= 5
        if x < 5 then x = 800
    case chr(255,77)
        x += 5
        if x > 795 then x = 0
    end select
    circle (x,y),15, 15
loop until key = chr(27)