fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Funktionierender ScreenSaver-Code

Uploader:	ytwinky
Datum/Zeit:	28.09.2007 17:03:58

'FB0.181b, FBEdit

'Der Code funktioniert..

ScreenRes 1024, 768, 32,, 1

Dim As Integer AbstandX, AbstandY, Zeile, AktuelleZeile, x, y

Dim As String c

SetMouse 0, 0

Randomize Timer

Do

  AbstandY=IIf((AbstandY+20)=800, 0, AbstandY+20)

  For Zeile=1 To 1024 Step 20

    Color Int(Rnd*(2^32))

    For AktuelleZeile=1 To 1000

      Pset(Rnd*10+Zeile+5, Rnd*10+AbstandY+5)

      If Inkey<>"" Then End

      GetMouse x, y

      If x<>0 Or y<>0 Then End

    Next AktuelleZeile

  Next Zeile

  Sleep 1

Loop Until Inkey<>""

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.