VB和台达PLC上位机通讯软件.docVIP

为答谢各位网友的支持,也算是一个小小的礼物吧,特将我以VB写的 一个工控通讯程序源码奉上,以资感谢. ?这个程序是VB同台达PLC的通讯调试程序,其于台达系列PLC的 MODBUS ASCII协议,涉及IO及寄存器的读写,稍加改动即可用于 工控项目中.我在写这个程序时,也参考了基于VB 的台达PLC和 监控计算机的串口通讯一文,在此也向作者表示感谢. ? Dim plc As ByteDim y0flag As ByteDim y1flag As ByteDim str As StringDim n, S Private Sub Command1_Click()Dim strout As StringDim QQ As StringTimer1.Enabled = FalseQQ = Text1.TextIf Len(QQ) = 3 Then牋牋牋?QQ = 0 QQ牋?ElseIf Len(QQ) = 2 Then牋牋牋?QQ = 00 QQ牋?ElseIf Len(QQ) = 1 Then牋牋牋?QQ = 000 QQEnd Ifstr =+ QQLRCC = LRC(str)牋 计算 str的lrc校验码。strout = : + str + LRCC + Chr$(13)