membuat komputer berbicara

Tips ini hanya sekedar untuk mengisi waktu luang / iseng Sobat saja. tak ada teman yang bisa diajak bicara, anda bisa coba mengajak komputer sobat untuk berbicara pada anda, berbicara apa saja yang anda inginkan. Caranya adalah menggunakan notepad :

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

Dim msg, inot_febriani_jevisa

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 sobat hidupkan.
5.  Buka Text Document notepad hasil simpanan / 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 ............



bila malas membuatnya anda ckup download  disini : inot_febriani_jevisa

Selamat mencoba. (Inot_Febriani_Jevisa)