Senin, 06 Desember 2010

MEMBUAT LAPTOP LOE BICARA

hehe Bingung pasti loe baca judulnya cuy,,, 
kalo loe bete sendirian gak ada temen curhat jangan sedih ini bisa jadi solusinya...loe curhat aja sam laptop loe biar gila2 sendiri ... hehe 

gini ku mau share caranya gampang aja anak kecil juga bisa cuy... lo loe gak bisa kalah sama anak kecil brarti langsung ja gan...

1. nootepad loe pasti tau notepad klo gak tau tanya sama tetanggamu deh...
2. loe copy script dibawa ini :
    Dim msg, sapi msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata") Set sapi = CreateObject ( "sapi.spvoice") sapi.Speak msg
3. loe save as, terus pilih all files terus kasih nama apa aja contoh "harry.vbs"
4. selesai, nah sekang buka file tadi dan klik 2 kali jika udah terbuka masukin kalimat apa aja klik ok

jika pengen waktu diklik 2 kali langung bisa bicara masukin skripnya seperti ini

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

saveas juga sama aja caranya kyk diatas cuy,,,

nah loe ajak deh tu laptop curhat biar gila-gila sendiri ... 

Koment dibawah ini jika loe suka atau gak ...thanks...

Tidak ada komentar: