kali ini saya akan membahas bagaimana cara membuat komputer kita 'berbicara'.
langsung sj ke TKP :D
buka notepad dan masukan kode di bawah ini
Dim Message, Speak
Message=InputBox("Enter Text to Talk o","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
Setelah itu simpan notepad dengan nama apa saja namun harus menggunakan format .vbs (ex. indamixson.vbs) lihat gambar di bawah
terus jangan sampe sobat lupa, save as type nya itu harus all files bukan .txt dsb :))
kalo semua lancar2 saja file yg di simpan tadi akan menjadi sperti gambar di bawah
setelah itu klik 2x di file yg sdh jd tersebut dan akan muncul gambar seperti di bawah
ketik apa saja yang sobat inginkan (lihat tulisan yg di tunjuk oleh anak panah merah) lalu klik OK dan jadilah apa yg di kehendaki sobat sekalian hehehe
kalo mau tulisanx di baca berkali-kali oleh PC/komputer kalian, tinggal masukan saja kode di bawah ini
Dim message, sapi
message=InputBox("Enter the text you want spoken","speak this")
set sapi=CreateObject("sapi.spvoice")
For i=1 to 10
sapi. Speak message
Next
Selamat Mencoba,
#IndamixSon
Terdapat 0 komentar:
Post a Comment