Percaya nggak kalo komputer kita bisa bicara? Masa komputer bisa bicara? Percaya nggak percaya ini buktinya:
1. Pertama, buka notepad.
2. Copy-Paste script berikut :
Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin sobat katakan?", "Tuliskan Kata-katamu")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
3. Save as, kemudian pilih all files lalu kasih nama mypc.vbs
4. Selesai
Coba sekarang agan klik 2x.. Gimana?? keren kan??
Ane udah coba. Hasil nya,,,,,, Pas dah
2. Copy-Paste script berikut :
Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin sobat katakan?", "Tuliskan Kata-katamu")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
3. Save as, kemudian pilih all files lalu kasih nama mypc.vbs
4. Selesai
Coba sekarang agan klik 2x.. Gimana?? keren kan??
Ane udah coba. Hasil nya,,,,,, Pas dah
Mobile
E-Paper
0 komentar:
Posting Komentar