How to Automate Convert Numbers into Letters in VB6 Programming?

How to automate conversion numbers? In the previous posting you have learnt how to convert numbers into letters with Select Case..End Select control structure, If..Then..Else..End If control structure, and command button. The conversion will be processed after you clik command button. In this session you still learn how to convert number into letter with Select Case..End Select and If..Then..Else..End If, however you don't need a command button anymore. The conversion will automatically processed when you typing a number in the text box. How to do this? What's the program like?

This is just an easy thing to do. You can use the previous program conversion number you have created. You just write down your coding in Sub Text1_Change() and Sub Text2_Change(). This two Subs that make conversion process automatically done. For detail how to do, you can follow below instructions (it's a simple VB programming tips).

1. Using if..then..else..end if control structure

Create a VB project for example Project1

Create a VB standard form for example Form1

Create a text box for example Text1

Create another text box for example Text2

Create a label for example Label1

Create another label for example Label2

Doubleclick Text1 text box to create a Sub Text1_Change()

Write down below program coding in the Sub Text1_Change() area

    If Val(Text1.Text) = 0 Then
Label1.Caption = "zero"
Else
If Val(Text1.Text) = 1 Then
Label1.Caption = "one"
Else
If Val(Text1.Text) = 2 Then
Label1.Caption = "two"
Else
If Val(Text1.Text) = 3 Then
Label1.Caption = "three"
Else
If Val(Text1.Text) = 4 Then
Label1.Caption = "four"
Else
If Val(Text1.Text) = 5 Then
Label1.Caption = "five"
Else
If Val(Text1.Text) = 6 Then
Label1.Caption = "six"
Else
If Val(Text1.Text) = 7 Then
Label1.Caption = "seven"
Else
If Val(Text1.Text) = 8 Then
Label1.Caption = "eight"
Else
If Val(Text1.Text) = 9 Then
Label1.Caption = "nine"
Else
If Val(Text1.Text) = 10 Then
Label1.Caption = "ten"
Else
If Val(Text1.Text) = 11 Then
Label1.Caption = "eleven"
Else
If Val(Text1.Text) = 12 Then
Label1.Caption = "twelve"
Else
If Val(Text1.Text) = 13 Then
Label1.Caption = "thirteen"
Else
If Val(Text1.Text) = 14 Then
Label1.Caption = "forteen"
Else
If Val(Text1.Text) = 15 Then
Label1.Caption = "fifteen"
Else
If Val(Text1.Text) = 16 Then
Label1.Caption = "sixteen"
Else
If Val(Text1.Text) = 17 Then
Label1.Caption = "seventeen"
Else
If Val(Text1.Text) = 18 Then
Label1.Caption = "eighteen"
Else
If Val(Text1.Text) = 19 Then
Label1.Caption = "nineteen"
Else
If Val(Text1.Text) = 20 Then
Label1.Caption = "twenty"
Else
Label1.Caption = "unrecognize number"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

2. Using Select Case..End Select control structure

Doubleclick Text2 text box to create a Sub Text2_Change()

Write down below program coding in the Sub Text2_Change() area

    Select Case Val(Text2.Text)
Case 0
Label2.Caption = "zero"
Case 1
Label2.Caption = "one"
Case 2
Label2.Caption = "two"
Case 3
Label2.Caption = "three"
Case 4
Label2.Caption = "four"
Case 5
Label2.Caption = "five"
Case 6
Label2.Caption = "six"
Case 7
Label2.Caption = "seven"
Case 8
Label2.Caption = "eight"
Case 9
Label2.Caption = "nine"
Case 10
Label2.Caption = "ten"
Case 11
Label2.Caption = "eleven"
Case 12
Label2.Caption = "twelve"
Case 13
Label2.Caption = "thirteen"
Case 14
Label2.Caption = "forteen"
Case 15
Label2.Caption = "fifteen"
Case 16
Label2.Caption = "sixteen"
Case 17
Label2.Caption = "seventeen"
Case 18
Label2.Caption = "eighteen"
Case 19
Label2.Caption = "nineteen"
Case 20
Label2.Caption = "twenty"
Case Else
Label2.Caption = "unrecognize number"
End Select

You can run your program by clicking Start button on your VB toolbar to check whether your program is correct or not.

Type a number in Text1 box for example 15

Type a number in Text2 box for example 15

If letter "fifteen" appears in both Label1 and Label2, it means that your program is correct, and running properly.

---