是关于VB程序的，编写一个上位机程序，读取甚至修改下位机的参数。通信规约为MODBUS

MSComm 作为一个串行通讯控件为程序员串口通讯编程节省了很多时间。在基于对话框的应用中加入一个MSComm控件非常简单。只需进行以下 *** 作即可：

打开“Project->Add To Project->Components and Controls->Registered Activex Controls”（工程/部件/控件），然后选择控件：Microsoft Communication Control,version 6.0（Microsoft Comm Control 6.0）插入到当前的工程中。这样就将类 CMSComm 的相关文件 mscomm.cpp 和 mscomm.h 一并加入到了工程中。编程时只需将控件对话中的 MSComm 控件拖至你的应用对话框中就OK了。

我用过Mscomm控件的

设置初始MSCOMM后自己定义数据长度

部分代码如下：

Private Sub initcom() 串口初始化程序块

MSComm1.CommPort = 1 '选用com1串行口

MSComm1.Settings = "9600,N,8,1" '波特率9600，无奇偶校验位，8位数据位1位停止位

MSComm1.InputLen = 0 'input将读取接收缓冲区的全部内容

MSComm1.InBufferSize = 1024 '设置接收缓冲区的字节长度

'MSComm1.PortOpen = True '打开通信口

MSComm1.InBufferCount = 0 '清除接收缓冲区数据

MSComm1.OutBufferCount = 0 '清除发送缓冲区数据

MSComm1.InputMode = comInputModeText

'MSComm1.InputMode = comInputModeBinary

'periodic.inteval = 100 '设置ls定时间隔，使遥测命令每隔ls发送1次

End Sub

Private Sub MSComm1_OnComm() 接收,发送处理事件

MSComm1.RThreshold = 0

Dim b As String

If MSComm1.CommEvent = comEvReceive Then

b = MSComm1.Input

Text1.Text = Text1.Text &b &" "

Text1.SelStart = 0 'Len(Text1.Text)

Call confirm(b)

End If

MSComm1.RThreshold = 148

End Sub

更多相关:http://www.yu3zx.com/board.asp?boardid=3还有以后我的网站yu3zx.com有相关代码收集

上位机可以用C#，VB，python，Labview等语言编程。其中labview是图形化编程，它入门快，对编者编写程序要求不高，可以用搭框图的形式将所要的功能实现。

其它几种语言是编写程序编程，对编者来说，需要一定的编程基础，不然的话需要先学习才能会编写

---