The RM4SCC barcode option is specified in IDAutomation Barcode Fonts, Components and Applications to create a readable RM4SCC barcode, which includes both numbers and uppercase letters.
Using the RM4SCC barcode option with a font encoder returns text formatted to the RM4SCC Barcode Fonts. The VB function below may be used to generate the RM4SCC encoding for the barcode font.
Fig. 1. RM4SCC barcode function from the IDAutomation VB Barcode Font Encoder File.
Public Function RM4SCC(DataToEncode As String) As String
DataToEncode = UCase(DataToEncode)
OnlyCorrectData = ""
StringLength = Len(DataToEncode)
For I = 1 To StringLength
'Get each character one at a time
CurrentCharNum = AscW(Mid(DataToEncode, I, 1))
'Get the value of CurrentChar according to MOD43
'0-9
If CurrentCharNum < 58 And CurrentCharNum > 47
Then OnlyCorrectData = OnlyCorrectData & Mid(DataToEncode, I, 1)
'A-Z
If CurrentCharNum < 91 And CurrentCharNum > 64
Then OnlyCorrectData = OnlyCorrectData & Mid(DataToEncode, I, 1)
Next I
DataToEncode = OnlyCorrectData
Dim r As Integer
Dim C As Integer
Dim Rtotal As Long
Dim Ctotal As Long
Rtotal = 0
Ctotal = 0
WeightedTotal = 0
StringLength = Len(DataToEncode)
For I = 1 To StringLength
'Get each character one at a time
CurrentChar = Mid(DataToEncode, I, 1)
'Get the values of CurrentChar
Select Case CurrentChar
Case "0"
r = 1
C = 1
Case "1"
r = 1
C = 2
Case "2"
r = 1
C = 3
Case "3"
r = 1
C = 4
Case "4"
r = 1
C = 5
Case "5"
r = 1
C = 0
Case "6"
r = 2
C = 1
Case "7"
r = 2
C = 2
Case "8"
r = 2
C = 3
Case "9"
r = 2
C = 4
Case "A"
r = 2
C = 5
Case "B"
r = 2
C = 0
Case "C"
r = 3
C = 1
Case "D"
r = 3
C = 2
Case "E"
r = 3
C = 3
Case "F"
r = 3
C = 4
Case "G"
r = 3
C = 5
Case "H"
r = 3
C = 0
Case "I"
r = 4
C = 1
Case "J"
r = 4
C = 2
Case "K"
r = 4
C = 3
Case "L"
r = 4
C = 4
Case "M"
r = 4
C = 5
Case "N"
r = 4
C = 0
Case "O"
r = 5
C = 1
Case "P"
r = 5
C = 2
Case "Q"
r = 5
C = 3
Case "R"
r = 5
C = 4
Case "S"
r = 5
C = 5
Case "T"
r = 5
C = 0
Case "U"
r = 0
C = 1
Case "V"
r = 0
C = 2
Case "W"
r = 0
C = 3
Case "X"
r = 0
C = 4
Case "Y"
r = 0
C = 5
Case "Z"
r = 0
C = 0
End Select
'add the values together
Rtotal = Rtotal + r
Ctotal = Ctotal + C
Next I
'divide the Totals by 6 and get the remainder, this is
'a reference to the Check Digit.
'set check digit to CurrentChar (a string)
Rtotal = (Rtotal Mod 6)
Ctotal = (Ctotal Mod 6)
Select Case Rtotal
Case 1
Select Case Ctotal
Case 1
CurrentChar = "0"
Case 2
CurrentChar = "1"
Case 3
CurrentChar = "2"
Case 4
CurrentChar = "3"
Case 5
CurrentChar = "4"
Case 0
CurrentChar = "5"
End Select
Case 2
Select Case Ctotal
Case 1
CurrentChar = "6"
Case 2
CurrentChar = "7"
Case 3
CurrentChar = "8"
Case 4
CurrentChar = "9"
Case 5
CurrentChar = "A"
Case 0
CurrentChar = "B"
End Select
Case 3
Select Case Ctotal
Case 1
CurrentChar = "C"
Case 2
CurrentChar = "D"
Case 3
CurrentChar = "E"
Case 4
CurrentChar = "F"
Case 5
CurrentChar = "G"
Case 0
CurrentChar = "H"
End Select
Case 4
Select Case Ctotal
Case 1
CurrentChar = "I"
Case 2
CurrentChar = "J"
Case 3
CurrentChar = "K"
Case 4
CurrentChar = "L"
Case 5
CurrentChar = "M"
Case 0
CurrentChar = "N"
End Select
Case 5
Select Case Ctotal
Case 1
CurrentChar = "O"
Case 2
CurrentChar = "P"
Case 3
CurrentChar = "Q"
Case 4
CurrentChar = "R"
Case 5
CurrentChar = "S"
Case 0
CurrentChar = "T"
End Select
Case 0
Select Case Ctotal
Case 1
CurrentChar = "U"
Case 2
CurrentChar = "V"
Case 3
CurrentChar = "W"
Case 4
CurrentChar = "X"
Case 5
CurrentChar = "Y"
Case 0
CurrentChar = "Z"
End Select
End Select
'Return Printable String
RM4SCC = "(" & DataToEncode & CurrentChar & ")"
End Function