Membuat komputer bisa bicara

hahah Big Grin
dari nama'a saja mungkin anda sudah bingung..apaan cie nich..!!

sorry ya kk klo tried nich kurang ada ke ganjalan tolong di tutup ajahh..
Angel

ywd langsung ajahh jgn belibet-libet banget..

langkah :
1. kita buka notepad
2. copy paste scrift berikut

Quote: 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, kemudian pilih all files lalu kasih nama mypc.vbs
4. selesai

Coba sekarang anda klik 2x.. Gimana?? keren kan?? hehe

Atau kalau yang nggak mau menggunakan InputBox (Jadi pas di klik 2x langsung berbicara tanpa perlu memasukan kata-kata). Scriptnya seperti ini :

Quote:Dim msg, sapi
msg = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

gmna kk ya nich cie wat permainan ajahh yar gak terlalu pucing..hehehe


0 komentar to "Membuat komputer bisa bicara"

Posting Komentar