Cara Merubah Teks kedalam Suara tanpa Software

Masih dalam "suasana" Trik Windows dan Trik Komputer, kali ini saya akan berbagi cara (lagi) yang berhubungan (lagi) dengan Notepad kali ini saya akan berbagi cara merubah teks kedalam suara tanpa software eksternal. How?

Langkah-langkah Cara Merubah Teks kedalam Suara tanpa Software

Langkah 1 : Buka Notepad lalu ketik atawa copas kode di bawah ini

Dim msg, sapi

msg=InputBox("Masukan teks yang ingin dirubah– ","Oleh Cecep Jamaludin")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak msg

Langkah 2 : Simpan dengan nama Text To Voice.vbs

(cat: nama bebas sesuai selera sobat yang penting ektensi .vbs)

Langkah 3 : Klik dua kali file tersebut kemudian akan muncul jendela seperti gambar di bawah ini

Langkah 4 : Masukkan/ketik teks yang ingin di rubah kedalam suara, lalu tekan OK .... All Done, keluarlah suara sesuai teks tersebut!!

(jika teks yang sobat masukkan itu berbahasa Indonesia, Sunda, Jawa atau yang lainnya selain bahasa Inggris, maka jangan salah kalau suara/ucapan yang nantinya akan keluar seperti ala Cinta Laura gitu....gkgkgkgk. So, disarankan pakailah bahasa Inggris yang baik dan benar)

Semoga bermanfaat, Salam Inovasi ... Baca juga Cara Mengetahui Jenis Kelamin Komputer.