Script untuk Membuat Komputer Berbicara Sesuai Kalimat yang Kita Tulis

Script ini dapat membuat komputer dapat berbicara sesuai kata / kalimat yang kita tulisakan. Script sederhana ini bekerja dengan cara mengkonversi / mengubah tulisan menjadi suara dengan menggunakan notepad. Caranya, kamu copas saja script di bawah ini ke dalam notepad.

Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

Lalu save file tersebut dengan format .vbs

Contoh : Komputer.vbs

Untuk menjalankannya, tinggal double klik pada file yang sudah di simpan terebut, lalu ketikkan kata / kalimat yang ingin didengarkan. Kemudian klik oke untuk mendengarkan.

Jangan lupa share ya. . .