用VB编写modbus源代码的过程

本文格式为Word版，下载可任意编辑——用VB编写modbus源代码的过程用VB编写modbus源代码的过程

今天是周六，现在刚从单位自愿加班回来。为什么自愿加班呢？由于自己和老板夸下海口说：一个礼拜把modbus上位机程序写好（也就是这个礼拜拉）。现在终究把这个程序写好拉。

感想好多啊！该如何说起呢？我语文不好，把自己想表达的意思说出来就行拉。

首先：还是那句话：一切得靠自己！上周一时，老板说让我做个modbus界面，我想：这个简单啊。不就是串口收发么?于是我计划安排上写了1个礼拜搞定。然后开始安装DELPHI（我在单位一直搞C编程，机子没有装这些），完后就开启我那曾经熟悉的界面。恩？怎么看似熟悉的界面怎么这么陌生呢/于是上网找资料。。。这个3天的期间我感慨好深啊：由于我大四学习的DELPHI，所以我感觉这个还熟悉点，可是当时做课程设计的时候也没有用过串口，这个串口编程咋得和MCU串口不一样呢？它就是不一样！晕晕。上网找SPCOMM。。。，学习了一天也不会用。于是徒劳了3天也没有效果。转瞬就到了周四，我心里那个急呀。唉！还是忍痛抛弃delphi吧！为什么呢？它没有自带串口控件，下载并安装了还是出错啊。

VB好象是我大二学的，具体时间我也忘了，反正就记得做课设的时候用它连个ACCESS实现了插入删除查询工作。以后知道这个周四我也没有用过，甚至没有见到过它的界面。我选择它一个由于我选择，我喜欢。更重要的是它安装了自带串口控件，不用下载什么的了，用起来实打实的心里有底。

大家现在知道我的底子了吧？周四我借公司里的一本VB书看了一天的串口，然后心理有底了，周五动手一天，收获很大，今天早晨8点起床，心理还琢磨着程序的事情，由于家里没有试验仪器，于是计划去公司，一直做到现在，终究搞定拉。这个礼拜上网找源代码的时候看着好多像我一样找源码的人发帖子要源程序，但是大多只是网页写了一大堆代码。没有用！为什么呢？你怎么知道人家用什么控件，什么功能呢？还是老老实实的自己写吧。没什么的，很简单的啊。说实话，这个程序只要你把烦躁的心放下来写就可以了。我自从毕业一直没有做过WINDOWS编程，都是直接对单片机的，上学那会也是每日乐呼呼的，没学到什

么东西，就这样我还不是搞定了吗？（当然这个建立在看网上那堆源程序的基础上）。

现在我就把这个程序发在网页上，这个程序已经调通了，写在这里的目的是让大家做个程序参考，你也不知道我界面上的控件，所以没有必要复制粘贴。（不是我小气，是由于这个工程涉及到公司机密，这个产品还没有送检，所以不给。发布啊，望谅解）欢迎大家和我探讨，感谢！'GlobalDataDefinitions

DimMyHandleAsLong'HandletoConnection

DimMyStatusAsInteger'StatusreturnedfrommbMasterV7ControlDimSlaveAsInteger'Slave,Cmd,Address,&LengthDimCmdAsIntegerDimAddressAsLongDimLengthAsIntegerDimLoopbackMsg(20)AsByte

PublicSubshow_status(ErrCodeAsInteger)If(ErrCode=0)Then

STATUS.Text=\正常通行ing\ElseIf(ErrCode0Then

'Connectionwassuccessful

'(Thisexampleonlyallowsasingleconnection)'DisableAllConnectionButtons

'EnabletheRead,Write&DisconnectButtonsConnectSerial.Enabled=FalseConnectTAPI.Enabled=FalseConnectTCP.Enabled=FalseDisconnect.Enabled=True'LoopBackTst.Enabled=TrueSTATUS.Text=\正在连接ing\READMODBUS.Enabled=TrueWRITEMODBUS.Enabled=TrueElse

'ConnectionAttemptFailed

'(AnotherapplicationmusthavecontroloftheCOMPort)STATUS.Text=\串口忙，请稍候\EndIfEndSub

'HandlerfortheCONNECTTAPIButtonPrivateSubConnectTAPI_Click()

DimnTAPIDevicesAsLongDimTAPIDeviceAsString

'GothroughthemotionsofgettingtheTAPIDeviceListnTAPIDevices=MbMasterV71.NumberOfTAPIDevices()TAPIDevice=MbMasterV71.GetTAPIDeviceName(0)'SetupthephonenumbertodialMbMasterV71.PhoneNumber=\'Dialthecall

MyHandle=MbMasterV71.DialTAPIDevice(0)IfMyHandle>0Then

'Callshouldbeinprogressnow'Don'tenabletheRead&WriteButtons'untilwegettheCallEstablishedEventSTATUS.Text=\正在连接ing\ConnectSerial.Enabled=FalseConnectTAPI.Enabled=FalseConnectTCP.Enabled=FalseDisconnect.Enabled=False'LoopBackTst.Enabled=FalseREADMODBUS.Enabled=FalseWRITEMODBUS.Enabled=FalseElse

STATUS.Text=\没有连接\EndIfEndSub

'Han