Minggu, 16 Januari 2011

Cara bikin Komputer anda Bisa ngomong sendiri

Sebelumnya, pasti kalian semua bertanya tanya. emang bisa ???
okelah kalau agan agan masih
belum percaya ini dia carannya..




1. Buka Notepad
2. Copas Script di bawah ini 

      Dim msg, sapi
      msg = InputBox ( "Apa yang Anda ingin saya katakan?",  "Masukan

       kata-kata")
       Set sapi = CreateObject ( "sapi.spvoice")
       sapi.Speak msg

3. Kalau sudah COpas,  klik save as ini dengan nama mypc.vbs
4. Dan terakhir klik 2 kali pada file hasil save an anda...

Selamat ber eksperimen!!

Son_inside

Tidak ada komentar:

Posting Komentar