’FCS校驗 Public Function FCS(Msg() As Byte, Num As Integer) As Byte Dim FCSTemp As Byte Dim i As Integer FCSTemp = 0 i = 0 For i = 0 To 12 FCSTemp = FCSTemp Xor Msg(i) Next i FCSTemp = Hex(FCSTemp) If Num = 13 Then Msg(Num) = Asc(Mid(FCSTemp, 1, 1)) ElseIf Num = 14 Then Msg(Num) = Asc(Mid(FCSTemp, 2, 1)) End If FCS = Msg(Num) End Function ’創建讀取DM區的協議 ’@00RD00000010+校驗碼+"*"+"回車" Private Sub CreateXRRM() Dim i As Integer X_RRM0(0) = &H40 ’消息開始 X_RRM0(1) = &H30 X_RRM0(2) = &H30 X_RRM0(3) = &H52 ’R X_RRM0(4) = &H44 ’D X_RRM0(5) = &H30 X_RRM0(6) = &H30 X_RRM0(7) = &H30 X_RRM0(8) = &H30 X_RRM0(9) = &H30 X_RRM0(10) = &H30 X_RRM0(11) = &H31 X_RRM0(12) = &H30 X_RRM0(13) = FCS(X_RRM0, 13) X_RRM0(14) = FCS(X_RRM0, 14) X_RRM0(15) = &H2A X_RRM0(16) = &HD End Sub 這樣讀取DM區數據有沒有問題啊??