TL ÇEVİRME VE YAZIYA ÇEVİREN PROGRAM

Public Class Form1

Function tlcevir(ByVal tl)

'

Dim sonuc As String = " # SIFIR TL, "

Dim basamak(10), deger(13), basamaklarimiz(13) As String

Dim i As Integer

'tl = Str(Int(tl))

basamak(0) = " SIFIR"

basamak(1) = " BİR"

basamak(2) = " İKİ"

basamak(3) = " ÜÇ"

basamak(4) = " DÖRT"

basamak(5) = " BEŞ"

basamak(6) = " ALTI"

basamak(7) = " YEDİ"

basamak(8) = " SEKİZ"

basamak(9) = " DOKUZ"

deger(1) = " ON"

deger(2) = " YİRMİ"

deger(3) = " OTUZ"

deger(4) = " KIRK"

deger(5) = " ELLİ"

deger(6) = " ALTMIŞ"

deger(7) = " YETMİŞ"

deger(8) = " SEKSEN"

deger(9) = " DOKSAN"

Dim k As Integer = 0

For i = Strings.Len(tl) To 1 Step -1

basamaklarimiz(i) = Strings.Mid(tl, i, 1)

Next

If Strings.Len(tl) > 1 Then

If Strings.Len(tl) > 2 Then

If Strings.Len(tl) > 3 Then

If Strings.Len(tl) > 4 Then

If Strings.Len(tl) > 5 Then

If Strings.Len(tl) > 6 Then

Else

sonuc = basamak(basamaklarimiz(Strings.Len(tl) - 5)) & " YÜZ" & deger(basamaklarimiz(Strings.Len(tl) - 4)) & basamak(basamaklarimiz(Strings.Len(tl) - 3)) & " BİN" & basamak(basamaklarimiz(Strings.Len(tl) - 2)) & " YÜZ" & deger(basamaklarimiz(5)) & basamak(basamaklarimiz(6))

sonuc = Replace(sonuc, "SIFIR BİN", " BİN")

End If

Else

sonuc = deger(basamaklarimiz(Strings.Len(tl) - 4)) & basamak(basamaklarimiz(Strings.Len(tl) - 3)) & " BİN" & basamak(basamaklarimiz(Strings.Len(tl) - 2)) & " YÜZ" & deger(basamaklarimiz(4)) & basamak(basamaklarimiz(5))

sonuc = Replace(sonuc, "SIFIR BİN", " BİN")

End If

Else

sonuc = basamak(basamaklarimiz(Strings.Len(tl) - 3)) & " BİN" & basamak(basamaklarimiz(Strings.Len(tl) - 2)) & " YÜZ" & deger(basamaklarimiz(3)) & basamak(basamaklarimiz(4))

End If

Else

sonuc = basamak(basamaklarimiz(Strings.Len(tl) - 2)) & " YÜZ" & deger(basamaklarimiz(2)) & basamak(basamaklarimiz(3))

End If

Else

sonuc = deger(basamaklarimiz(1)) & basamak(basamaklarimiz(2))

End If

Else

sonuc = basamak(basamaklarimiz(1))

End If

sonuc = Replace(sonuc, "SIFIR BİN", "")

sonuc = Replace(sonuc, "SIFIR YÜZ", "")

sonuc = Replace(sonuc, "BİR YÜZ", "YÜZ")

sonuc = Replace(sonuc, " SIFIR", " ")

sonuc = Replace(sonuc, " ", " ")

sonuc = Replace(sonuc, " ", " ")

Return sonuc

End Function

Function yaziyacevir(ByVal gelen)

Dim virgulnerde As Integer

If gelen = "" Then gelen = "0,00"

Dim sonuc, tlsayi, kurussayi As String

gelen = Replace(gelen, ".", ",")

virgulnerde = InStr(gelen, ",")

'If virgulnerde <> 0 Then tambasamak = virgulnerde - 1 Else tambasamak = Strings.Len(gelen)

If virgulnerde <> 0 Then tlsayi = Strings.Left(gelen, virgulnerde - 1) Else tlsayi = gelen

If virgulnerde <> 0 Then kurussayi = Strings.Mid(gelen, virgulnerde + 1, 2) Else kurussayi = 0

If Int(kurussayi) < 10 Then kurussayi = kurussayi & "0"

sonuc = "# " & tlcevir(tlsayi) & " TL, " & tlcevir(kurussayi) & " KRŞ #"

Return sonuc

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox2.Text = yaziyacevir(TextBox1.Text)

End Sub

End Class