Membuat Komputer "Berbicara"

classic Classic list List threaded Threaded
3 messages Options
Reply | Threaded
Open this post in threaded view
|

Membuat Komputer "Berbicara"

Aphe
Langsung aja bro :

Buka notepad dan copas kode berikut

Dim msg, aphe
msg=InputBox("Masukkan Kalimat","Ngomong Dong")
Set aphe=CreateObject("sapi.spvoice")
aphe.Speak msg

simpan dengan nama apapun.vbs dan jalankan...
Setelah itu masukkan atau ketik kata2 yang diinginkan...
Nyalakan speaker sekeras mungkin dan "ENTER"...

Bwt iseng aja bro..semoga menambah pengetahuan kita.
.:: Belajar untuk terus maju ::.
Reply | Threaded
Open this post in threaded view
|

Re: Membuat Komputer "Berbicara"

al_mun
pengen nyoba nih,,, tp sayang banget, kompie ku ga da speakernya...
Reply | Threaded
Open this post in threaded view
|

Re: Membuat Komputer "Berbicara"

IMSOIM
mantap juga tuh nanti ane coba.........
imsoim