Sunday, June 10, 2012

Tips membuat komputer berbicara



Pertama sekali agan buka notepad.Copy-Paste kan script berikut :
Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

lalu Save as, kemudian pilih all files lalu kasih nama mypc.vbs
 

Contoh tampilan Program nya seperti ini,


tinggal kamu ketikkan kata-kata yang mau diungkapin 

Nah tahap pertama Selesai
Coba sekarang sobat klik dua kali mypc.vbs
Atau kalau sobat tak mau menggunakan InputBox
atau kalau sobat tak mau repot 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
Selamat Mencoba semoga anda tergolong orang yang beruntung..! Salam.....

0 comments:

Post a Comment