CARA MEMBUAT KOMPUTER BERBICARA

 Dari judul diatas mungkin kedengaran sangat lucu ,akan tetapi saya akan berbagi ilmu  agar komputer bisa berbicara untuk iti langsung saja
Copy paste kode di bawah ini ke notepad komputer sobat

Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

kemudian pada notepad klik save as

 file name  beri nama mypc.vbs
 save as type  all files
kemudian klik save  sekarang coba sobat klik dua kali pada file tadi

Bila ingin langsung berbicara copy paste kode di bawah ini seperti cara diatas

 Dim msg, sapi
msg = "LOVE IS BLIND SO BE PATIENT"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

Note  ganti kata love is blind so be patient dengan kata kata anda tapi jangan terlalu panjang

Artikel Lainnya Dibawah ini