fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Grafikbeispiel mit CIRCLE

Uploader:	Sebastian
Datum/Zeit:	23.01.2009 15:41:45

'Grafikbeispiel für FreeBASIC

'  getestet mit FB 0.20.0 (23.01.2009)

'Beenden durch Tastendruck.

DIM AS INTEGER i, x, y, f, r

SCREENRES 640,480,8 'Grafikbildschirm einstellen

RANDOMIZE TIMER 'Zufallsgenerator initialisieren

DO

    FOR i = 1 TO 400

        x = INT(RND*639)+1 'Zufallszahlen generieren

        y = INT(RND*479)+1

        f = INT(RND*255)+1

        r = INT(RND*400)+1

        CIRCLE (x,y),r,f 'Kreis zeichnen

        IF INKEY <> "" THEN END

        SLEEP 10 '10ms warten

    NEXT i

    CLS

LOOP

END

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.