Senin, 27 Desember 2010

cara buat komputer berbicara dengan aplikasi buatan sendiri

Hehehehehe kali ini saya akan mempublikasikan sebuah aplikasi yang dapat kalian buat sendiri. Awal penjelajahan saya di remo-xp dan ada hal yang unik saat saya membuka dokumen" di sana, saya menemukan sebuah post berjudul "Membuat Komputer Berbicara". Pasti kalian bingungkan bagaimana cara membuat komputer berbicara ! Yak langsung saja Ke TKP
Caranya mudah sekali, yaitu :
  1. Pertama, buka notepad.
  2. Copy-Paste script berikut :
  3. Dim msg, sapi
    msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
    Set sapi = CreateObject ( "sapi.spvoice")
    sapi.Speak msg

  4. Save as, kemudian pilih all files lalu kasih nama mypc.vbs
  5. Selesai
Mudahkan cara buatnya !!!
Ooooo ia ada yang kelupaan
atau kalau yang nggak mau menggunakan InputBox (Jadi pas di klik 2x langsung berbicara tanpa perlu memasukan kata-kata). Scriptnya seperti ini :

Dim msg, sapi
msg = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg


Jangan lupa komentarnya !!!

0 komentar:

Posting Komentar