A program that I wrote using Microsoft Access to accept a number from your user and then it will convert the given number into it's roman numeral equivalent. I am using Microsoft Access 2000 in writing this application. I hope you will find my work useful.
I am currently accepting programming and web development work kindly contact me in the following email address for further details. Thank you.
My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My telephone number at home here in Bacolod City, Negros Occidental is (034) 4335675.
Sample Program Output
Program Listing
' Written By Mr. Jake R. Pomperada, MAED-IT
' January 1, 2018 Monday
' Microsoft Access 2000
Option Compare Database
Public Function RomanNumeral(ByVal aValue As Long) As String
Dim i&
Dim varArabic As Variant, varRoman As Variant
Dim strResult As String
varArabic = Array(1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000)
varRoman = Array("I", "IV", "V", "IX", "X", "XL", "L", "XC", "C", "CD", "D", "CM", "M")
For i = UBound(varArabic) To LBound(varArabic) Step -1
Do While aValue >= varArabic(i)
aValue = aValue - varArabic(i)
strResult = strResult & varRoman(i)
Loop
Next i
RomanNumeral = strResult
End Function
Private Sub Command5_Click()
Dim val_number, display As Double
If Len(Trim(Me.Text2) & vbNullString) = 0 Then
MsgBox "Enter the a Number", vbInformation
Me.Text2.SetFocus
Exit Sub
End If
val_number = RomanNumeral(Me.Text2)
Label8.Caption = "The roman numeral equivalent of " + Trim(Me.Text2) + _
" is " + Trim(val_number) + "."
End Sub
Private Sub Command6_Click()
Me.Label8.Caption = ""
Me.Text2 = ""
Me.Text2.SetFocus
End Sub
Private Sub Command7_Enter()
MsgBox ("This program was written by Mr. Jake R. Pomperada")
End Sub
