Excel Forum


Geri Git   Excel Forum > Diğer Yazılımlar > Windows-Word-PowerPoint....
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ

Windows-Word-PowerPoint.... Excel haricindeki Ofis programları ile ilgili konular.
Dosya ekleyebilirsiniz

Özel Arama



Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 13-02-2008, 08:45   #1
hsayar
 
hsayar kullanıcısının avatarı
 
Giriş: 02/03/2005
Şehir: İpsala/Edirne
Mesaj: 2,966
Excel Vers. ve Dili:
ev: Ofis 2007- Win Xp iş: Ofis 2010- Win Vista
Varsayılan 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]
hsayar Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-02-2008, 10:07   #2
uzmanamele
Uzman
 
uzmanamele kullanıcısının avatarı
 
Giriş: 26/09/2007
Şehir: Süleyman Özyüksel / Ankara
Mesaj: 8,622
Excel Vers. ve Dili:
excel 2010
Varsayılan

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.
Eklenmiş Dosyalar
Dosya Türü: rar sesli hücre adresi.rar (5.9 KB, 30 Görüntülenme)
uzmanamele Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-02-2008, 10:18   #3
hsayar
 
hsayar kullanıcısının avatarı
 
Giriş: 02/03/2005
Şehir: İpsala/Edirne
Mesaj: 2,966
Excel Vers. ve Dili:
ev: Ofis 2007- Win Xp iş: Ofis 2010- Win Vista
Varsayılan

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....
hsayar Çevrimdışı   Alıntı Yaparak Cevapla
Eski 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
Varsayılan

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]
seha efecik Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-02-2008, 11:29   #5
hsayar
 
hsayar kullanıcısının avatarı
 
Giriş: 02/03/2005
Şehir: İpsala/Edirne
Mesaj: 2,966
Excel Vers. ve Dili:
ev: Ofis 2007- Win Xp iş: Ofis 2010- Win Vista
Varsayılan

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]
hsayar Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-02-2008, 13:31   #6
uzmanamele
Uzman
 
uzmanamele kullanıcısının avatarı
 
Giriş: 26/09/2007
Şehir: Süleyman Özyüksel / Ankara
Mesaj: 8,622
Excel Vers. ve Dili:
excel 2010
Varsayılan

merhaba
aşağıdaki link ilginizi çekebilir

http://www.frmtr.com/visual-basic/12...n-program.html
uzmanamele Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-02-2008, 14:43   #7
hsayar
 
hsayar kullanıcısının avatarı
 
Giriş: 02/03/2005
Şehir: İpsala/Edirne
Mesaj: 2,966
Excel Vers. ve Dili:
ev: Ofis 2007- Win Xp iş: Ofis 2010- Win Vista
Varsayılan

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 Mesajı Görüntüle
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.
__________________
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]
hsayar Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-02-2008, 08:47   #8
hsayar
 
hsayar kullanıcısının avatarı
 
Giriş: 02/03/2005
Şehir: İpsala/Edirne
Mesaj: 2,966
Excel Vers. ve Dili:
ev: Ofis 2007- Win Xp iş: Ofis 2010- Win Vista
Varsayılan

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]
hsayar Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-02-2008, 09:23   #9
uzmanamele
Uzman
 
uzmanamele kullanıcısının avatarı
 
Giriş: 26/09/2007
Şehir: Süleyman Özyüksel / Ankara
Mesaj: 8,622
Excel Vers. ve Dili:
excel 2010
Varsayılan

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....
uzmanamele Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-02-2008, 10:50   #10
hsayar
 
hsayar kullanıcısının avatarı
 
Giriş: 02/03/2005
Şehir: İpsala/Edirne
Mesaj: 2,966
Excel Vers. ve Dili:
ev: Ofis 2007- Win Xp iş: Ofis 2010- Win Vista
Varsayılan

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]
hsayar Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 15:23


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.


Bahis Forum - Define - Çorlu Kamera - Çorlu Petek Temizleme - Site Yönetimi - TYPO3 Türkiye - 2015 Fuar - Çorlu Mimarlık - Çorlu Hotel - Rotary Web Sitesi
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden