fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Das mein ich..

Uploader:	ytwinky
Datum/Zeit:	01.09.2007 17:47:28

Const CursorUp=CHR(255,72), CursorDown=chr(255,80), CursorLeft=chr(255,75), CursorRight=chr(255,77), Esc=!"\27"

dim as integer x,y

dim as string key

screenres 800,600

do

    do:key = inkey:sleep 1:loop until key <>""

    select case key

    case CursorUp

        y -= 5

        if y < 5 then y = 600

    case CursorDown

        y += 5

        if y > 595 then y = 0

    case CursorLeft

        x -= 5

        if x < 5 then x = 800

    case CursorRight

        x += 5

        if x > 795 then x = 0

    end select

    circle (x,y),15, 15

loop until key = Esc

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.