XProfan

DEF GetSysColor(1)!"USER32","GetSysColor"
WindowStyle 24
Window 200,150-210,100
Windowtitle "Beeb"
cls GetSysColor(15)
declare Edit&,start&,stopp&,ELEMENT1&,e%,hertz%,ELEMENT2&,counter%,wait%
ELEMENT1&=Control("DIALOG","",$54001100,0,0,0,0,%hwnd,0,%hinstance,$0)
SetWindowPos ELEMENT1&=0,0-790,580;0
Create("GroupBox",ELEMENT1&,"Ton-Frequenz",5,5,110,55)
start& = Create("Button",ELEMENT1&,"Starten",125,20,70,25)
Edit&= Create("Edit",ELEMENT1&,"",20,25,70,20)
SetText Edit&, "2000"

proc start

    destroywindow(ELEMENT1&)
    ELEMENT2&=Control("DIALOG","",$54001100,0,0,0,0,%hwnd,0,%hinstance,$0)
    SetWindowPos ELEMENT2&=0,0-790,580;0
    WindowStyle 24
    Window 200,150-100,50
    cls GetSysColor(15)

    whilenot e%

        counter%=counter%+1
        sound hertz%,100
        Sleep wait%

        If counter%=10

            wait%=wait%-500

        elseif counter%=20

            wait%=wait%+300

        elseif counter%=300

            end

        EndIF

    endwhile

endproc

whilenot e%

    waitinput

    If getfocus(start&)

        counter%=0
        wait%=900
        hertz% = Val(GetText$(Edit&))
        start

    Endif

endwhile

DEF