串口初始化.docVIP

串口初始化、设置程序在程序初始化时，先对串口初始化。因为使用RTS／CTS握手信号的硬件设备只有RTS信号置为高才能接收数据，所以需将MSCOMM通信控件的RTSenable属性设为TRUE。由于Modem在处于命令状态时，通过串口发送的命令以及命令结果均会回显在输入缓冲区中，因此在进入在线状态前，禁止产生EV－RECEIVE事件，避免数据误处理。由于Windows是多任务系统，在进行数据收发循环处理时，应调用DOEVENTS事件，将控制权交还系统，允许Windows执行其他任务。但应注意，在处理OnComm事件时小心使用DOEVENTS，避免系统又产生OnComm事件，造成嵌套，出现堆栈溢出错误。Sub?Form－Load（）comm1．CommportΚ1′COM1口通信comm1．SettingsΚ″9600，N，8，1″′波特率9600，无校验，8位数据位1位停止位comm1．OutBufferSizeΚOUTPACK′设置输出缓冲区大小comm1．InBufferSizeΚINPACK′设置输入缓冲区大小comm1．InputLenΚ1′每次从输入缓冲区中取一个字符comm1．RTSenableΚ－1′RTS信号为高comm1．RthresholdΚ0′不产生MSCOMM－EV－RECEIVE事件comm1．PortOpenΚ－1′打开串口cdΚcomm1．CDHolding′取载波检测信号线原始状态comm1．outputΚ″ATQOV1WOSOΚ1＆C1＆D2＆YOWO″′初始化ModemDo?DoEventsLoopUntilcomm1．OutBufferCountΚ0End?Sub 保存文件 CommonDialog1.DialogTitle = 保存 CommonDialog1.InitDir = CommonDialog1.Filter = 所有文件（*.*）|*.*|bmp文件|*.bmp|gif文件|*.gif|文本文件|*.txt CommonDialog1.DefaultExt = txt CommonDialog1.ShowSave Open CommonDialog1.FileName For Output As #1 Print #1, Text1.Text Close #1 实验保存多个文件： CommonDialog1.DialogTitle = 保存 CommonDialog1.FileName = Form1.Text1.Text .txt CommonDialog1.DefaultExt = txt CommonDialog1.InitDir = CommonDialog1.Filter = 文本文件|*.txt|所有文件|*.* CommonDialog1.FilterIndex = 1 CommonDialog1.ShowSave Open CommonDialog1.FileName For Output As #1 Print #1, 一氧化碳 Space(3) Text1.Text % vbCrLf 二氧化碳 Space(3) Text2.Text % vbCrLf 碳氢化合物 Space(3) Text3.Text ppm vbCrLf 氮氧化合物 Space(3) Text4.Text ppm vbCrLf 氧气 Space(3) Text5.Text % 1 前言：　　随着计算机技术及电子技术的发展，数字采集技术在检测领域的应用越来越广泛，检测速度越来越高，检测的数据量越来越大，特别是在无损检测领域，将检测数据通过计算机处理后绘制出波形，并实时显示，对及时发现伤损、分析伤损具有重要意义。2 波形显示　　检测数据通常是离散的数据，将离散的数据绘制出波形，可通过在两点间连接线段的方法实现。　　2.1 用Line方法显示波形　　VB提供了Line画直线方法，可在窗体上增加一个图片框控件，适当设置图片的大小和背景颜色，用Line方法将离散数据按检测顺序连接成线段，即可将波形显示在图片框中。但该方法显示波形速度较慢，不适合高速显示的应用。　　2.2 Windows API函数显示波形　　在VB中两点间连线的另一种方法是用Windows API函数，Win32 API提供了以下两个函数，联合使用可实现波形的快速显示，经过测试，显示速度比使用Line方法快70%以上。LineTo函数：　函数功能：画出由数组定义的点连接的一系列线段。　　　函数原型：BOOL LineTo(HDC hdc,int nXEnd,int nYEnd)；　　参数：　　　hdc:设备环境句柄。