−21−
Example2 ）Microsoft Visual Basic.NET
'***** LRC PROGRAM *****
Function fncCalcLrc(ByVal sCharData As String) As String
Dim intLoop As Integer
Dim intStrSize As Integer
Dim intLRC As Integer
Dim sRtnLrc As String
intStrSize = Len(sCharData) / 2
intLRC = 0
For intLoop = 1 To intStrSize
intLRC = Val("&H" + Mid(sCharData, 2 * intLoop ‑ 1, 2))
Next intLoop
sRtnLrc = Hex(&HFF ‑ 1)
sRtnLrc = Microsoft.VisualBasic.Right("0" & sRtnLrc, 2)
Return sRtnLrc
End Function
Microsoft Visual Basic.NET
is either trademarks or registered trademarks of
Microsoft Corporation in the U.S. and other countries.
