GENEL

Bir Kaç Kod Yazarak Bilgisayarınızı Konuşturmak İstermisiniz

29 Mart 2016 Salı Adem KORKMAZ 676
Bir Kaç Kod Yazarak Bilgisayarınızı Konuşturmak İstermisiniz

Bilgisayarcı veya yazılımcı olmanıza gerek yok, not defterine bir kaç kod yazarak bilgisayarınızı konuşturabilirsiniz.

Yapmanız gereken şey masaüstünde boş bir yere sağ tıklayıp Yeni>Metin Belgesi ni tıklamanız sonra dosyayı çift tıklayarak açın, içine aşağıdaki satırları kopyala yapıştır ile ekleyin.

Bilgisayrınızı Konuşturun

İşin en önemli kısmı dosyayı kaydetme şeklidir. Onun için dosyayı Farklı Kaydet Diyoruz, Dosya Adı olarak speak.vbs diyoruz hemen altında bulunan Dosya Türünü ise Tüm Dosyalar olarak seciyoruz, ve dosyayı masaüstüne kaydedin.

Konuşma Programı

Şimdi herşeyi kapatın ve masaüstünde bulunana speak.vbs dosyasını çift tıklayın aşağıdaki şekilde karşına bir pencere açılacak metin kutusuna okumasını istediğiniz yazıyı yazın ve tamam tuşuna bazın bilgisayr yazıdığınızı sesli olarak okuyacaktır.

Konuşan Program

Not: Yazıları küçük harfle yazın daha net okuyor.

Dim Mesaj, Speak
Mesaj=InputBox("Okumasını İstediğiniz Metni Giriniz","http://www.korkmazadem.com")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Mesaj

Yorumlar

Eyüp

Eyüp22.11.2016

hocam herşey iyi güzelde benim yazdığım yazıyı ingilizce okuyur


Yorum Yap

     


Yukarı Kaydır