Attribute VB_Name = "Module1"
Public ERR0R_COM As Boolean
Public an_set(19) As Boolean
Public alarm(19) As Boolean
Public set_v(19) As String
Public value1(19) As Single
Public value3(3) As Single
Public value4(19) As Integer
Public value5(19) As Single
Public value6(1) As Single
Public value7(1) As Single
Public n(1) As String
Public DIGIT_IN(5, 15) As Boolean

Public Function ErrMessage(ByVal X As String)
  Select Case X
    Case "13"
      MsgBox "校驗錯誤"
    Case "14"
      MsgBox "格式錯誤"
    Case "15"
      MsgBox "入口碼錯誤"
    Case "18"
      MsgBox "幀長度錯誤"
    Case "A3"
      MsgBox "傳送數據時因FCS錯誤引起終止"
    Case "A8"
      MsgBox "傳送數據時因長度錯誤引起在終止"
  End Select
End Function

Public Function Revert(ByVal X As String) As Long  '16進制轉換10進制
   K = 0
   For I = 1 To 4
       F$ = Mid$(X, I, 1)
       If F$ = "A" Then
        J = 10
       ElseIf F$ = "B" Then
        J = 11
       ElseIf F$ = "C" Then
        J = 12
       ElseIf F$ = "D" Then
        J = 13
       ElseIf F$ = "E" Then
        J = 14
       ElseIf F$ = "F" Then
        J = 15
       Else
        J = Val(F$)
      End If
       K = K * 16 + J
    Next
    Revert = K
    K = 0
End Function

Public Function four_bit(ByVal X As Single) As String   '位數處理
  b = Trim(Hex(X))
  A = Len(b)
  Select Case A
    Case 1
      four_bit = "000" + b
    Case 2
      four_bit = "00" + b
    Case 3
      four_bit = "0" + b
    Case 4
      four_bit = b
  End Select
End Function

Function XORR(ByVal STRI As String) As String   '校驗碼的異或處理
 Dim I, J, K As Integer
 J = Len(STRI)
 K = 0
 For I = 1 To J
  K = Asc(Mid$(STRI, I, 1)) Xor K
 Next I
 fcdd$ = Hex$(K)
 If Len(fcdd$) = 1 Then
  XORR = "0" + fcdd$
 End If
  XORR = fcdd$
End Function