GuidePedia

0


-Pertama, buka Notepad.
-Copy-Paste script berikut ke Notepad:

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

-Save as, kemudian pilih 'All Files', lalu beri nama 'mypc.vbs' (tanpa tanda kutip).
-Cari file tadi dan klik 2 kali, lalu ketikkan kata-kata yang ingin diucapkan komputer.


Atau kalau ingin komputer langsung bicara begitu diklik, copy dan paste script ini ke Notepad:

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

Ganti tulisan merah dengan kata-kata Anda sendiri, lalu Save as, dan beri nama 'mypc.vbs'.

Selamat mencoba...

http://hermawayne.blogspot.com/
Kirim tips anda yg lebih menarik di sini !

Post a Comment Blogger

Beli yuk ?