Berikut caranya
1. klik start => ketik "notepad" lalu enter
2. ketik atau salin kode berikut di notepad
Dim Message, Speak
Message=InputBox("Ketik kata yang ingin di ucapkan","ILFEN")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
3. setelah itu save dengan nama speak.vbs selesai.
untuk menjalankannya klik 2 kali pada program yang tadi di buat lalu ketikkan kata yang ingin di ucapkan .
selamat mencoba
Tidak ada komentar:
Posting Komentar