Sebuah komputer dapat bersuara dengan menyetel media audio atau video?? itu hal biasa. Bagaimana jika sebuah komputer dapat bersuara karena membaca apapun yang kita tulis?? pasti menarik nih...

Mungkin kamu pernah ingin membaca e-book atau tulisan dalam MS.Word atau apapun dalam file komputer kamu dan kebetulan tulisannya banyak banget sampai-sampai kamu bosan untuk membacanya. Mungkin trik ini dapat membantu kamu mencarikan seorang asisten untuk membacakan tulisan tersebut. Siapa asisten tersebut?? ya tentu saja komputer kamu, komputer kamu akan membacakan apapun tulisan yang ingin kamu baca, tidak peduli apakah komputer kamu itu tipe lama atau keluaran terbaru. Mau tau caranya?? mari ikuti langkah mudah dibawah ini:

Pertama-tama kamu buka program notepad, atau bisa klik start - run lalu ketikkan notepad.exe

setelah itu silahkan copy paste coding dibawah ini:

Dim message, sapi
message=InputBox("Silahkan ketik apaun yang ingin saya bacakan?","Komputer Berkata

----www.get2ware.co.cc----")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message



Dan setelah selesai, kamu Save As dan beri nama reader.vbs jika sudah, coba kamu jalankan file rider.vbs tadi lalu ketikkan beberapa kalimat yang kamu inginkan untuk dibaca oleh komputer kamu, lalu klik OK

semoga bermanfaat


1 komentar:

Devata'Code Daniels mengatakan...

Numpang lihat gan...

Posting Komentar