多串口

o o e o e o o e 0 1 串口通信 随着微机特别是单片机的发展，其应 用已从单机逐渐转向多机或联网，而多机 应用的关键 又在于微机之间的相互通信、 互相传输数据信息。本文介绍 了利用 VB 的通信控件 Mseomm实现 1台微机与 6台 单片机之间相互通信技术，给出了具体的 设计例程。 2 多串口的设置 在实际应用中，我们采用的是 6串口 卡 ，串口设置为串口 3～8，用来分别与 6 个单 片机的串口通信。在 VB中设置一个 多串口窗体(c8．frm)，如图 1所示。 口 口 国因 园 圆 圆 圆 ·串口选择 — — ④黼 ；o黼 ；o黼 ； o 。黼 i o黼 { 主号 发送内容 4 接收内容 4 M|c∞ m ．1 ⋯ 数据类型 数据号 数据 8 8 7777 8 8 7777 M ∞ 一3 ⋯ Mscomm一6 图 1 多串口窗体图 窗体中包含：4个命令按钮分别是打开 (open)、关闭 (close)、发送 (send)、接收 (i~ ver)。1个串口选择分组框，其中含 6个 单选按钮：单片机 1—6(dpj一1～6对应串口 3—8)。6个通信控件 Mscomm一1～6(分别负 责串口3～8的通信)。8个文本控件 Textl～ 8(分 2组，分别存放发送和接收数据)。 串口 3—8的设置 ：单片机 1．value= True，单片机 2—6．value=False。 通信控件 Mscomm—i(i为 1 6)的设置： Mseomm—i．CommPort：J ；端 口号的设置 为j(j为 3～8) Mseomm i．Settings=9600，n，8，1 ；参数 (波特率、数据、校验)设置 Mseomm—i．InBufferSize=1024 ；输入缓 空军工程大学 华继学 宋宗虎 冲 区设置 Msc0B'ltn—i．0utBufferSize：512 ；输出缓 冲区设 置 3 程序设计 3．1 打开子程序的实现 将通信控件 Mscomm的 PortOpen设置 为 True(打开)，将发送和接收按钮的 En— abled设置为 True(可用)。 Public Sub open—Click() If Mscomm—i．Po~Open=False Then Mscomm—i．PortOpen=True End If send．Enabled=True receive．Enab led=True End Sub 3．2 关闭子程序的实现 将通信控件 Mscomm的 PortOpen设置 为 False(关闭)，将发送和接收按钮的 En abled设置为 False(不可用)。 Public Sub Close—Click() If Mscomm —i．PortOpen：True Then Mscomm—i．PortOpen=False EndIf send．Enabled=False receive．Enabled：False End Sub 3．3 发送子程序的实现 将数字转化成字符串发送，增加 2个 特 殊起 始字符 Chr$(127)和一个 奇偶 字 符。 Public Sub send—Click() Dim sends~ As String Dim a，ab As Integer If dpj—i．Value：True Then sendstr：Chr~(127) sendstr=sends~+Ch6(127) sendstr：sends~+Chrs(Val(Text1．Text)) sendstr=sendstr+Chrs(Val(Text2．Text)1 sendstr=sendstr+Chr$(Val(Text3．Text)) a=Val(Trim(Text4．Text)) sendstr=sendstr+Chr$(a＼1000) sendstr：sendstr+chr$(a Mod 1000)＼100) sendstr：sendstr+chrs(a Mod 100)＼10) sendstr=sends廿+ch南(a Mod lO) End If ’ sendstr=sendstr+chrs(Val(Text1．Text)+Val (Text2．Text)+Val(Text3．Text)+(a＼1000)+(a Mod 1000)＼ 100+(a Mod 100)＼ 10+(a Mod 10)) If dpj—i．Value=True Th en Mscomm—i．Output ：sendstr ；i为 1—6 End Sub 3．4 接收子程序 每次接收一个字符，然后将字符转化 成有效数字。接收过程要进行字符判定和 奇偶校验 ，无效则返回全 0。 Public Sub receive—Click() Dim recstrAs String Dim sum0，suml，a，b，c，d，fAs Byte On Error Resume Next If dpj—i．Value=TrueTh en MSComm—ck．InputLen=1 recs~：Trim(MSComm—i．InFut) f：0 Text5．Text= ：Text6．Text：nn~．Text7．Text ： ：Text8．Text： DoWkle recstr ◇ If Asc(recstr)=127 Th en recstr=Trim(MSComm—i．Input) If Asc(recstr)：127 Then f： l Exit Do End If End If recstr：Trim(MSComm—i．Input) ． Loop Iff： l 111en Text5．Text=Asc(MSComm—i．Input) Text6．Text：Asc(MSComm—i．Input) Text7．Text=Asc(MSComm—i．Input) a：Asc(MSComm—i．Input) b=Asc(MSComm—i．Input) 维普资讯 http://www.cqvip.com 国 翘 磅 毽 自 西安财经学院 段富齐 随着科学技术的发展，扫描仪的价格越来越便宜，逐渐成为 计算机必备的外设之一。拥有了扫描仪，不但可以制作电子像册 ， 还可以通过 OCR来简化文章的录入工作，还可以配合 MODEM当 传真机来用等等 ；扫描仪的种种好处也引起了广大电脑爱好者的 购买欲望。那么在购买扫描仪时应注意哪些问题 ，应如何选购扫 描仪呢? l 扫描幅宽 扫描幅面是指一次可以扫描的最大面积。一般有 A4、A3、AI、 A0等。一般情况下扫描幅面越大价格越高。选购时应根据 自己的 需要选择合适的幅面。一般家里用选 A4或 A4加长就可以了。 2 光 学分辨率 光学分辨率就是指扫描仪 的光学系统可以采集的实际信息 量。它是衡量扫描仪品级的主要指标之一。分辨率越高 ，扫描出的 图像就越清晰。分辨率用每一英寸长度上的点数．用 d／i表示。目 前常见的分辨率有 600d／i}1200d／i、1 200d／i}2 400d／i。在购 买时不但要考虑输入图像的 ，还要考虑输出图像设备 的分辨 率。否则扫描得再清晰的图像也有可能输出时不理想。常用的输 出设备是彩色喷墨打印机。在购买时分辨率可用以下公式估算 ： 扫描分辨率 ：放大系数 打印机分辨率 ／打印机喷头色数 3 色彩位数 色彩位数反映对扫描出的图像色彩的区分能力 。色彩位数越 高 ，扫描出的图像色彩越丰富。色彩位数用二进制位数表示 ，它的 单位是 B。目前市场上主要有 36B、42B两种类型的扫描仪。由于 受到计算机处理能力和打印机分辨率的限制 ，对于非专业用户来 讲 ，不必要追求过高的色彩位数。 4 感光 元件 感光元件是扫描仪的眼睛，它的好坏与扫描质量息息相关 。 目前市面上主要有 CCD和 CIS两种。CCD扫描仪的工作原理和 复印机相同，它是利用高亮度的光源照射原稿件或实物 ，并将其 反射光依次通过反光镜 、透射镜、聚焦镜头等一系列光学器件 ，最 后成像于 CCD感应器表面；有一定的景深 ，能扫描凹凸不平的稿 件。而 CIS是广泛应用于传真机上的感光元件 ，其极限分辨率在 600d／i左右 ，较 CCD技术存在一定 的差距 ，但采用 CIS技术的扫 描仪一般都 比较小和薄 ，占用空间面积较小 ，便于移动。 5 接 口类型 接 口是指扫描仪和计算机的连接方式，常见的接 口类型有： 并 口 (EPP)、USB接 口、SCIS接 口、火线接 口。并 口已趋于淘汰； USB接 口支持热插拔 ，与计算机连接非常方便 ，适合于多平台用 户 ，但由于 USB接 口的传输速率较慢 ，故适合于普通办公用户。当 然要选购 USB接 口的扫 描仪还要看你 的计算机是否 有 USB接 口；SCIS接 口扫描仪传输速率一般较 USB接 口要快，但 SCIS接 口 的扫描仪连接较为麻烦 ，需打开机箱连接，当然选购 SCIS接 口的 扫描仪的前提是你的计算 J九有 SCIS插槽 ，SCIS接 口的扫描仪一 般价格较高，适用于专业设计领域；火线接 口 (IEEEI394)具有 USB接 口的全部特性 ，传输速率较 SCIS接 口要快 ，但 目前配置有 火线接 口的计算机不多，除苹果计算机外大多品牌 的计算机没 有火线接 口。 6 附带软件 扫描仪的功能是通过相应的软件来实现的，离开了软件的支 持 ，扫描仪是什么都干不成的。所 以购买时附带的附件也是相当 重要的。在购买扫描仪时除 了扫描仪带的一些驱动程序和一些图 像处理软件外，大多数都免费送一些专业性的文字软件 (OCR)。 如给办公室选购扫描仪时应最好选有以下附带软件的扫描仪 ：一 套辨认能力强的汉字识别 (OCR)软件 ，以备扫描文件时用；一套 图像编辑软件 ，以备扫描相片时用 ；一套专业图像编辑软件，以备 制作图像软件时用。如果选购有 以上软件附带的扫描仪的话，可 大大增加所购扫描仪的性价比。 7 售后服务 售后服务是选购扫描仪要考虑的重要因素之一。购买时一定 要 了解清楚寻找一个能做到较长的质保期、全国联保 、有保换期 ， 并能提供维修备机、培训等良好售后服务的产品。切不可图价格 便宜购一个没有售后服务保障的产品 ，以免带来不必要的麻烦 。 C=Ase(MSComm—i．Input) d=Asc(MSComm—i．Input) Text8．Te对 =a·1000+b·lO0+C·10+d ~UUlO=Ase(MSComm ek．Input) suml=Val(Text5．Text)+Val(Text6．Text)+Val(Text7．Text)+a+ b+c+d If(sum0◇ sum|)Then ；校验和错 Text8．Text= ：1e ．Text= Text6．Text= ：Text5．Text= End Ⅱ End If End If End Sub 4 结束语 本文所述的利用 VB的通信控件通过串口传输数据信息的方 法和实例 ，在 VB6．0下全部调试通过 ，并且在实际的通信 中应 用。然而在有大量数据信息需要传输的情况时 ，这种方法就不适 用 了，而应该改为网络传输 。 维普资讯 http://www.cqvip.com