Hi,
ich habe mal aus Langeweile ein Programm geschrieben,
mitdem ihr aus den Computer-Tönen (nicht die Lautsprecher)
eine Melodie abspielen lassen könnt.
Sinnlos, aber lustig.^^
Computer-Melodie Code
#include <EditConstants.au3>
$c_ton = 264
[/autoit] [autoit][/autoit] [autoit]$3c = "Beep($c_ton*3,60/$zeit*1000)"
$3cis = "Beep($c_ton*25/24*3,60/$zeit*1000)"
$3d = "Beep($c_ton*9/8*3,60/$zeit*1000)"
$3es = "Beep($c_ton*6/5*3,60/$zeit*1000)"
$3e = "Beep($c_ton*5/4*3,60/$zeit*1000)"
$3f = "Beep($c_ton*4/3*3,60/$zeit*1000)"
$3fis = "Beep($c_ton*25/18*3,60/$zeit*1000)"
$3g = "Beep($c_ton*3/2*3,60/$zeit*1000)"
$3as = "Beep($c_ton*8/5*3,60/$zeit*1000)"
$3a = "Beep($c_ton*5/3*3,60/$zeit*1000)"
$3b = "Beep($c_ton*9/5*3,60/$zeit*1000)"
$3h = "Beep($c_ton*15/8*3,60/$zeit*1000)"
$2c = "Beep($c_ton*2,60/$zeit*1000)"
$2cis = "Beep($c_ton*25/24*2,60/$zeit*1000)"
$2d = "Beep($c_ton*9/8*2,60/$zeit*1000)"
$2es = "Beep($c_ton*6/5*2,60/$zeit*1000)"
$2e = "Beep($c_ton*5/4*2,60/$zeit*1000)"
$2f = "Beep($c_ton*4/3*2,60/$zeit*1000)"
$2fis = "Beep($c_ton*25/18*2,60/$zeit*1000)"
$2g = "Beep($c_ton*3/2*2,60/$zeit*1000)"
$2as = "Beep($c_ton*8/5*2,60/$zeit*1000)"
$2a = "Beep($c_ton*5/3*2,60/$zeit*1000)"
$2b = "Beep($c_ton*9/5*2,60/$zeit*1000)"
$2h = "Beep($c_ton*15/8*2,60/$zeit*1000)"
$c = "Beep($c_ton,60/$zeit*1000)"
$cis = "Beep($c_ton*25/24,60/$zeit*1000)"
$d = "Beep($c_ton*9/8,60/$zeit*1000)"
$es = "Beep($c_ton*6/5,60/$zeit*1000)"
$e = "Beep($c_ton*5/4,60/$zeit*1000)"
$f = "Beep($c_ton*4/3,60/$zeit*1000)"
$fis = "Beep($c_ton*25/18,60/$zeit*1000)"
$g = "Beep($c_ton*3/2,60/$zeit*1000)"
$as = "Beep($c_ton*8/5,60/$zeit*1000)"
$a = "Beep($c_ton*5/3,60/$zeit*1000)"
$b = "Beep($c_ton*9/5,60/$zeit*1000)"
$h = "Beep($c_ton*15/8,60/$zeit*1000)"
GUICreate("Computer-Melodie", 240,100)
[/autoit] [autoit][/autoit] [autoit]$3c_button = GUICtrlCreateButton("c",0,0, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$3cis_button = GUICtrlCreateButton("c2",20,0, 20, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$3d_button = GUICtrlCreateButton("d",40,0, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$3es_button = GUICtrlCreateButton("d2",60,0, 20, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$3e_button = GUICtrlCreateButton("e",80,0, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$3f_button = GUICtrlCreateButton("f",100,0, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$3fis_button = GUICtrlCreateButton("f2",120,0,0, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$3g_button = GUICtrlCreateButton("g",140,0,0, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$3as_button = GUICtrlCreateButton("g2",160,0,0, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$3a_button = GUICtrlCreateButton("a",180,0,0, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$3b_button = GUICtrlCreateButton("h",200,0,0, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$3h_button = GUICtrlCreateButton("h2",220,0,0, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$2c_button = GUICtrlCreateButton("c",0,20, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$2cis_button = GUICtrlCreateButton("c2",20,20, 20, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$2d_button = GUICtrlCreateButton("d",40,20, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$2es_button = GUICtrlCreateButton("d2",60,20, 20, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$2e_button = GUICtrlCreateButton("e",80,20, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$2f_button = GUICtrlCreateButton("f",100,20, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$2fis_button = GUICtrlCreateButton("f2",120,20,0, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$2g_button = GUICtrlCreateButton("g",140,20,0, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$2as_button = GUICtrlCreateButton("g2",160,20,0, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$2a_button = GUICtrlCreateButton("a",180,20,0, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$2b_button = GUICtrlCreateButton("h",200,20,0, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$2h_button = GUICtrlCreateButton("h2",220,20,0, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$c_button = GUICtrlCreateButton("c",0,40, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$cis_button = GUICtrlCreateButton("c2",20,40, 20, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$d_button = GUICtrlCreateButton("d",40,40, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$es_button = GUICtrlCreateButton("d2",60,40, 20, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$e_button = GUICtrlCreateButton("e",80,40, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$f_button = GUICtrlCreateButton("f",100,40, 20, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$fis_button = GUICtrlCreateButton("f2",120,40,0, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$g_button = GUICtrlCreateButton("g",140,40,0, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$as_button = GUICtrlCreateButton("g2",160,40,0, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$a_button = GUICtrlCreateButton("a",180,40,0, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$b_button = GUICtrlCreateButton("h",200,40,0, 20)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$h_button = GUICtrlCreateButton("h2",220,40,0, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x808080)
$input = GUICtrlCreateInput("", 0, 60, 220)
[/autoit] [autoit][/autoit] [autoit]$wait_button = GUICtrlCreateButton("P",220,60, 20, 20)
[/autoit] [autoit][/autoit] [autoit]GUICtrlCreateLabel("BPM:", 160, 83)
[/autoit] [autoit][/autoit] [autoit]$zeit_input = GUICtrlCreateInput("60", 190, 80, 50, -1, $ES_NUMBER)
$wait = "Sleep(60/$zeit*1000)"
$test_button = GUICtrlCreateButton("Abspielen",0,80,130, 20)
[/autoit] [autoit][/autoit] [autoit]GUISetState()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
;~ 3
Case $3c_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3c & ")
Case $3cis_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3cis & ")
Case $3d_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3d & ")
Case $3es_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3es & ")
Case $3e_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3e & ")
Case $3f_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3f & ")
Case $3fis_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3fis & ")
Case $3g_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3g & ")
Case $3as_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3as & ")
Case $3a_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3a & ")
Case $3b_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3b & ")
Case $3h_button
GUICtrlSetData($input, GUICtrlRead($input) & "$3h & ")
;~ End 3
;~ 2
Case $2c_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2c & ")
Case $2cis_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2cis & ")
Case $2d_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2d & ")
Case $2es_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2es & ")
Case $2e_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2e & ")
Case $2f_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2f & ")
Case $2fis_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2fis & ")
Case $2g_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2g & ")
Case $2as_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2as & ")
Case $2a_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2a & ")
Case $2b_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2b & ")
Case $2h_button
GUICtrlSetData($input, GUICtrlRead($input) & "$2h & ")
;~ End 2
;~ 1
Case $c_button
GUICtrlSetData($input, GUICtrlRead($input) & "$c & ")
Case $cis_button
GUICtrlSetData($input, GUICtrlRead($input) & "$cis & ")
Case $d_button
GUICtrlSetData($input, GUICtrlRead($input) & "$d & ")
Case $es_button
GUICtrlSetData($input, GUICtrlRead($input) & "$es & ")
Case $e_button
GUICtrlSetData($input, GUICtrlRead($input) & "$e & ")
Case $f_button
GUICtrlSetData($input, GUICtrlRead($input) & "$f & ")
Case $fis_button
GUICtrlSetData($input, GUICtrlRead($input) & "$fis & ")
Case $g_button
GUICtrlSetData($input, GUICtrlRead($input) & "$g & ")
Case $as_button
GUICtrlSetData($input, GUICtrlRead($input) & "$as & ")
Case $a_button
GUICtrlSetData($input, GUICtrlRead($input) & "$a & ")
Case $b_button
GUICtrlSetData($input, GUICtrlRead($input) & "$b & ")
Case $h_button
GUICtrlSetData($input, GUICtrlRead($input) & "$h & ")
;~ End 1
Case $wait_button
GUICtrlSetData($input, GUICtrlRead($input) & "$wait & ")
Case $test_button
$zeit = GUICtrlRead($zeit_input)
If $zeit = "" or 0 Then
$zeit = 60
Endif
$playarray = StringSplit(GUICtrlRead($input), " & ", 1)
For $i = 1 to $playarray[0] - 1
Execute(Execute($playarray[$i]))
Next
EndSwitch
WEnd
Erklärung:
- Die Buttons (Weiß & Grau) sind die Klaviatur.
- Der Button "P" neben dem Textfeld bedeutet einen Pauseschritt.
- In dem Textfeld wird die Melodie eingetragen, nachTastendruck.
- Bei BPM (Beats per Minute) wird die Abspielgeschwindigkeit eingetragen.
ACHTUNG!
Während dem Abspielen einer Melodie kann es sein, dass dieser Vorgang nicht
gestoppt werden kann! Warum auch immer..
Viel Spaß damit.
MfG
qixx