Excalibur
Info

Selamat Datang

Selamat Datang Di Blog Roy Lichtenstein- Saya Senang Anda Berada Di Sini, Dan Berharap Anda Sering Datang Kembali. Silakan Berlama - Lama Di Sini Dan Membaca Lebih Lanjut Tentang Artikel Yang Saya Susun. Ada Banyak Hal Dapat Anda Pelajari, Anda Mungkin Akan Menemukan Sesuatu Yang Menarik

Sekilas Tentang Roy

Nama saya Roy Lichtenstein, Saya Bukan Seorang Blogger, Hacker, Desainer Atau Apapun Tapi Saya Hanya Seseorang Yang Ingin Selalu Belajar Dan Ingin Tau Sesuatu Yang Baru...

Social Icons

xtreme5-roylichtenstein.blogspot.com

Cara Agar Komputer Dapat Bicara

Pasti sobat penasaran dengan judulnya, membuat komputer bisa berbicara. Kalo robot atau boneka bisa berbicara sih biasa, tapi kali ini komputer bisa berbicara. Yup, komputer yang sedang sobat pakai.... yang lebih menakjubkan lagi, ia akan berbicara sesuai dengan apa yang kita perintahkan. Nah....low, pa enggak aneh bin ajaib itu. Dari pada semakin penasaran, mending kita langsung praktek cara membuat komputer bisa berbicara:




1. Buka Notepad
2. Silakan copy paste script dibawah ini pada notepad

Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
3. Save As, lalu beri nama mypc.vbs, lalu klik tombol close.
4. Selesai..... Dan coba klik 2 kali file tersebut.

Apabila kita ingin membuatnya bicara secara otomatis ketika kita mengeklik 2 kali, tanpa mengisi form kodenya adalah sebagai berikut.

Dim msg, sapi
msg = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

Kemudian simpan. Namanya terserah, yang penting berekstensi .vbs.
Oke, Selamat mencoba

Tidak ada komentar:

Posting Komentar

Berikan Komentar Anda Dibawah Sini Jika Belum Punya Akun Google/Blogger Anda Bisa Pilih Anonymous