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

GET: auch hier kein segfault

Uploader:RedakteurJojo
Datum/Zeit:07.10.2008 17:15:22

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),x+y
    Next
Next
Do
    x=150*Rnd-150
    y=150*Rnd-150
    Get(x,y)-(x+31,y+31),a
    x=150*Rnd
    y=150*Rnd
    Put(x,y),a,pset
    Sleep 100
Loop Until MultiKey(1)