Rabu, 14 September 2011

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

Tidak ada komentar:

Posting Komentar