|  |  | 
|  | 
|  | 
| - Page 1 - | 
| 
 
 | 
|  Julian
 Schmidt
 | | Hi, i'd gladly know whether one under XProfan one Piepsen produce can?ought to without any amendment-Tools etc. happen. would be too well if to the in different Tonlagen bring could
 hope on speedy Answer
 
 mfg
 
 Julian57
 | 
 | 
|  | 
|  | | ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...]  | 11/16/10  ▲ | 
 | 
|  | 
| 
 
 
 | 
|  | 
| « this Posting watts as Solution marked. » | 
|  | 
| - Page 1 - | 
| 
 
 | 
|  | 
 | 
|  | 
|  |  | 
|  | 
|  | 
| 
 
 
 | 
|  | 
|  |  | 
|  | 
| - Page 1 - | 
| 
 
 | 
|  | | Zeig time whom Systemsound. 
 Perhaps mean You whom PC-Beeper by commands Sound ....
 | 
 | 
|  | 
|  |  | 
|  | 
| 
 
 
 | 
|  | 
|  Julian
 Schmidt
 | | I my whom system-loudspeaker | 
 
 | 
|  | 
|  | | ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...]  | 11/16/10  ▲ | 
 | 
|  | 
| 
 
 
 | 
|  | 
|  | | iF  (16.11.10) 
 Perhaps mean You whom PC-Beeper by commands Sound ....
 
 
 ...
 | 
 | 
|  | 
|  |  | 
|  | 
| 
 
 
 | 
|  | 
|  Julian
 Schmidt
 | | Yes, ok thanks very the I need
 
  | 
 | 
|  | 
|  | | ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...]  | 11/16/10  ▲ | 
 | 
|  | 
| 
 
 
 | 
|  | 
|  | | Well then lass it beepen... ^^ 
 Variant for "ganz Harte" kennste Yes: [...]
  
 
  | 
 | 
|  | 
|  |  | 
|  | 
| 
 
 
 | 
|  | 
|  Julian
 Schmidt
 | | Yes, Have myself beigetragen :  
 do you know zufälligst as Hertz-frequency his ought to, that it itself so anhöhrt How these hospital-Pieps pair ? wants whom Sound for a Schulprojekt ape
  | 
 | 
|  | 
|  | | ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...]  | 11/16/10  ▲ | 
 | 
|  | 
| 
 
 
 | 
|  | 
|  | | with welchem Batteriestand? | 
 | 
|  | 
|  |  | 
|  | 
| 
 
 
 | 
|  | 
|  Julian
 Schmidt
 |  | 
|  | 
|  | | ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...]  | 11/16/10  ▲ | 
 | 
|  | 
| 
 
 
 | 
|  |  | 
|  | 
| - Page 2 - | 
| 
 
 | 
|  | 
|  |  | 
|  | 
|  |  | 
|  | 
| 
 
 
 | 
|  | 
|  Julian
 Schmidt
 | | well well, then must I time look what itself then best anhöhrt
  | 
 | 
|  | 
|  | | ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...]  | 11/16/10  ▲ | 
 | 
|  | 
| 
 
 
 | 
|  | 
|  Julian
 Schmidt
 | | piepst already correctly. well  CompileMarkSeparation
 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
 | 
 | 
|  | 
|  | | ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...]  | 11/16/10  ▲ | 
 | 
|  | 
| 
 
 
 | 
|  | 
|  | | CompileMarkSeparation
 only 1x in the program per function - supra on the Start... - not functions.
 
 Wennde xpse in use have brauchste garnichts deffen the deft automatically everything wasde uses in faster calls...
 | 
 | 
|  | 
|  |  | 
|  | 
| 
 
 
 |