fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

@jojo: geht doch nicht

Uploader:	flo
Datum/Zeit:	07.10.2008 17:22:25

'normalerweise sollte immer ein stück geGETet werden, und danach wieder gePUTet... man sollte also keine veränderung sehen

'tut man aber :p

 Screen 13

Dim a As Any Ptr = ImageCreate(32,32,7)

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

    y=150*Rnd-25

    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)

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.