Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » Grafik und Fonts

Screensaver

Lizenz:Erster Autor:Letzte Bearbeitung:
k. A.Mitgliedflittchen 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 Mitgliedflittchen angelegt.
  • Die aktuellste Version wurde am 21.01.2009 von Mitgliedflittchen gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen