fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Oder so

Uploader:	ytwinky
Datum/Zeit:	01.09.2007 17:58:08

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=IIF(y>5, y-5, 600)

    case CursorDown

      y=IIF(y>595, 0, y+5)

    case CursorLeft

      x=IIF(x<5, 800, x-5)

    case CursorRight

      x=IIF(x>795, 0, x+5)

  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.