module1.bas

omron 2d code reader

Attribute VB_Name = "Module1"
Public Function ErrM(ByVal X As String)
      X = UCase(X)
        If X = "E000" Then A = MsgBox("2D code can't found,possily due to uneven background.Check the work piece surface and lighting condition.", vbInformation, "Information")
        If X = "E100" Then A = MsgBox("2D code cell cannot be recognized correctly. Check the marking and lighting conditions, and then perform teaching again. ", vbInformation, "Information")
        If X = "E200" Then A = MsgBox("Reading was not completed within the specified period of time. Check the work piece and lighting condition, then perform teaching again.", vbInformation, "Information")
        If A = 1 Then ErrM = 1

End Function