Masaüstüne yeni bir metin belgesi oluşturuyoruz:
(isim farketmiyor)
Sonra aşağıdaki kodları içine yapıştırın
Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
Ardından dosyayı farklı kaydedin ve farklı kaydederkende text2speech.vbs olarak kaydedin.

Ardından masaüstünde oluşan text2speech adlı dosyayı açın ve sözcüğünüzü yazın

Konuşan kişi dili ve şivesi Türkçe'ye yatkın değil sanırım biraz garip oluyor :) idare edin artık
Saygılarımla
« önceki yazı balıklı çermik |
sonraki yazı » Pilli Komedi Serisi 2. Bölüm- Videoda Kopmaca |
Yorumlar
böyle ilginç ve kullanışlı olabilecek bi yazı neden bildiri bölümünde olmaz acaba, tşk rck
| zerdust50 | |
|
|
(0 puan) |
|
| 12 Temmuz 2008 00:24 |
msg=InputBox("Enter your text","Talk it")
bu bölümdeki parantezdeki kelimeler değişse ve programın ismi değişsede çalışıyor.
| yohtur | |
|
|
(0 puan) |
|
| 12 Temmuz 2008 20:13 |
bugün çalıştı. ne değiti de çalıştı bilmiyorum.
güzel bir bildiri. günlükten bildiriye aktarılmalı bence de. teşekkürler
| makcan | |
|
|
(0 puan) |
|
| 14 Temmuz 2008 11:34 |
Moderatore bildir butonu var mıdır ki burda :)
varsa iyi olur gerçekten
| rck | |
|
|
(0 puan) |
|
| 14 Temmuz 2008 20:32 |
pillinetwork sitelerine yorum ekleyebilmek ve daha fazlası için, üye olun ya da giriş yapın.
Bu Yazıyı Tutanlar
Beğendiğiniz bir yazıya "tuttum" demek için başlığın yanındaki yıldıza tıklayabilirsiniz.


