Dim pesan, sapi pesan = InputBox ( "Kamu ingin aku ngomong apa?", "Bicaralah padaku sayang") Set sapi = CreateObject ( "sapi.spvoice") sapi.Speak pesan
Kemudian simpan file dengan nama apa saja, yang penting berekstensi .vbs, misal ngomongDonk.vbs Untuk mengeksekusi, klik 2x file tersebut, maka akan muncul jendela seperti ini
Lalu masukkan kata atau kalimat yang ingin diucapkan oleh komputer dan tekan OK. Cobalah untuk menambahkan tanda baca titik, tanda tanya atau tanda seru, dan perhatikan perbedaan nada bicaranya.
Selamat mencoba...........
Tidak ada komentar:
Posting Komentar