Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [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

so isses schöner und immer noch ohne Goto..

Uploader:Redakteurytwinky
Datum/Zeit:26.11.2007 22:13:11

dim as double v1=640, v2=480, v3, v4, v5, x, sp
screenres v1, v2
Do
  screenlock
    for i as integer = 0 to v1
      line(0,v2)-(640,i), v5
      v5+=x
    next
    screensync
  screenunlock
  v5=0
  sp+=.00001 * 2
  x+=sp
  if inkey=chr(27) then Print "ende":end
loop
'Goto ist doof und nur in einer Anweisung sinnvoll: Goto Hell^^