Sayıyı Metine Çevirme

Konu: Sayıyı Metine Çevirme Salı Eyl. 08, 2009 1:47 am

İngilizcede
11 ve 19 arası sayıların sesleri türkçede olduğu gibi 'on' ve 'bir'
kelimelerinin birleşmeleri ile meydana gelmez. yani 11 için 'eleven'
kelimesi ingilizce 10 'ten' ve 1 'one' kelimelerinden oluşmaz. Bu
durumda bu sayılar için fonksiyon içinde özel bir bölüm gerekir.

Bu fonksiyon cok güzel bir şekilde çalışıyor. Dileyen arkadaşlar kullanabilir.

Sayıyı Metine Çevirme Info4

Bu
fonksiyondan yola çıkarak ve yukarıdaki ipucu da dikkate alındığında
aynı şekilde ingilizcesi yazdırılmak istenirse programda ne tür bir
değişiklik yapılmalıdır?

Dim b$(9)
Dim y$(9)
Dim m$(4)
Dim v(15)
Dim c(3)
Private Sub Form_Load()
Text1.Text = Yaziyla$(15000)
End Sub

Function Yaziyla$(sayi)

b$(0) = ""
b$(1) = "Bir"
b$(2) = "İki"
b$(3) = "Üç"
b$(4) = "Dört"
b$(5) = "Beş"
b$(6) = "Altı"
b$(7) = "Yedi"
b$( Cool

= "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$( Cool

= "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 = 0 Then s$ = "Eksi" + s$
Yaziyla$ = s$
GoTo tamam
hata: Yaziyla$ = "Hata"
tamam:
End Function

» İstediğiniz Kelimeyi Büyük - Küçük Harfe Çevirme
» Renkli resmi eski klasik resme çevirme
» büyük sayıyı bulma
» 10 tabanındaki sayıyı n tabanına çeviren program.
» Girilen Sayıyı Roma Rakamlarına Çevirelim