Langsung saja kita coba,
trik ini cukup sederhana kok, cuma bermodalkan notepad dan script saja.
trik ini cukup sederhana kok, cuma bermodalkan notepad dan script saja.
Cukup basa-basinya ahh, langsung saja simak nih :
• Pertama Buka Notepad kamu
• Lalu Copy kode script di bawah ini dan Pastekan pada notepad kamu.
Dim message, sapi
message=InputBox("Apa yang harus saya katakan tuan?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
message=InputBox("Apa yang harus saya katakan tuan?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
•Selanjutnya Simpan file dengan nama bebas terserah kamu yang penting dengan extension .vbs
• Untuk menjalankan dobel klik file
yang telah kamu buat tadi, lalu ketikkan tulisan apa aja yang ingin
dikonversikan ke voice/di bicarakan oleh komputer
• lalu Klik OK untuk mendengarkan..
Dan apa yang terjadi?
Komputer kamu akan berbicara sesuai dengan apa yang kamu ketikan tadi.
suaranya juga lucu. gak percaya?? dengerin aja sendiri..
selamat mencoba kawan...
selamat mencoba kawan...
semoga berhasil dan sukses selalu...
Tidak ada komentar:
Posting Komentar