kalo begitu langsung saja ikuti langkah-langkah berikut:
1)buka notepad
2)salin teks dibawah ini
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
3)simpan file tersebut dengan format .vbs (contoh: Speak.vbs)
4) lalu buka file tersebut dan masukan text yang anda inginkan
5) pilih ok dan dengarkan
sekarang anda bisa membuat komputer anda mengatakan apa yang anda ketik
namun program ini hanya bisa berbicara dengan bahasa inggris
jadi anda juga bisa belajar cara pengejaan bahasa inggris yang tepat dari program ini
terima kasih
semoga bermanfaat
Tidak ada komentar:
Posting Komentar