Script untuk membuat komputer berbicara sesuai dengan kata yang kita tulis
Assalamu'alaikum sobat nenk semua yang masih senang n suka mampir in here. Pagi ni nenk nemuin scrip yang luar biasa + lucu deh sob. bisa antum coba. Nenk juga dah coba, hehe lumayan buat lucu-lucuan. Pengen tau kan ?
Saat sekarang sudah tidak aneh lagi komputer mengeluarkan voice /
suara, membacakan untuk kita sederetan kata atau kalimat yang ada pada
suatu dokumen (text).
Tetapi tidak ada salahnya kita mencoba sendiri script sederhana untuk mengkonversi / mengubah tulisan menjadi voice, yaitu dengan menggunakan notepad.
Tetapi tidak ada salahnya kita mencoba sendiri script sederhana untuk mengkonversi / mengubah tulisan menjadi voice, yaitu dengan menggunakan notepad.
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
• Simpan file dengan nama bebas terserah anda dengan extension .vbs
( namaterserahanda.vbs ) bukan berektension .txt
udah ngerti kan ? Ingat ya nama yang disimpan titik vbs (......vbs)
• Untuk menjalankan dobel klik file yang telah dibuat, ketikkan tulisan yang ingin dikonversikan ke voice
• Klik OK untuk mendengarkan..
Sharing ke temanmu. Sumber : komputertipstrik
Salam ^_^
Tidak ada komentar:
Posting Komentar
Koment anda yang membangun sangat kami harapkan untuk catatan dan tambahan referensi selanjutnya demi kemajuan dan perkembangan pola pikir ini.
Terimakasih sahabat nenk ... salam ^_^