Hi,
ich habe mal eine Frage:
Also ich habe mir eine Gui erstellt etc.....
Und auch schon Bilder...
Problem:
Ich will mir jetzt noch ein Hintergrundbild reinmachen - wie geht das?
- Wenn es geht, erklärt es möglichst einfach - für einen Idioten(/klein Kind) wie mich xD^^... Ich bin etwas schwer von Begriff bei AutoIt...
Das ist das Hauptprogramm:
Spoiler anzeigen
#include #include #include #include #include #include #include Global $voice = ObjCreate("Sapi.SpVoice")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=$Form1_1 = GUICreate("SpeakMaster2009", 626, 414, 194, 126);$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Robert.KLINGER-ROBERT\Eigene Dateien\Eigene Bilder\images.jpg", 440, 368, 65, 52, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS));$Pic2 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Robert.KLINGER-ROBERT\Eigene Dateien\Eigene Bilder\Vokale o-lang.gif", 488, 368, 60, 52, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS));$Pic3 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Robert.KLINGER-ROBERT\Eigene Dateien\Eigene Bilder\pi_500.jpg", 544, 368, 52, 52, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS));$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Robert.KLINGER-ROBERT\Eigene Dateien\Eigene Bilder\3681_buchstabe_B.jpg", 376, 392, 52, 52, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS));$Pic2 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Robert.KLINGER-ROBERT\Eigene Dateien\Eigene Bilder\BuchstabeY.gif", 424, 392, 36, 52, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS));$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Robert.KLINGER-ROBERT\Eigene Dateien\Eigene Bilder\matrix.JPG", 0, 0, 633, 449, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlCreatePic (@ScriptDir&"\matrix.JPG",0,0,632,448)GUICtrlCreatePic (@ScriptDir&"\images.jpg" , 440, 358, 65, 52)GUICtrlCreatePic (@ScriptDir&"\Vokale o-lang.gif", 488, 358, 60, 52, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))GUICtrlCreatePic (@ScriptDir&"\pi_500.jpg", 544, 358, 52, 52, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))GUICtrlCreatePic (@ScriptDir&"\3681_buchstabe_B.jpg",340,358,52,52, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) ; NOCH FERTIG MACHEN!!!GUICtrlCreatePic (@ScriptDir&"\BuchstabeY.gif",391,358,36,52, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))$Edit1 = GUICtrlCreateEdit("Text", 112, 64, 321, 169)GUICtrlSetTip ($Edit1,"Gebe hier deinen zu Sagenden Text ein")$Edit2 = GUICtrlCreateEdit ("0.5",480,32,145,65)GUICtrlSetTip ($Edit2,"Gebe hier die Geschwindigkeit an 0.5 ist der Standartwert")$Edit3 = GUICtrlCreateEdit("100", 480, 104, 145, 65)GUICtrlSetTip ($Edit3,"Gebe hier die Lautstärke ein - 0-100")$Button1 = GUICtrlCreateButton("Sprechen", 112, 256, 161, 73)GUICtrlSetTip ($Button1,"Das Obenangegeben wird vorgelesen")$Button2 = GUICtrlCreateButton("nehcerpS", 280, 256, 153, 73, 0)GUICtrlSetTip ($Button2,"Das Oben Angegebene wird rückwärts vorgelesen")$Button3 = GUICtrlCreateButton("Codeirung", 8, 8, 89, 65, 0)GUICtrlSetTip ($Button3,"Codirt den Text")$Button4 = GUICtrlCreateButton("EntCodeirung", 8, 75, 89, 65, 0)GUICtrlSetTip ($Button4,"EntCodirt den Text")GUISetState(@SW_SHOW)#EndRegion ### END Koda GUI section ###
While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 Speak(GUICtrlRead($Edit1),GUICtrlRead($Edit2),GUICtrlRead ($Edit3)) ; ,0.5 ; 100 Case $Button2 Speak(_StringReverse(GUICtrlRead($Edit1)), GUICtrlRead ($Edit2), GUICtrlRead ($Edit3)) ; _StringReverse() drecht alles um also so wie du es willst^^Case $Button3$code = ""Local $code, $stringLocal $string1[26] = ["a", "b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"]Local $code1[26] = ["5", "4","3","2","1","10","9","8","7","6","15","14","13","12","11","20","19","18","17","16","25","24","23","22","21","26"]$var = GUICtrlRead ($Edit1)For $i = 1 To Stringlen($var)$string = StringMid($var, $i, 1)For $a = 0 To 25If $string1[$a] = $string Then $code = $code&$code1[$a]&". "NextNextGUICtrlSetData ($Edit1,$code)Case $Button4$code = ""Local $code, $string, $arrayLocal $string1[27] = [" ","5", "4","3","2","1","10","9","8","7","6","15","14","13","12","11","20","19","18","17","16","25","24","23","22","21","26"]Local $code1[27] = [".","a", "b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"]$var = GUICtrlRead ($Edit1)$array = StringSplit ($var,". ")For $i = 1 to $array[0]For $a = 0 to 26If $array[$i] = $string1[$a] Then $code = $code&$code1[$a]NextNextGUICtrlSetData ($Edit1,$code) EndSwitchWEnd
Func Speak($Text, $Rate, $Vol) $voice.Rate = $Rate $voice.Volume = $Vol $voice.Speak($Text)EndFunc ;==>Speak
[/autoit] [autoit][/autoit] [autoit]Local $code, $stringLocal $string1[2] = ["a", "b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"]Local $code1[2] = ["5", "4","3","2","1","10","9","8","7","6","15","14","13","12","11","20","19","18","17","16","25","24","23","22","21","26"]$var = "Hi ich heiße"
For $i = 1 To Stringlen($var)$string = StringMid($var, $i, 1)For $a = 0 To 25If $string1[$a] = $string Then $code = $code&$code1[$a]&", "NextNext
MsgBox(0,"",$code)
PS: Sorry das es so zusammengequetscht ist - Das Forum mag mich nicht -.- DOOFER BUG
Falls es jmd. dazu braucht ... glaube aber nicht^^ - PS: Ist nur ein Teil des Programms weil mit den Filenames ist es 4.800 Zeilen lang und man darf hier sowieso "nur" 100 000 Zeichen abschicken^^
mfg MasterRobb