valla mod konusunda örnek yapıp yapmadığıızı sordu.c#ta yaptığını gösterdiğinde mod ve Switch case vardı.o kadarını gösterdi
hiç modül göstermedi bize,fonksiyon yapmadık bende günü gününe yaptıklarımız var.baktım ama yok.fonksiyon olmasa sadece formda buton içinde yapılmazmı

Arkadaşlar lütfen böyle konu başlığı olan konulara itibar etmeyiniz. Site Kuralları açık bu şekilde konu başlığı olması yasak. Çok acil diye birşey yazınca ne oluyor anlamıyorum. Bizim için hayat memat meselesi haline dönüşüyormu zannediliyor acaba?

(11/01/2011, 23:35)alpeki99 yazdı: Arkadaşlar lütfen böyle konu başlığı olan konulara itibar etmeyiniz. Site Kuralları açık bu şekilde konu başlığı olması yasak. Çok acil diye birşey yazınca ne oluyor anlamıyorum. Bizim için hayat memat meselesi haline dönüşüyormu zannediliyor acaba?

) doğru söze ne denir?

gerçekten acil ama.bu arada BlackEagles abi ben baktım function denedim
koduda şöyle ama sadece form içinde kodların hepsi:

Option Compare Database
Public Function SayiyiYaziyaCevir(sayi As String, Optional Seviye As Integer = 0) As String
On Local Error Resume Next
Dim Ek As String, Donen As String

Donen = Choose((Mid(sayi, Len(sayi) - (Seviye * 3) - 2, 1)) + 1, "", "Yüz", "İkiYüz", "ÜçYüz", "DörtYüz", "BeşYüz", "AltıYüz", "YediYüz", "SekizYüz", "DokuzYüz")
Donen = Donen & Choose((Mid(sayi, Len(sayi) - (Seviye * 3) - 1, 1)) + 1, "", "On", "Yirmi", "Otuz", "Kırk", "Elli", "Altmış", "Yetmiş", "Seksen", "Doksan")
Donen = Donen & Choose((Mid(sayi, Len(sayi) - (Seviye * 3), 1)) + 1, "", "Bir", "İki", "Üç", "Dört", "Beş", "Altı", "Yedi", "Sekiz", "Dokuz")

If Donen <> "" Then Ek = Choose(Seviye + 1, "", "Bin", "Milyon", "Milyar", "Trilyon", "Katrilyon", "Katrilyar") 'Bildiğiniz sayıyla sınırlı
If Donen = "Bir" And Seviye = 1 Then Donen = "" 'BirBin çevrimini iptal etmek için

If Seviye * 3 + 3 < Len(sayi) Then
Donen = SayiyiYaziyaCevir(sayi, Seviye + 1) & Donen 'Sayinin cevrimi bitmemişse tekrar çağır
End If

SayiyiYaziyaCevir = Donen & Ek
End Function


Private Sub yaz_Click()
sonuc.Caption = SayiyiYaziyaCevir(sayi.Text)
End Sub

Konu üste çıkılmaya çalışılması nedeniyle kilitlenmiştir.