| |
|
|
- Seite 1 - |
|
Julian Schmidt | Hallo, ich würde gerne wissen ob man unter XProfan ein Piepsen erzeugen kann?Sollte ohne irgendwelche Zusatz-Tools etc. geschehen. Wäre auch gut wenn man das in verschiedene Tonlagen bringen könnte Hoffe auf schnelle Antworten
mfg
Julian57 |
|
|
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 16.11.2010 ▲ |
|
|
|
|
« Dieser Beitrag wurde als Lösung gekennzeichnet. » |
|
- Seite 1 - |
|
|
|
|
| |
|
|
|
|
| |
|
- Seite 1 - |
|
| Zeig mal den Systemsound.
Vielleicht meinst Du den PC-Beeper per Befehl Sound .... |
|
|
| |
|
|
|
Julian Schmidt | ich mein den System-Lautsprecher |
|
|
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 16.11.2010 ▲ |
|
|
|
|
| iF (16.11.10)
Vielleicht meinst Du den PC-Beeper per Befehl Sound ....
... |
|
|
| |
|
|
|
Julian Schmidt | Ja, ok danke genau das was ich brauche
|
|
|
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 16.11.2010 ▲ |
|
|
|
|
| Na dann lass es beepen... ^^
Variante für "ganz Harte" kennste ja: [...]
|
|
|
| |
|
|
|
Julian Schmidt | ja, hab ich selbst beigetragen :
Weißt du zufälligst wie die Hertz-Frequenz sein sollte, dass es sich so anhöhrt wie diese Krankenhaus-Pieps dinger ? Will den Sound für ein Schulprojekt nachmachen |
|
|
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 16.11.2010 ▲ |
|
|
|
|
| Bei welchem Batteriestand? |
|
|
| |
|
|
|
Julian Schmidt | |
|
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 16.11.2010 ▲ |
|
|
|
| |
|
- Seite 2 - |
|
|
| |
|
| |
|
|
|
Julian Schmidt | na gut, dann muss ich mal schauen was sich dann am besten anhöhrt |
|
|
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 16.11.2010 ▲ |
|
|
|
|
Julian Schmidt | piepst schon richtig gut KompilierenMarkierenSeparierenDEF 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 [...] | 16.11.2010 ▲ |
|
|
|
|
| KompilierenMarkierenSeparieren nur 1x im Programm pro Funktion - oben am Start... - nicht in Funktionen.
Wennde xpse im Einsatz hast brauchste garnichts deffen der deft automatisch alles wasde nutzt in schnellere calls... |
|
|
| |
|
|