fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

sequenzer von king01

Uploader:	King01
Datum/Zeit:	17.06.2007 19:27:57

sub tonan(freq%)

    Dim As Ushort f = 1193181 \ freq%

    Out &H61, Inp (&H61) Or 3

    Out &H43, &HB6

    Out &H42, Lobyte(f)

    Out &H42, Hibyte(f)

end sub



sub tonaus()

    Out &H61, Inp (&H61) And &HFC

end sub



freq% = 100



do



    y$ = inkey$

    select case y$

        case "1": freq%+=1

        case "2": freq%-=1

    end select



    tonan(freq%)



    sleep



    if y$ = "1" or y$ = "2" then

        tonaus()

    elseif y$ = chr$(27) then

        tonaus()

        end

    end if



loop

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.