![Boldog szülinapot, YouTube! [videóval]](http://img9.hvg.hu/image.aspx?id=278BC028-6BDC-4213-8577-3093E653D5F9&view=ffdb5e3a-e632-4abc-b367-3d9b3bb5573b)
Írjon angol szövegkiejtő programot 1 perc alatt!
Lepjük meg ismerősünket egy alig 200 bájtos programmal, amely Windows XP-n és Vistán ki tudja ejteni a beleírt angol szövegeket és számokat! Utóbbi lehetőség hatalmas segítség lehet annak, aki most tanulja angolul a számokat.
Először is nyissunk meg egy jegyzettömböt (Start/Minden program/Kellékek/Jegyzettömb), és másoljuk bele az alábbi négy sort:
Dim message, sapi
message=InputBox("Mit olvassak fel?","Techline Kiejtő")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
A Fájl/Mentés másként menüponttal rögzítsük úgy a fájlt, hogy a fájlnév helyére a következőt írjuk, idézőjelekkel együtt: "kiejto.vbs"
Ennyi volt, kész! Ettől kezdve, ha bármikor rákattintunk a létrehozott fájlra, egy kis ablak jelenik meg egy beviteli szövegmezővel, ide kell bebillentyűzni azt az angol szót (vagy beütni egy számot), amelynek a kiejtésére kiváncsiak vagyunk.
Az idézőjelekre egyébként azért volt szükség mentéskor, hogy biztosan .vbs kiterjesztést kapjon a mentett adat. A VBS a Visual Basic programozási nyelven alapuló szkriptnyelv (vbS = Script), amely be van építve az operációs rendszerbe.
Nézzük meg most közelebbről is, hogy mit csinálnak az egyes sorok! Az első sor csupán deklarálja a message és sapi változókat. A másodikban létrehozunk egy bemeneti dobozt, amelynek az első paramétere a feltett kérdés, a második a doboz címsorában megjelenített szöveg. A harmadik sorban hívjuk életre a „beszélni tudó” objektumot, aminek speak metódusával a negyedik sorban ki tudjuk olvastatni a message változóba betöltött szöveget.
![Kipróbáltuk: Windows 8 egy Acer Iconia W500 táblán [videóval]](http://img5.hvg.hu/image.aspx?id=d84f20d2-a4ff-492c-90e9-194b56a1ba4a&view=ffdb5e3a-e632-4abc-b367-3d9b3bb5573b)
Hozzászólások (24) , melyek közül a legfrissebbek:
Még jobb a kiejtés az elején!!!:
Dim message, sapi
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak " Heló. A navem Sam. Mit olvussuk fel???"
message=InputBox("Mit olvassak fel?","Sam az angol felolvasó")
sapi.Speak message
Javítás! Csaba144 verziója csak kicsit magyarosabb az elején a beszéde.
Dim message, sapi
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak " Heló. A nevem Sam. Mit olvassak fel???"
message=InputBox("Mit olvassak fel?","Sam az angol felolvasó")
sapi.Speak message
Sziasztok!
Erre ott van az English Learner. Normalis a kiejtese (nem beszedszintetikus), es nagyon gyorsan lehet vele szavakat tanulni!
www.englishlearner.hu -rol le lehet tolteni, van proba verzio is belole
Itt a továbbfejlesztett verzió,ami indulásnál magyarul elmondja hogy mit csinál éppen:
Dim message, sapi
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak "Ungolool baesealoe script eendeetoshu foeyomutbun"
message=InputBox("Mit olvassak fel?","Angolul beszélő program")
sapi.Speak message
Ez a program nagyon jó. Köszönöm. Németre is lenne hasonló.?
Akinek nem működik,lassaban akarja felolvastatni,vagy nem akarja elészíteni az egyszerűen menjen a Vezérlőpult Beszéd mappájába és a "You have selected blablabla" helyére írja be amit akar.
A kémprogram-eltávolítóm billentyűzetnaplózónak minősítette és blokkolta, de megoldottam. Ez érdekes.
Sziasztok!
Azt meg lehetne oldani, hogy a szó kiejtése után ne záródjon be a progi?
Szia!
Lehetne valahogy menteni mp3-ba a beirt szavakat, mondatokat?
Köszi!
nem roszz, de lehetne lassítani a felolvasást???
E-mail-ben kérek tanácsokat..
köszi.. :)
Ha már jó angol kiejtés, akkor www.howjsay.com A legjobb, amivel valaha is találkoztam, ráadásul ingyenes, és bőséges szóadatbázissal is rendelkezik, amiket hangsúlyozva (!!!), és néhol az UK és US English között is különbséget téve olvas fel! Erősen ajánlott! ;-)
Csak szavak kiejtésére jó, a mondat monoton, gépi, a szavak gyors egymásutánja mindenféle intonáció nélküli.
Egy angol mondatot jellemez a megfelelő hanglejtés - amit itt ne keressünk. Olyan gyors, ha mondatot ejtetünk ki vele, hogy utána sem lehet ismételni.
Tanácsos csak szavak kiejtésére használni - bár messze nem olyan a minősége mint az Angol-magyar hangos szótár CD mellékletének.
A SZTAKI hangos szótárától annyiban különbözik, hogy gyorsabban hozzájutunk a kiejtendő szóhoz, azonban a SZTAKI hangos szótárának sokkal tisztább a hangja.
Csak akkor megy ha ezzel van társítva. A rendszer ezt alapból tudja, de ha nem megy akkor keresd meg ezt, és társítsd vele:
Microsoft (R) Windows Based Script Host
Sok szerencsét.
Egy kis segédanyag Marmélkától:
(Vadkender) - What can there
(Hol van a WC?) - Hole one a wait say?
(Van két libám) - One Kate Lee bumm
(Alkatrész) - All cut race
(Hátsórész) - Hot show race
(Kicsengetnek) - Kitchen get neck
(Nyuszi van apród?) - New see one up road?
(Van hatvankét kecském) - One hut one Kate catch came
(Határozószó) - Hut are row Zoe saw
(Hány varjú van a vetésen?) - How war you on avatation?
(Szánkó) - Sun cow
(Disznóól) - This no all
(Két nomád tacskó van a bokron túl.) - Kate no mud touch cowone a bock Ron tool.
(Bírlak!) - Beer lack!
(Szól anyu!) - Soul a new!
(Tapéta.) - Tap eat a.
(Fogpiszkáló.) - Fog peace call low.
(Tépett varjú van a fán.) - Tape at war you one a fun
Ez nekem is tetszik :D
Marha jó :D
Azt írja ki, hogy a "windows script host ezen a gépen nem érhető el".
Windows XP Prof. SP2.
Köszi
Unicodeba mentsed, akkor megy.
Nálam sem müxik. Mi lehet a baj? Tud valaki segíteni? Azt írja ki, az 1 sor 1 jelével van a gond.
Köszi
Üdv!
Köszi, ez jó...
Nagyon örülnék ha tennétek még fel ilyen VBScriptes dolgokat:)
Godrian
esetleg még azt próbálhatod meg h amikor rámész a mentés máskéntre akkor a név alatt átállítod "Minden fájl"-ra és úgy mented el
a vbs kiterjesztést semmihez nem szabad társítani, mert a windows különben nem tudja futtatni. valószínűleg neked elrontotta vmi a társítást a háttérben. össze kellene hasonlítani a registry classes_root kulcsában a vbs kiterjesztéshez tartozó adatokat egy olyan xp-s registryvel, amely képes futtatni a vbs-t. nálam most sajna vista van így nem tudok tovább segíteni. nézd megr a mappa beállítások / fájltípusok fülön, hogy mi van vbs-re beállítva és hasonlítsd össze egy működő rendszerrel.
Nekem nem működik:(Rá kattintok és megkérdezi melyik programmal akarom megnyitni.Kiválasztom a jegyzettömböt és azt nyitja meg amit innen bemásoltam.Pedig mindent úgy csináltam ahogy le van írva és a tulajdonságokban is azt mutatja, hogy vbs fájlformátum.
Köszi, ez jóóó!!