Monday, May 21, 2012 at 1:59 PM with ≡
1. Buka Notepad mu :D
2. Copy code ini dan paste di notepadmu:
Dim msg, sapi
msg = "Kata-katamu"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
P/S ganti dengan kata-katamu*kalau aku Hallo Lulu*3. Kemudian File >> Save as, lalu all file dan beri nama mypc.vbs
4. Selesai! coba teman" klik 2x di aplikasi mypc.vbs nanti akan bersuara XD keren'kan?
Oh iya kalau kamu ingin tulis textnya nanti kamu ganti kode tadi dengan kode yg ini:
Dim msg, sapikemudian save as, all file beri nama mypc.vbs kalau suda klik 2x kalau pakai cara itu nanti akan muncul tampilan seperti ini:
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukankata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
tulis kata-katamu! lalu klik ok dan lihat hasilnya! XD
100% work
