Code-Beispiel

Screensaver

Lizenz:	Erster Autor:	Letzte Bearbeitung:
k. A.	flittchen	21.01.2009

Nix besonderes nur ein kleiner Screensaver
Darf auch verändert werden...
Und auch überall mit eingebaut werden:D

screen 15

Dim x AS SINGLE

DIM i AS SINGLE

Dim b AS SINGLE

x = 1

b = 1







DO

     locate 19,21

     color b+5

     Print "x = beenden"





    DO

        x = 0





        for i = 0 to 50 step 1



            x = x + 4

            b = b + 1



            circle (0,0),x,b+3,,,,f

            circle (400,300),x,b+3,,,,f

            circle (400,0),x,b+0.5,,,,f

            circle (0,300),x,b+0.5,,,,f

            sleep 100

        next



    LOOP until i > 50





         sleep 250



LOOP until inkey = "x"



END

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 21.01.2009 von flittchen angelegt.
Die aktuellste Version wurde am 21.01.2009 von flittchen gespeichert.

Bearbeiten

Versionen

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.