Dim msg, sapi
msg=InputBox("Tulis kalimat dikolom, lalu klik OK"," RR Net")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
Silahkan copas script di atas lalu save as dalam bentuk .VBS
klik File, save as, pada Save as type pilih All Files. Beri nama file pada File Name dgn nama apa aja dgn format / akhiran .VBS => misal RR Net.vbs
untuk mengetesnya, pertama nyalakan speaker lalu ketik kalimat apa aja dikolom, lalu klik OK. Maka sesaat kemudian akan terdengar suara, persis seperti apa yg kita tulis kolom...
msg=InputBox("Tulis kalimat dikolom, lalu klik OK"," RR Net")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
Silahkan copas script di atas lalu save as dalam bentuk .VBS
klik File, save as, pada Save as type pilih All Files. Beri nama file pada File Name dgn nama apa aja dgn format / akhiran .VBS => misal RR Net.vbs
untuk mengetesnya, pertama nyalakan speaker lalu ketik kalimat apa aja dikolom, lalu klik OK. Maka sesaat kemudian akan terdengar suara, persis seperti apa yg kita tulis kolom...
Tidak ada komentar:
Posting Komentar