| |
|
13 Haziran 2011, 22:58
| #1 | |
| Çevrimdışı  IF Ticaret Sayısı: (0) | Visual Basic - Rakamı Yazıya Çevirme Metin kutusuna girilen sayıyı yazıyla yazar. Kod: Function Yazıyla$(sayi) Dim b$(9) Dim y$(9) Dim m$(4) Dim v(15) Dim c(3) b$(0) = "" b$(1) = "Bir" b$(2) = "İki" b$(3) = "Üç" b$(4) = "Dört" b$(5) = "Beş" b$(6) = "Altı" b$(7) = "Yedi" b$(8) = "Sekiz" b$(9) = "Dokuz" y$(0) = "" y$(1) = "On" y$(2) = "Yirmi" y$(3) = "Otuz" y$(4) = "Kırk" y$(5) = "Elli" y$(6) = "Altmış" y$(7) = "Yetmiş" y$(8) = "Seksen" y$(9) = "Doksan" m$(0) = "Trilyon" m$(1) = "Milyar" m$(2) = "Milyon" m$(3) = "Bin" m$(4) = "" a$ = Str(sayi) If Left$(a$, 1) = "-" Then pozitif = 1 Else pozitif = 0 a$ = Right$(a$, Len(a$) - 1) For x = 1 To Len(a$) If (Asc(Mid$(a$, x, 1)) > Asc("9")) Or (Asc(Mid$(a$, x, 1)) < Asc("0")) Then GoTo hata Next x If Len(a$) > 15 Then GoTo hata a$ = String(15 - Len(a$), "0") + a$ For x = 1 To 15 v(x) = Val(Mid$(a$, x, 1)) Next x s$ = "" For x = 0 To 4 c(1) = v((x * 3) + 1) c(2) = v((x * 3) + 2) c(3) = v((x * 3) + 3) If c(1) = 0 Then e$ = "" ElseIf c(1) = 1 Then e$ = "Yüz" Else e$ = b$(c(1)) + "Yüz" End If e$ = e$ + y$(c(2)) + b$(c(3)) If e$ <> "" Then e$ = e$ + m$(x) If (x = 3) And (e$ = "BirBin") Then e$ = "Bin" s$ = s$ + e$ Next x If s$ = "" Then s$ = "Sıfır" If pozitif = 1 Then s$ = "Eksi" + s$ Yazıyla$ = s$ GoTo tamam hata: Yazıyla$ = "Hata" tamam: End Function Private Sub Command1_Click() Text2.Text = Yazıyla(Text1.Text) End Sub | |
| |  |
| IRCForumlari.NET Reklamlar |
   |
 |
| Etiketler |
| basic, cevirme, visual |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
Benzer Konular | ||||
| Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
| 1-999 arasında girilen sayıyı yazıya çevirme | aSi | C ve C++ | 3 | 12 Temmuz 2012 21:16 |
| Visual Basic | Cry | Bilgisayar Donanımı | 0 | 19 Eylül 2011 17:48 |
| SAYIYI Yazıya cevirme.. | toXic | C ve C++ | 0 | 08 Mart 2010 20:48 |
| Rakamı Yazıya Çevirme | Cemalizim | Visual Basic | 0 | 21 Temmuz 2008 19:17 |
Normal
