Hi ich habe mal einen Speaker gemacht
Feautures:
Spricht Texte
Version: 1.0
Spoiler anzeigen
#include <GUIConstants.au3>
#include <EditConstants.au3>
GUICreate("SB Speaker",300,200)
GUISetBkColor(0xCDAD00)
Global $voice = ObjCreate("Sapi.SpVoice")
$text = GUICtrlCreateEdit("",5,5,288,160,$ES_WANTRETURN)
GUICtrlSetFont(-1,12)
$info = GUICtrlCreateButton("Info",0,175,100)
[/autoit] [autoit][/autoit] [autoit]$beginn = GUICtrlCreateButton("Beginnen",100,175,100)
[/autoit] [autoit][/autoit] [autoit]$closebutton = GUICtrlCreateButton("Beenden",200,175,100)
[/autoit] [autoit][/autoit] [autoit]GUISetState ()
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Or $msg = $closebutton Then ExitLoop
If $msg = $info Then MsgBox(48,"Info","Dieses Programm ist© Simon Buchner, du musst einen Text in den Editor schreiben und dann auf beginnen klicken dann wird der geschriebene Text gesprochen")
If $msg = $beginn Then
$text_read = GUICtrlRead($text)
$rate_read = 0.10
$vol_read = 100
_Speak($text_read,$rate_read,$vol_read)
EndIf
WEnd
GUIDelete()
Exit
Func _Speak($Text, $Rate, $Vol)
$voice.Rate = $Rate
$voice.Volume = $Vol
$voice.Speak ($Text)
EndFunc;==>Speak
Ich hoffe es gefält euch
Ich hoffe auf Feedback