Membuat Windows Bisa Bicara

Tips ini hanya sekedar untuk mengisi waktu luang / iseng

anda saja. Kala anda sedang sendirian, tak ada teman

yang bisa diajak bicara, anda bisa coba mengajak

komputer anda untuk berbicara pada anda, berbicara

apa saja yang anda inginkan. Caranya adalah :

1.  Buat New Text Document
2.  Copy - paste script di bawah ini :

Dim msg, syamsudin

msg = inputbox ( "apa yang anda ingin katakan?", "Tulis Kalimat Anda" )

Set sapi = createobject ( "sapi.spvoice")

sapi.speak msg

3.  Kalau sudah, anda klik File (Paling atas sebelah kiri),
     terus pilih Save As...
     Beri nama apa saja terserah anda yang penting di
     akhirnya harus ber-ekstensikan vbs ( .vbs )
     Ubah juga Teks Documents (*.txt)-nya jadi All Files.
     Seterusnya anda klik 'Save'
     Lihat gambar di bawah ini :

4.  Speaker komputer anda hidupkan.
5.  Buka Text Document hasil save as tadi.
     atau (double klik) saja.
     maka akan mucul gambar seperti ini :

6.  Tulis kalimat apa saja yang anda inginkan.
     Bila kalimat yang anda tulis agak panjang,
     maka di akhir kalimatnya anda sisipkan tanda , (koma)
     Setelah itu, klik OK. Dan dengarkan ............


Selamat mencoba.
Good Luck ......