fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

fbgfx driver test

Uploader:	Sebastian
Datum/Zeit:	17.08.2011 20:33:25

'Bloß ein kleiner Testcode für die FBGFX-Driver unter Windows



Declare Sub TestCircles ()



#include "fbgfx.bi"

using FB



Randomize Timer



Print "Wert der Umgebungsvariable fbgfx:"

Print "fbgfx = " & Environ("fbgfx")



Screen 12



Dim As String Result

ScreenControl GET_DRIVER_NAME, Result

Print !"Die GFXLib nutzt jetzt folgenden Treiber: " & chr(34) & result & chr(34)

TestCircles()



Sleep



'Drivereinstellung setzen, ohne den SCREEN neu aufzubauen

ScreenControl SET_DRIVER_NAME, "GDI"



Locate 1,1

Print "Jetzt GDI." & String(42, 32)



Sleep



'SCREEN neu aufbauen

Screen 0

Screen 12



TestCircles ()



Print "Jetzt GDI."

ScreenControl GET_DRIVER_NAME, Result

Print "GET_DRIVER_NAME. Ergebnis = " & chr(34) & result & chr(34)



Sleep

End 0







Sub TestCircles ()

    Dim As Integer x, y, r, i

    Dim As UInteger c

    For i = 1 To 200

        x = RND*639+1

        y = RND*479+1

        c = RND*15+1

        r = RND*100+1

        Circle (x, y), r, c

    Next i

End Sub

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.