Membuat Windows Berbicara bagai Robot

Rangga Blog | Robot adalah sebuah alat mekanik yang dapat melakukan tugas fisik, baik menggunakan pengawasan dan kontrol manusia, ataupun menggunakan program yang telah didefinisikan terlebih dulu.

Nah pada kesempatan ini Rangga blog akan mencoba memberikan sedikit hiburan buat rekan-rekan semua... hehehehehe.... Kita akan belajar membuat windows yang kita gunakan bisa berbisara.... sekarang kita coba ya...


1.buka notepad terus copas code ini :



Const ForReading = 1
strText = InputBox("Masukkan nama file yang akan di baca, harus ekstensi .txt","Baca file txt dengan Notepad by INTIFADHA")
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


2. terus save dengan akhiran .vbs, nama file bebas. (misal : robot.vbs)

3. beres deh...

4. nah selanjutnya buka notepad baru,..terus ketik kalimat ato apa kek (misal : troy cowo ).terus save gak usah pake vbs klo yang ini mah..biasa aja, akhiran nya pake .txt, nama file bebas (misal : 1.txt)

5. klo dah selesai.. buka file vbs tadi, terus ketik disitu nama file notepad yang akan dibaca tadi,yang ada troy cowo nya (contoh nama filenya : 1)

6. selesai deh..bisa ngomong kan..