Buat Komputermu Bicara (VBS)

planet evolution (info) ,Halo sobat semua, lama tak bersua wakakaka, sorry nih saking sibuknya belajar sampai lupa buat posting di blog haha. Oke langsung aja, tadi sore waktu saya jalan-jalan di forum djawir kebetulan saya menemukan trik bagus, dan karena kebaikan saya, jadi saya bagikan trik itu disini, biar semua orang bisa tahu hehe.

Silahkan copas script berikut ke notepad :

Dim msg, sapi
msg=InputBox("Tulis kalimat dikolom, lalu klik OK"," wawan_berau")
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 pada File Name dgn nama apa aja dgn format / akhiran .VBS => misal tes.vbs

Untuk mengetesnya, pertama nyalakan speaker lalu ketik kalimat apa aja dikolom, setelah itu klik OK. Maka sesaat kemudian akan terdengar suara, persis seperti apa yg kita tulis kolom.


screenshot-nya
Bagus kannn...
Jadi tunggu apalagi, cobain sekarang juga