Bilgisayarım Benimle Konuşsun

Bilgisayarınızın sizinle konuşmasını mı istiyorsunuz? Sadece 4 satırdan oluşan basit bir kod ile bu mümkün

122
0

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

Bilgisayarım Benimle Konuşssun

 

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.

Bilgisayarım Benimle Konuşssun

 

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

Bilgisayarım Benimle Konuşssun

 

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

Bilgisayarım Benimle Konuşssun

İşte bu.

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

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


 

BİR CEVAP BIRAK

Please enter your comment!
Please enter your name here