430
0
[ 俱乐部与门派 ]
[ 我的家当 ]
[ 動感PP的最热贴 ]
关于winsock的困惑
发贴日期：
2002-08-19 [ 23人评论过 ]
一直以来，我发现用winsock的奇怪的地方
当传送文本文件时，接受端接受正常
但是传送二进制文件时(jpg、zip等等)，文件不能被完全接收，一般只到75%的样子就结束了
不知道各位是否有这个问题？
请指教!谢谢啦
当传送文本文件时，接受端接受正常
但是传送二进制文件时(jpg、zip等等)，文件不能被完全接收，一般只到75%的样子就结束了
不知道各位是否有这个问题？
请指教!谢谢啦
tlb文件是什么类型的文件啊？
怎么出错了？？
Visual Basic通信程序设计（转摘）
发贴日期：
2002-05-24 [ 1人评论过 ]
Visual Basic通信程序设计
作者: 孙海健 潘文 钱俞寿
Visual Basic 中通信控件及其在windows平台下的通信软件设计方法，并结合具体实例给出了基本的通信程序。
1992年crescent software inc.公司专为vb设计了mscomm.vbx用户通信控件，它提供了通过串口发送和接收数据的串行通信能力，不但包括了全部windows api中关于串行通信的16个函数所完成的功能，而且开拓了更多的使用户设计方便的对象属性来满足不同用户不同业务的需求。目前国内众多的vb资料中很少涉及该通信控件的介绍，本文将详细介绍mscomm.vbx通信控件及编程方法，并结合工作中的一个实例给出基本通信程序。
1 mscomm.vbx通信控件描述
mscomm.vbx通信控件可直接从vb的toolbox中加入窗体form，即可用其进行通信。若toolbox中无此控件，则用tools的custom controls 将mscomm.vbx从windows的system子目录中加入vb的toolbox中。
1.1 通信方式
mscomm.vbx有2种不同的方式来处理和解决各类通信软件的开发和设计问题
1、事件驱动。它与c/c++写windows 软件时的窗口回调函数类似，是1种功能强大的处理问题的方法。在实际工作中，往往要处理许多通信中的相关事件，例如：当线路数据到达本端或cd线和rts信号线状态发生变化时，要求我们使用相应的事件来跟踪和处理，该控件是使用oncomm事件来实现的，它也包括检测和处理通信错误等方面的问题，commevent 值返回最近的通信事件或错误的数字代码。通信控件详细的错误和事件举例有：
mscomm-er-break 收到1个break signal
mscomm-er-cdto cd 信号超时
……
mscomm-ev-cd cd信号改变
……
2、查询方式。由程序设计者负责读取commevent的值并处理所发生的错误或事件。通常简单的应用程序设计可采用这种办法。
1.2 通信控件的属性
利用通信控件编制通信程序，关键是准确理解设置通信控件的属性。mscomm.vbx提供了27个关于通信控件方面的属性，例如：
commport：设置或返回通信口编号。
settings：设置或返回以字符串形式出现的数据通信格式：波特率、校验、数据位和停 止位。
portopen：设置或返回通信口状态（包括打开和关闭1个通信口）
……
3、 实例
本程序应用背景为dcc95型静电除尘器自动监控系统软件，解决1个pc工控机（主站）与32个单片机（子站）之间的通信问题。主站与子站之间这总线式网络结构，采用rs-485通信标准，以问答方式进行数据通信。由于32个子站与主站发送通信命令（下行命令），主站在接收子站发回的相应回答命令（上行命令）后继续发送下行命令的通信形式。根据系统功能的要求，主站需发送2种类型的命令：（1）同期命令，它由定时器触发引起，每隔ls周期发送1次；（2）非周期性命令，它由操作者按动相应命令按钮引起，非周期性发送。自动监控系统软件安装在主站上，而通信程序作为自动监控系统软件的一部分也安装在主站上。
本文仅列出调试通信程序时进行试验用的基本演示程序清单。试验时，用1台pc机作为主站，另一台pc机模拟32个子站的工作，两台pc机之间采用rs232c串口通信。往主站的通信演示程序窗体（form）中加入1个通信控件、2个定时器控件和1个命令按钮控件，通信控件（mscomm1）用于访问串口，发送和接收数据；periodic定时器控件（periodic）用于控制每秒由主站向各子站发送周期性命令；命令按钮控件(nonperiodic-command)与nonperiodic定时器控件（nonperiodic）用于发送非周期性命令。数据传送采用事件驱动的通信方式，根据不同的发送命令设置rtreshlod属性，从而引起oncomm事件以接收数据。
2.1 窗体各控件初始化程序
设置通信串口工作参数，设置periodic定时器的在断间隔为ls, nonperiodic定时器的中断间隔为0.5s。
sub form-load ()
mscomm1.commport=2 ’选用com2串行口
mscomm1.settings="9600，n8，1" ’波特率9600，无奇偶校验位，8位数据位1位停止位
mscomm1.inputlen=0 ’input将读取接收缓冲区的全部内容
mscomm1.inbuffersize=1024 ’设置接收缓冲区的字节长度
mscomm1.portopen=true ’打开通信口
mscomm1.inbuffercount=0 ’清除发送缓冲区数据
mscomm1.outbuffercount=0 ’清除接收缓冲区数据
periodic.inteval=100 ’设置ls定时间隔，使遥测命令每隔ls发送1次
nonperiodic.inteval=500 ’设置0.5s定时间隔，查询命令按钮是否处于激活状态以确定是否发送周期性命令
command-pressed=false ’命令按钮为未激活状态
during- periodic=false ’周期性命令数据传输尚未开始
during- nonperiodic=false ’非周期性命令数据传输尚未开始
end sub
2.2 非周期性命令发送程序
根据命令按钮状态及周期性命令数据传输状态，在nonperiodic定时器的中断程序中发送非周期性命令。
sub nonperiodic-command-click ()
command-pressed=true ’命令按钮激活
end sub
sub nonperiodic-timer ()
if during- periodic=true or command-pressed=false
then exit sub ’若周期性命令数据传输尚未结束或命令按钮处于激活状态，则退出发送非周期性命令程序。
command-pressed=false ’命令按钮恢复为未激活状态
call senddata (nonperiodic-command) ’发送非周期性命令
mscomm1.rthreshold=r-nonperiodic-byte’发送非周期性命令后，设置rthreshold属性，使主站接收所设定的字节数后引发oncomm事件
end sub
2.3 periodic定时器程序
在periodic定时器的中断程序中发送周期性命令：
sub periodic-timer ()
if during- nonperiodic=true then exit sub ’若非周期性命令数据传输尚未结束，则退出发送非周期性命令程序。
during-periodic=true ’设置周期性命令数据传输状态为正在进行中
call senddata (periodic-command) ’发送周期性命令
mscomm1.rthreshold=r-periodic-byte ’发送周期性命令后，主站接收r-remot- edata-byte个字节，可引发oncomm 事件
end sub
2.4 oncomm事件程序
根据rthreshold属性设置值，当接收缓存区内接收到相应字节的字符时，引发oncomm事件，在中断程序中接收数据。
sub mscomm1-oncomm ()
select case mscomm1.commevent ’在此可插入处理各种不同错误或事件的代码
case mscomm-ev-receive
receivestring$=mscomm1.input
select case mscomm1.rthreshold
case r-periodic-byte ’周期性命令的应答数据
call disposedata(periodic-command) ’处理接收数据
during periodic=false ’设置周期性命令数据传输状态为结束
case r-nonperiodic-byte ’非周期性命令的应答数据
call disposedata(nonperiodic-command) ’处理接收数据
during-nonperiodic=false ’设置非周期性命令数据传输状态为结束
end select
end select
end sub
随着vb版本的不断升级，vb将成为最快速、易用、强劲的应用开发工具，是企业级客户/服务器应用软件开发的首选工具之一。
作者: 孙海健 潘文 钱俞寿
Visual Basic 中通信控件及其在windows平台下的通信软件设计方法，并结合具体实例给出了基本的通信程序。
1992年crescent software inc.公司专为vb设计了mscomm.vbx用户通信控件，它提供了通过串口发送和接收数据的串行通信能力，不但包括了全部windows api中关于串行通信的16个函数所完成的功能，而且开拓了更多的使用户设计方便的对象属性来满足不同用户不同业务的需求。目前国内众多的vb资料中很少涉及该通信控件的介绍，本文将详细介绍mscomm.vbx通信控件及编程方法，并结合工作中的一个实例给出基本通信程序。
1 mscomm.vbx通信控件描述
mscomm.vbx通信控件可直接从vb的toolbox中加入窗体form，即可用其进行通信。若toolbox中无此控件，则用tools的custom controls 将mscomm.vbx从windows的system子目录中加入vb的toolbox中。
1.1 通信方式
mscomm.vbx有2种不同的方式来处理和解决各类通信软件的开发和设计问题
1、事件驱动。它与c/c++写windows 软件时的窗口回调函数类似，是1种功能强大的处理问题的方法。在实际工作中，往往要处理许多通信中的相关事件，例如：当线路数据到达本端或cd线和rts信号线状态发生变化时，要求我们使用相应的事件来跟踪和处理，该控件是使用oncomm事件来实现的，它也包括检测和处理通信错误等方面的问题，commevent 值返回最近的通信事件或错误的数字代码。通信控件详细的错误和事件举例有：
mscomm-er-break 收到1个break signal
mscomm-er-cdto cd 信号超时
……
mscomm-ev-cd cd信号改变
……
2、查询方式。由程序设计者负责读取commevent的值并处理所发生的错误或事件。通常简单的应用程序设计可采用这种办法。
1.2 通信控件的属性
利用通信控件编制通信程序，关键是准确理解设置通信控件的属性。mscomm.vbx提供了27个关于通信控件方面的属性，例如：
commport：设置或返回通信口编号。
settings：设置或返回以字符串形式出现的数据通信格式：波特率、校验、数据位和停 止位。
portopen：设置或返回通信口状态（包括打开和关闭1个通信口）
……
3、 实例
本程序应用背景为dcc95型静电除尘器自动监控系统软件，解决1个pc工控机（主站）与32个单片机（子站）之间的通信问题。主站与子站之间这总线式网络结构，采用rs-485通信标准，以问答方式进行数据通信。由于32个子站与主站发送通信命令（下行命令），主站在接收子站发回的相应回答命令（上行命令）后继续发送下行命令的通信形式。根据系统功能的要求，主站需发送2种类型的命令：（1）同期命令，它由定时器触发引起，每隔ls周期发送1次；（2）非周期性命令，它由操作者按动相应命令按钮引起，非周期性发送。自动监控系统软件安装在主站上，而通信程序作为自动监控系统软件的一部分也安装在主站上。
本文仅列出调试通信程序时进行试验用的基本演示程序清单。试验时，用1台pc机作为主站，另一台pc机模拟32个子站的工作，两台pc机之间采用rs232c串口通信。往主站的通信演示程序窗体（form）中加入1个通信控件、2个定时器控件和1个命令按钮控件，通信控件（mscomm1）用于访问串口，发送和接收数据；periodic定时器控件（periodic）用于控制每秒由主站向各子站发送周期性命令；命令按钮控件(nonperiodic-command)与nonperiodic定时器控件（nonperiodic）用于发送非周期性命令。数据传送采用事件驱动的通信方式，根据不同的发送命令设置rtreshlod属性，从而引起oncomm事件以接收数据。
2.1 窗体各控件初始化程序
设置通信串口工作参数，设置periodic定时器的在断间隔为ls, nonperiodic定时器的中断间隔为0.5s。
sub form-load ()
mscomm1.commport=2 ’选用com2串行口
mscomm1.settings="9600，n8，1" ’波特率9600，无奇偶校验位，8位数据位1位停止位
mscomm1.inputlen=0 ’input将读取接收缓冲区的全部内容
mscomm1.inbuffersize=1024 ’设置接收缓冲区的字节长度
mscomm1.portopen=true ’打开通信口
mscomm1.inbuffercount=0 ’清除发送缓冲区数据
mscomm1.outbuffercount=0 ’清除接收缓冲区数据
periodic.inteval=100 ’设置ls定时间隔，使遥测命令每隔ls发送1次
nonperiodic.inteval=500 ’设置0.5s定时间隔，查询命令按钮是否处于激活状态以确定是否发送周期性命令
command-pressed=false ’命令按钮为未激活状态
during- periodic=false ’周期性命令数据传输尚未开始
during- nonperiodic=false ’非周期性命令数据传输尚未开始
end sub
2.2 非周期性命令发送程序
根据命令按钮状态及周期性命令数据传输状态，在nonperiodic定时器的中断程序中发送非周期性命令。
sub nonperiodic-command-click ()
command-pressed=true ’命令按钮激活
end sub
sub nonperiodic-timer ()
if during- periodic=true or command-pressed=false
then exit sub ’若周期性命令数据传输尚未结束或命令按钮处于激活状态，则退出发送非周期性命令程序。
command-pressed=false ’命令按钮恢复为未激活状态
call senddata (nonperiodic-command) ’发送非周期性命令
mscomm1.rthreshold=r-nonperiodic-byte’发送非周期性命令后，设置rthreshold属性，使主站接收所设定的字节数后引发oncomm事件
end sub
2.3 periodic定时器程序
在periodic定时器的中断程序中发送周期性命令：
sub periodic-timer ()
if during- nonperiodic=true then exit sub ’若非周期性命令数据传输尚未结束，则退出发送非周期性命令程序。
during-periodic=true ’设置周期性命令数据传输状态为正在进行中
call senddata (periodic-command) ’发送周期性命令
mscomm1.rthreshold=r-periodic-byte ’发送周期性命令后，主站接收r-remot- edata-byte个字节，可引发oncomm 事件
end sub
2.4 oncomm事件程序
根据rthreshold属性设置值，当接收缓存区内接收到相应字节的字符时，引发oncomm事件，在中断程序中接收数据。
sub mscomm1-oncomm ()
select case mscomm1.commevent ’在此可插入处理各种不同错误或事件的代码
case mscomm-ev-receive
receivestring$=mscomm1.input
select case mscomm1.rthreshold
case r-periodic-byte ’周期性命令的应答数据
call disposedata(periodic-command) ’处理接收数据
during periodic=false ’设置周期性命令数据传输状态为结束
case r-nonperiodic-byte ’非周期性命令的应答数据
call disposedata(nonperiodic-command) ’处理接收数据
during-nonperiodic=false ’设置非周期性命令数据传输状态为结束
end select
end select
end sub
随着vb版本的不断升级，vb将成为最快速、易用、强劲的应用开发工具，是企业级客户/服务器应用软件开发的首选工具之一。
利用Visual Basic实现无线通讯（转摘）
发贴日期：
2002-05-24 [ 2人评论过 ]
利用Visual Basic实现无线通讯
作者: 姜棣昭
一、概述
Visual Basic 是Mcrosoft公司推出的强有力的系列开发软件之一，而且以其实用、方便、快捷、开发周期短、广泛而强大的功能越来越被广大编程人员所亲赖，广为流传，似乎有些专业的编程人员放弃了Visaul C++ 而改用了Visaul Basic之类的RAD编程工具，尽管Visaul C++在灵活性、代码紧凑、运行速度快及底层开发等方面Visaul Basic无法比拟的，但编写C++应用程序过长的调试和开发周期确实有点不适应当今的应用程序开发环境。
在Visaul Basic开发工具中提供了大量的控件（或称控制、组件）供编程人员使用，可以方便的利用这些组件中的属性、方法、语言等以事件驱动方式开发应用程序，还可以利用WINDOWS SDK中的API中的应用程序接口等工具开发应用程序。VB还自带一个控件开发软件包CDK，利用CDK可以开发自己需要的Controls 。在通讯问题中我们可以使用VB提供的通讯控件或调用WINDOWS API通讯函数。
二、 VB串行通讯
利用VB开发通信程序主要的方法有两种，一是利用VB本身提供的控件（CONTRALS），另一种方法是利用WINDOWS API应用程序接口，WINDOWS API 主要提供了三个动态连接库KERNEL.EXE、USER.EXE、GDI.EXE供开发人员调用，其中KERNEL.EXE 主要包括一些底层操作函数，完成一些资源管理、任务、内存等操作，USER.EXE包含了一些与WINDOWS管理有关的函数，如通讯、菜单、消息、光标、插入符、计时器以及绝大多数非显示函数，GDI.EXE图形设备接口库，主要内容为与设备输出有关的函数。和串口通讯有关系的函数BuilidCommDCB、ClearCommBreak、SetCommBreak、FlushComm、GetCommError、GetCommState、WriteComm、ReadComm、SetCommState、CloseComm等均在 \\\\Windows\\\\system 子目录下的USER.EXE动态连接库中，在VB调用之前应该先在全局变量定义处声明API通讯函数、定义常量。
在我们的实践中，用VB 控件实现通讯的方法比调用SDK的API动态连接库的方法更加方便、快捷，而且用较少的代码可以实现相同的功能，这就是用VB 控件实现通讯的优点所在，下面主要介绍一下利用VB 控件实现无线通讯的问题。
在VB的控件工具箱中，提供了一个使用非常方便的串行通讯控件MSComm，它全面的提供了使用RS-232串行通讯上层开发的所有细则，它既可以使用查询方式又可以使用事件驱动方式来完成串行通讯。
在MSCOMM控件中提供了一系列的编程要素，这些编程要素有属性、事件和函数，利用这些要素编程，可以实现几乎全部的串行通讯功能。在VB中提供了30多个属性、一个事件和两个函数，其中主要的属性为CommPort、Settings、PortOpen、InBufferSize、OutBufferSize、InBufferCount、OutBufferCount、Break、InputLen、SThreshold、Rthreshold、RTSEnable、CommEvent、ParityReplace、NullDiscard等。
控件MSComm提供了一个事件OnComm，该事件可以截取串口的任何消息，转入事件处理程序。WINDOWS操作系统的运行机制为事件驱动，在VB编程中事件驱动方式同样是软件运行的主要方式之一，当没有事件发生时程序可能处于某一循环、等待或任务状态当事件发生时，程序转入事件处理程序。每个控件下都有一些事件供程序员使用，MSCOMM控件中OnComm事件是唯一的，OnComm可以扑获通讯时发生的串口事件和错误信息，当有串口事件或错误发生时，VB会立刻触发一个OnComm事件，程序就会自动转入OnComm事件处理程序中。CommEvent属性是OnComm事件的指示器，该属性在设计时不能使用，在程序运行时为只读，CommEvent 属性存有最近的事件或错误的数值代码，可以在程序中随时读取CommEvent 属性值来了解通讯的状况，OnComm事件是和CommEvent属性密切相关、一起使用，当任何一个OnComm 事件或错误发生时，都会使得CommEvent属性值改变，在OnComm事件处理过程中，可以通过判断CommEvent属性值，对于不同的属性值转入不同的事件处理过程，一般采用的办法是SELECT CASE…….END SELECT。由于在无线通讯中没有使用有线MODEM，CommEvent 属性涉及到的有线MODEM的属性数值代码和本项目无关。
三、 无线传输接口和协议
在我们的项目中用Intel 586/120的PC机为上位机，通讯程序使用VB开发的，用8031单片机做CPU、 AD574作数据采集的下位机，上位机作数据接收和数据处理中心站，下位机实时采集数据之后，进行简单的数据平均计算，当收到上位机发来的发送指令之后，开始向上位机发送数据。
上位机无线通讯接口使用的是一块插在ISA扩展槽中的无线MODEM ZX-02，无线MODEM与KENWOOD公司的TK-378无线对讲机相连，数字信号通过无线MODEM调制成为音频信号之后，送到TK-378无线对讲机上的MIC口。
下位机有一台外置无线MODEM ZX-01，单片机的数字信号经过串口送入无线MODEM，MODEM对信号进行调制后送入KENWOOD TK-378无线对讲机上，接收数据的方式与上述相同，由TK-378收到信号后，经无线MODEM将音频信号解调为数字信号进入计算机或单片机处理。
由于在我们的通讯网络中，并非点对点的通讯，而是一点对多点的广播式的通讯方式，因此，我们在通讯协议中曾加站点识别码，每个站有自己特定的识别码，给下位机编码可以保证网络通讯的有序性。
由于无线通讯可能会有空间的燥声干扰，因此，我们采取了多项抗干扰措施，首先是包头识别码，在发送了传输命令之后，下位机开始以打包的形式传输数据，每一包都有一个包头和包尾识别码，假如识别码有误，这一次的传输为不正常数据处理。打包发送另外一个原因是TK-270对讲机连续发送数据的时间不能超过一分钟，超过一分钟就会自动中断发送，因此，当数据较多时不打包连续发送的时间就会超过一分钟，发送数据中断。
在下位机中有32KB的NVRAM，可以保存32KB的数据该数据可以由上位机发送清除命令的方法清楚掉，当32KB满了以后，最早放入的数据就会丢掉，由于我们的采样速率不高，在慢采的情况下，两天的时间才能存满，这样不论上位机或下位机出现断电、死机等问题，数据不会丢失掉。
在发送过程中，由于干扰的原因数据传输出现错误，上位机不给下位机发送清楚命令，数据保存在NVRAM中，下次上位机发送传输命令之后，这些数据还会重新发送到上位机来，这样可以避免了线路带来的数据损失，
从下位机向上位机传送的代码有ASCII码和BCD码，测量数据部分用的是BCD码主要是为了节省资源，由上位机向下位机发送的命令均为ASCII码。
我们还对字段长度和包的长度作了规定，一个字段有多少个字节，一包有多少个字段组成，如果数据最后不够一整包，也按照整字段的格式作为半包发送过来。
考虑到下位机的分散性，可能固定在偏远、不宜接近的地带，用上位机对下位机发送校时命令并校时的方法来统一网络时间。
由于我们使用的无线MODEM 所限，传输速率只能达到2400BPS，而在我们的使用中1200BPS、N PARITY、8 DATA、1 STOP为较稳定状态。
上位机向下位机发送的命令有校时命令并校时、请内存命令、发送数据命令、快采命令和慢采命令等。发送命令有两种发送方式，即手动方式和自动方式，自动方式是由定时器来完成的。
在无线通讯过程中，除了规定合理的协议之外，为了保证通讯的正确性，在数据发送时适当的增加延时是必要的，当速度较慢的计算机向速度较快的计算机发送数据时应适当的增加延时。
作者: 姜棣昭
一、概述
Visual Basic 是Mcrosoft公司推出的强有力的系列开发软件之一，而且以其实用、方便、快捷、开发周期短、广泛而强大的功能越来越被广大编程人员所亲赖，广为流传，似乎有些专业的编程人员放弃了Visaul C++ 而改用了Visaul Basic之类的RAD编程工具，尽管Visaul C++在灵活性、代码紧凑、运行速度快及底层开发等方面Visaul Basic无法比拟的，但编写C++应用程序过长的调试和开发周期确实有点不适应当今的应用程序开发环境。
在Visaul Basic开发工具中提供了大量的控件（或称控制、组件）供编程人员使用，可以方便的利用这些组件中的属性、方法、语言等以事件驱动方式开发应用程序，还可以利用WINDOWS SDK中的API中的应用程序接口等工具开发应用程序。VB还自带一个控件开发软件包CDK，利用CDK可以开发自己需要的Controls 。在通讯问题中我们可以使用VB提供的通讯控件或调用WINDOWS API通讯函数。
二、 VB串行通讯
利用VB开发通信程序主要的方法有两种，一是利用VB本身提供的控件（CONTRALS），另一种方法是利用WINDOWS API应用程序接口，WINDOWS API 主要提供了三个动态连接库KERNEL.EXE、USER.EXE、GDI.EXE供开发人员调用，其中KERNEL.EXE 主要包括一些底层操作函数，完成一些资源管理、任务、内存等操作，USER.EXE包含了一些与WINDOWS管理有关的函数，如通讯、菜单、消息、光标、插入符、计时器以及绝大多数非显示函数，GDI.EXE图形设备接口库，主要内容为与设备输出有关的函数。和串口通讯有关系的函数BuilidCommDCB、ClearCommBreak、SetCommBreak、FlushComm、GetCommError、GetCommState、WriteComm、ReadComm、SetCommState、CloseComm等均在 \\\\Windows\\\\system 子目录下的USER.EXE动态连接库中，在VB调用之前应该先在全局变量定义处声明API通讯函数、定义常量。
在我们的实践中，用VB 控件实现通讯的方法比调用SDK的API动态连接库的方法更加方便、快捷，而且用较少的代码可以实现相同的功能，这就是用VB 控件实现通讯的优点所在，下面主要介绍一下利用VB 控件实现无线通讯的问题。
在VB的控件工具箱中，提供了一个使用非常方便的串行通讯控件MSComm，它全面的提供了使用RS-232串行通讯上层开发的所有细则，它既可以使用查询方式又可以使用事件驱动方式来完成串行通讯。
在MSCOMM控件中提供了一系列的编程要素，这些编程要素有属性、事件和函数，利用这些要素编程，可以实现几乎全部的串行通讯功能。在VB中提供了30多个属性、一个事件和两个函数，其中主要的属性为CommPort、Settings、PortOpen、InBufferSize、OutBufferSize、InBufferCount、OutBufferCount、Break、InputLen、SThreshold、Rthreshold、RTSEnable、CommEvent、ParityReplace、NullDiscard等。
控件MSComm提供了一个事件OnComm，该事件可以截取串口的任何消息，转入事件处理程序。WINDOWS操作系统的运行机制为事件驱动，在VB编程中事件驱动方式同样是软件运行的主要方式之一，当没有事件发生时程序可能处于某一循环、等待或任务状态当事件发生时，程序转入事件处理程序。每个控件下都有一些事件供程序员使用，MSCOMM控件中OnComm事件是唯一的，OnComm可以扑获通讯时发生的串口事件和错误信息，当有串口事件或错误发生时，VB会立刻触发一个OnComm事件，程序就会自动转入OnComm事件处理程序中。CommEvent属性是OnComm事件的指示器，该属性在设计时不能使用，在程序运行时为只读，CommEvent 属性存有最近的事件或错误的数值代码，可以在程序中随时读取CommEvent 属性值来了解通讯的状况，OnComm事件是和CommEvent属性密切相关、一起使用，当任何一个OnComm 事件或错误发生时，都会使得CommEvent属性值改变，在OnComm事件处理过程中，可以通过判断CommEvent属性值，对于不同的属性值转入不同的事件处理过程，一般采用的办法是SELECT CASE…….END SELECT。由于在无线通讯中没有使用有线MODEM，CommEvent 属性涉及到的有线MODEM的属性数值代码和本项目无关。
三、 无线传输接口和协议
在我们的项目中用Intel 586/120的PC机为上位机，通讯程序使用VB开发的，用8031单片机做CPU、 AD574作数据采集的下位机，上位机作数据接收和数据处理中心站，下位机实时采集数据之后，进行简单的数据平均计算，当收到上位机发来的发送指令之后，开始向上位机发送数据。
上位机无线通讯接口使用的是一块插在ISA扩展槽中的无线MODEM ZX-02，无线MODEM与KENWOOD公司的TK-378无线对讲机相连，数字信号通过无线MODEM调制成为音频信号之后，送到TK-378无线对讲机上的MIC口。
下位机有一台外置无线MODEM ZX-01，单片机的数字信号经过串口送入无线MODEM，MODEM对信号进行调制后送入KENWOOD TK-378无线对讲机上，接收数据的方式与上述相同，由TK-378收到信号后，经无线MODEM将音频信号解调为数字信号进入计算机或单片机处理。
由于在我们的通讯网络中，并非点对点的通讯，而是一点对多点的广播式的通讯方式，因此，我们在通讯协议中曾加站点识别码，每个站有自己特定的识别码，给下位机编码可以保证网络通讯的有序性。
由于无线通讯可能会有空间的燥声干扰，因此，我们采取了多项抗干扰措施，首先是包头识别码，在发送了传输命令之后，下位机开始以打包的形式传输数据，每一包都有一个包头和包尾识别码，假如识别码有误，这一次的传输为不正常数据处理。打包发送另外一个原因是TK-270对讲机连续发送数据的时间不能超过一分钟，超过一分钟就会自动中断发送，因此，当数据较多时不打包连续发送的时间就会超过一分钟，发送数据中断。
在下位机中有32KB的NVRAM，可以保存32KB的数据该数据可以由上位机发送清除命令的方法清楚掉，当32KB满了以后，最早放入的数据就会丢掉，由于我们的采样速率不高，在慢采的情况下，两天的时间才能存满，这样不论上位机或下位机出现断电、死机等问题，数据不会丢失掉。
在发送过程中，由于干扰的原因数据传输出现错误，上位机不给下位机发送清楚命令，数据保存在NVRAM中，下次上位机发送传输命令之后，这些数据还会重新发送到上位机来，这样可以避免了线路带来的数据损失，
从下位机向上位机传送的代码有ASCII码和BCD码，测量数据部分用的是BCD码主要是为了节省资源，由上位机向下位机发送的命令均为ASCII码。
我们还对字段长度和包的长度作了规定，一个字段有多少个字节，一包有多少个字段组成，如果数据最后不够一整包，也按照整字段的格式作为半包发送过来。
考虑到下位机的分散性，可能固定在偏远、不宜接近的地带，用上位机对下位机发送校时命令并校时的方法来统一网络时间。
由于我们使用的无线MODEM 所限，传输速率只能达到2400BPS，而在我们的使用中1200BPS、N PARITY、8 DATA、1 STOP为较稳定状态。
上位机向下位机发送的命令有校时命令并校时、请内存命令、发送数据命令、快采命令和慢采命令等。发送命令有两种发送方式，即手动方式和自动方式，自动方式是由定时器来完成的。
在无线通讯过程中，除了规定合理的协议之外，为了保证通讯的正确性，在数据发送时适当的增加延时是必要的，当速度较慢的计算机向速度较快的计算机发送数据时应适当的增加延时。
VB处理数据库时求数据表记录总数的最佳方法(转贴),希�
发贴日期：
2002-05-23 [ 10人评论过 ]
---- ---- VB主要处理的是MDB格式的数据库，但就在这方面，它就偏偏出了差错，先看看下例：
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(App.Path & "\zzr.mdb")
Set rs = db.OpenRecordset("test")
Debug.Print rs.RecordCount
---- ---- 此例假设在应用程序目录下有一个名为"zzr.mdb"的数据库，而且它里边有一个名为"test"的表，此程序的目的就是求出该表中的记录的总数。此处用到的是"表"对象的RecordCount属性，这样用在一般性况下是正确的，但并不能保证在所有的情况下都能得出正确的结果，比如说表中的数据量很大，或者是数据库受到过什么损害等等。如果碰到这种情况，我们可以换一个角度来处理。请看下面的程序：
Dim db As Database
Dim rs As Recordset
Dim Num As Long
Set db = OpenDatabase(App.Path & "\zzr.mdb")
Set rs = db.OpenRecordset("test")
Num = 0
rs.MoveFirst
Do While Not rs.EOF()
Num = Num + 1
rs.MoveNext
Loop
Debug.Print Num
---- ---- 这样，最后得到的Num即为正解结果，这种方法的思路是从表的开始处一直顺序走到结尾，就可以"数"出表中到底有多少条记录。这种方法看起来很笨，但是它却是一个相当准确的方法，大家不防可以试一下。
---- 再看笔者的说法：
---- 先看上面一行程序：Debug.Print rs.RecordCount，VB5在读取数据表时并非一次性将全部记录均读入内存（想想看如果有一个表，里面有一百万个记录甚至一亿个或更多，要想全部读入内存，你的机器能承受得了吗？），只是先读入一部分（在下认为这是VB的优异这处），recordset对象并非表的全部记录，只是已读入内存的部分，故用rs.recordcount得到的不是表的记录总数。
---- 再看上面程序的改良部份：
Do While Not rs.EOF()
Num = Num + 1
rs.MoveNext
Loop
Debug.Print Num
---- 在下用十万个记录的表对上面这段程序做了个测试，结果花了六分半钟（intel 166,32M内存），如此的等待，阁下有耐心无？请看在下的对策：
---- 假设数据表已打开，用
rs.Recordset.MoveLast '将指针移到表的最后一笔记录
debug.print rs.Recordset.RecordCount
即可得出正确结果。
或者用下一种方法亦可
rs.Recordset.MoveLast
debug.print rs.Recordset.AbsolutePosition+1
'调用绝对位置,因vb的第一笔记录是由零算起，故要+1。
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(App.Path & "\zzr.mdb")
Set rs = db.OpenRecordset("test")
Debug.Print rs.RecordCount
---- ---- 此例假设在应用程序目录下有一个名为"zzr.mdb"的数据库，而且它里边有一个名为"test"的表，此程序的目的就是求出该表中的记录的总数。此处用到的是"表"对象的RecordCount属性，这样用在一般性况下是正确的，但并不能保证在所有的情况下都能得出正确的结果，比如说表中的数据量很大，或者是数据库受到过什么损害等等。如果碰到这种情况，我们可以换一个角度来处理。请看下面的程序：
Dim db As Database
Dim rs As Recordset
Dim Num As Long
Set db = OpenDatabase(App.Path & "\zzr.mdb")
Set rs = db.OpenRecordset("test")
Num = 0
rs.MoveFirst
Do While Not rs.EOF()
Num = Num + 1
rs.MoveNext
Loop
Debug.Print Num
---- ---- 这样，最后得到的Num即为正解结果，这种方法的思路是从表的开始处一直顺序走到结尾，就可以"数"出表中到底有多少条记录。这种方法看起来很笨，但是它却是一个相当准确的方法，大家不防可以试一下。
---- 再看笔者的说法：
---- 先看上面一行程序：Debug.Print rs.RecordCount，VB5在读取数据表时并非一次性将全部记录均读入内存（想想看如果有一个表，里面有一百万个记录甚至一亿个或更多，要想全部读入内存，你的机器能承受得了吗？），只是先读入一部分（在下认为这是VB的优异这处），recordset对象并非表的全部记录，只是已读入内存的部分，故用rs.recordcount得到的不是表的记录总数。
---- 再看上面程序的改良部份：
Do While Not rs.EOF()
Num = Num + 1
rs.MoveNext
Loop
Debug.Print Num
---- 在下用十万个记录的表对上面这段程序做了个测试，结果花了六分半钟（intel 166,32M内存），如此的等待，阁下有耐心无？请看在下的对策：
---- 假设数据表已打开，用
rs.Recordset.MoveLast '将指针移到表的最后一笔记录
debug.print rs.Recordset.RecordCount
即可得出正确结果。
或者用下一种方法亦可
rs.Recordset.MoveLast
debug.print rs.Recordset.AbsolutePosition+1
'调用绝对位置,因vb的第一笔记录是由零算起，故要+1。