Tau gak kalian kalau komputer itu bisa bicara? Pasti bisa dong, dengan utak-atik sana sini dengan mainin vbs kita bisa membuat komputer kita berbicara seperti halnya manusia.. Mau tahu? Cekidot aja buat sahabatAdScienceBlog...
Ikuti petunjuk berikut :
Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
-Save as, kemudian pilih "All Files", lalu beri nama "mypc.vbs" (tanpa tanda kutip).
-Cari file tadi 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".
Selamat bereksperimen sahabat :) jangan bosan untuk selalu membaca di sini :) .
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
-Save as, kemudian pilih "All Files", lalu beri nama "mypc.vbs" (tanpa tanda kutip).
-Cari file tadi 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".
Selamat bereksperimen sahabat :) jangan bosan untuk selalu membaca di sini :) .
Bagikan
Tips dan Trick Komputer anda menjadi bicara.
4/
5
Oleh
IZAL
1 komentar:
Tulis komentarHehe.. Thanks gan.
Reply