VB与ABPLC之间通讯.docVIP

VB与AB的PLC之间通讯 2007-05-31???来源：西部工控网???浏览：300 [推荐朋友]?[打印本稿]?[字体：大??小] VB与ABPLC之间通讯??? AB系列PLC一般都有专用驱动程序用于实现PLC和计算机之间通讯，如RSLINX就是专门用于做这项工作，但使用RSLINX也具有一定局限性，这里提供一个使用VB编程实现PLC和计算机之间通讯程序，使用协议是DF1，可以支持Micrologix、SLC500等系列PLC。使用代码如下：????? Option Explicit????? Dim tns%, comunicating????? Private Sub Command1_Click()????? ReDim tb%(10)????? Dim st????? If ReadTable(0, tb%()) Then????? For st = 0 To 9 显示结果????? Text1.SelText = Str(tb%(st)) + Chr(32)????? Next st????? Text1.SelText = Chr(13) + Chr(10)????? End If????? End Sub ? ????? Private Sub Command2_Click()????? ReDim tm%(5)????? tm%(0) = Rnd * 32768????? tm%(1) = Rnd * 32768????? tm%(2) = Rnd * 32768????? tm%(3) = Rnd * 32768????? tm%(4) = Rnd * 32768????? If Not WriteTable(4, tm%()) Then Text1.SelText = 写入错误！！????? End Sub ????? Private Sub Exit_Click()牋牋?Unload Me牋牋?End牋牋?End Sub 牋牋?Private Sub Form_Load()牋牋?Comm1.PortOpen = True牋牋?End Sub 牋牋?Private Sub Form_Unload(Cancel As Integer)牋牋?Comm1.PortOpen = False牋牋?End Sub 牋牋?Private Sub CalcCRC(mes$)牋牋?Dim byt%, res牋牋?对消息进行crc校验，然后将结果添加到消息结尾。????? byt% = 3????? Do????? res = res Xor Asc(Mid(mes$, byt%, 1))????? rotate res????? If Asc(Mid(mes$, byt%, 1)) = 16 Then????? mes$ = Left$(mes$, byt%) + Chr(16) + Right$(mes$, Len(mes$) - byt%)????? byt% = byt% + 1????? End If????? byt% = byt% + 1????? Loop While (byt% = Len(mes$) - 2)????? res = res Xor 3????? rotate res????? mes$ = mes$ + Chr(res Mod 256) + Chr(Int(res / 256))????? End Sub ????? Function ReadTable(start, n%())????? Dim st, com$????? 从PLC CIF数据表中读取数据, Micrologix=N7 SLC500=N9????? If comunicating Then Exit Function????? comunicating = True????? Form1.Comm1.InputLen = 0 清缓冲区????? com$ = Form1.Comm1.Input????? 构建消息????? com$ = Chr(16) + Chr(2) + Chr(0) + Chr(0)????? com$ = com$ + Chr(1) + Chr(0) + Chr(tns%) + Chr(0)????? com$ = com$ + Chr(start) + Chr(0) + Chr(UBound(n%) * 2)????? com$ = com$ + Chr(16) + Chr(3)????? 进行cr