Da war mir mal lw, da hab ich ein kleines script geschrieben: Das Hotkey Klavier.
Note = Frequenz = taste
A = 440 = 1
A# = 466,16 = q
H = 493,88 =2
C = 523,25 = 3
C# = 554,37 = w
D = 587,33=4
D# = 622,25 =
E = 659,26 =5
F = 698,46 = 6
F# = 739,99 = e
G = 783,99 = 7
G# = 830,61 = r
A = 880 = 8
______________________________
EIN riesiges danke an stayawayknight weil er mir die Pause func geschrieben hat.
Script:
Spoiler anzeigen
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("{1}", "boop1")
HotKeySet("{2}", "boop2")
HotKeySet("{3}", "boop3")
HotKeySet("{4}", "boop4")
HotKeySet("{5}", "boop5")
HotKeySet("{6}", "boop6")
HotKeySet("{7}", "boop7")
HotKeySet("{8}", "boop8")
HotKeySet("{q}", "boop1r")
HotKeySet("{w}", "boop2r")
HotKeySet("{e}", "boop3r")
HotKeySet("{r}", "boop4r")
HotKeySet("{t}", "boop5r")
$Pause = False
[/autoit] [autoit][/autoit] [autoit]While 1
Sleep(100)
WEnd
;;;;;;;;
Func TogglePause()
If $Pause = True Then
$Pause = False
ToolTip("", 0, 0, "")
Sleep( 1000 )
Else
$Pause = True
While $Pause = True
ToolTip("Pause", 0, 0, "Hotkey-Klavier",
WEnd
[/autoit] [autoit][/autoit] [autoit]EndIf
EndFunc ;==>TogglePause
Func Terminate()
ToolTip("END", 0, 0, "Wird beendet",
Sleep( 2000 )
Exit
EndFunc ;==>Terminate
Func boop1()
If $Pause = False Then
Beep(440, 100)
EndIf
EndFunc ;==>boop1
Func boop2()
If $Pause = False Then
Beep(493.88, 100)
EndIf
EndFunc ;==>boop2
Func boop3()
If $Pause = False Then
Beep(523.25, 100)
EndIf
EndFunc ;==>boop3
Func boop4()
If $Pause = False Then
Beep(587.33, 100)
EndIf
EndFunc ;==>boop4
Func boop5()
If $Pause = False Then
Beep(659.26, 100)
EndIf
EndFunc ;==>boop5
Func boop6()
If $Pause = False Then
Beep(698.46, 100)
EndIf
EndFunc ;==>boop6
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func boop7()
If $Pause = False Then
Beep(783.99, 100)
EndIf
EndFunc ;==>boop7
Func boop8()
If $Pause = False Then
Beep(880, 100)
EndIf
EndFunc ;==>boop8
Func boop1r()
If $Pause = False Then
Beep(466.16, 100)
EndIf
EndFunc ;==>boop1r
Func boop2r()
If $Pause = False Then
Beep(554.37, 100)
EndIf
EndFunc ;==>boop2r
Func boop3r()
If $Pause = False Then
Beep(622.25, 100)
EndIf
EndFunc ;==>boop3r
Func boop4r()
If $Pause = False Then
Beep(739.99, 100)
EndIf
EndFunc ;==>boop4r
Func boop5r()
If $Pause = False Then
Beep(830.61, 100)
EndIf
EndFunc ;==>boop5r
Exit
[/autoit]
BEKANNTE BUG´s
Keine (bis jetzt :D)
ToDo List
- Aufnehmen/Aufnahme beenden/Afunahme Abspielen
- Eigenen Dateinamen für Aufnehmen definieren
- Timer einbauen
- Beep zeit selbst definieren
Achtung:
Vorschläge werden zur kenntniss genommen, aber nicht umbedingt bearbeitet!
(wegen den ganzen hilfe posts^^)