Tutorial Notepad - Cara membuat komputer bicara apapun yang anda tulis

Kalau Anda ingin menghibur teman disaat waktu senggang, mungkin cara ini bisa Anda coba. Dengan trik berikut ini, hanya dengan mengikuti beberapa langkah saja maka Anda bisa membuat sebuah program sederhana dimana komputer Anda bisa berbicara apa saja yang Anda ketikkan. Teman-teman Anda mungkin akan kagum pada Anda karena bisa membuat program seperti itu. Berikut langkah-langkahnya:

1. Pertama buka notepad Anda !
2. Kemudian copy paste script dibawah ini ke notepad

Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

3. Lalu Save as, pada Save as Type pilihlah "all files", dan beri nama "namafile.vbs" (tanpa tanda kutip), misal bicara.vbs
4. Open file tersebut lalu ketikkan kata yang akan di baca, kemudian klik OK atau Enter untuk mendengarkannya.

 

      5. Atau Anda ingin komputer langsung bicara saat file di buka silahkan ganti script di atas dengan script berikut.

Dim msg, sapi
msg = "Hi, how are you doing?"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

    6. Ganti tulisan Hi, how are you doing? Dengan kata-kata yang Anda inginkan, misalnya I Love You.
       
7.   Lalu save dengan format *.vbs , misal “katakan.vbs” (tanpa tanda kutip). Untuk mendengarkannya silahkan buka file tersebut.

8.    Selamat mencoba.