bostempe
27th May 2012, 06:19 PM
niat baik, cuma mau sharing doang ..
sorry kalo :repost:
nih cara biar kompi bisa ngeluarin suara, (walupun belepetan D: )
[/quote][quote]
1. Buka Notepad
2. Silakan copy paste script dibawah ini pada notepad
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, lalu beri nama mypc.vbs, lalu klik tombol close.
4. Selesai..... Dan coba klik 2 kali file tersebut.
Apabila kita ingin membuatnya bicara secara otomatis ketika kita mengeklik 2 kali, tanpa mengisi form kodenya adalah sebagai berikut.
Dim msg, sapi
msg = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Kemudian simpan. Namanya terserah, yang penting berekstensi .vbs
cuma sekedar share,, maaf kalo :repost: :D
</div>
sorry kalo :repost:
nih cara biar kompi bisa ngeluarin suara, (walupun belepetan D: )
[/quote][quote]
1. Buka Notepad
2. Silakan copy paste script dibawah ini pada notepad
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, lalu beri nama mypc.vbs, lalu klik tombol close.
4. Selesai..... Dan coba klik 2 kali file tersebut.
Apabila kita ingin membuatnya bicara secara otomatis ketika kita mengeklik 2 kali, tanpa mengisi form kodenya adalah sebagai berikut.
Dim msg, sapi
msg = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Kemudian simpan. Namanya terserah, yang penting berekstensi .vbs
cuma sekedar share,, maaf kalo :repost: :D
</div>