fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

ballbouncer ticker

Uploader:	Key_Frogger
Datum/Zeit:	22.09.2009 07:28:34

Declare Sub Ticker(Text As String, Speed As Integer = 20)



Dim Shared Lin As Integer = 1



Ticker "Ball-Bouncer"

Ticker ""



Sleep 2000

Print : lin += 1

Ticker "Gretz: Key_Frogger"





Sleep



'------------------------------------------------------------------------------'



Sub Ticker(Text As String, Speed As Integer)

    Locate lin, 1, 0

    Color 2,10

    Print " "

    Sleep Speed * 10

    for i = 1 to len(text)



        Locate lin, i, 0

        Color 2,0

        Print mid(Text,i,1);

        Locate lin, i + 1, 0

        color 10,10

        Print " "

        sleep speed



    Next

    Sleep speed * 5

    Locate lin, len(text) + 1, 0

    Color 2,0

    Print " "

    lin += 1

End Sub

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.