Test Komputermu Bisa Berbicara Atau Tidak

Test Komputermu Bisa Berbicara Atau Tidak

Silahkan copas script berikut ke notepad :

Code:

Dim msg, sapi

msg=InputBox("Tulis kalimat dikolom, lalu klik OK"," ersan_permana")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak msg

lalu save as dalam bentuk .VBS

klik File, save as, 
pada Save as type pilih All Files. 
Beri nama file tersebut Dengan Nama Apa Saja Jangan Lupa formatnya / akhiran diberi (.VBS) => Contoh: ersanpermana.vbs

untuk mengetesnya,,
1.pertama-tama jangan Lupa nyalakan speaker Dahulu,
2.Lalu ketik kalimat apa Saja dikolom Seperti Digambar1, lalu klik OK. Maka sesaat kemudian akan terdengar suara, persis seperti apa yg kita tulis Dikolom...                                                                                                                                                                                                                                                                    

                                                                                                                                                             

GAMBAR1