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

für flo: GET geht

Uploader:RedakteurJojo
Datum/Zeit:07.10.2008 17:13:36

Screen 13
Dim a As Any Ptr = ImageCreate(32,32)
Dim As Integer x,y
For x=0 To 319
    For y=0 To 199
        PSet(x,y),255*rnd
    Next
Next
Do
    x=150*Rnd-25
    y=150*Rnd-25
    Get(x,y)-(x+31,y+31),a
    x=150*Rnd-25
    y=150*Rnd-25
    Put(x,y),a,pset
    Sleep 1
Loop Until MultiKey(1)