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

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 <> ""