|
|||||
![]()
Najprej ustvarimo nov projekt in ga poljubno poimenujemo.
|
|||||
|
|||||
![]()
Na formo, ki se nam ustvari, dodamo en gumb in textbox.
Textboxu v nastavitvah določimo Multiline na True in ga razpotegnemo po formi. Gumbu pa za tekst določimo tekst Beri.
|
|||||
|
|||||
![]()
Sedaj dvakrat kliknemo na gumb in prilepimo naslednjo kodo:
Dim SAPI SAPI = CreateObject("sapi.spvoice") SAPI.Speak(textbox1.text) |
|||||
|
|||||
![]()
Program še zaženemo in preverimo če deluje.
V vnosno polje vpišemo poljuben tekst in po kliku na gumb Beri bo program prebral naš tekst. Na žalost pa program dobro prebere samo angleške besede in ima bolj robotski glas.
|
|||||