membuat kompi bisa bicara

[bostempe]

niat baik, cuma mau sharing doang ..

sorry kalo



nih cara biar kompi bisa ngeluarin suara, (walupun belepetan D: )




[/quote][quote]





1. Buka Notepad



2. Silakan copy paste script dibawah ini pada notepad





Dim msg, sapi



msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")



Set sapi = CreateObject ( "sapi.spvoice")



sapi.Speak msg



3. Save As, lalu beri nama mypc.vbs, lalu klik tombol close.



4. Selesai..... Dan coba klik 2 kali file tersebut.





Apabila kita ingin membuatnya bicara secara otomatis ketika kita mengeklik 2 kali, tanpa mengisi form kodenya adalah sebagai berikut.





Dim msg, sapi



msg = "Ganti dengan kata-kata anda"



Set sapi = CreateObject ( "sapi.spvoice")



sapi.Speak msg





Kemudian simpan. Namanya terserah, yang penting berekstensi .vbs





cuma sekedar share,, maaf kalo