20 September 2011

Buat Komputer Berbicara

Cobalah script berikut yang mampu membuat komputer berbicara.
langsung praktek aja ya :

• Buka Notepad
• Copy dan Pastekan pada notepad script berikut ini


Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

• Simpan file dengan nama bebas terserah anda dengan extension .vbs
( namaterserahanda.vbs ) bukan berektension .txt
• Untuk menjalankan dobel klik file yang telah dibuat, ketikkan tulisan yang ingin dikonversikan ke voice
• Klik OK untuk mendengarkan.


Tidak ada komentar:

Posting Komentar

Translator

English French German Spain Italian Dutch

Russian Portuguese Japanese Korean Arabic Chinese Simplified
by : Glenn Huib