ScreenShot :
1. Buka Notepad
2. tulis Code dibawah ini
Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("Sapi.spvoice")
sapi.Speak msg
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("Sapi.spvoice")
sapi.Speak msg
Note: code yang berwarna merah dapat diubah sesuai keinginan Anda
3. Save dengan nama apa saja dengan format .vbs
contoh: sapi.vbs
4. Klik 2 kali program .vbs yang anda simpan dalam komputer
5. Tulis dalam textboxt dan tekan OK
6. Komputer Anda akan berbicara sesuai dengan apa yang di input
Sumber: Disini
.
Tidak ada komentar:
Posting Komentar