Bilgisayarım Benimle Konuşsun

Bilgisayarınızın sizinle konuşmasını ister misiniz? Yazdıklarınızın bilgisayar tarafından okunması güzel olmaz mıydı?

Çok basit bir kod yardımı ile bu işlemi nasıl yapabileceğimize bakalım.

Not : Dosyayı oluşturmak ile uğraşmak istemezseniz buradan dosyayı bilgisayarınıza indirebilirsiniz.

Başlat menüsünden Not Defteri uygulamasını açıyoruz.

Aşağıda verdiğimiz kodu Not Defterine yapıştırıyoruz.

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

Dosya menüsünden Kaydet seçeneğine tıklıyoruz. Dosya adı: kısmına uzantısı vbs olacak herhangi bir isim verip, Kayıt türü: seçeneğini Tüm dosyalar (*.*) olarak ayarlıyoruz.

Oluşturduğumuz dosyaya çift tıklayıp çalıştırıyoruz.

Yazı kutucuğuna bilgisayarın bize söylemesini istediğimiz şeyi yazıp Tamam butonuna tıklıyoruz.

İşte bu.

Bilgisayarınız sizinle konuşmaya başladı bile 🙂

Her ne kadar İngilizce aksanla konuşsa da bu da bir şeydir 🙂