Tutorial kali ini saya akan coba menjelaskan cara untuk membuat komputer kita dapat berbicara tanpa bantuan software.
1. Buka notepad ( Start >> All Programs >> Accesories >> Notepad )
2. Masukkan kode dibawah ini :
Dim msg, sapi
msg=InputBox(”Tulis kalimat dikolom, lalu klik OK”,”agung bima | Klikbelajar.com”)
Set sapi=CreateObject(”sapi.spvoice”)
sapi.Speak msg
3. Simpan dengan nama bicara.vbs ( File >> Save As [...]

Quotes

"Fill what's empty; empty what's full; scratch where it itches."

-Longworth-

Kategori

open all | close all

Author Terbaru

Total: 3500 Author

Mini Statistik

Jumlah tulisan sebanyak 609 tulisan

Jumlah komentar sebanyak 6275 komentar

Jumlah soal yang ada di ujian online sebanyak 599 soal