1
queen_of_cupcakes
Следвай
1
Как да накараме компютъра да говори
822
15.12.2015
Ето това е кодът, но обърнете внимание в клипчето как е поставен.
Dim Message, Speak
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
Dim Message, Speak
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
Виж повече
Виж по-малко