Membuat KOmputer Berbicara
Copas Code Di bawah Ini Ke Notepad save dgn Ekstensi Vbs
Dim msg, sapi
msg=InputBox("Tulis kalimat disini, lalu klik OK","Dedicated For Putera Batam Only")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
Kalau ok jgn lupa berkunjung kesini atau kesini
Tidak ada komentar:
Posting Komentar