Cara buat komputer bicara (masuk gan)

Beranda
Komunitas
Entertainment
The Lounge
Cara buat komputer bicara (masuk gan)

iyad23

21-08-2013 09:34

Cara buat komputer bicara (masuk gan)

Quote:

Windows 7 datang dengan paket antarmuka suara yang tentunya kalian tau bisa kita ganti2 bunyinya, seperti bunyi pada waktu kita menghidupkan komputer dan pada waktu kita mematikan komputer, Sekarang gimana kalau kita buat komputer kita berbicara kepada kita pada saat waktu kita menghidupkannya, lumayan daripada mendengar suara suara start-up windows yang itu itu2 ajah. Yuk di sini si TS mau berbagi ilmu ni, mudahan aja bermanfaat... emoticon-2 Jempol

Quote:

Pertama, salin dan masukin kode berikut ke notepad dan simpanlah dalam format file .vbs, nama file terserah selera masing2, kali ini saya menyimpannya dengan nama welcome.vbs

Quote:

Dim speaks, speech
speaks="Hello Iyad23! Welcome back again to your computer. Have a nice day"
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks

Quote:

Kedua, Simpanlah file nya di folder startup windows kita, adapun folder dikomputer saya yaitu:

Quote:

C:\Users\Iyad23\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup

Adapun lokasi di komputer anda pasti berbeda, dimana user “Iyad23” disesuaikan dengan username dikomputer anda.

Quote:

Catatan, kata kata ucapan selamat datang tadi diatas bisa kalian ganti sesuai selera masing2, namun harus dalam bahasa inggris yah, sudah saya coba pake bahasa indonesia, komputer ngomongnya jadi aneh, mungkin ada yang tau caranya gimana bisa bicara pake bahasa indonesia? ditunggu yah masukannya.

Selamat mencoba!.

Spoiler for tambahan:

jangan lupa emoticon-Blue Guy Cendol (L)

dan

nya ya gan...

Spoiler for tambahan dari kaskuser:

Quote:

Original Posted By syarifiif►Hanya share Gan tuk pengguna XP, nih vbs nya...

copy keseluruhan text yang ada dibawah ini ke notepad dan simpan dengan nama yang agan bikin sendiri... terserah deh.. klu saya nama filenya welcome, hehe....

Dan kata2 di dalam teks tersebut (setelah greating="bla... bla.. bla") itu bisa diganti kok Gan....

Silahkan di copas.... emoticon-Malu (S)

Dim speaks, speech, greating , username

username = "! "

If Hour(Time) < 11 Then

greating = "Good morning"

ElseIf Hour(Time) < 16 Then

greating = "Good day"

ElseIf Hour(Time) < 20 Then

greating = "Good afternoon"

Else

greating = "Good evening"

End If

speaks = greating + "! isi dengan nama Agan(tanda petik dan tanda seru jangan dihilangkan) " + Username + "! Welcome back to your computer" + "! have a nice day"

Set speech = CreateObject("sapi.spvoice")

speech.Speak speaks

Quote:

Original Posted By d1rad1o►ini buat yg startup ya gan wkwk.. keren juga ya.

btw TS mungkin tertarik juga sama kaya ini nh . berkomunikasi langsung sama kompi agan emoticon-thumbsup