VB上位机串口通讯
上位机VB实现与三菱PLC的串行通讯
上位机VB实现与三菱PLC的串行通讯上位机VB实现与三菱PLC的串行通讯1. 通行原理与方法上位机要能够通过PLC监控下层设备的状态，就要实现上位机与PLC间的通信，一般工业控制中都是采用RS232C实现。
上位机首先向PLC发送查询数据的指令(实际上是查询PLC中端子的状态和DM 区的值等)，PLC接收了上位的指令后，进行校验(FCS校验码)，看其是否正确，如果正确，则向上位机传送数据(包含首尾校验字节)。
否则，PLC拒绝向上位机传送数据。
上位接收到PLC传送的数据，也要判断正确与否，如果正确，则接收，否则，拒绝接收。
由于CPM1A没有提供串行通信口，我们利用其提供的外设端口实现通信。
PLC与计算机之间的连接是通过OMRON提供的专用电缆CQM1-CIF01来实现的，其硬件连接图如图1所示。
(见附图）2. PLC与计算机间的通信规约计算机与PLC间的通信是以“帧”为单位进行的，并且在通信的过程中，计算机具有更高的优先级。
首先，计算机向PLC发出命令帧，然后，PLC作出响应，向计算机发送回响应帧。
其中命令帧和响应帧的格式如下:(1) 命令帧格式。
为了方便计算机和PLC的通讯，CPM1A对在计算机连接通信中交换的命令和响应规定了相应的格式。
当计算机发送一个命令时，命令数据主准备格式如图2所示。
(见附图）其中@放在首位，表示以@开始，设备号为上位机识别所连接的PLC的设备号。
识别码为命令代码，用来设置用户希望上位机完成的操作，FCS为帧检验代码，一旦通信出错，通过计算FCS可以及时发现。
结束符为“*”和CR回车符，表示命令结束。
(2) 响应帧格式。
由PLC发出的对应于命令格式的响应帧格式如图3所示。
(见附图）其中，异常码可以确定计算机发送的命令是否正确执行。
其它的与正文中的含义相同。
正文仅在有读出数据时有返回。
3. 通信程序的设计为了充分利用计算机数据处理的强大功能，我们可以采用计算机有优先权的方式，在计算机上编写程序来实现计算机与PLC的通信，计算机向PLC发出命令发起通信，PLC自动返回响应。
基于VB6.0的上位机与PLC实时通信技术
基于VB6.0的上位机与PLC实时通信技术基于VB6.0的上位机与PLC实时通信技术主要是通过VB6.0编程语言与PLC进行通信，实现实时数据的传输和控制操作。
要实现VB6.0与PLC的通信，首先需要通过串口连接VB6.0和PLC。
VB6.0中提供了MSComm控件，可用于实现与PLC的串口通信。
该控件可以配置串口的波特率、数据位、校验位等参数，并可以通过编程实现串口的打开和关闭操作。
在VB6.0中需要编写相应的程序代码，通过串口与PLC进行数据的发送和接收。
VB6.0提供了相应的函数和方法，可以用于读取和写入串口的数据。
通过与PLC进行数据交互，可以实现对PLC的监控和控制操作。
在进行通信时，需要定义好数据的格式和协议，以确保VB6.0与PLC之间能够正确地进行数据的传输和解析。
对于不同的PLC型号和厂商，通信协议可能会有所不同，因此需要按照PLC的通信协议进行编程开发。
在实时通信过程中，需要注意以下几个关键点。
要确保VB6.0与PLC的通信速度要足够快，以实现实时数据的传输和控制操作。
要确保数据的准确性和可靠性，可以通过校验位等方式进行数据的校验和验证。
还需要进行错误处理和异常处理，以避免通信故障和数据丢失等问题的发生。
通过使用VB6.0编程语言，结合PLC的串口通信功能，可以实现上位机与PLC的实时通信。
这样，就能够方便地进行工业控制和监测等操作，提高了生产效率和设备的运行稳定性。
基于VB6.0的上位机与PLC实时通信技术也为后续的数据分析和处理提供了基础。
这对于工业自动化领域的发展和应用具有重要意义。
基于VB6.0的上位机与PLC实时通信技术
基于VB6.0的上位机与PLC实时通信技术VB6.0是一种编程语言，可用于开发上位机与PLC之间的实时通信技术。
PLC是一种可编程逻辑控制器，用于控制和监控自动化设备。
通过实时通信，上位机可以与PLC进行数据交换和控制操作。
1. 通信协议选择：PLC与上位机之间的通信需要选择适当的通信协议。
常见的通信协议包括Modbus、OPC、Profibus等。
根据实际需求和设备的支持情况选择合适的通信协议。
2. 串口通信：VB6.0通过串口通信与PLC进行连接。
通常采用RS232、RS485等串口通信方式。
在编程中，需要设置串口的波特率、数据位、停止位、校验位等参数。
通过VB6.0的串口通信类库，可以实现数据的读取和写入。
3. 数据采集和监控：通过VB6.0实现对PLC数据的采集和监控。
可以使用定时器触发方式，周期性的读取PLC设备的数据。
通过VB6.0的数据处理和显示功能，可以实时显示PLC设备的状态和数据信息，如温度、压力、流量等。
4. 控制指令的发送：通过VB6.0向PLC发送控制指令，实现对设备的控制。
根据PLC 的控制逻辑，编写相应的控制程序，将控制指令发送给PLC设备。
通过串口通信，将控制指令发送出去，实现设备的开关、调节等操作。
5. 异常处理：在实时通信中，可能会出现通信故障、数据错误等异常情况。
需要在编程中添加异常处理的代码，对异常情况进行处理，保证通信的稳定性和可靠性。
基于VB6.0的上位机与PLC实时通信技术可以广泛应用于自动化控制、工业监控、智能家居等领域。
通过实时通信，可以实现对设备的远程监控和控制，提高设备的自动化程度和工作效率。
在编程过程中，需要注意通信协议的选择和参数的设置，以确保通信的正确和可靠。
需要添加适当的异常处理机制，提升系统的稳定性和可靠性。
基于VB6.0的上位机与PLC实时通信技术
基于VB6.0的上位机与PLC实时通信技术一、引言随着自动化技术的不断发展，PLC（可编程逻辑控制器）已经成为自动化领域中不可或缺的设备。
PLC通常用于控制工业生产线上的设备和机器，而上位机则是用来监控和管理PLC系统的设备。
众所周知，实时通信是保证PLC系统正常运行的重要因素之一。
在这篇文章中，我们将重点介绍基于VB6.0的上位机与PLC实时通信技术。
二、VB6.0简介VB6.0是微软公司于1998年发布的一款集成开发环境（IDE），它是一种编程语言，被广泛用于开发Windows平台下的应用程序。
VB6.0具有简单易学、功能丰富、开发效率高等特点，因此在工业领域得到了广泛应用。
考虑到VB6.0的这些优势，我们可以利用它来开发上位机程序，并实现与PLC的实时通信。
三、PLC实时通信技术1. 串口通信PLC通常通过串口与上位机进行通信。
在VB6.0中，我们可以利用MSCOMM控件来实现串口通信。
通过在VB6.0的界面中添加MSCOMM控件，并设置相应的串口参数（如波特率、数据位、校验位、停止位等），就可以实现与PLC的串口通信。
2. Modbus通信Modbus是一种通信协议，被广泛用于工业控制领域。
通过Modbus协议，我们可以实现上位机与PLC之间的实时通信。
在VB6.0中，我们可以使用第三方的Modbus通信库来实现Modbus通信，例如Modbus ActiveX控件等。
通过这些控件，我们可以轻松地实现Modbus通信，从而实现上位机与PLC的实时数据交换。
3. Socket通信1. 配置MSCOMM控件接下来，我们需要编写VB6.0代码，实现与PLC的串口通信。
您可以编写相应的串口通信代码，例如打开串口、发送数据、接收数据等。
示例代码如下：Private Sub Form_Load()mPort = 1 ' 串口号MSComm1.Settings = "9600,n,8,1" ' 波特率、校验位、数据位、停止位MSComm1.PortOpen = True ' 打开串口End SubPrivate Sub Command1_Click()MSComm1.Output = "010*********FF01" ' 发送数据End Sub3. 运行程序并测试您可以运行程序，并测试与PLC的串口通信是否正常。
arduino与上位机VB串口通信教学文案
用pc控制LED灯注意红色的LED灯，熄灭的亮了，程序界面，注意要开启串口才能控制注意，我的arduino板子占用com3,所以mscomm也要用3口，不要弄错了，这里走过弯路，隔天才发现的，（彩色小点PS加上的，方便理解）。
下面是源码，方便复制：--------------------------------------------------------'vb写的上位机程序Private Sub Command1_Click()Comm3.PortOpen = TrueEnd SubPrivate Sub Command2_Click()Comm3.PortOpen = FalseEnd SubPrivate Sub Command3_Click()Comm3.Output = "a" '用a表示开灯End SubPrivate Sub Command4_Click()Comm3.Output = "b" '用b表示灭灯End Sub-----------------------------------------//arduino程序//通过电脑开关LED灯(LED灯负极连在arduino uno r3板数字3口，正极串一个1K 电阻后连板子5V电源正极//int led1=3; //把LED连在Arduino数字端口3//初始化void setup(){Serial.begin(9600); //启动串行通讯，波特率为9600b/s pinMode(led1,OUTPUT);digitalWrite(led1,HIGH); //熄灭LED灯}//主程序void loop(){char val;//定义变量val，用于暂存上位机发送来的字符if(Serial.available()>0)//如果上位机发送来了字符{val=Serial.read(); //读取上位机发来的字符，并保存到valSerial.println(val); //显示接受到的字符if(val=='a')//如果上位机发送字符'a'，{digitalWrite(led1,LOW); //点亮LED灯}if(val=='b')//如果上位机发送字符'b'，{digitalWrite(led1,HIGH);//熄灭LED1}}delay(100);//延时100ms}。
PLC与VB6.0串口通讯案例
1、引言可编程控制器以其高可靠性，配置灵活和完善的功能，在工业控制系统中得到越来越广泛的应用。
但对于操作员所需要的报表打印、趋势图形显示、工况查寻、参数在线修改等功能，PLC却不能直接方便地提供。
所以通常采用计算机PC与PLC组成一个完整的监控系统。
本文以台安TP02系列PLC为例，讨论用Visual Basic(VB)实现PLC与上位机的通讯2、VB在通讯控件中的使用可编程控制器PLC与上位机PC之间的通信，下位机为PLC，基于其可靠性极高，主要承担控制功能，而上位PC机主要承担监察管理功能，有时兼备部分控制功能，如发出运行，停止命令。
VB语言是基于WINDOWS操作系统的功能强、易学易用、主要是面向学习对象的程序设计语言。
VB带有专门管理串行通讯的MSComm控件，只需设置几个主要参数就可以实现PLC与PC串行通讯。
要完成通信必须设置MSComm的相关属性值：（1）CommPort：设置或传回通信连接端口代号（2）Settings：设置初始化参数。
以字符串的形式设置或传回连接速度、奇偶校验、数据位、停止位等4个参数（3）PortOpen：设置或传回通信连接端口的状态（4）Input：从输入寄存器传回并移除字符（5）Output：将一个字符串写入输出寄存器（6）InputLen：指定由串行端口读入的字符串长度（7）InBu FF erCount：传回在接收寄存器中的字符数3、软硬件之间：台安TP02与上位机PC通信时，为了实现两者的通信需要配备通信线。
4、通信程序的实现4.1 通信初始化程序首先，在窗体开始设计之前，添加MSComm控件。
4.2程序编写：4.2.1 通信控件MSComm1属性设置：mPort = 1 设置端口号MSComm1.Settings = "19200,E,7,2" 设置通信参数MSComm1.InputLen = 0 设置读入字符串长度MSComm1.PortOpen = True 设置通信端口状态4.2.2 PLC运行程序：STX$ = "::"TransmitBuf$ = "01?5RUN"sum$ = CheckSum(transmitBuf$)ETX$ = Chr$(13)SXD$ = STX$ + transmitBuf$ + sum$ + ETX$MSComm1.Output = SXD$DoDoEventsLoop Until MSComm1.InBu FF erCount >= 12In1$ = MSComm1.Input4.2.3 从PLC读取资料，将寄存器内的数据资料在PC上显示以便观察监控（反应时间50ms）：STX$ = "::"transmitBuf$ = "01?5MRVD000102"sum$ = CheckSum(transmitBuf$)ETX$ = Chr$(13)SXD$ = STX$ + transmitBuf$ + sum$ + ETX$MSComm1.Output = SXD$DoDoEventsLoop Until MSComm1.InBufferCount >= 20InData$ = MSComm1.InputLabel2.Caption = Mid$(InData$, 10, 4)Label3.Caption = Mid$(InData$, 14, 4)4.2.4从PLC读取资料，将RelayC0001状态通过PC显示进行监控（反应时间50ms）：STX$ = "::"transmitBuf$ = "01?5MCRC0001"sum$ = CheckSum(transmitBuf$)ETX$ = Chr$(13)SXD$ = STX$ + transmitBuf$ + sum$ + ETX$MSComm1.Output = SXD$DoDoEventsLoop Until MSComm1.InBufferCount >= 13In4$ = MSComm1.InputCoil$ = Mid$(In4$, 10, 1)C1% = CInt(Coil$)Label6.Caption = C1%4.2.5 设定Relay状态，将Relay设定为ON（反应时间50ms）：Dim C1 As IntegerSTX$ = "::"transmitBuf$ = "01?5SCSY00011"sum$ = CheckSum(transmitBuf$)ETX$ = Chr$(13)SXD$ = STX$ + transmitBuf$ + sum$ + ETX$MSComm1.Output = SXD$DoDoEventsLoop Until MSComm1.InBufferCount >= 12In2$ = MSComm1.Input4.2.6 PLC停止运行：STX$ = "::"transmitBuf$ = "01?5STP"sum$ = CheckSum(transmitBuf$)ETX$ = Chr$(13)SXD$ = STX$ + transmitBuf$ + sum$ + ETX$MSComm1.Output = SXD$DoDoEventsLoop Until MSComm1.InBufferCount >= 12In3$ = MSComm1.Input4.2.7 VB6.0下CheckSum函数代码如下：Private Function CheckSum(transmitBuf$)L = Len(transmitBuf$)Add = 0Dim k, sum As IntegerFor k = 1 To LTJ$ = Mid$(transmitBuf$, k, 1)Add = Add + Asc(TJ$)Next kDo While Add >= 256Add = Add - 256LoopAdd = 255 - Add + 1tempBuf$ = Hex$(Add)CheckSum = LTrim(tempBuf$)End Function5、结论PLC与上位机的结合，并通过VB6.0传送数据所构成的计算机监控系统，对于近距离传输数据的现场控制来说是一种性价比很高的解决方案。
arduino与上位机VB串口通信
用pc控制LED灯注意红色的LED灯，熄灭的亮了，程序界面，注意要开启串口才能控制注意，我的arduino板子占用com3,所以mscomm也要用3口，不要弄错了，这里走过弯路，隔天才发现的，（彩色小点PS加上的，方便理解）。
下面是源码，方便复制：-------------------------------------------------------- 'vb写的上位机程序Private Sub Command1_Click()Comm3.PortOpen = TrueEnd SubPrivate Sub Command2_Click()Comm3.PortOpen = FalseEnd SubPrivate Sub Command3_Click()Comm3.Output = "a" '用a表示开灯End SubPrivate Sub Command4_Click()Comm3.Output = "b" '用b表示灭灯End Sub-----------------------------------------//arduino程序//通过电脑开关LED灯(LED灯负极连在arduino uno r3板数字3口，正极串一个1K电阻后连板子5V电源正极//int led1=3; //把LED连在Arduino数字端口3//初始化void setup(){Serial.begin(9600); //启动串行通讯，波特率为9600b/spinMode(led1,OUTPUT);digitalWrite(led1,HIGH); //熄灭LED灯}//主程序void loop()char val;//定义变量val，用于暂存上位机发送来的字符if(Serial.available()>0)//如果上位机发送来了字符{val=Serial.read(); //读取上位机发来的字符，并保存到val Serial.println(val); //显示接受到的字符if(val=='a')//如果上位机发送字符'a'，{digitalWrite(led1,LOW); //点亮LED灯}if(val=='b')//如果上位机发送字符'b'，{digitalWrite(led1,HIGH);//熄灭LED1}}delay(100);//延时100ms}。
基于VB的上位机与PLC的串行通信
基于VB的上位机与PLC的串行通信1 引言在现代控制系统中，pc机作为上位机负责系统管理、状态监控、信息处理和打印报表等工作，plc作为下位机进行面向现场的实时控制已成为一种典型的系统结构。
因此，pc机与plc之间的通信问题便成了系统能否实现的关键。
串行通信以其接线简单、容易实现的特点得到了广泛的应用。
visual basic编程软件简单易学、功能强大，利用它可以很方便的实现pc机与plc间的串行通讯。
本文以omron公司的cpm2a plc为例，介绍了利用vb6.0实现pc机与plc串行通讯的具体方法。
omron公司的cpm2a plc支持host-link通信协议，可以与上位计算机进行通信。
使用host-link通信协议构成的通信网络，可以很方便的实现上位pc对下位plc的实时监控。
2 原理设计2.1 系统结构系统结构如图1所示，计算机作为上位机，plc作为下位机，因omron cpm2a本身带有rs-232串口，因此，利用rs-232电缆将其与pc机的串口(com1或com2)相连，便构成了一个1：1的简单的通讯系统[1]。
图1 系统结构2.2 host-link通信协议[2]omron公司的host-link通信系统是由上位计算机(ibm pc或兼容机)通过安装在各台p lc上的host-link单元连接多台plc构成的网络。
上位机对系统中的plc进行集中管理与监控，通过与host link单元的通信，可以编辑或修改各台plc的程序，实时监控其运行过程，实现自动化系统的集散控制。
对于小型plc，也可以通过其rs 232c通信端口进行链接。
系统使用host-link通信协议进行通信，上位机具有传送优先权，总是首先发出命令并启动通信，host link单元收到命令交由plc执行，然后将执行结果返回上位机，二者以通信帧为单位，轮流交换数据。
通信时一组传送的数据称为“块”，它是命令或响应的单位，从上位机发送到host -link单元的数据块称为命令块，反过来，从host- link单元发送到上位机的数据块称为响应块。
基于VB6.0的上位机与PLC实时通信技术
基于VB6.0的上位机与PLC实时通信技术一、通信原理上位机与PLC之间的通信是通过通信协议来实现的。
通信协议是一种规定了通信双方之间通信方式和通信内容的标准化协议。
常见的通信协议有MODBUS、OPC、PROFIBUS等。
在实际应用中，根据不同的PLC型号和通信需求，选择适合的通信协议进行通信。
二、通信协议MODBUS协议是一种基于主从结构的通信协议，包括MODBUS RTU和MODBUS TCP两种通信方式。
MODBUS RTU是基于串行通信的通信方式，通信速度较快，适合于工业现场环境。
MODBUS TCP是基于以太网通信的通信方式，通信速度更快，可实现远程通信。
基于VB6.0的上位机与PLC通信通常采用MODBUS RTU协议。
在VB6.0中，可以通过串口通信控件MSComm控件实现MODBUS RTU通信。
通过设置通信端口、波特率、数据位、停止位等参数，编写相应的通信程序，实现与PLC的通信。
三、软件设计基于VB6.0的上位机软件设计需要考虑可视化界面和通信功能的实现。
在软件设计中，需要设计用户界面，包括监控界面、控制界面、报警界面等。
需要设计通信功能，包括与PLC的连接、数据读写、通信异常处理等。
在VB6.0中，可以通过控件的方式实现软件的界面设计。
通过使用标签、文本框、按钮等控件，设计出符合用户需求的可视化界面。
在通信功能的实现中，可以通过MSComm控件实现与PLC的连接和数据读写功能。
通过编写相应的通信程序，实现与PLC之间的实时通信。
四、实现方法基于VB6.0的上位机与PLC通信的实现方法主要包括以下几个步骤：1. 确定通信协议：根据PLC型号和通信需求，选择适合的通信协议，如MODBUS协议。
2. 设计界面：设计符合用户需求的可视化界面，包括监控界面、控制界面、报警界面等。
3. 编写通信程序：通过VB6.0编写通信程序，实现与PLC的连接、数据读写等功能。
在编写通信程序时，需要考虑通信协议的格式要求，保证通信数据的准确传输。
基于 VB 实现上位机与 FPGA 的串口通讯程序设计
基于 Ｖ Ｂ实现上位机与 Ｆ Ｐ Ｇ Ａ的串口通讯程序设计
Ｄｅ ｓ ｉ ｇ ｎ ｏ ｆ Ｐ Ｃ Ｓ ｅ ｒ ｉ ａ ｌ Ｐ ｏ ｒ ｔ Ｃｏ ｍｍｕ ｎ ｉ ｃ ａ ｔ ｉ ｏ ｎ Ｐ ｒ ｏ ｇ ｒ ａ ｍ ｗｉ ｔ ｈ Ｆ Ｐ ＧＡ Ｂ ａ ｓ ｅ ｄ ｏ ｎ ＶＢ
语 法 分 析 阶段 就 可 以被 发 现 ， 抽象层次 叫 Ｖ ｅ ｒ ｉ ｌ ｏ ｇ ＨＤ Ｌ略 高 ， 但 由于 Ｖ ｅ ｒ ｉ ｌ ｏ ｇ ＨＤ Ｌ和 Ｃ 语 言 很 像 ，对 于 初 学 者 来 说 更 容 易 掌 握， 因此 ， 这 里 采用 Ｖ ｅ ｒ ｉ ｌ ｏ ｇ ＨＤ Ｌ来 编 写 硬 件语 言 。 如 图 １所 示 为 串 口通 讯 硬 件接 收总 体 框 图 。
２ Ｆ Ｐ Ｇ Ａ 硬 件 接 口 程序
Ｆ Ｐ Ｇ Ａ 模 块 是 本 设 计 的 核 心 ，世 界 主 流 的 硬 件 描 述 语 言 主
要是 Ｖ ＨＤ Ｌ和 Ｖ ｅ ｒ ｉ ｌ ｏ ｇ ＨＤ Ｌ ， 虽然Ｖ ＨＤ Ｌ语 法 严 格 ， 某些 错 误 在
１ ． １ 关 于 ＭＳ Ｃ０ ｍｍ 控件 ＭＳ Ｃ ｏ ｍｍ 是 Ｍｉ ｃ ｒ ｏ ｓ ｏ ｆ ｔ 公 司提 供 的主 要用 于 串行 通 讯 编 程 的控 件 ， 它 提供 了一 系 列 标 准 通 讯 属 性 和 方 法 ， 使 用 它可 以轻 松 简单 地 实 现 两 种 设 备 的 连接 通 讯 。 传 统 的通 讯 程 序 大 都 采用 Ｃ、
摘 要
介 绍 上 位机 与 Ｆ Ｐ ＧＡ 之 间 的 串 口通 讯 。设 计 了一 个 串 口数 据 采 集 和 处理 程 序 。详 细 介 绍 了怎样 使 用 Ｖ Ｂ ６ ． ０设 计 一 个 简单 的上 位 机 来传 递 数 据 给 Ｆ Ｐ ＧＡ， 并 给 出 了在 Ｑｕ ａ ｒ ｔ ｕ ｓ Ｉ Ｉ １ １ ． ０下接 收 处理 串 口数 据 的 详 细 Ｖ ｅ ｒ ｉ ｌ ｏ ｇ硬 件 接 口程 序 ， 对 于
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
'初始化代码
Private Sub Form_Load() '窗体被加载时产生
If MSComm1.PortOpen = True Then '串口查看是否打开，打开则关闭MsgBox "端口已经打开", 2
'MSComm1.PortOpen = False
End If
With MSComm1
.CommPort = 3 '设置串口3
.Settings = "9600,n,8,1"
.InputLen = 0 '读取接收缓冲区所有字符
.InBufferSize = 1024 '设置接收缓冲区1024字节
.OutBufferSize = 512 '设置发送缓冲区512字节
.InputMode = comInputModeText. '采用文本传输
'.PortOpen = True '打开串口
.SThreshold = 0 '一发送数据就触发OnComm事件
.RThreshold = 1 '接收到一个字节就触发OnComm事件
.InBufferCount = 0 '清除发送缓冲区数据
.OutBufferCount = 0 '清除接收缓冲区数据
End With
Text_send.Text = ""
Text_recv.Text = ""
Text_send_16.Text = ""
End Sub
'清空对话框数据
Sub Command3_Click(Index As Integer)
Text_send.Text = ""
Text_recv.Text = ""
Text_send_16.Text = ""
End Sub
'通讯端口选择
Private Sub Combo1_Click()
If Combo1.Text = "com1" Then '通讯端口号设置
mPort = 1
'Text1 = 1
ElseIf Combo1.Text = "com2" Then
mPort = 2
'Text1 = 2
ElseIf Combo1.Text = "com3" Then
mPort = 3
'Text1 = 3
ElseIf Combo1.Text = "com4" Then
mPort = 4
'Text1 = 4
Else
mPort = 5
'Text1 = 5
End If
End Sub
Private Sub Combo2_Click()
If Combo2.Text = "9600,e,8,1" Then
MSComm1.Settings = "9600,e,8,1"
ElseIf Combo2.Text = "9600,n,8,1" Then
MSComm1.Settings = "9600,n,8,1"
ElseIf Combo2.Text = "57600,n,8,1" Then
MSComm1.Settings = "57600,n,8,1"
End If
End Sub
'发送数据
Private Sub Command1_Click(Index As Integer)
'判断是否选择了端口与通讯方式
If CBool(Combo1.Text = "请选择") Or CBool(Combo2.Text = "请选择") = 1 Then MsgBox "请设置端口号与通讯方式", 2
Exit Sub
End If
'保证串口打开
If Not MSComm1.PortOpen Then
MSComm1.PortOpen = True
End If
'发送数据
MSComm1.Output = Text_send.Text
'延时
For i = 1 To 2000000
Next i
End Sub
'发送16进制数据
Private Sub Command4_Click(Index As Integer)
'判断是否选择了端口与通讯方式
If CBool(Combo1.Text = "请选择") Or CBool(Combo2.Text = "请选择") = 1 Then MsgBox "请设置端口号与通讯方式", 2
Exit Sub
End If
'保证串口打开
If Not MSComm1.PortOpen Then
MSComm1.PortOpen = True
End If
'发送数据
Dim a, b As String
'Dim a As Long, b As String
a = Text_send_16.Text
b = CLng("&H" & a)
MSComm1.Output = b
'延时
For i = 1 To 2000000
Next i
End Sub
Private Sub Command2_Click(Index As Integer)
'判断是否选择了端口与通讯方式
If CBool(Combo1.Text = "请选择") Or CBool(Combo2.Text = "请选择") = 1 Then MsgBox "请设置端口号与通讯方式", 2
Exit Sub
End If
'保证串口打开
If Not MSComm1.PortOpen Then
MSComm1.PortOpen = True
End If
'接受数据
Dim str As String
str = MSComm1.Input '从接收队列中读入字符串
Text_recv.Text = Text_recv.Text & str '读出字符串送显
Text_recv.Text = Text_recv.Text & "" & vbCrLf '文本换行符
End Sub。