TEK YAPMANIZ GEREKEN İKİ TANE TEXTBOX BİR TANE BUTON KOYMANIZ

1. TextBox; Sayı Girişi
2. TextBox; Yazı Çıktısı

Public Class Form1

    Dim Birler(9) As String

    Dim Onlar(9) As String

    Dim Yüzler(9) As String

    Dim Binler(5) As String

    Dim Sayi As Long

    Dim Yazi As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        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"

        Yüzler(0) = ""

        Yüzler(1) = "Yüz"

        Yüzler(2) = "İkiYüz"

        Yüzler(3) = "ÜçYüz"

        Yüzler(4) = "DörtYüz"

        Yüzler(5) = "BeşYüz"

        Yüzler(6) = "AltıYüz"

        Yüzler(7) = "YediYüz"

        Yüzler(8) = "SekizYüz"

        Yüzler(9) = "DokuzYüz"

        Binler(0) = ""

        Binler(1) = "Bin"

        Binler(2) = "Milyon"

        Binler(3) = "Milyar"

        Binler(4) = "Trilyon"

        Binler(5) = "Katrilyon"

    End Sub

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

        Dim Sayi_Yazi As Object

        Dim i As Integer

        Sayi = Int(Val(TextBox1.Text))

        Sayi_Yazi = Microsoft.VisualBasic.Right(Str(Sayi), Len(Str(Sayi) - 1))

        Yazi = ""

        For i = 0 To 5

            Yazi = Uc_Hane(Microsoft.VisualBasic.Right(Sayi_Yazi, 3)) + _

             IIf(Val(Microsoft.VisualBasic.Right(Sayi_Yazi, 3)) <> 0, Binler(i), "") + Yazi

            If Len(Sayi_Yazi) > 3 Then

                Sayi_Yazi = Microsoft.VisualBasic.Left(Sayi_Yazi, Len(Sayi_Yazi) - 3)

                Do While Len(Sayi_Yazi) < 3

                    Sayi_Yazi = "0" + Sayi_Yazi

                Loop

            Else

                Sayi_Yazi = ""

            End If

        Next

        TextBox2.Text = Yazi.Replace("BirBin", "Bin")

    End Sub

    Function Uc_Hane(ByVal X As String) As String

        Uc_Hane = Birler(Val(Mid(X, 3, 1)))

        Uc_Hane = Onlar(Val(Mid(X, 2, 1))) + Uc_Hane

        Uc_Hane = Yüzler(Val(Mid(X, 1, 1))) + Uc_Hane

    End Function

End Class