Hi,
bin neu hier im deutschem forum ...
kenne mich schon recht gut mit autoit v.3 aus.
Habe mir beinahe alles alleine beigebracht !!
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 !!!!!