Creating a Function to Convert Numbers into Roman Numerals

To create a number of letters we often use roman numerals to indicate the month of making the letter.For example, the letter number is '001/Int/III/2010' where the symbol 'III' indicates that the letter was made in March 2010.

For this we need a function that can convert an integer number from 1 to 12 into roman numerals. In the Visual Basic programming, we can easily create such a function. Well, here we'll show an example program to create such functions, as well as examples of how to use it.

First open your VB program and select standard exe form

Click the View menu

Click the Code menu

Write the Visual Basic (VB) program code below

Function IToR(i As Integer) As String
Dim s As String
s = "I   II  III IV  V   VI  VII VIIIIX  X   XI  XII "
IToR = Mid(s, (i - 1) * 4 + 1, 4)
End Function

Click the View menu

Click the Object menu

Put two label controls, two textboxes and a CommandButton to the form

Change the Caption of first label into 'Month'

Change the Caption of second label into 'Roman Numeral'

Change the name of the first textbox into 'txtMonth'

Change the name of the second textbox into 'txtRomNum'

Remove texts on the first and second textboxes

Change the name of the CommandButton into 'cmdConvert'

Change the CommandButton caption into 'Convert'
So your Screen design will look like the image below:

Double click CommandButton 'Convert'

Write below Visual Basic (VB) program coding

Private Sub cmdConvert_Click()
txtRomNum.Text = IToR(Val(txtMonth.Text))
End Sub

Okay, you have completed the program
Now it's time to test

Run your program

Type a number such as 8 in the first textbox

Click CommandButton 'Convert'
Consider the results

Read the rest of content.........