MEMBUAT KOMPUTER BERBICARA #2

Ada banyak fungsi yang dapat kita gunakan dengan menggunakan aplikasi word bawaan dari windows, yaitu notepad. Kali ini saya akan berbegi tentang bagaimana cara menggunakan notepad untuk membuat komputer kita berbicara dengan aplikasi notepad ini.
Pertama kita buka dulu Notepad dengan cara Start -> All Programs -> Accessories -> Notepad atau bisa langsung dengan klik Start, lalu ketikkan pada Search all files, ketikkan notepad, lalu pilih notepad.
Paste-kan scrip berikut :

[code=’css’]Const ForReading = 1
strText = InputBox ( “Masukkan nama file yang akan di baca, harus ekstensi .txt”,”Baca file txt dengan Notepad by kentos.web.id”)
Set objFSO = CreateObject( “Scripting.FileSystemObject”)
Set objText = objFSO.OpenTextFile(strText + “.txt”, ForReading)

strText = objText.ReadAll

objText.Close

Set Sapi = Wscript.CreateObject(“SAPI.SpVoice”)

Sapi.speak strText[/code]

Lalu simpan file dengan nama terserah anda dan ekstensi .vbs (harus).
Jalankan lagi aplikasi notepad, kali ini untul menyiapkan bahan yang akan dibaca oleh komputer nantinya, lalu tulis kata yang ingin muncul di audio nanti.
Simpan seperti biasa, tanpa merubah ekstensi .vbs .
Setelah itu, buka file .vbs yang tadi anda simpan. Kemudian masukkan nama file.txt yang telah dibuat kedua ( tanpa .txt).
Klik OK, lalu tunggu dan dengarkan.
Sekarang komputer anda sudah bisa berbicara bukan?

Untuk tips membuat komputer dapat berbicara, dapat dibaca di SINI dan di SINI .

Yaps, sekian dulu semoga dapat menambah pengetahuan, dan bermanfaat ..





Sumber :

http://kentos.web.id/