Minggu, 01 Mei 2011

Membuat Software Text to Speech sederhana


Membuat Software Text to Speech sederhana

Buat software text to speech converter Anda sendiri
untuk membuat komputer Anda berbicara apapun yang Anda ketik.




Langkah

1. Buka Notepad.

2. Copas kode di bawah ini ke notepad.

Code:
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

3. Simpan file, beri nama apapun dengan ekstensi .vbs

4. Jalankan file tersebut, ketik kata apa saja didalam textbox dan tekan OK.

5. Enjoy it!

Tidak ada komentar: