Ich hab ein Skript gemacht, dass Buchstaben (c,d,e,f,g,a,h,c1) aus einer ini ausliest und diese in Musik umwandelt. Jeder Buchstabe entspricht der reelen Tonhöhe (D-Dur) . Mann kann in die ini 20 Buchstaben reinschreiben (mit "," getrennt) und die werden dann abgespielt...
Weiß jemand wie ich das machen kann, dass man unendlich viele Tönen eingeben kann? So muss ich für jeden Ton eine lange If-Schleife mit jedem Array (hier halt 1-20) anlegen. Das geht bestimmt einfacher und kürzer. Die ini muss im Ordner des Skriptes sein.
Die INI ist in der RAR im Anhang...Bitt sagt mir eure Meinung/Tipps...
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.0.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]#include
[/autoit] [autoit][/autoit] [autoit]$file = @ScriptDir & "\Sound.ini"
[/autoit] [autoit][/autoit] [autoit]$noten = IniRead( $file , "Noten", "Noten", "NichtGefunden")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$array = StringSplit($noten, ',', 1)
[/autoit] [autoit][/autoit] [autoit];Hertzzahl der Noten
[/autoit] [autoit][/autoit] [autoit]Global $c = 264
Global $d = 297
Global $e = 330
Global $f = 352
Global $g = 396
Global $a = 440
Global $h = 495
Global $c1 = 528
Global $zeit = 300
;Gui
#include
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=D:\Programme\Autoit\Koda\Forms\Musik.kxf
$Musik = GUICreate("Musik", 268, 161, 193, 125)
$Button1 = GUICtrlCreateButton("Start", 40, 32, 193, 89, 0)
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE , "Beenden")
#EndRegion ### END Koda GUI section ###
Opt("GUIOnEventMode", 1)
GUICtrlSetOnEvent($Button1, "Start")
While 1
$noten = IniRead( $file , "Noten", "Noten", "NichtGefunden")
Sleep(2)
WEnd
;Funktionen
[/autoit] [autoit][/autoit] [autoit]Func Beenden()
Exit
EndFunc
Func Start() ;Erster Ton
If $array[1] = "c" Then
Beep($c,$zeit)
EndIf
If $array[1] = "d" Then
Beep($d,$zeit)
EndIf
If $array[1] = "e" Then
Beep($e,$zeit)
EndIf
If $array[1] = "f" Then
Beep($f,$zeit)
EndIf
If $array[1] = "g" Then
Beep($g,$zeit)
EndIf
If $array[1] = "a" Then
Beep($a,$zeit)
EndIf
If $array[1] = "h" Then
Beep($h,$zeit)
EndIf
If $array[1] = "c1" Then
Beep($c1,$zeit)
EndIf
If $array[2] = "c" Then
Beep($c,$zeit)
EndIf
If $array[2] = "d" Then
Beep($d,$zeit)
EndIf
If $array[2] = "e" Then
Beep($e,$zeit)
EndIf
If $array[2] = "f" Then
Beep($f,$zeit)
EndIf
If $array[2] = "g" Then
Beep($g,$zeit)
EndIf
If $array[2] = "a" Then
Beep($a,$zeit)
EndIf
If $array[2] = "h" Then
Beep($h,$zeit)
EndIf
If $array[2] = "c1" Then
Beep($c1,$zeit)
EndIf
If $array[3] = "c" Then
Beep($c,$zeit)
EndIf
If $array[3] = "d" Then
Beep($d,$zeit)
EndIf
If $array[3] = "e" Then
Beep($e,$zeit)
EndIf
If $array[3] = "f" Then
Beep($f,$zeit)
EndIf
If $array[3] = "g" Then
Beep($g,$zeit)
EndIf
If $array[3] = "a" Then
Beep($a,$zeit)
EndIf
If $array[3] = "h" Then
Beep($h,$zeit)
EndIf
If $array[3] = "c1" Then
Beep($c1,$zeit)
EndIf
If $array[4] = "c" Then
Beep($c,$zeit)
EndIf
If $array[4] = "d" Then
Beep($d,$zeit)
EndIf
If $array[4] = "e" Then
Beep($e,$zeit)
EndIf
If $array[4] = "f" Then
Beep($f,$zeit)
EndIf
If $array[4] = "g" Then
Beep($g,$zeit)
EndIf
If $array[4] = "a" Then
Beep($a,$zeit)
EndIf
If $array[4] = "h" Then
Beep($h,$zeit)
EndIf
If $array[4] = "c1" Then
Beep($c1,$zeit)
EndIf
If $array[5] = "c" Then
Beep($c,$zeit)
EndIf
If $array[5] = "d" Then
Beep($d,$zeit)
EndIf
If $array[5] = "e" Then
Beep($e,$zeit)
EndIf
If $array[5] = "f" Then
Beep($f,$zeit)
EndIf
If $array[5] = "g" Then
Beep($g,$zeit)
EndIf
If $array[5] = "a" Then
Beep($a,$zeit)
EndIf
If $array[5] = "h" Then
Beep($h,$zeit)
EndIf
If $array[5] = "c1" Then
Beep($c1,$zeit)
EndIf
If $array[6] = "c" Then
Beep($c,$zeit)
EndIf
If $array[6] = "d" Then
Beep($d,$zeit)
EndIf
If $array[6] = "e" Then
Beep($e,$zeit)
EndIf
If $array[6] = "f" Then
Beep($f,$zeit)
EndIf
If $array[6] = "g" Then
Beep($g,$zeit)
EndIf
If $array[6] = "a" Then
Beep($a,$zeit)
EndIf
If $array[6] = "h" Then
Beep($h,$zeit)
EndIf
If $array[6] = "c1" Then
Beep($c1,$zeit)
EndIf
If $array[7] = "c" Then
Beep($c,$zeit)
EndIf
If $array[7] = "d" Then
Beep($d,$zeit)
EndIf
If $array[7] = "e" Then
Beep($e,$zeit)
EndIf
If $array[7] = "f" Then
Beep($f,$zeit)
EndIf
If $array[7] = "g" Then
Beep($g,$zeit)
EndIf
If $array[7] = "a" Then
Beep($a,$zeit)
EndIf
If $array[7] = "h" Then
Beep($h,$zeit)
EndIf
If $array[7] = "c1" Then
Beep($c1,$zeit)
EndIf
If $array[8] = "c" Then
Beep($c,$zeit)
EndIf
If $array[8] = "d" Then
Beep($d,$zeit)
EndIf
If $array[8] = "e" Then
Beep($e,$zeit)
EndIf
If $array[8] = "f" Then
Beep($f,$zeit)
EndIf
If $array[8] = "g" Then
Beep($g,$zeit)
EndIf
If $array[8] = "a" Then
Beep($a,$zeit)
EndIf
If $array[8] = "h" Then
Beep($h,$zeit)
EndIf
If $array[8] = "c1" Then
Beep($c1,$zeit)
EndIf
If $array[9] = "c" Then
Beep($c,$zeit)
EndIf
If $array[9] = "d" Then
Beep($d,$zeit)
EndIf
If $array[9] = "e" Then
Beep($e,$zeit)
EndIf
If $array[9] = "f" Then
Beep($f,$zeit)
EndIf
If $array[9] = "g" Then
Beep($g,$zeit)
EndIf
If $array[9] = "a" Then
Beep($a,$zeit)
EndIf
If $array[9] = "h" Then
Beep($h,$zeit)
EndIf
If $array[9] = "c1" Then
Beep($c1,$zeit)
EndIf
If $array[10] = "c" Then
Beep($c,$zeit)
EndIf
If $array[10] = "d" Then
Beep($d,$zeit)
EndIf
If $array[10] = "e" Then
Beep($e,$zeit)
EndIf
If $array[10] = "f" Then
Beep($f,$zeit)
EndIf
If $array[10] = "g" Then
Beep($g,$zeit)
EndIf
If $array[10] = "a" Then
Beep($a,$zeit)
EndIf
If $array[10] = "h" Then
Beep($h,$zeit)
EndIf
If $array[10] = "c1" Then
Beep($c1,$zeit)
EndIf
If $array[11] = "c" Then
Beep($c,$zeit)
EndIf
If $array[11] = "d" Then
Beep($d,$zeit)
EndIf
If $array[11] = "e" Then
Beep($e,$zeit)
EndIf
If $array[11] = "f" Then
Beep($f,$zeit)
EndIf
If $array[11] = "g" Then
Beep($g,$zeit)
EndIf
If $array[11] = "a" Then
Beep($a,$zeit)
EndIf
If $array[11] = "h" Then
Beep($h,$zeit)
EndIf
If $array[11] = "c1" Then
Beep($c1,$zeit)
EndIf
If $array[12] = "c" Then
Beep($c,$zeit)
EndIf
If $array[12] = "d" Then
Beep($d,$zeit)
EndIf
If $array[12] = "e" Then
Beep($e,$zeit)
EndIf
If $array[12] = "f" Then
Beep($f,$zeit)
EndIf
If $array[12] = "g" Then
Beep($g,$zeit)
EndIf
If $array[12] = "a" Then
Beep($a,$zeit)
EndIf
If $array[12] = "h" Then
Beep($h,$zeit)
EndIf
If $array[12] = "c1" Then
Beep($c1,$zeit)
EndIf
If $array[13] = "c" Then
Beep($c,$zeit)
EndIf
If $array[13] = "d" Then
Beep($d,$zeit)
EndIf
If $array[13] = "e" Then
Beep($e,$zeit)
EndIf
If $array[13] = "f" Then
Beep($f,$zeit)
EndIf
If $array[13] = "g" Then
Beep($g,$zeit)
EndIf
If $array[13] = "a" Then
Beep($a,$zeit)
EndIf
If $array[13] = "h" Then
Beep($h,$zeit)
EndIf
If $array[13] = "c1" Then
Beep($c1,$zeit)
EndIf
If $array[14] = "c" Then
Beep($c,$zeit)
EndIf
If $array[14] = "d" Then
Beep($d,$zeit)
EndIf
If $array[14] = "e" Then
Beep($e,$zeit)
EndIf
If $array[14] = "f" Then
Beep($f,$zeit)
EndIf
If $array[14] = "g" Then
Beep($g,$zeit)
EndIf
If $array[14] = "a" Then
Beep($a,$zeit)
EndIf
If $array[14] = "h" Then
Beep($h,$zeit)
EndIf
If $array[14] = "c1" Then
Beep($c1,$zeit)
EndIf
If $array[15] = "c" Then
Beep($c,$zeit)
EndIf
If $array[15] = "d" Then
Beep($d,$zeit)
EndIf
If $array[15] = "e" Then
Beep($e,$zeit)
EndIf
If $array[15] = "f" Then
Beep($f,$zeit)
EndIf
If $array[15] = "g" Then
Beep($g,$zeit)
EndIf
If $array[15] = "a" Then
Beep($a,$zeit)
EndIf
If $array[15] = "h" Then
Beep($h,$zeit)
EndIf
If $array[15] = "c1" Then
Beep($c1,$zeit)
EndIf
If $array[16] = "c" Then
Beep($c,$zeit)
EndIf
If $array[16] = "d" Then
Beep($d,$zeit)
EndIf
If $array[16] = "e" Then
Beep($e,$zeit)
EndIf
If $array[16] = "f" Then
Beep($f,$zeit)
EndIf
If $array[16] = "g" Then
Beep($g,$zeit)
EndIf
If $array[16] = "a" Then
Beep($a,$zeit)
EndIf
If $array[16] = "h" Then
Beep($h,$zeit)
EndIf
If $array[16] = "c1" Then
Beep($c1,$zeit)
EndIf
If $array[17] = "c" Then
Beep($c,$zeit)
EndIf
If $array[17] = "d" Then
Beep($d,$zeit)
EndIf
If $array[17] = "e" Then
Beep($e,$zeit)
EndIf
If $array[17] = "f" Then
Beep($f,$zeit)
EndIf
If $array[17] = "g" Then
Beep($g,$zeit)
EndIf
If $array[17] = "a" Then
Beep($a,$zeit)
EndIf
If $array[17] = "h" Then
Beep($h,$zeit)
EndIf
If $array[17] = "c1" Then
Beep($c1,$zeit)
EndIf
If $array[18] = "c" Then
Beep($c,$zeit)
EndIf
If $array[18] = "d" Then
Beep($d,$zeit)
EndIf
If $array[18] = "e" Then
Beep($e,$zeit)
EndIf
If $array[18] = "f" Then
Beep($f,$zeit)
EndIf
If $array[18] = "g" Then
Beep($g,$zeit)
EndIf
If $array[18] = "a" Then
Beep($a,$zeit)
EndIf
If $array[18] = "h" Then
Beep($h,$zeit)
EndIf
If $array[18] = "c1" Then
Beep($c1,$zeit)
EndIf
If $array[19] = "c" Then
Beep($c,$zeit)
EndIf
If $array[19] = "d" Then
Beep($d,$zeit)
EndIf
If $array[19] = "e" Then
Beep($e,$zeit)
EndIf
If $array[19] = "f" Then
Beep($f,$zeit)
EndIf
If $array[19] = "g" Then
Beep($g,$zeit)
EndIf
If $array[19] = "a" Then
Beep($a,$zeit)
EndIf
If $array[19] = "h" Then
Beep($h,$zeit)
EndIf
If $array[19] = "c1" Then
Beep($c1,$zeit)
EndIf
If $array[20] = "c" Then
Beep($c,$zeit)
EndIf
If $array[20] = "d" Then
Beep($d,$zeit)
EndIf
If $array[20] = "e" Then
Beep($e,$zeit)
EndIf
If $array[20] = "f" Then
Beep($f,$zeit)
EndIf
If $array[20] = "g" Then
Beep($g,$zeit)
EndIf
If $array[20] = "a" Then
Beep($a,$zeit)
EndIf
If $array[20] = "h" Then
Beep($h,$zeit)
EndIf
If $array[20] = "c1" Then
Beep($c1,$zeit)
EndIf
EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit]