Featuret:
* Yksi funktio, Speak(teksti$)
* Merkkijonon maksimipituus 255 merkkiä
* Ei pysäytä ohjelman suoritusta (luo uuden säikeen puhumiselle)
* Puhuu asiat peräkkäin, eli peräkkäiset kutsut laittavat merkkijonot jonoon
* Maksimissaan 32 merkkijonoa jonossa
Esimerkki ja cb:n kutsufunktio:
Code: Select all
Speak("Moikkelis")
WaitKey
Function Speak(_txt$)
_strlen = Len(_txt)
_mem = MakeMEMBlock(_strlen+4)
PokeInt _mem, 0, _strlen
_offset=4
For _i = 1 To _strlen
PokeByte _mem, _offset, Asc(Mid(_txt, _i, 1))
_offset+1
Next _i
CallDLL "SpeakDLL.dll", "Speak", _mem
DeleteMEMBlock _mem
End Function