| |
|
|
- 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 CompileMarkSeparationDEF 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... |
|
|
| |
|
|