美女视频深夜福利网站|午夜性春猛交|日日射日日干|av免费提供|另类网站

廣州菱控|歐姆龍(OMRON)
當前位置:首頁 >> 技術支持 >> davy謝謝啊,再看看這個怎么樣
davy謝謝啊,再看看這個怎么樣   時間:2013/11/17 9:13:00
’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區數據有沒有問題啊??
上一篇 上一篇:CQM1-CPU21
下一篇 下一篇:指令APR(069)
相關問題
相關下載