Membuat komputer berbicara

Di sini adalah cara membuat komputer membaca apa saja yang kita tulis.
caranya mudah saja,bukalah notepad kemudian copy-paste kode berikut

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

Setelah itu save file tersebut ke desktop dengan nama speak.vbs
jangan lupa untuk memasang speaker atau headphone.selamat mencoba.


Tweet