Başlangıç > Kodlar > Visual Basic 6 ile Sayıları yazıya çeviren fonksiyon

Visual Basic 6 ile Sayıları yazıya çeviren fonksiyon





Bu fonksiyon 10 basamaklı sayıları yazıya çevirmek amaçlı kullanılabilir.

Public Function cevir(x)
Dim birler(10) As String
Dim onlar(10) As String
Dim i, s, harf, harf1, harf2, harf3, harf4, harf5, harf6, harf7, harf8, harf9
s = x
i = Len(s)
birler(0) = ""
birler(1) = "Bir"
birler(2) = "İki"
birler(3) = "Üç"
birler(4) = "Dört "
birler(5) = "Beş "
birler(6) = "Altı "
birler(7) = "Yedi "
birler(8) = "Sekiz "
birler(9) = "Dokuz "
onlar(0) = ""
onlar(1) = "On"
onlar(2) = "Yirmi"
onlar(3) = "Otuz"
onlar(4) = "Kırk"
onlar(5) = "Elli"
onlar(6) = "Altmış"
onlar(7) = "Yetmiş"
onlar(8) = "Seksen"
onlar(9) = "Doksan"
'Bir basamaklı sayılar için
If (i &gt= 1) Then
harf = birler(Val(Mid(s, i, 1)))
cevir = harf
End If
'iki basamaklı sayılar için
If (i &gt= 2) Then
harf1 = onlar(Val(Mid(s, i - 1, 1))) + harf
cevir = harf1
End If
'üç basamaklı sayılar için
If (i >= 3) Then
If Val(Mid(s, i - 2, 1)) = 0 Then
  harf2 = harf1
  ElseIf Val(Mid(s, i - 2, 1)) = 1 Then
  harf2 = "Yüz" + harf1
  Else
  harf2 = birler(Val(Mid(s, i - 2, 1))) + "Yüz" + harf1
  End If
  cevir = harf2
End If
'dört basamaklı sayılar için
If (i >= 4) Then
If Val(Mid(s, i - 3, 1)) = 0 Then
harf3 = harf2
ElseIf Val(Mid(s, i - 3, 1)) = 1 Then
harf3 = "Bin" + harf2
Else
harf3 = birler(Val(Mid(s, i - 3, 1))) + "Bin" + harf2
End If
cevir = harf3
End If
'beş basamaklı sayılar için
If (i &gt= 5) Then
If Val(Mid(s, i - 4, 1)) = 0 Then
harf4 = harf3
Else
harf4 = onlar(Val(Mid(s, i - 4, 1))) + birler(Val(Mid(s, i - 3, 1))) + "Bin" + harf2
End If
cevir = harf4
End If
'altı basamaklı sayılar için
If (i &gt= 6) Then
If Val(Mid(s, i - 5, 1)) = 0 Then
harf5 = harf4
ElseIf Val(Mid(s, i - 5, 1)) = 1 Then
harf5 = "Yüz" + onlar(Val(Mid(s, i - 4, 1))) + birler(Val(Mid(s, i - 3, 1))) + "Bin" + harf2
Else
harf5 = birler(Val(Mid(s, i - 5, 1))) + "Yüz" + onlar(Val(Mid(s, i - 4, 1))) + birler(Val(Mid(s, i - 3, 1))) + "Bin" + harf2
End If
cevir = harf5
End If
'yedi basamaklı sayılar için
If (i >= 7) Then
If Val(Mid(s, i - 6, 1)) = 0 Then
harf6 = harf5
Else
harf6 = birler(Val(Mid(s, i - 6, 1))) + "Milyon" + harf5
End If
cevir = harf6
End If
'sekiz basamaklı sayılar için
If (i &gt= 8) Then
If Val(Mid(s, i - 7, 1)) = 0 Then
harf7 = harf6
Else
harf7 = onlar(Val(Mid(s, i - 7, 1))) + birler(Val(Mid(s, i - 6, 1))) + "Milyon" + harf5
End If
cevir = harf7
End If
'dokuz basamaklı sayılar için
If (i &gt= 9) Then
If Val(Mid(s, i - 8, 1)) = 0 Then
harf8 = harf7
ElseIf Val(Mid(s, i - 8, 1)) = 1 Then
harf8 = "Yüz" + onlar(Val(Mid(s, i - 7, 1))) + birler(Val(Mid(s, i - 6, 1))) + "Milyon" + harf5
Else
harf8 = birler(Val(Mid(s, i - 8, 1))) + "Yüz" + onlar(Val(Mid(s, i - 7, 1))) + birler(Val(Mid(s, i - 6, 1))) + "Milyon" + harf5
End If
cevir = harf8
End If
'on basamaklı sayılar için
If (i &gt= 10) Then
If Val(Mid(s, i - 9, 1)) = 0 Then
harf9 = harf8
Else
harf9 = birler(Val(Mid(s, i - 9, 1))) + "Milyar" + harf8
End If
cevir = harf9
End If
If (i &gt 10) Then
MsgBox ("On rakamdan fazla girdiniz Program desteklemiyor")
cevir = "#Yanlış!!!"
End If
End Function


Önder Özcan

kaman10@yahoo.com

 

TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s