fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

OhneMausAbfrage

Uploader:	ytwinky
Datum/Zeit:	01.09.2007 21:38:08

dim as integer x, y = 1 ,vg, groesse, durchgang = 1

dim as single kreis, kreis2, kreis3, kreis4

screenres 800, 600, 8 : color 0, 15 : cls

do

    If InKey=Chr(27) Then Exit Do

    x = 1 : y = 1

    for kreis3 = 1 to 1000

        groesse = int(rnd*100)+1

        for kreis4 = 1 to 10

            x+=1

            if x = 800 then y += 150 : x = 1 : end if

            if y > 590 and x > 790 then

                y = 1 : x = 1

            end if

            vg = int(rnd*16000)+1

            circle (x,y), groesse,vg

    If InKey=Chr(27) Then Exit Do

        next kreis4

        sleep 1

        Locate 1,1 : Print cint(kreis3/10/2) ;"%"

        locate 1,5 : print " Durchgang: ";durchgang

    next kreis3

    cls

    for kreis2 = 1 to 600

        groesse = int(rnd*100)+1

        for kreis = 1 to 10

            x = int(rnd*800)+1

            y = int(rnd*600)+1

            vg = int(rnd*16000)+1

            circle (x,y), groesse,vg

    If InKey=Chr(27) Then Exit Do

        next kreis

        sleep 1

        locate 1,1 : print Cint(50+kreis2/6/2);"%"

        locate 1,5 : print " Durchgang:";durchgang

    next kreis2

    cls

    durchgang += 1

loop until inkey = chr(27)

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.