Bilgisayarınızı Nasıl Konuşturur/Yazdığınızı Konuşturursunuz

Windows'ta , (Windows)bilgisayarınızı konuşturmanıza veya(computer talk or speak) ne söylerseniz söyleyin konuşmanıza izin veren harika bir özellik var! Bu yöntem , Windows XP , Vista , 7, 8 ve 10'da SAPI ( Konuşma Uygulaması Programlama Arayüzü(Speech Application Programming Interface) ) olarak adlandırılan yerleşik bir API'den yararlanır.(API)

Microsoft Speech API , Windows'ta(Windows) yerleşik olarak bulunan metinden konuşmaya erişilebilirlik özelliği(accessibility feature) için kullanılan şeydir  . Ayrıca , uygulamalarınızın konuşmasına izin verecek olan API'yi(API) çağıran programlar da yazabilirsiniz , ancak bu geliştiriciler içindir.

Bilgisayarınıza istediğinizi söylettirmek aslında oldukça kolay! Bu makalede, bir kullanıcıdan metin girişi(text input) alacak ve sonra konuşacak bir VBS betiğinin(VBS script) nasıl oluşturulacağını göstereceğim . Ayrıca, konuşulmasını istediğiniz metnin nasıl sabit kodlanacağından bahsedeceğim ve ardından bu komut dosyasını Windows'u(Windows) başlatmak veya oturumu kapatmak gibi belirli olaylarda çalışacak şekilde programlayacağım.

Metin Girin, Mesajı Söyleyin

Windows'un konuşmasını istediğiniz şeyi yazabileceğiniz bir iletişim kutusu(dialog box) açacak basit bir komut dosyasıyla başlayalım . İlk(First) önce devam edin ve Not Defteri'ni(Notepad) açın .

Adım 1:(Step 1:)  Aşağıdaki metni yeni bir belgeye yapıştırın:

Dim message, sapi
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak message

Web tarayıcınızdan(web browser and paste) metin kopyalayıp Not Defteri'ne(Notepad) yapıştırdığınızda , alıntıların sorunlara neden olacağını unutmayın. Dosyayı kaydetmeden önce, her bir alıntıyı (“) gözden geçirip silmeniz ve alıntıyı yeniden yazmanız gerekir. Aşağıdaki örnekte altı alıntı vardır. Aşağıdaki resim(image below) gibi bir şey görünmelidir .

bilgisayarı konuştur

Şimdi dosyayı kaydetmeye gittiğinizde, ona herhangi bir ad verin, ancak addan sonra .VBS de yazdığınızdan emin olun. (.VBS)Ardından, Kayıt türü( Save as type) kutusu için varsayılan Metin Belgeleri(Text Documents) yerine Tüm dosyalar'ı( All files) seçin .

bilgisayarı konuştur

Şimdi VBS dosyasına(VBS file) çift tıklayın ve konuşulmasını istediğiniz metni yazabileceğiniz bir giriş kutusu(input box) görmelisiniz ! Bir şey(Type something) yazın ve Tamam'ı tıklayın.

iletişim kutusu konuş

Her şeyi doğru(everything right) yaptıysanız , cümlenizi söyleyen bir erkek veya kadın sesi duymalısınız. Herhangi bir hata mesajı(error message) alırsanız , metni tekrar kopyalayıp yapıştırdığınızdan ve bu alıntıları değiştirdiğinizden emin olun.

SAPI Ses Ayarlarını Yapılandırın

Bu eğlencelidir, ancak küçük konuşan bilgisayarımızı farklı ayarlarla da yapılandırabiliriz. Ses seviyesini, sesin ne kadar hızlı veya yavaş konuştuğunu değiştirebilir ve erkek ve kadın arasındaki cinsiyeti değiştirebiliriz. İşte birkaç ekstra satır eklediğim bazı örnek kodlar .(example code)

Dim message, sapi
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
Set sapi.Voice = sapi.GetVoices.Item(1)
sapi.Rate = 0
sapi.volume = 100
sapi.Speak message

Varsayılan hız(default rate) 0'dır ve aralık -10 ila 10'dur. -10, sesin çok yavaş ve 10'un çok hızlı konuşmasını sağlar. Ses seviyesi varsayılan olarak 100'dür ve aralık 0 ila 100'dür. Sapi.Voice Set(Set sapi.Voice) ile başlayan satır , sisteminizde kuruluysa başka bir sese geçmenize izin verecektir.

Seçebileceğiniz ses sayısının işletim sistemine(operating system) bağlı olduğunu unutmayın . Windows 7'de(Windows 7) tek bir ses vardır, Microsoft Anna(Microsoft Anna) .

yüklü sesler

Windows 10'da(Windows 10) aşağıda gösterildiği gibi iki ses vardır: Microsoft David ve Microsoft Zira(Microsoft David and Microsoft Zira) .

microsoft davis sesi

microsoft zira ses

Sisteminizde kurulu tek bir ses varsa, sapi.GetVoices.Item(1) yazanı sapi.GetVoices.Item(0)( sapi.GetVoices.Item(0)) olarak değiştirmeniz gerekir , aksi takdirde betiği çalıştırmayı denediğinizde bir hata mesajı alırsınız . (error message)Ayrıca başka bir Not Defteri belgesi oluşturabilir ve(Notepad document and paste) aşağıdaki kodu yapıştırabilirsiniz; bu, hangi seslerin yüklü olduğunu size söyleyecektir. Yukarıda gösterildiği gibi bir .VBS dosyası olarak kaydedin ve çalıştırın.

Set VObj = CreateObject(“SAPI.SpVoice”)
For Each Voice In VObj.getvoices
I = I + 1
msgbox “” & (I – 1) & ” – ” & Voice.GetDescription
Next

Şimdiye kadar, metin girmek için bu açılır iletişim kutusunu kullanıyorduk, ancak mesajınızı (popup dialog)komut dosyasına(script file) da yazabilirsiniz . Komut dosyasını otomatik olarak çalışacak şekilde programlamak istiyorsanız bu yararlı olacaktır. Açıkçası, bu arkadaşlarınızı ve ailenizi şaka yapmak için kullanılabilir ve gerçekten iyi çalışır.

Birinin bilgisayarını açtığını ve bilgisayarın onlara “ Merhaba John(Hello John) , çok uykum var, lütfen bugün beni rahatsız etme!” dediğini hayal edin. ne zaman açılır! Tecrübelerime dayanarak size söz verebilirim, histerik ve kesinlikle denemelisiniz.

Mesajı sabit kodlamak için son satırı şuna benzer bir şekilde değiştirin:

sapi.Speak “Hello John, I am very tired today!”

Komut Dosyası Planla

Artık mesajınızı istediğiniz hedef için kodladığınıza göre, istediğiniz zaman çalıştırmanız yeterlidir. Teknoloji konusunda bilgiliyseniz, belirli bir program açıldığında veya bir pencere büyütüldüğünde veya küçültüldüğünde komut dosyanızı(script file) çalıştırmak gibi aşırı şeyler yapmanıza olanak tanıyan AutoIt gibi bir program kullanabilirsiniz.(AutoIt)

Bu yazıda tüm bunlara girecek zamanım yok, ama neyse ki Microsoft'ta (Microsoft)Görev Zamanlayıcı(Task Scheduler) adı verilen ve komut dosyalarıyla kolayca oldukça karmaşık şeyler yapmanızı sağlayan yerleşik bir özelliği var.

Önceki gönderim, Windows'ta(Windows) belirli olaylar meydana geldiğinde çalışacak bir komut dosyasının(script file) nasıl programlanacağı konusunda derinlemesine gider . Komut dosyanızın çalışmasıyla ilgili herhangi bir sorun yaşarsanız, yorum yazmaktan çekinmeyin, yardımcı olmaya çalışacağım. Eğlence!



About the author

Ben profesyonel bir yorumcu ve üretkenlik arttırıcıyım. İnternette video oyunları oynayarak, yeni şeyler keşfetmeyi ve teknoloji ihtiyaçları konusunda insanlara yardım ederek vakit geçirmeyi seviyorum. Xbox ile biraz deneyimim var ve 2009'dan beri müşterilerin sistemlerini güvende tutmalarına yardımcı oluyorum.



Related posts