Ada trik buat anda yang suka iseng- iseng dengan komputer, kali ini kita akan membuat komputer kita bisa berbicara sesuai dengan kemauan kita. Cukup dengan menuliskan kata- katanya dan komputer akan berbiacara.
Aplikasi yang digunakan adalah aplikasi bawaan windows, yaitu notepad.
Cara membuat komputer bisa berbicara adalah sebagai berikut:
1. pertama buka notepad di komputer anda
2. copy kode di bawah ini:
Dim msg, bicara
msg = "isikan kata- kata anda di sini"
Set bicara = CreateObject ( "bicara.spvoice")
bicara.Speak msg
3. lalu save, perlu diingat untuk menyimpannya anda ganti type filenya menjadi All files dan simpan dengan nama voice.vbs
secara otomatis jika file tersebut dijalankan maka komputer akan mengucapkan kata isikan kata- kata anda di sini, untuk penginputan kata secara manual anda bisa mengganti kode diatas dengan kode ini:
Dim msg, bicara
msg = InputBox ( "isikan kata- kata anda di sini", "http://bloggertrik.blogspot.com")
Set bicara = CreateObject ( "bicara.spvoice")
bicara.Speak msg
langsung dicoba ya......
Tidak ada komentar:
Posting Komentar