Spoiler anzeigen
#cs ------------------------------------------------------------
Von: Fast2
AutoIt Version:3.2.8.1
Funktion:Tontester
#ce ------------------------------------------------------------
$P0 = MsgBox( 1, "Tontester(besserer Name nicht inbegriffen) ;)", "Dieses Test-Programm testet folgende Tonhöhen:" & @LF & "40Hz, 100Hz, 500Hz, 800Hz, 1kHz, 2kHz")
IF $P0 = 1 Then
$P1 = MsgBox(1, "Test 40 Hz", "Bitte drücken")
Beep(40, 5000)
ElseIf
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
If $P1 = 1 Then
$P2 = MsgBox(1, "Test 100 Hz", "Weiter?")
Beep(100, 5000)
ElseIf
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
If $P2 = 1 Then
$P3 = MsgBox(1, "Test 500 Hz", "Weiter?")
Beep(500, 5000)
ElseIf
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
IF $P3 = 1 Then
$P4 = MsgBox(1, "Test 800 Hz", "Weiter?")
Beep(800, 5000)
ElseIf
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
IF $P4 = 1 Then
$P5 = MsgBox(1, "Test 1000 Hz", "Weiter?")
Beep(1000, 5000)
ElseIf
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
IF $P5 = 1 Then
$P6 = MsgBox(0, "Test 2000 Hz", "Weiter?")
Beep(2000, 5000)
ElseIf
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
MsgBox(0, "Fertig", "Das Programm wird nun Beendet")