Membuat Aplikasi Untuk Merubah Teks Menjadi Suara

   Aplikasi ini berekstensi vbs.Kalian pasti sedang mencari-cari cara merubah teks menjadi suara.Kalian ingin membuat aplikasi ini agar PC kalian terlihat canggi haha....
OK Cekiproott...

Bahan :
-Jahe Susu

-NotePad
-Kaca/Cermin

Caranya :

• Copy Teks dibawah ini :

Dim objeksuara, isiteks, suara<br /><ol></ol> Set objeksuara = CreateObject("SAPI.SpVoice")<br /><ol></ol> suara = objeksuara.Speak("Programmer, Gempur Bayu Aji", 0)<br /><ol></ol> Suara_Gempur()<br /><ol></ol> sub Suara_Gempur()<br /><ol></ol> On Error Resume Next<br /><ol></ol> isiteks = ""<br /><ol></ol> isiteks = InputBox("Isi teks apa saja yang anda inginkan dibawah ini kemudian klik OK." &  Chr(13)+Chr(10) & Chr(13)+Chr(10) & _<br /><ol></ol> "Anda dapat menggunakan tanda (!), (.), (,) agar teks yang diubah menjadi suara lebih sempurna.", "Suara Maho", "Gempur Bayu Aji")<br /><ol></ol> If Trim(isiteks) = "" Then<br /><ol></ol> if msgbox ("Anda ingin melanjutkannya?", 33, "Suara Maho") = 1 then<br /><ol></ol> Suara_Gempur()<br /><ol></ol> Else<br /><ol></ol> suara = objeksuara.Speak("Goodbye...!", 0)<br /><ol></ol> End if<br /><ol></ol> Else<br /><ol></ol> suara = objeksuara.Speak(isiteks, 0)<br /><ol></ol> Suara_Gempur()<br /><ol></ol> End If<br /><ol></ol> Exit sub<br /><ol></ol> End sub</div>

• Paste di NotePad
• Save Dengan Ekstensi File .vbs dan save as type "All Files"  [Seperti Gambar dibawah]

• Klik Save 
• Finish
• Coba aplikasinya,kalau tidak bisa berarti anda harus mengambil bahan yang ketiga yang diatas tadi lalu lihat..apakah ada masalah dimuka kalian ?? HAHA..

Yang Mau Download langsung :

password : gempura7x

Sekian dari artikel saya,semoga bermanfaat bagi kalian