Sabtu, 23 Januari 2010

Wow... Komputer Kita Bisa Ngomong...!!!

    Langkah-Langkah:
  • Pertama buka dulu notepad

  • Setelah itu copy code di bawah ini ke notepad:
    Dim pesan, sapipesan = InputBox ( "Apa yang Anda ingin saya katakan?", "Berbicaralah kepada-Ku")Set sapi = CreateObject ( "sapi.spvoice")sapi.Speak pesan

  • Setelah itu "Save AS" dengan nama "speak" atau terserah kalian asalkan harus diakhiri dengan .vbs. Misal, "Speak.vbs".

  • Setelah itu klik dua kali untuk membuka file tadi, maka akan keluar jendela dialog box seperti ini :
  • Setelah itu, tulis apa saja, contohnya kita tulis "hi, good morning" maka setelah klik tombol OK komputer akan mengatakan sesuai yang kita tuliskan tadi.

Tidak ada komentar:

Posting Komentar