Maaf klo mainan program ini dah lama basi...
tapi masih bisa di angetin kan ...hehehe,,,
lumayan buat iseng...OK langsung aja...
Pertama Kopas aja script dibawah ini di notepad
yang di dalam garis aja ya..=================================================
Dim msg, jahtra
msg=InputBox("Isi kalimat dibox, lalu klik OK","teknik vbs")Set jahtra=CreateObject("sapi.spvoice")
jahtra.Speak msg==================================================
kemudian "save" dengan teknik.vbs
Buat cobain nya, nyalain dahulu headset / speaker terserah ,trus ente ketik aja kata apa aja di dalam box, trus klik OK.
Nah... keluar khan suara seperti yg udah ente ketik tadi walaupun masi pake spell an dalam bahasa Inggris...
tapi masih bisa di angetin kan ...hehehe,,,
lumayan buat iseng...OK langsung aja...
Pertama Kopas aja script dibawah ini di notepad
yang di dalam garis aja ya..=================================================
Dim msg, jahtra
msg=InputBox("Isi kalimat dibox, lalu klik OK","teknik vbs")Set jahtra=CreateObject("sapi.spvoice")
jahtra.Speak msg==================================================
kemudian "save" dengan teknik.vbs
Buat cobain nya, nyalain dahulu headset / speaker terserah ,trus ente ketik aja kata apa aja di dalam box, trus klik OK.
Nah... keluar khan suara seperti yg udah ente ketik tadi walaupun masi pake spell an dalam bahasa Inggris...
No comments:
Post a Comment