Sabtu, 12 Mei 2012

CARA MEMBUAT KOMPUTER BICARA

Cara membuatnya gampang, pertama buka Notepad
Kemudian Copy Paste Script berikut :

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

[Image: 1_1a.jpg]



Selesai


[Image: 2_mypc.jpg]

Coba sekarang anda dobel klik file tersebut apa katanya? … [Image: 21.gif]

[Image: 1_1b.jpg]



Atau kalau yang nggak mau menggunakan InputBox (Jadi pas di klik dua kali langsung berbicara tanpa perlu memasukan kata-kata). Scriptnya seperti ini :

Dim msg, sapi
msg = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg


Selamat Mencoba [Image: icon1.gif]

Baca juga tulisan menarik lainnya

Tidak ada komentar:

Posting Komentar

========================================================
SILAHKAN BERKOMENTAR DENGAN SOPAN
MEMBERI SARAN DAN KRITIK YANG MEMBANGUN
SERTA BERTANYA JIKA ADA KESULITAN DARI POST YG ADA
LEBIH BAIK BERKOMENTAR, DARI PADA TIDAK SAMA SEKALI
========================================================