Cara membuat komputer bicara:
- Pertama, buka Notepad.
- Copy-Paste script berikut ke Notepad:
- Save as, kemudian pilih “All Files”, lalu beri nama “mypc.vbs” (tanpa tanda kutip).
Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")Set sapi = CreateObject ( "sapi.spvoice")sapi.Speak msg
- Cari file tadi (di tempatnya disimpan) dan klik 2 kali, lalu ketikkan kata-kata yang ingin diucapkan komputer.
Atau kalau ingin komputer langsung bicara begitu diklik, copy dan paste script ini ke Notepad:
Dim msg, sapi
msg = "Hi, how are you doing?"Set sapi = CreateObject ( "sapi.spvoice")sapi.Speak msg
Ganti tulisan merah dengan kata-kata Anda sendiri, lalu Save as, dan beri nama “mypc.vbs”.
Sudah. Mudah, kan? Selamat mencoba
0 komentar:
Posting Komentar