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?
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.