fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

ScreenUnLock mit Parametern

Uploader:	MOD
Datum/Zeit:	29.08.2011 13:33:33

'#Define WITHPARAMETER



Const SCREEN_WIDTH = 256, SCREEN_HEIGHT = 256

Dim As Integer w, h, bypp, pitch



ScreenRes SCREEN_WIDTH, SCREEN_HEIGHT, 32

ScreenInfo w, h, , bypp, pitch



Dim buffer As Any Ptr = ScreenPtr()

Dim As Any Ptr row = buffer



    For y As Integer = 0 To h - 1

        ScreenLock()

        Dim As UInteger Ptr pixel = row



        For x As Integer = 0 To w - 1

            *pixel = RGB(x, x Xor y, y)

            pixel += 1

        Next x



        row += pitch

        #Ifdef WITHPARAMETER

            ScreenUnLock(20,150)

        #Else

            ScreenUnLock()

        #EndIf

        Sleep 10

    Next y



Print "fertig"

Sleep

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.