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

Raumschiff-Simulation

Uploader:Redakteurnemored
Datum/Zeit:24.01.2009 00:18:24

' einfache Raumschiff-Simulation
' Die Pfeiltasten lenken das "Schiff" bzw. regeln die Geschwindigkeit.
dim as double winkel, x = 320, y = 240, v = 1.5, zeit
dim as string taste
const pi = acos(0)*2
screen 18
do
  taste = inkey
  select case taste
    case chr(255, 72) : v += .1
    case chr(255, 80) : v -= .1
    case chr(255, 75) : winkel -= .05
    case chr(255, 77) : winkel += .05
  end select
  if v < 0 then v = 0
  if v > 6 then v = 3
  x += v*cos(winkel)
  y += v*sin(winkel)
  if x < 0 then x += 640
  if x > 640 then x -= 640
  if y < 0 then y += 480
  if y > 480 then y -= 480
  circle (x, y), 3, 15,,,, f
  zeit = timer
  do
    sleep 1
  loop until timer - zeit > .01
  circle (x, y), 3,  0,,,, f
loop until taste = chr(27) or taste = chr(255) & "k"