Kali ini aplikasi kerennya adalah mesin yang bisa berbicara. Iya, saat kita mengetikkan sesuatu maka kata yang diketik tadi akan berubah menjadi suara. Penasaran? Ini dia triksnya:
1. Buka notepad
2. Copy tulisan berikut
Dim msg, sapi
msg=InputBox("silakan ketik","Mesin Bisa Bicara")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
3. Pastekan di notepad
4. Save nama kamu dan ditambahkan pada akhirnya .vbs
Contoh: Denta.vbs
5. Buka aplikasinya dan jalankan
Sekian postingan ini, kurang lebihnya mohon maaf, sampai jumpa,,,
Tidak ada komentar:
Posting Komentar