Kamis, 21 November 2013

CARA MEMBUAT KOMPUTER ANDA BERBICARA

INILAH CARA MEMBUAT KOMPUTER ANDA BERBICARA


Berikut ini Cara Membuat Komputer Berbicara

1. Buka notepat sobat.
2. Copy script berikut.



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

3. Save as, kemudian pilih "All Files", lalu beri nama "mypc.vbs" (tanpa tanda kutip)
4. open file tersebut lalu ketikkan kata yang akan di baca
5. done!!

Atau mau komputer berbicara saat membuka file ganti script di atas dengan script di bawah ini.

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

Ganti  Hi, how are you doing? dengan kata yang sobat  inginkan.


SELAMAT MENCOBA

Tidak ada komentar:

Posting Komentar

Kamis, 21 November 2013

CARA MEMBUAT KOMPUTER ANDA BERBICARA

INILAH CARA MEMBUAT KOMPUTER ANDA BERBICARA


Berikut ini Cara Membuat Komputer Berbicara

1. Buka notepat sobat.
2. Copy script berikut.



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

3. Save as, kemudian pilih "All Files", lalu beri nama "mypc.vbs" (tanpa tanda kutip)
4. open file tersebut lalu ketikkan kata yang akan di baca
5. done!!

Atau mau komputer berbicara saat membuka file ganti script di atas dengan script di bawah ini.

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

Ganti  Hi, how are you doing? dengan kata yang sobat  inginkan.


SELAMAT MENCOBA

Tidak ada komentar:

Posting Komentar