Monday, 13 November 2017

Change number in word vb.net window application


Form1.vb

Public Class NumberInWord

    Private Sub ButtonShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonShow.Click
        TextBoxWord.Text = ""
        Dim amount, dummy, rev, rem1, count, temp As Integer
        rev = 0
        count = 0
        amount = CInt(TextBoxNumber.Text)
        dummy = amount
        While (dummy <> 0)
            rem1 = dummy Mod 10
            If rem1 = 0 Then
                count = count + 1
            Else
                Exit While
            End If
            dummy = dummy \ 10
        End While
        'MessageBox.Show(dummy)
        dummy = amount
        While (dummy <> 0)
            rem1 = dummy Mod 10
            rev = rev * 10 + rem1
            dummy = dummy \ 10
        End While
        dummy = amount
        MessageBox.Show("Amount In Word", "Amount In Word")
        While (rev <> 0)
            rem1 = rev Mod 10
            Select Case (rem1)
                Case 0
                    TextBoxWord.Text += "Zero"
                Case 1
                    TextBoxWord.Text += "One"
                Case 2
                    TextBoxWord.Text += "Two"
                Case 3
                    TextBoxWord.Text += "Three"
                Case 4
                    TextBoxWord.Text += "Four"
                Case 5
                    TextBoxWord.Text += "Five"
                Case 6
                    TextBoxWord.Text += "Six"
                Case 7
                    TextBoxWord.Text += "Seven"
                Case 8
                    TextBoxWord.Text += "Eight"
                Case 9
                    TextBoxWord.Text += "Nine"
            End Select
            rev = rev \ 10
        End While
        For temp = 1 To count
            TextBoxWord.Text += "Zero"
        Next
    End Sub

End Class

0 comments

Post a Comment