PROGRAM MENGUBAH TEXT MENJADI SUARA

Pertama – tama kencangkan volume speaker PC/Laptop anda terlebih dahulu agar dapat terdengar suara text tersebut. Kalian tidak perlu menginstall program aneh – aneh cukup dengan menggunakan “Notepad”. Okay, Show time.

1. Buka Notepad
2. Silahkan kalian copy atau ketik script di bawah ini di notepad kalian :

Dim objeksuara, isiteks, suara
Set objeksuara = CreateObject("SAPI.SpVoice")
suara = objeksuara.Speak("Hi, What is your name?", 0)
Suara_Monkey()
sub Suara_Monkey()
On Error Resume Next
isiteks = ""
isiteks = InputBox("Isi teks apa saja yang anda inginkan dibawah ini kemudian klik OK." &  Chr(13)+Chr(10) & Chr(13)+Chr(10) & _
           "Anda dapat menggunakan tanda (!), (.), (,) agar teks yang diubah menjadi suara lebih sempurna.", "Suara Maho", "Masukan text kalian disini")
If Trim(isiteks) = "" Then
    if msgbox ("Anda ingin melanjutkannya?", 33, "Suara Maho") = 1 then
    Suara_Monkey()
    Else
    suara = objeksuara.Speak("Goodbye... You fucking asshole!", 0)
    End if
Else
    suara = objeksuara.Speak(isiteks, 0)
    Suara_Monkey()
End If
Exit sub
End sub

3. Setelah selesai save file tersebut dengan format .vbs

Bagi yang tidak tahu cara menyimpannya berikut saya jelaskan langkah – langkahnya :

• Pilih Menu dan klik Save As
• Pilih lokasi penyimpanan file suara ini
• Di kolom File name isikan nama file tersebut sesuka anda misalnya text_voice.vbs

*.vbs adalah file extension dari program suara ini

• Dan terpenting di kolom Save as type pilih All Files

*Apabila ketika kalian memilih All Files dan di nama file anda berubah misalnya text_voice.vbs.txt hapus tulisan .txt tersebut

• Dan ini adalah bagian paling penting dari semua proses diatas, klik tombol SAVE agar file tersebut tersimpan :D

Nah, sekarang silahkan kalian coba buka file tersebut dengan meng-klik dua kali file tersebut. Silahkan anda coba ketik file sesuka anda dan dengarkan suara dari text yang kalian ketik.