Hogyan írjunk angolul beszélő programot 1 perc alatt?
Készítette: MetalBalu 2009. március 7. 22:03:43 - 13429 megtekintés
A következő tippben azoknak nyújtunk segítséget, akik tanulnak angolul, de nem biztosaka kiejtésben. Egy egyszerű programot bárki megírhat, amivel a kiejtést lehet gyakorolni.
Amire szükségünk lesz
számítógép
A program
Először nyissuk meg a jegyzettömböt(start-minden program-kellékek-jegyzettömb)
Utána írjuk be az alábbi 4 sort!(ügyeljünk a kis és nagy betűre valamint a szóközre!)
Dim message, sapi
message=InputBox("Mit olvassak fel?","Kiejtő")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
Utána mentsük el(fájl-mentés másként-kiejto.vbs)
Nyissuk meg és írjuk be azt a szót vagy számot amelynek kiejtésére kíváncsiak vagyunk!
Dim message, sapi
message=InputBox("Mit olvassak fel?","Kiejtő")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message