fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Windows MessageBeatBox

Uploader:	AndT
Datum/Zeit:	17.10.2008 23:46:35

#include "windows.bi"





Const sleeptime = 35

dim shared as ubyte looptime

const msg = "just another beat ;)"

looptime = 5





Dim Shared beatboxend As Ubyte



Sub pause

    Sleep sleeptime,1

End Sub



Sub s1

    MessageBox( null, msg, msg, MB_ICONERROR )

End Sub



Sub s2

    MessageBox( null, msg, msg, MB_ICONINFORMATION  )

End Sub



Sub s3

    MessageBox( null, msg, msg, MB_ICONWARNING  )

End Sub





Sub sequencer (Byval sequence As String)

    For i As Integer = 1 To Len(sequence)

        Select Case Val(Chr(Asc(sequence,i)))



        Case 1

            threadcreate (@s1)

        Case 2

            threadcreate (@s2)

        Case 3

            threadcreate (@s3)

        Case 4

            pause

        case 5

            i = 1

            looptime - = 1

        End Select

        If looptime = 0 then exit for

    Next

    beatboxend = 1

End Sub



sequencer "14444444424444244441444414444344441444414444244444444144144144144144144141414141414141414145"

Do

    Sleep 1

Loop Until beatboxend

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.