Pada postingan kali ini saya akan sharing tentang trik untuk membuat komputer kita berbicara.. Lho kok bisa ya ? ya iya lah, orang kita sudah masuk era tekhnologi modern ini kok (hehe). Tapi sayangnya suara yang dihasilkan bukan suara merdu layaknya penyanyi atau artis githu lo, Ini adalah suara defaultnya bawaan windows, yang sering disebut Microsoft Sam..
Oke langsung aja gan ...
Oke langsung aja gan ...
- Langkah pertama adalah buka notepad
- Terus copy pastekan kode di bawah ini
Dim msg, sapi msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata") Set sapi = CreateObject ( "sapi.spvoice") sapi.Speak msg - setelah itu save as filenya dengan nama sesuka anda tapi dengan ekstensi .vbs
contoh : suara.vbs
note: jangan lupa save as file tipenya all file - Selesai deh. Tinggal di test
double klik aja file-nya...
Atau kalau yang nggak mau menggunakan InputBox (Jadi pas di klik 2x langsung berbicara tanpa perlu memasukan kata-kata). Scriptnya seperti ini :
Dim msg, sapi
msg = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Tips ini sudah saya coba dan hasilnya : 100% Tested n Worked..!!
Dim msg, sapi
msg = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Tips ini sudah saya coba dan hasilnya : 100% Tested n Worked..!!
0 komentar:
Posting Komentar