Cara Buat Komputermu Bicara

Dari dulu saya penasaran akan hal ini, saya pikir komputer bicara hanya ada di film fiksi saja. Tak disangka pas lagi surfing di lintasberita.com, saya dapat artikel yang gokil abis. Isi artikel itu kira-kira sama dengan yang akan saya paparkan di sini. Saya seakan terkesima, ternyata membuat komputer bicara hanya perlu Notepad! Penasaran?

Cara membuat komputer bicara:

• 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).
  

  mypc.vbs

• Cari file tadi (di tempatnya disimpan) 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”.

Sudah. Mudah, kan? Selamat mencoba

Special thanks to: Zona Maya Info

About these ads