Megafon pod ręką
Czy wiecie, że korzystając z systemowego Notatnika da się zaimprowizować syntezator, który odczyta wpisany tekst?
Wystarczy edytor
Aplikacja Notatnik pojawiła się już w systemach z rodziny Windows 3.x, uruchamianych na szesnastobitowych komputerach z procesorami 8086, 8088 i 80286. Program jest, wydawałoby się, zupełnie nieskomplikowany – a tymczasem zapisanie w nim kilku poleceń daje zaskakujące rezultaty.
Niech przemówi skrypt
Spróbujemy uruchomić syntezator dźwięku korzystając właśnie z Notatnika. Oczywiście można użyć dowolnego edytora, ale Notatnik jest zawsze pod ręką. Wpiszmy w nim zatem następujące komendy:
Dim message, sapi
message=InputBox("Tekst do odczytania","Czytam")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
Teraz wystarczy zapisać dokument, nadając plikowi rozszerzenie VBS. Niech trafi on na systemowy Pulpit i nosi nazwę Przeczytaj.vbs:
Gdy dwukrotnie klikniemy ikonę pliku, pojawi się okienko, do którego można wpisać jakikolwiek tekst:
Po naciśnięciu klawisza [Enter] zostanie uruchomiony syntezator, który całkiem nieźle radzi sobie z odczytywaniem polskich słów, choć niektóre (na przykład „gżegżółka") są dla niego jednak zbyt trudne.
