Membuat Komputer Berbicara dengan Visual Basic 6.0, Akses Speech dan Narrator

Pada kesempatan kali ini admin akan berbagi sebuah coding yang sangat sederhana namun cukup unik, karena dengan coding yang sangat pendek bisa mengeluarkan sebuah suara sesuai dengan karakter yang diinputkan. Tidak usah panjang lebar langsung saja buka Ms. Visual Basic 6.0 buatlah sebuah form dan tambahkan 1 buah TextBox dan 1 Buah CommandButton. Seperti layout dibawag ini

Double klik pada CommandButton dan copykan coding dibawah ini

Private Sub Command1_Click()

Dim IsiPesan, sapi

IsiPesan = Text1.Text

Set sapi = CreateObject("sapi.spvoice")

sapi.Speak IsiPesan

End Sub

Setelah itu coba run (F5) inputkan beberapa karakter pada textbox lalu klik tombol CommandButton, suara akan langsung keluar dari komputer sesuai dengan karakter yang diinputkan. Semoga bermanfaat dan terima kasih atas kunjungannya