Ich will jetzt auch mal ein Script posten!
Langweilige Hintergrundgeschichte
Ich habe mir endlich einmal Zeit genommen, das Kinderprojekt anzuschauen. Da ich zuerst nurOscar's Lettris-Clone entdeckt habe, dachte ich mir, das das eine Nummer zu groß für mich ist! Als ich dann auch den Maus-Zähler gesehen habe, dachte ich mir, dasss ich es doch noch posten sollte.
Mein Beep-Piano hat 14 Tasten, vom c' bis zum cis", man kann die Tonlängen verändern und vllt mach ich auch noch eine Oktaven-Auswahltaste!
MfG tobi_girst
"BeepPiano 1.2"
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.0.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]$length_1 = 500
GUICreate ("BeepPiano 1.1 - by tobi_girst", 437+60, 259)
GUISetBkColor (0x000000)
#Region Tasten
$c_1 = GUICtrlCreateLabel ("", 0, 0, 40, 130)
$c_2 = GUICtrlCreateLabel ("", 0, 130, 53+1, 259-130)
GUICtrlSetBkColor ($c_1, 0xFFFFFF)
GUICtrlSetBkColor ($c_2, 0xFFFFFF)
$cis = GUICtrlCreateLabel ("", 41, 0, 94-66, 130)
$d_1 = GUICtrlCreateLabel ("", 70, 0, 94-69, 130)
$d_2 = GUICtrlCreateLabel ("", 58-3, 130, 50+4, 130)
GUICtrlSetBkColor ($d_1, 0xFFFFFF)
GUICtrlSetBkColor ($d_2, 0xFFFFFF)
$dis = GUICtrlCreateLabel ("", 96, 0, 94-66, 130)
$e_1 = GUICtrlCreateLabel ("", 124, 0, 162-124, 130)
$e_2 = GUICtrlCreateLabel ("", 112-2, 130, 50+2, 130)
GUICtrlSetBkColor ($e_1, 0xFFFFFF)
GUICtrlSetBkColor ($e_2, 0xFFFFFF)
$f_1 = GUICtrlCreateLabel ("", 163, 0, 94-54, 259)
$f_2 = GUICtrlCreateLabel ("", 163+94-54, 131, 15, 130)
GUICtrlSetBkColor ($f_1, 0xFFFFFF)
GUICtrlSetBkColor ($f_2, 0xFFFFFF)
$fis = GUICtrlCreateLabel ("", 163+95-53, 0, 94-66, 130)
$g_1 = GUICtrlCreateLabel ("", 233, 0, 94-69, 130+1)
$g_2 = GUICtrlCreateLabel ("", 221-2, 131, 50+2, 130)
GUICtrlSetBkColor ($g_1, 0xFFFFFF)
GUICtrlSetBkColor ($g_2, 0xFFFFFF)
$gis = GUICtrlCreateLabel ("", 259, 0, 94-66, 130)
$a_1 = GUICtrlCreateLabel ("", 287, 0, 94-69, 130+1)
$a_2 = GUICtrlCreateLabel ("", 274-2, 131, 50+4, 130)
GUICtrlSetBkColor ($a_1, 0xFFFFFF)
GUICtrlSetBkColor ($a_2, 0xFFFFFF)
$ais = GUICtrlCreateLabel ("", 312, 0, 94-69, 130)
$h_1 = GUICtrlCreateLabel ("", 342, 0, 38+2, 130+1)
$h_2 = GUICtrlCreateLabel ("", 330-3, 131, 50+5, 130)
GUICtrlSetBkColor ($h_1, 0xFFFFFF)
GUICtrlSetBkColor ($h_2, 0xFFFFFF)
$c2_1 = GUICtrlCreateLabel ("", 383, 0, 421-383, 130+1)
$c2_2 = GUICtrlCreateLabel ("", 383, 131, 437-383, 130)
GUICtrlSetBkColor ($c2_1, 0xFFFFFF)
GUICtrlSetBkColor ($c2_2, 0xFFFFFF)
$cis2 = GUICtrlCreateLabel ("", 437-(437-421), 0, 437-421, 130)
#EndRegion Tasten
GUICtrlCreateLabel ("", 438, 0, 60, 19)
GUICtrlSetBkColor (-1, 0xF0F0F0)
GUICtrlCreateLabel ("", 438, 19, 4, 21)
GUICtrlSetBkColor (-1, 0xF0F0F0)
GUICtrlCreateLabel ("", 438+(60-6), 19, 5, 21)
GUICtrlSetBkColor (-1, 0xF0F0F0)
GUICtrlCreateLabel ("", 438, 40, 60, 219)
GUICtrlSetBkColor (-1, 0xF0F0F0)
$length_2 = GUICtrlCreateInput ("500", 437+5, 20, 50, 20, 0x2000)
GUICtrlCreateUpdown (-1)
GUICtrlCreateLabel ("Length: ", 437+7, 5, Default, 15)
GUICtrlSetBkColor (-1, 0xF0F0F0)
GUISetState ()
While 1
$length_1 = GUICtrlRead ($length_2)
Switch GUIGetMsg ()
Case -3
Exit 0
Case $c_1, $c_2
Beep (261.63, $length_1)
Case $cis
Beep (277.18, $length_1)
Case $d_1, $d_2
Beep (293.66, $length_1)
Case $dis
Beep (311.13, $length_1)
Case $e_1, $e_2
Beep (329.63, $length_1)
Case $f_1, $f_2
Beep (349.23, $length_1)
Case $fis
Beep (369.99, $length_1)
Case $g_1, $g_2
Beep (392.00, $length_1)
Case $gis
Beep (415.30, $length_1)
Case $a_1, $a_2
Beep (440.00, $length_1)
Case $ais
Beep (466.16, $length_1)
Case $h_1, $h_2
Beep (493.88, $length_1)
Case $c2_1, $c2_2
Beep (523.25, $length_1)
Case $cis2
Beep (554.37, $length_1)
EndSwitch
WEnd