demokrat
27th May 2012, 02:55 PM
Anda ingin komputer anda dapat berbicara untuk membaca setiap apa yang anda tulis tanpa bantuan software?
Ikuti petunjuk berikut ini :
1. Buka Star>Program>Accecoris>Notepad.exe
2. Copy kode dibawah ini pada Notepad
Dim msg, sapi
msg=InputBox(�Enter your text�,�Talk it�)
Set sapi=CreateObject(�sapi.spvoice�)
sapi.Speak msg
Anda dapat merubah kalimat yang ada di dalam tanda petik pada bagian message...
3. Simpan dengan nama apa saja dengan format .vbs
4. Klik 2 kali program .vbs tersebut
5. Tulis dalam textbox dan tekan ok
6. Komputer anda akan berbicara sesuai dengan apa yang anda tulis.
</div>
Ikuti petunjuk berikut ini :
1. Buka Star>Program>Accecoris>Notepad.exe
2. Copy kode dibawah ini pada Notepad
Dim msg, sapi
msg=InputBox(�Enter your text�,�Talk it�)
Set sapi=CreateObject(�sapi.spvoice�)
sapi.Speak msg
Anda dapat merubah kalimat yang ada di dalam tanda petik pada bagian message...
3. Simpan dengan nama apa saja dengan format .vbs
4. Klik 2 kali program .vbs tersebut
5. Tulis dalam textbox dan tekan ok
6. Komputer anda akan berbicara sesuai dengan apa yang anda tulis.
</div>