Cara membuat komputer berbicara
-Pertama, buka Notepad.
-Copy-Paste script berikut ke Notepad:
Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
-Save as, kemudian pilih "All Files", lalu beri nama "mypc.vbs" (tanpa tanda kutip).
-Cari file tadi dan klik 2 kali, lalu ketikkan kata-kata yang ingin diucapkan komputer.
Atau kalau ingin komputer langsung bicara begitu diklik, copy dan paste script ini ke Notepad:
Dim msg, sapi
msg = "Hi, how are you doing?"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Ganti tulisan merah dengan kata-kata Anda sendiri, lalu Save as, dan beri nama "mypc.vbs".
Selamat mencoba...
Jika ada kesalah dalam penulisan kata yang kurang berkenan di hati anda saya mintak maaf.. karena saya masih penuh dengan kekurangan.. apabila ada kekurangan tolong sampaikan melalui komentar anda.. Tertanda :
