Sprecher ( buchstabierer )

    Hi,
    bin neu hier im deutschem forum ... ;)
    kenne mich schon recht gut mit autoit v.3 aus.
    Habe mir beinahe alles alleine beigebracht !! :rolleyes:

    Möchte euch mal mein sprecher vorstellen... naja er buchstabiert viel mehr xD

    Spoiler anzeigen

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=..\icons\mund.ico
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include
    #include
    #include
    #include
    #include
    ; MADE BY Tevin & Banjo1 !!!
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Vorleser", 148, 160, 192, 124)
    $Input1 = GUICtrlCreateInput("text", 16, 35, 105, 21)
    $Button1 = GUICtrlCreateButton("Lesen", 16, 112, 115, 25, 0)
    $Label1 = GUICtrlCreateLabel("Text eingeben :", 16, 15, 78, 17)
    $Label2 = GUICtrlCreateLabel("Lautstärke :", 16, 65, 78, 17)
    $Slider1 = GUICtrlCreateSlider(8, 80, 120, 25)
    GUICtrlSetLimit(-1,110,10)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    _Func1 ()
    EndSwitch
    WEnd

    Func _Func1 ()
    $Slider1 = GUICtrlRead ($Slider1)
    SoundSetWaveVolume ( $Slider1 )
    $count = 0
    $Input1 = GUICtrlRead ($Input1)
    $len = StringLen($Input1)
    While $len>=$count
    $count= $count + 1
    sleep(100)
    $var = StringLeft ( $Input1, 1 )
    $Input1 = StringTrimLeft($Input1, 1)
    _auswerten($var)
    wend
    exit
    EndFunc

    func _auswerten($var)
    If $var= "A" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/a.wav",1)
    ElseIf $var = "B" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/b.wav",1)
    ElseIf $var = "C" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/c.wav",1)
    ElseIf $var = "D" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/d.wav",1)
    ElseIf $var = "E" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/e.wav",1)
    ElseIf $var = "F" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/f.wav",1)
    ElseIf $var = "G" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/g.wav",1)
    ElseIf $var = "H" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/h.wav",1)
    ElseIf $var = "I" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/i.wav",1)
    ElseIf $var = "J" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/j.wav",1)
    ElseIf $var = "K" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/k.wav",1)
    ElseIf $var = "L" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/l.wav",1)
    ElseIf $var = "M" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/m.wav",1)
    ElseIf $var = "N" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/n.wav",1)
    ElseIf $var = "O" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/o.wav",1)
    ElseIf $var = "P" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/p.wav",1)
    ElseIf $var = "Q" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/q.wav",1)
    ElseIf $var = "R" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/r.wav",1)
    ElseIf $var = "S" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/s.wav",1)
    ElseIf $var = "T" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/t.wav",1)
    ElseIf $var = "U" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/u.wav",1)
    ElseIf $var = "V" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/v.wav",1)
    ElseIf $var = "W" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/w.wav",1)
    ElseIf $var = "X" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/x.wav",1)
    ElseIf $var = "Y" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/y.wav",1)
    ElseIf $var = "Z" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/z.wav",1)
    ElseIf $var = "1" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/1.wav",1)
    ElseIf $var = "2" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/2.wav",1)
    ElseIf $var = "3" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/3.wav",1)
    ElseIf $var = "4" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/4.wav",1)
    ElseIf $var = "5" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/5.wav",1)
    ElseIf $var = "6" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/6.wav",1)
    ElseIf $var = "7" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/7.wav",1)
    ElseIf $var = "8" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/8.wav",1)
    ElseIf $var = "9" Then
    SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/9.wav",1)
    ElseIf $var = " " Then
    Sleep ( 150 )
    ElseIf $var = "," Then
    Sleep ( 200 )
    ElseIf $var = "." Then
    Sleep ( 250 )
    EndIf
    EndFunc

    Hier noch nen paar dateien die ihr brauchen könntet ^^
    Damit alles funktioniert den ordner auf den desktop packen
    und im script anstadt :
    "SoundPlay ("C:\Dokumente und Einstellungen\Tevin1\Desktop\autoit dateien\dazugehöriges\vorleser\sound/9.wav",1)"
    Das Tevin1 durch euren benutzerkonto namen ersetzen sonst gehts nicht !!!!!

    Einmal editiert, zuletzt von BestChaos (4. März 2009 um 19:32)

    Herzlich willkommen!
    Hab das Ungetüm mal etwas gekürzt :D
    Es gibt auch deutsche Computerstimmen, die Texte vorlesen können, dann hättest du die Dateien nicht selbst aufnehmen müssen ;) . Hier im Forum wirst du bestimmt fündig. Ich bevorzuge die Computerstimme Steffi, aber Anna und Stefan können auch gut lesen :D
    Das Einstellen der Lautstärke funktioniert bei mir nicht.

    Schau dir mal die Autoit-Makros an, dann brauchst du keine absoluten Pfade anzugeben.

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Icon=..\icons\mund.ico
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <GUIConstantsEx.au3>
    ; MADE BY Tevin & Banjo1 !!!
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Vorleser", 148, 160, 192, 124)
    $Input1 = GUICtrlCreateInput("text", 16, 35, 105, 21)
    $Button1 = GUICtrlCreateButton("Lesen", 16, 112, 115, 25, 0)
    $Label1 = GUICtrlCreateLabel("Text eingeben :", 16, 15, 78, 17)
    $Label2 = GUICtrlCreateLabel("Lautstärke :", 16, 65, 78, 17)
    $Slider1 = GUICtrlCreateSlider(8, 80, 120, 25)
    GUICtrlSetLimit(-1, 110, 10)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    _Func1()
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _Func1()
    $Slider1 = GUICtrlRead($Slider1)
    SoundSetWaveVolume($Slider1)
    $Input1 = GUICtrlRead($Input1)
    $aText = StringRegExp($Input1, '.', 3)
    For $i = 0 To UBound($aText) - 1
    _auswerten($aText[$i])
    Next
    Exit
    EndFunc ;==>_Func1

    [/autoit] [autoit][/autoit] [autoit]

    Func _auswerten($var)
    If StringIsAlNum($var) Then
    SoundPlay(@ScriptDir & "\sound/"&$var&".wav", 1)
    ElseIf $var = " " Then
    Sleep(150)
    ElseIf $var = "," Then
    Sleep(200)
    ElseIf $var = "." Then
    Sleep(250)
    EndIf
    EndFunc ;==>_auswerten

    [/autoit]

    Die stimme hab ich auch irgendwo ausem i-net gezogen...
    Der type heißt reiner ;)
    das mit Autoit-Makros ... oder so :P versteh ich nicht was meinst du damit ?

    ps: muss ich bein deinem script irgendwas einfügen an daten ?
    weil es läuft bei mir irgendwie nicht :)

    hab die makros jetzt verstanden tolle dinger xD ...
    und das script musste ich in den vorleser ordner paken habs gescheckt ... :rolleyes:

    3 Mal editiert, zuletzt von BestChaos (2. März 2009 um 21:21)