Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

sequenzer von king01

Uploader:MitgliedKing01
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