fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Speakersound Treiber (instabil)

Uploader:	AndT
Datum/Zeit:	17.06.2008 23:39:45

Declare Function speaksnd Alias "Beep" (Byval As Integer, Byval As Integer) As Byte



dim shared as integer freq,lgh

dim shared as integer rn,mt

sub snddrv

    if rn = 1 then speaksnd(freq,lgh)

    rn-=1

end sub





sub sound (f as integer,l as integer,mt as integer)

    freq = f

    lgh = l

    if mt = 1 then rn+=1

        if rn < 0 then rn = 0

        if mt = 1 then rn = 1 else snddrv

        if rn = 1 then dim as any ptr i = ThreadCreate(Cast(Any Ptr,@snddrv))

end sub



do

    print rn; 'Debug

    sound 100,1000,1

    sleep 1

loop until inkey <> ""

sleep

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.