vb-s7200用modbus例子.docVIP

S7-200 ModBus从站通讯程序(PC作主站) 收藏此信息 打印该信息 添加：用户发布 来源：未知 一直看到有些朋友在问ModBus主从站的通讯问题，今天抽空儿给大家发几篇。事先申明，我是调用的主从站库，库本身并不是我编写的，我没有那么大的能耐。另外，上位机是用VB编写，VB本身不是很熟，如果有什么错误，请大家海谅。最后，这仅仅只是一个测试程序，如果各位想用到商业方面，还需要各位自己去完善。说明：PLC从站，PC作主站，用ModBus协议进行通讯。PC机读取PLCVW区的数据；PC机还读取PLC内部I或者O地址的状态。///////////////////////////////////////以下是PLC程序实现，方便贴出，已转换为STLTITLE=程序注释Network 1 // 网络标题// 在第一个循环周期内初始化Modbus从站协议LD SM0.1CALL SBR3, 1, 12, 9600, 0, 0, 128, 32, 1000, VB0, M10.1, MB11Network 2 // 在每个循环周期内执行Modbus 从站协议LD SM0.0CALL SBR1, M10.2, MB12Network 3 LD SM0.0MOVW AIW0, VW100/I +54, VW100MOVW AIW2, VW102/I +54, VW102 字串9 MOVW AIW4, VW104/I +54, VW104MOVW AIW6, VW106/I +54, VW106Network 4 LD SM0.0= Q0.0Network 5 LD I0.0= Q0.1Network 6 LD I0.1= Q0.2///////////////////////////////////////////////////////////////////////////以下是VB源码Option ExplicitPrivate Declare Function GetTickCount Lib kernel32 () As LongDim x1Dim p11, p12, p13, p14, p15, p16, p17, p18Function CRC16(data() As Byte) As StringDim CRC16Lo As Byte, CRC16Hi As Byte CRC寄存器Dim CL As Byte, CH As Byte 多项式码HA001Dim SaveHi As Byte, SaveLo As ByteDim i As IntegerDim Flag As IntegerCRC16Lo = HFFCRC16Hi = HFFCL = H1CH = HA0For i = 0 To UBound(data)CRC16Lo = CRC16Lo Xor data(i) 每一个数据与CRC寄存器进行异或 字串4 For Flag = 0 To 7SaveHi = CRC16HiSaveLo = CRC16LoCRC16Hi = CRC16Hi \ 2 高位右移一位CRC16Lo = CRC16Lo \ 2 低位右移一位If ((SaveHi And H1) = H1) Then 如果高位字节最后一位为1CRC16Lo = CRC16Lo Or H80 则低位字节右移后前面补1End If 否则自动补0If ((SaveLo And H1) = H1) Then 如果LSB为1，则与多项式码进行异或CRC16Hi = CRC16Hi Xor CHCRC16Lo = CRC16Lo Xor CLEnd IfNext FlagNext iDim ReturnData(1) As ByteReturnData(0) = CRC16Hi CRC高位ReturnData(1) = CRC16Lo CRC低位CRC16 = ReturnDataEnd FunctionPrivate Sub About_Click()frmAbout.ShowEnd SubPrivate Sub Form_Load() 初始化Timer1.Enabled = False 定时器1无效Timer1.Interval = 1000 定时器1时间为1STimer2.Enabled = True 定时器2有效Timer2.Interval = 1000 定时器2时间为1S Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Tex