bikin komputer bicara sendiri

11/24/2010 09:26:00 PM CryptoFarming No comments

caranya:
1.buka Note Pad
2. copy paste code di bawah:
Dim pesan, sapi
pesan = InputBox ( "Apa yang anda ingin saya katakan?", "Berbicaralah kepada-Ku")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak pesan
3. Save As dengan nama file terserah anda,yang penting dengan akhiran .vbs
4. Klik File tersebut
5. Tulis tex apapun pada Text Box dan tekan Ok
6. Tunggu sebentar dan keluarlah suara dari Komputer

selamat mencoba...
Bikin komputer kita bicara sendiri?? mungkin kedengaranya agak aneh.
tapi ini memang bisa lo...
pengen tau rahasianya...??
boleh di coba dan lihat hasilnya ...menarik bukan.mau tau caranya..