以下是omron E5CN sysway通訊vb程式
@00RX01(FCS)*
vb需先開啟MScomm,設定通訊埠例如COM1,資料格式例如9600,e,7,2
cmm$ = "@00RX01"
GoSub FCS
cmm1$ = cmm$ + R$ + "*"
Label1.Caption = cmm1$
MSComm1.Output = Trim(cmm1$ + Chr(13))
MSComm1.InputLen = 0
If MSComm1.InBufferCount Then
INSTRING1 = MSComm1.Input
End If
Label2.Caption = INSTRING1
Label3.Caption = Str(Val(Mid(INSTRING1, 8, 4)))
Label4.Caption = Str(Val(Mid(INSTRING1, 12, 4)))
Exit Sub
FCS:
Q = 0
L = Len(cmm$)
For I = 1 To L
Q = Asc(Mid(cmm$, I, 1)) Xor Q
Next I
R$ = Hex$(Q)
If Len(R$) = 1 Then
R$ = "0" + R$
End If
Return
溫度控製器廠牌?型號?
protocol可mail:ct.et@msa.hinet.net