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
• 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...
Sign up here with your email
3 komentar
Write komentarThankz.. Gan.. Tutorialnya mantap :D Sukses Selalu
ReplyBy Rio
bro kalau mau ngehapus/ngembali'in ky semula gimana...?
Replyganti aja komputernya
ReplyConversionConversion EmoticonEmoticon