Rakam Okuyan Ses Dosyaları

hsayar · 13-02-2008, 08:45

Arkadaşlar elinde
Tercihen 1 den 100 kadar sayıları (tanetane) (işitme engellilere haberlerde olduğu gibi yada çocuklara rakamları öğretmek için hazırlanmış gibi) okunduğu, daha sonra bin, milyon,milyar,trilyon ses dosyası olan varmı
yani
1.wav
2.wav
3.wav
4.wav
........
100.wav
1000.wav
1000000.wav
1000000000.wav
1000000000000.wav

Ses Değişmesse Daha güzel olur.

**uzmanamele** · 13-02-2008, 10:07

merhaba
mikrofonunuz varsa siz hazırlayabilirsiniz, sesinizin güzel olmadığını mı düşünüyorsunuz?

işitme engelliler sesi duyamaz, sanırım görme engelliler diyecektiniz

ekte siteden bulduğum örnek dosya var. ingilizce, sizin istediğiniz değil ama belki işinize yarar.

hsayar · 13-02-2008, 10:18

sesinizin güzel olmadığını mı düşünüyorsunuz

evet pek mikrofonik değildir.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

Dim konus As New SpeechLib.SpVoice

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    a = ActiveCell.Address(0, 0)

konus.Speak a
End Sub

satırını a = ActiveCell.Value değiştirnce hücre değerini okuyor.
Ama benim istediğim türkçe varmı bunun türkçesi

seha efecik · 13-02-2008, 11:13

excelde yada worl de metini okutmanın imkanı varmı merak ettimde ?

hsayar · 13-02-2008, 11:29

sn uzmanamalenin verdiği dosyada

a = ActiveCell.Address(0, 0) satırını

a = ActiveCell.Value satırı ile değiştirince okuma işlemini İngilizce olarak yapıyor.

**uzmanamele** · 13-02-2008, 13:31

merhaba
aşağıdaki link ilginizi çekebilir

http://www.frmtr.com/visual-basic/12...n-program.html

hsayar · 13-02-2008, 14:43

teşekkür ederim sn uzmanamale
yalnız bu microsftun alacağı olsun kendi dileri için ufacık bir eklenti ile işi çözüyorlar biz Kendi idilimiz için envai çeşit uğraş harcayacağız.. ve oradaki program vb için vbe ye nasıl uayrlnır emin değilim.

Kodları burada direk vereyim o forum bazen mahkeme karar ile erişilemeynlerden

Alıntı:

McKiLiC tarafından gönderildi

Ses Dosyaları :
--------------------------------------------------------------------------------
Bu program, girdiğimiz bir sayıyı bize sesli olarak okuyacak. Tabiki bunun için daha önceden gerekli ses dosyalarını hazırlamanız gerekir. Sayı okutma işlemi için 7 basamak sınırımız olsun. Bu durumda aşağıdaki ses dosyalarına ihtiyacımız olacak :

bir.wav on.wav yüz.wav
iki.wav yirmi.wav bin.wav
üç.wav otuz.wav milyon.wav
dört.wav kırk.wav
beş.wav elli.wav
altı.wav altmış.wav
yedi.wav yetmiş.wav
sekiz.wav seksen.wav
dokuz.wav doksan.wav

Tabiki herbir wav dosyası, ismindeki sayıyı saklayacak. Program içerisinde istediğimiz yerde bu dosyaları arka arkaya çağırarak sayımızı seslendireceğiz. Bu şekilde 7 basamaklı bir sayıya kadar tüm sayıları okutabiliriz.
Sayıların Parçalanması :
--------------------------------------------------------------------------------
Önemli olan şey, rakamları düzgün ve kurallı olarak parçalayabilmektir. İlkokul 1. sınıfı hatırlayalım.
1. Basamaktaki Sayı : Sıfır rakamı haricinde sayı olduğu gibi okunur.
2. Basamaktaki Sayı : Sıfır rakamı haricinde sayı "Onluk" isimleriyle çağrılır. (10-20-30..vb)
3. Basamaktaki Sayı : Sıfır rakamı zaten okunmaz. 1 rakamında sadece "Yüz" denir. Diğer rakamlarda ise Rakam + "Yüz" denir.
Örnek :
302 : Üç + Yüz + İki
257 : İki + Yüz + Elli + Yedi
4. Basamaktaki Sayı : Eğer 4. basamak sıfır ise boş bırakılamaz. 5. ve 6. basamaklara da bakılır. Eğer 5. ve 6. basamaklarda sayı varsa o sayılar okunur ve sadece "Bin" denir. Eğer 4. basamakta sayı varsa 5. ve 6. basamaklara bakmaya gerek kalmaz. Onlar zaten okunacaktır. Sadece 4. basamağa bakılır. Sayı + "Bin" denir.
Ayrıca eğer sayı 4 basamaktan büyükse ve 4.basamakta "1" varsa "Bir" + "Bin" denir. Yani "Bir" okunur. Ama sayı 4 basamaklı ise ve 4. basamak "1" ise sadece "bin" denir. Bunun haricinde Sayı + "Bin" olarak okunur.
Örnek :
1302 : Bin + Üç + Yüz + İki
6257 : Altı + Bin + İki + Yüz + Elli + Yedi
5600051 : Beş + Milyon + Altı + Yüz + Bin + Elli + Bir (5. ve 6. basamaklar burada önemli)
5000051 : Beş + Milyon + Elli + Bir (4 boş olduğundan 5 ve 6 ya bakılır. Onlar da boş olduğunda "bin" denmez.)
5. Basamaktaki Sayı : Sıfır rakamı haricinde sayı "Onluk" isimleriyle çağrılır. (10-20-30..vb)
6. Basamaktaki Sayı : Sıfır rakamı zaten okunmaz. 1 rakamında sadece "Yüz" denir. Diğer rakamlarda ise Rakam + "Yüz" denir.
7. Basamaktaki Sayı : Direkt Sayı + "Milyon" denir.
Programın Hazırlanması :
--------------------------------------------------------------------------------
Yukarıda sayıların parçalanma kurallarını gördük. Bu kurallara uygun olarak sayı basamakları tek tek incelenip karar verilecek. Ben algoritmamda sayıyı STRING olarak okuyacağım. Hiçbir şekilde INTEGER veya LONG olarak kullanmayacağım. Bunun avantajı, sayı üzerinde String işlemlerini kullanmanın kolaylığıdır. Programda kullandığım 3 adet String fonksiyonunun açıklamaları :

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

Mid$ : Bir String değişken içerisinden istediğiniz kısmı koparıp almanızı sağlar. Parametreleri : ( MetinDeğişken ), ( BaşlangıçNoktası ), (İlerleme Sayısı) 
Örnek:
Mid$ ( "Gökhan", 3 , 2 ) = "kh"
Mid$ ( "Gökhan" , 2 , 4 ) = "ökha"

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

Left$ - Right$ : Bir String değişkenin Sağdan veya Soldan istediğiniz sayıda karakterini verir. Parametreleri : ( MetinDeğişken ) , (İlerleme Sayısı) 
Örnek:
Left$ ( "Gökhan", 3 ) = "Gök"
Right$ ( "Gökhan" , 3 ) = "han"
Bu fonksiyonlar içiçe kullanılabilir. Mesela metnin 3. harfini elde etmek için:
Right$ ( Left$ ( "Gökhan" , 3 ) , 1 ) = "k" döner.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

Len : Bir String ifadenin karakter sayısını verir.
Len ( "Gökhan" ) = 6

Şimdi programımızda kullanacağımız iki adet dizi tanımlayalım. Dizilerin içerikleriyle ses dosyalarının isimlerinin aynı olmasına özen gösterin. Çünkü, dizilerdeki bilgileri hem ekrana yazmak için hem de ses dosyalarının ismini oluşturmak için kullanacağız.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

Dim Onlar As Variant
Dim Sayilar As Variant
Sayilar = Array ( "", "bir", "iki", üç", "dört", "beş", "altı", "yedi", "sekiz", "dokuz" )
Onlar = Array ( "", "on", "yirmi", "otuz", "kırk", "elli", "altmış", "yetmiş", "seksen", "doksan" )

İşte programın tamamı. Programda sayı, kullanıcı tarafından textbox içine yazılacak. Sayının okunuşu da bir Listbox nesnesine yazılacak. Sayının okunuşu için iki buton bulunur. Bunlardan biri sayının okunuşunu listbox listesine yazar. Diğer buton ise listede yazılı sayıyı okutmak içindir

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

Sayi = Trim(Text1.Text)
    
For i = 1 To Len(Sayi) ' Sayıdaki Rakamlar Tek Tek Okunur
        
Select Case Len(Sayi) - i + 1 ' Alınan Rakamın Matematikteki Basamağına Göre Seçim
            
Case 7:
                If Mid$ ( Sayi , i , 1 ) <> "0" Then
                    List1.AddItem Sayilar ( Val( Mid$( Sayi , i , 1 )))
                    List1.AddItem "milyon"
                End If
' ------------------------------------------------------------------------------------
Case 6:
                If Mid$( Sayi, i , 1 ) <> "0" Then
                    If Mid$( Sayi, i , 1 ) <> "1" Then List1.AddItem Sayilar( Val( Mid$( Sayi, i , 1 )))
                    List1.AddItem "yüz"
                End If
' ------------------------------------------------------------------------------------
       Case 5: If Mid$( Sayi, i, 1 ) <> "0" Then List1.AddItem Onlar( Val( Mid$( Sayi, i, 1 )))
' ------------------------------------------------------------------------------------
     Case 4:
                    If Mid$(Sayi, i, 1) <> "0" And Mid$(Sayi, i, 1) <> "1" Then
                        List1. AddItem Sayilar(Val(Mid$(Sayi, i, 1)))
                    End If
                
                    If Mid$(Sayi, i, 1) = "1" Then
                        If Len(Sayi) >= 6 Then
                            If Mid$(Sayi, i - 1, 1) <> "0" Or Mid$(Sayi, i - 2, 1) <> "0" Then
                                List1. AddItem "bir"
                            End If
                          ElseIf Len(Sayi) = 5 Then
                            If Mid$(Sayi, i - 1, 1) <> "0" Then
                                List1. AddItem "bir"
                            End If
                        End If
                    End If
                    
                    List1. AddItem "bin"
' ------------------------------------------------------------------------------------
       Case 3:
                If Mid$(Sayi, i, 1) <> "0" Then
                    If Mid$( Sayi, i, 1 ) <> "1" Then List1.AddItem Sayilar( Val( Mid$( Sayi, i, 1 )))
                    List1.AddItem "yüz"
                End If
' ------------------------------------------------------------------------------------
       Case 2: If Mid$( Sayi, i, 1 ) <> "0" Then List1.AddItem Onlar( Val( Mid$( Sayi, i, 1 )))
' ------------------------------------------------------------------------------------
       Case 1: If Mid$( Sayi, i, 1 ) <> "0" Then List1.AddItem Sayilar( Val( Mid$(Sayi, i, 1 )))
End Select
Next

Yukarıdaki kodlarda, sayının rakamları tek tek okunarak, en başta anlatılan okuma kuralları uygulanır. Oluşan metin parçaları List1 nesnesine eklenir. Aşağıda ise Okuma komut düğmesine basıldığında ses dosyalarının çağrılması anlatılmıştır. Ses dosyalarını çağırmak için SndPlaySound Api'sini kullandım.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

For i = 0 To List1.ListCount - 1
        sndPlaySound App.Path & "/sesler/" & Trim$(List1.List(i)) & ".wav", 2
Next

SndPlaySound Api'si iki parametre alır. ( Dosya Adresi ) , ( Mod ). Mod Ayarının 2 olması, bir ses dosyasının okunması bitmeden bir sonrakine geçmemesini ve beklemesini sağlar. Yukarıda bir For-Next döngüsü ile List1 listesinde yazılmış kelimelere ait wav dosyaları sırasıyla çağrılmaktadır.
Bu şekilde girdiğimiz bir tamsayıyı parçalayıp okutabiliriz.

hsayar · 15-02-2008, 08:47

https://accountservices.passport.net...e=.WAV&lc=1055

bu linkte ses çala tıklayınca bilgisayrdanmı dosya çağrılıyor serverdanmı eğer bilgisayartdansa nerede?
saygılar sunarım.

**uzmanamele** · 15-02-2008, 09:23

merhaba
bu sitelere bakarmısınız

http://www.turkkod.com/forum/girilen...60.html?p=1317

http://www27.brinkster.com/ugokhan/algoritma/13.asp

http://www.frmtr.com/visual-basic/12...n-program.html

http://www.netanlatim.com/

hsayar · 15-02-2008, 10:50

sn uzmanamale ilginize teşekkür ederim yalnız bu iş hafta sonuna kalacağa benzi,yor önce sesleri bulmam ve vb6 yı kurmam lazım...
sonra vbe ye uyarlayacağız anlaşılan... hazırı yok.

13-02-2008, 08:45	#1
hsayar Giriş: 02/03/2005 Şehir: İpsala/Edirne Mesaj: 2,968 Excel Vers. ve Dili: ev: Ofis 2007- Win Xp iş: Ofis 2010- Win Vista	Rakam Okuyan Ses Dosyaları Arkadaşlar elinde Tercihen 1 den 100 kadar sayıları (tanetane) (işitme engellilere haberlerde olduğu gibi yada çocuklara rakamları öğretmek için hazırlanmış gibi) okunduğu, daha sonra bin, milyon,milyar,trilyon ses dosyası olan varmı yani 1.wav 2.wav 3.wav 4.wav ........ 100.wav 1000.wav 1000000.wav 1000000000.wav 1000000000000.wav Ses Değişmesse Daha güzel olur. __________________ Felâket başa gelmeden evvel, onu önleyecek ve ona karşı savunulacak gerekleri düşünmek lâzımdır. Geldikten sonra dövünmenin faydası yoktur.[B]ATATÜRK[/B] Türkler’den bahsediyorum. Düşmanına saldırırken amansız bir kasırgaya, korkunç bir denize ve insafsız bir yıldırıma benzeyen Türk; dost yanında ve silahsız düşman karşısında bir seher yelidir, berrak bir göldür. Gönül açan bu yeli yıldırmak, göz kamaştıran bu gölü coşkun bir denize çevirmek tabiatı da inciten bir gaflet olur. [B]Tasso (İtalyan Şair)[/B]

13-02-2008, 10:18	#3
hsayar Giriş: 02/03/2005 Şehir: İpsala/Edirne Mesaj: 2,968 Excel Vers. ve Dili: ev: Ofis 2007- Win Xp iş: Ofis 2010- Win Vista	sesinizin güzel olmadığını mı düşünüyorsunuz evet pek mikrofonik değildir. Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar) Dim konus As New SpeechLib.SpVoice Private Sub Worksheet_SelectionChange(ByVal Target As Range) a = ActiveCell.Address(0, 0) konus.Speak a End Sub satırını a = ActiveCell.Value değiştirnce hücre değerini okuyor. Ama benim istediğim türkçe varmı bunun türkçesi __________________ Felâket başa gelmeden evvel, onu önleyecek ve ona karşı savunulacak gerekleri düşünmek lâzımdır. Geldikten sonra dövünmenin faydası yoktur.[B]ATATÜRK[/B] Türkler’den bahsediyorum. Düşmanına saldırırken amansız bir kasırgaya, korkunç bir denize ve insafsız bir yıldırıma benzeyen Türk; dost yanında ve silahsız düşman karşısında bir seher yelidir, berrak bir göldür. Gönül açan bu yeli yıldırmak, göz kamaştıran bu gölü coşkun bir denize çevirmek tabiatı da inciten bir gaflet olur. [B]Tasso (İtalyan Şair)[/B] Bu mesaj en son " 13-02-2008 " tarihinde saat 10:24 itibariyle hsayar tarafından düzenlenmiştir....

13-02-2008, 11:13	#4
seha efecik Giriş: 11/04/2005 Şehir: marmaris Mesaj: 80 Excel Vers. ve Dili: 7 TR 2013 excel TR	excelde yada worl de metini okutmanın imkanı varmı merak ettimde ? __________________ :mrgreen: [FONT=Comic Sans MS][SIZE=5]bu günün işini yarına bırakma :icelim: [/SIZE][/FONT] [FONT=Comic Sans MS][SIZE=5]bırakırsan yarın 1 iş deil 4 iş yaparsın[/SIZE]:hey:[/FONT]

13-02-2008, 11:29	#5
hsayar Giriş: 02/03/2005 Şehir: İpsala/Edirne Mesaj: 2,968 Excel Vers. ve Dili: ev: Ofis 2007- Win Xp iş: Ofis 2010- Win Vista	sn uzmanamalenin verdiği dosyada a = ActiveCell.Address(0, 0) satırını a = ActiveCell.Value satırı ile değiştirince okuma işlemini İngilizce olarak yapıyor. __________________ Felâket başa gelmeden evvel, onu önleyecek ve ona karşı savunulacak gerekleri düşünmek lâzımdır. Geldikten sonra dövünmenin faydası yoktur.[B]ATATÜRK[/B] Türkler’den bahsediyorum. Düşmanına saldırırken amansız bir kasırgaya, korkunç bir denize ve insafsız bir yıldırıma benzeyen Türk; dost yanında ve silahsız düşman karşısında bir seher yelidir, berrak bir göldür. Gönül açan bu yeli yıldırmak, göz kamaştıran bu gölü coşkun bir denize çevirmek tabiatı da inciten bir gaflet olur. [B]Tasso (İtalyan Şair)[/B]

15-02-2008, 08:47	#8
hsayar Giriş: 02/03/2005 Şehir: İpsala/Edirne Mesaj: 2,968 Excel Vers. ve Dili: ev: Ofis 2007- Win Xp iş: Ofis 2010- Win Vista	https://accountservices.passport.net...e=.WAV&lc=1055 bu linkte ses çala tıklayınca bilgisayrdanmı dosya çağrılıyor serverdanmı eğer bilgisayartdansa nerede? saygılar sunarım. __________________ Felâket başa gelmeden evvel, onu önleyecek ve ona karşı savunulacak gerekleri düşünmek lâzımdır. Geldikten sonra dövünmenin faydası yoktur.[B]ATATÜRK[/B] Türkler’den bahsediyorum. Düşmanına saldırırken amansız bir kasırgaya, korkunç bir denize ve insafsız bir yıldırıma benzeyen Türk; dost yanında ve silahsız düşman karşısında bir seher yelidir, berrak bir göldür. Gönül açan bu yeli yıldırmak, göz kamaştıran bu gölü coşkun bir denize çevirmek tabiatı da inciten bir gaflet olur. [B]Tasso (İtalyan Şair)[/B]

13-02-2008, 13:31	#6
uzmanamele Uzman Giriş: 26/09/2007 Şehir: Süleyman Özyüksel / Ankara Mesaj: 8,795 Excel Vers. ve Dili: excel 2010	merhaba aşağıdaki link ilginizi çekebilir http://www.frmtr.com/visual-basic/12...n-program.html

15-02-2008, 09:23	#9
uzmanamele Uzman Giriş: 26/09/2007 Şehir: Süleyman Özyüksel / Ankara Mesaj: 8,795 Excel Vers. ve Dili: excel 2010	merhaba bu sitelere bakarmısınız http://www.turkkod.com/forum/girilen...60.html?p=1317 http://www27.brinkster.com/ugokhan/algoritma/13.asp http://www.frmtr.com/visual-basic/12...n-program.html http://www.netanlatim.com/ Bu mesaj en son " 15-02-2008 " tarihinde saat 09:28 itibariyle uzmanamele tarafından düzenlenmiştir....

15-02-2008, 10:50	#10
hsayar Giriş: 02/03/2005 Şehir: İpsala/Edirne Mesaj: 2,968 Excel Vers. ve Dili: ev: Ofis 2007- Win Xp iş: Ofis 2010- Win Vista	sn uzmanamale ilginize teşekkür ederim yalnız bu iş hafta sonuna kalacağa benzi,yor önce sesleri bulmam ve vb6 yı kurmam lazım... sonra vbe ye uyarlayacağız anlaşılan... hazırı yok. __________________ Felâket başa gelmeden evvel, onu önleyecek ve ona karşı savunulacak gerekleri düşünmek lâzımdır. Geldikten sonra dövünmenin faydası yoktur.[B]ATATÜRK[/B] Türkler’den bahsediyorum. Düşmanına saldırırken amansız bir kasırgaya, korkunç bir denize ve insafsız bir yıldırıma benzeyen Türk; dost yanında ve silahsız düşman karşısında bir seher yelidir, berrak bir göldür. Gönül açan bu yeli yıldırmak, göz kamaştıran bu gölü coşkun bir denize çevirmek tabiatı da inciten bir gaflet olur. [B]Tasso (İtalyan Şair)[/B]

Konu Araçları
Yazıcı Çıktısını Göster Sayfayı E-posta ile Yolla
Görünüm Modları
Düzenli Mod Karışık Moda Geç Konu Moduna Geç