VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • vb教程之一种调用Win95 API实现串行通信的查询方法

   摘要 在Win95中,串行通信的机制相对Windows 3.x已作了改进和标准化。本文结合一个实例从调用API接口的角度,具体阐述了一种用简单的串口查询法来实现串行通信的思路。 

关键词 API、串行通信、Visual Basic、多线程、Win95 

Visual Basic是一个Windows系统下流行的应用程序开发平台。其方便的界面设计使程序员能节省大量时间,并把最大的精力集中在应用程序核心代码的编写上。VB4目前已成为Win95系统下一种最高效灵活的主流开发工具之一,而调用API应用程序接口则正是对VB4功能的强有力扩充,它使得VB4能够直接控制和处理PC硬件资源,而不必依赖于MS-DOS系统服务。可以说,正是借助于API使得VB即能隐藏大部分Windows编程的难点,同时又提供了使用Windows环境的灵活性。 

因而在串行通信中使用调用API接口的方法是实现在VB中直接控制串行口硬件的简便可行的解决方案。 

一、关于Win95的多线程及32位API的描述 

微软于95年推出的Win95操作系统是对其旧版本Windows性能的一次全面提升。它率先提出并实现了应用程序多线程的编程思想,这是Win95系统区别于其他系统最显著和最重要的特征之一。进程是应用程序的执行实例,而线程则是进程内部执行的路径,从根本上说,线程是可由系统调度的一个最简单的代码单元,每个线程有自己的一组CPU寄存器和堆栈。Win95为每个独立的线程安排一些CPU时间,操作系统以轮转方式向线程提供时间片,这样每个线程从外观上看就象都在同时运行一样。一个多线程的应用程序实际上在其内部实现了多任务扩展,为代码赋予了并行执行的特性。 

多线程应用程序的主要优势就是可以用尽量少的时间对用户的要求作出响应。多线程并不代表代码会运行得更快,准确地说,它仅仅意味着应用程序可以更好地利用系统资源(调度机制、内存和物理设备)。从而能建立一个非常灵活的应用程序,它能随时接收用户输入,并得到满意的效果。 

因此为了在32位的Win95系统中建立更快速、可靠和健壮的代码,多线程技术是必须掌握的关键技术之一。 

API(即应用编程接口)是附带在Win95内部的一个极其重要的组成部分。Win95的32位API主要是一系列很复杂的函数、消息的集合。它可以看作是Win95系统为在其下运行的各种开发系统提供的开放式通用功能增强接口。它使编程人员可以更容易地用不同类型的语言编制出运行在Win95系统上的应用程序。 

与Windows 3.x的16位API相比,附带在Win95中的Win32 API是API质量最显著的一次提升。它正逐渐成为应用广泛的一种目标平台。Win32 API包括了1000多个API调用,加上API附带的几百种Windows常量、消息和数据类型结构,使用户拥有了一系列用于Win95编程的复杂的而又有效的工具。 

API接口是对VB功能的最重要的扩充。几乎所有用VB的标准功能不能处理的问题都可以用调用API接口函数的方法来解决。API接口调用不仅给VB提供了大量可扩充的功能强劲的函数。更为重要的是,它提供了一种最切实地扩充VB功能的思路和方法。尤其在一些直接和硬件交互的低级操作中,调用API接口函数往往是唯一的可行办法。 

总之,调用API接口并结合多线程的编程技术已成了Win95环境下最流行的一种高级技术。大多数应用程序的代码都不得不涉及到这个高级专题。 

二、Win95串行通信的工作机理 

常用的DOS系统主要是工作在响应中断方式。PC机串行通信程序大多利用其BIOS块的INT14H中断,以查询串口的方式完成异步串行通信。 

与DOS响应中断的工作方式不同,Windows是一个事件驱动的,并与设备无关的多用户操作系统。同时Windows禁止应用程序直接和硬件交互,程序员只能通过Windows提供的各类驱动程序来管理硬件。在这种情况下,Windows系统充当了应用程序与硬件之间的中介。 

Windows系统函数即包含了通信支持中断功能。Win95系统为每个通信设备开辟了用户定义的输入输出缓冲区(即读/写缓冲区),数据进出通信口均由系统后台来完成。应用程序只需完成对输入输出缓冲区操作就可以了。实际过程是每接收一个字符就产生一个低级硬件中断,Win95系统中的串行驱动程序就取得了控制权,并将接收到的字符放入输入数据缓冲区。然后将控制权返还正在运行的应用程序。如果输入缓冲区数据已满,串行驱动程序用当前定义的流控制机制通知发送方停止发送数据。队列中的数据按“先进先出”的次序处理。 

Windows 3.x提供了COMM.DRV驱动程序以支持串行通信,而Win95已对这些串行通信的标准函数作了改进和标准化,并把对串口的支持与基本输入输出驱动程序集成为一体。Win95像对文件操作一样来实现对串口的操作,两者使用相同的打开、关闭及读写函数。 

16位的API只提供了16个与通信相关的函数。与这些16位的通信函数相比,Win95提供的通信函数更为丰富,功能更为强大。 

在Win95系统中,串行口和串行通信驱动程序是通过一个数据结构进行配置的,这个数据结构被称为设备控制块( Device Control Block ),简称DCB。Win95的DCB比Windows 3.x的DCB更复杂,对数据结构的定义更完善。 

下面是Win95中设备控制块数据结构的定义: 

Type DCB ’在Win95 API中有详细定义,可从VB4的API Text Viewer中得到 
DCBlength As Long 
BaudRate As Long 
fBinary As Long 
fParity As Long 
…… 
EvtChar As Byte 
End Type 
Win95为获取通讯端口的状态提供了重要的GetCommState函数。函数把端口的配置信息装入一个设备控制块DCB,从而获得端口的配置情况。 

另一个重要的COMSTAT结构则通常被用来描述串口当前的状态。其定义如下: 

Type COMSTAT ’在Win95 API中有详细定义,可从VB4的API Text Viewer中得到 
fCtsHold As Long 
fDsrHold As Long 
…… 
cbInQue As Long 
cbOutQue As Long 
End Type 
通常可按以下四步实现串行通信: 

(1) 按协议的设置初始化并打开串行口,这样做就是通知Windows本应用程序需要这个串口, 
并封锁其他应用程序使它们不能使用此串口。 
(2) 配置这个串行口。 
(3) 在串口上往返地传输数据,并在传输过程中进行校验。 
(4) 不需要此串口时,关闭串口。即释放串口以供其它应用程序使用。 
在这四个步骤中,主要的程序代码集中在第(3)步。 

三、VB串口查询法的实现方法 

(1)串口查询法的机理 

VB的串口查询法是一种主要工作在查询方式下的实现方法。当通信程序工作在“查询”方式时,可以不考虑Win95的进程和线程的问题。仅在串口有数据时,去读串口缓冲区就可以了。这种方法下确定串口读取的时机、握手协议及软件纠错的实现是程序员应考虑的主要问题。 

由于这种方法主要工作在查询方式。程序员必须完成相当一部分通信状态的检测工作,许多细节(甚至包括通信过程中的字符属性的转换)也必须通过程序代码完成。因而相比较通信控件方法而言,这种查询方法对通信双方协议的依赖性尤其大。双方通信协议的约定对程序实现的难易程度影响很大。

值得注意的一点是,此方法下协议的约定必须满足以下条件:即甲方发送时,乙方必须在甲方发送动作之前进入循环接收状态,直到接收到字符后通过对串口读取函数ReadFile返回值的判断跳出循环状态。 

同时,一般为了不使系统因循环等待接收而进入“死循环”状态,可以人为设置读取串口的循环次数,一般1000~10000次即可。 

VB4是一种极为灵活的高级语言,因而在这种方法下可以方便地引入汇编语言的思维,利用其GoTo转向语句方便地控制程序的流程。非常灵活方便。 

(2)与通信线程法的比较 

通信线程法通过在应用程序的主线程外再创建一个通信线程来监视通信设备,其最大优点是程序对接收数据具有自主觉察能力。一旦通信线程查询到数据已发送到串口上,线程自动向应用程序发送一个数据接收到的消息,应用程序可用该消息来读取通信设备传来的数据。并且使用通信线程还不占用CPU时间。这样系统实际上具有了同时控制多个通信设备(如MODEM)的能力。 

通信线程法在C++的开发系统中用得较多,这与C++的特点和优势密切相关。 

由于VB自身的特点,创建通信线程的方法对VB而言,实现上有相当的难度。而且这样做,也无异于牺牲VB的简单方便性而去迁就程序的复杂性,很不经济。串口查询法容易地引入了汇编语言的一些思维,实现了最精简的程序代码。它不一定是最完善,但对一般VB程序员来说,这种方法确实达到了简化思路和降低难度的目的。因而实现简单。 

四、串口查询法的程序实例 

现约定甲方是PC机,乙方是单片机系统(如电卡电度表系统的读卡器)。通信格式设置为2400波特率,8位数据位,1位停止位,无奇偶校验。 

以下是甲方(PC机)的几个子函数的程序实例。 
Private Function OpenThePort(cPort as String,cBaud as String,cParity as String,cData as String,tStops as String)As Boolean 
Dim lResult as Long 
Dim lHandle as Long 
Dim DCB_COMM as DCB 
Dim cDCBConfig as String 
lHandle = CreateFile(cPort,GENERIC_READ Or GENERIC_WRITE,0&,0&,OPEN_EXISTING,0&,0&) 
If lHandle = -1 Then ’打开串口失败 
OpenThePort = False 
MsgBox “串口可能正被其他应用程序占用!” 
lResult = CloseHandle(lHandle) ’先关闭串口后再打开 
If lResult = 0 Then 
OpenThePort 
Exit Function 
End If 
End If 
cDCBConfig.band = 2400 ’设置DCB 
cDCBConfig.parity = None 
cDCBConfig.data = 8 
cDCBConfig.stop = 1 
lResult = BuildCommDCB(cDCBConfig,DCB_COMM) ’按用户设定配置一个DCB结构 
If lResult = 0 Then 
OpenThePort = False 
MsgBox “无法建立DCB设备控制块” 
Exit Function 
End If 
lResult = SetCommState(lHandle,DCB_Comm) ’实际设置一个串口的DCB 
If lResult = 0 Then 
OpenThePort = False 
MsgBox “无法建立DCB设备控制块” 
Exit Function 
End If 
OpenThePort = True 
End Function 

Private Sub SendHand ( ) ’发送握手信号的子过程 
Dim Nchars As Long 
Static Readbuff As String * 1 
Static Writebuff As String * 1 
Dim lpDCB As DCB 
Dim lRet As Long 
Dim lHandle As Long 
Dim lpOverlapped As OVERLAPPED 
Dim RNum As Integer 

MsgBox “请把电卡读卡器插在串口2上!”,48,“提示窗口” 
lHandle = OpenThePort(COMM1,2400,None,8,1) 
lRet = PurgeComm( lHandle,1 ) ’清输出缓冲区 
lRet = PurgeComm( lHandle,0 ) ’清输入缓冲区 
lRet = GetCommState ( lHandle,lpDCB ) ’获得通讯口的状态 
Shand: 
Writebuff$ = Chr$(&H8F) 
lRet = WriteFile ( lHandle,Writebuff$,1,Nchars,lpOverlapped ) ’送握手信号入串口缓冲区 
If lRet <= 0 Then 
MsgBox “发送操作出错,电卡握手信号未发送成功”, 16 
GoTo Shand ’不成功则重发 
Else 
GoTo Qtest 
End If 
GoTo Shand 
Qtest: 
Readbuff$ =“ ” ’清除缓冲区为空 
Do While lHandle ’循环查询串口 
RNum = 0 ’设置读串口次数的指针为0 
ReadAgain: 
lRet = ReadFile( lHandle,Readbuff$,1,Nchars,lpOverlapped ) 
If lRet < 0 Then 
MsgBox “读取应答信号时出错”, 16 
End If 
If lRet = 0 Then 
If RNum > 1000 Then ’只读1000次串口,以免陷入死循环 
MsgBox "电卡没有插接好或电卡没有接在串口上!" 
GoTo CloseP 
End If 
RNum = RNum + 1 
GoTo ReadAgain 
End If 
If Hex$(Asc(Readbuff)) <> Hex$(&HFF) Then 
GoTo Shand ’回送码不正确则返回继续发送握手信号 
Else 
Label1.Caption = “握手信号是:”+Hex$(Asc(Readbuff$)) 
Msgbox “握手信号正确,已正确联机” 
GoTo CloseP 
End If 
Loop 
CloseP: lRet = CloseHandle( lHandle ) 
If lRet = 0 Then 
MsgBox “串行通讯口关闭成功”,48,“提示窗口” 
End If 
End Sub 

这里,要注意的是:当PC机与单片机系统通信时,单片机数据存储区( RAM )内的数据是十六进制,在信号线上传输的是十六进制数的ASCII码的二进制形式;而Windows系统下使用的是ANSI码,ANSI码仅在前126个与ASCII码相同。即在Win95下接收到的是十六进制数的ASCII码的字符串,可先转换为ANSI码后再在Win95下还原为十六进制数。 

具体如下:Code$ = Hex$( Asc ( Readbuff$ ) ) 

另外,由于32位API函数参数的数据类型的变化,所有整形参数都被换为长整型(Long)以支持32位的处理,这一点在设置返回值尤其如此。 

同时,这些API函数、类型及常量在调用之前,必须先声明再使用。 

五、结束语 

由上可见,调用API接口的VB串口查询法具有实现简便、难度低、代码精简的突出优点。很适合一般VB程序员在编写通信程序时使用。

相关教程