如何利用VB6。0和PC机的COM口接受数据

Question

如题！谢谢帮忙

Answer 1

串口侦听sub setcom()                                  '初始化串口程序
With Com1  
   If .PortOpen Then .PortOpen = False   '如果端口已打开，则先关闭
   .Commport = 1                  '选择串口1
   .RThreshold = 1                '接收缓冲区每收到每一个字符都会一个OnComm 事件
   .InputLen = 0                  '接收缓冲区中全部的内容
   .InputMode = comInputModeText  '数据传输模式为文本方式
   .Settings = "38400,n,8,1"      '波特率38400
   .Handshaking = 0               '硬件握手方式
   .InBufferCount = 0             '输入缓冲大小
   .PortOpen = True               '打开端口
End With
end subPrivate Sub Com1_OnComm()　　　'串口接收数据
Dim TEMP As String
Select Case Com1.CommEvent
   Case comEvSend: me.Caption = "数据已发送,请稍候..."   '发送数据
   Case comEvReceive: TEMP = Com1.Input        '接收数据
   Case comEvCTS: me.Caption = "3 Clear To Send 线的状态发生变化"
   Case comEvDSR: me.Caption = "4 Data Set Ready线的状态发生变化。该事件只在DST从1变到0时才发生"
   Case comEvCD: me.Caption = "5 Carrier Detect线的状态发生变化"
   Case comEvRing: me.Caption = "6 检测到振铃信号。一些UART(通用异步接收— 传输)可能不支持该事件"
   Case comEvEOF: me.Caption = "7 收到文件结束(ASCII 字符为 26)字符"
   Case 1008: Com1.InBufferCount = 0 '接收缓冲区溢出，清空
   Case Else: Me.Caption = Com1.CommEvent
End Select
End Sub

Answer 2

利用 MMComm 控件。看看 MSDN 中的例子就会了。

Answer 3

用VB的MSCOMM控件，或者用API也可以。
具体编程还是要看实际情况的。

Answer 4

先谢谢大家！我试着把这个程序自己作完！同学让我帮她（是个美女哦）作个课程设计！题目是设计题目：具有图形显示功能的串口通讯软件设计
内容及要求：利用VB 6.0和PC机的COM口（2.3脚短接）完成以下设计
一、实现20个十进制正整数（<50）的串口发送和接受。界面设计上要求在不同的文本框中实现接发。
二、将接受的结果显示在用户自定义坐标系上。横坐标为接受序号，纵坐标为接受的具体数据。希望大家能给我一些好的资料！能给出具体的方法就更好了！谢谢了

Answer 5

小弟作了一个！不知道好用不好用！，请问大虾们！怎么调试啊！~主要是COM口接受数据！可不可以用自己身边的材料做个测试程序的工具啊！