Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [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

Kleine Spielerei mit PSET und RND

Uploader:MitgliedThe_Muh
Datum/Zeit:27.09.2007 15:47:32

screenres 200,200
dim as integer abstandX,abstandY,zeile,aktuellezeile
do
    color int(rnd*15)+1,0
    abstandY += 20
    if abstandY = 200 then abstandY = 0
    for zeile = 1 to 200 step +20
        color int(rnd*16)
        for aktuellezeile = 1 to 200
            Pset (rnd*10+ zeile+5,rnd*10+ abstandY+5)
        next aktuellezeile
    next zeile
    sleep 1
loop until inkey <> ""