Visual Basic.Net--Girilen sayının okunuşunun yazılması

Girilen 4 basamaklı bir sayının okunuşunu yazan program.

Form görüntüsü

"Sayiyi Gir" butonuna çift tıklıyoruz ve içerisine şu kodları yazıyoruz.



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sayi1, sayi2, sayi3, sayi4 As Integer
        Dim yaz1, yaz2, yaz3, yaz4, yazdir As String
        sayi1 = Val(TextBox1.Text(0))
        sayi2 = Val(TextBox1.Text(1))
        sayi3 = Val(TextBox1.Text(2))
        sayi4 = Val(TextBox1.Text(3))


        If sayi1 = 2 Then
            yaz1 = "iki"
        ElseIf sayi1 = 3 Then
            yaz1 = "üç"
        ElseIf sayi1 = 4 Then
            yaz1 = "dört"
        ElseIf sayi1 = 5 Then
            yaz1 = "beş"
        ElseIf sayi1 = 6 Then
            yaz1 = "alti"
        ElseIf sayi1 = 7 Then
            yaz1 = "yedi"
        ElseIf sayi1 = 8 Then
            yaz1 = "sekiz"
        ElseIf sayi1 = 9 Then
            yaz1 = "dokuz"
        End If




        If sayi2 = 2 Then
            yaz2 = "iki"
        ElseIf sayi2 = 3 Then
            yaz2 = "üç"
        ElseIf sayi2 = 4 Then
            yaz2 = "dört"
        ElseIf sayi2 = 5 Then
            yaz2 = "beş"
        ElseIf sayi2 = 6 Then
            yaz2 = "alti"
        ElseIf sayi2 = 7 Then
            yaz2 = "yedi"
        ElseIf sayi2 = 8 Then
            yaz2 = "sekiz"
        ElseIf sayi2 = 9 Then
            yaz2 = "dokuz"
        End If




        If sayi3 = 1 Then
            yaz3 = "on"
        ElseIf sayi3 = 2 Then
            yaz3 = "yirmi"
        ElseIf sayi3 = 3 Then
            yaz3 = "otuz"
        ElseIf sayi3 = 4 Then
            yaz3 = "kırk"
        ElseIf sayi3 = 5 Then
            yaz3 = "elli"
        ElseIf sayi3 = 6 Then
            yaz3 = "altmış"
        ElseIf sayi3 = 7 Then
            yaz3 = "yetmiş"
        ElseIf sayi3 = 8 Then
            yaz3 = "seksen"
        ElseIf sayi3 = 9 Then
            yaz3 = "doksan"
        End If


        If sayi4 = 1 Then
            yaz4 = "bir"
        ElseIf sayi4 = 2 Then
            yaz4 = "iki"
        ElseIf sayi4 = 3 Then
            yaz4 = "üç"
        ElseIf sayi4 = 4 Then
            yaz4 = "dört"
        ElseIf sayi4 = 5 Then
            yaz4 = "beş"
        ElseIf sayi4 = 6 Then
            yaz4 = "alti"
        ElseIf sayi4 = 7 Then
            yaz4 = "yedi"
        ElseIf sayi4 = 8 Then
            yaz4 = "sekiz"
        ElseIf sayi4 = 9 Then
            yaz4 = "dokuz"
        End If


        If sayi1 = 0 Then    'ilk basamak 0 ise 4 basamaklı bir sayı girin mesajı verir.
            MsgBox("4 basamakli bir sayi giriniz!")
        ElseIf sayi2 = 0 And sayi3 = 0 Then
            yazdir = yaz1 + "bin" + yaz4
        ElseIf sayi2 = 0 Then
            yazdir = yaz1 + "bin" + yaz3 + yaz4
        ElseIf sayi3 = 0 Then
            yazdir = yaz1 + "bin" + yaz2 + "yüz" + yaz4
        Else
            yazdir = yaz1 + "bin" + yaz2 + "yuz" + yaz3 + yaz4
        End If
        TextBox2.Text = yazdir
    End Sub