如何读取串口红外线接受器接受到的信息??

Sorcier 2003-11-03 02:04:55
本人按照报纸上的图纸自己制作了一个红外线接受器, 使用正常, 现在我想自己写一个程序, 我使用了MSCOM控件, 可是怎么读都读不到它接受到的信号, 请大家帮帮我, 最好有个例子

分数可以在加
...全文
229 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
TBBT 2004-01-26
  • 打赏
  • 举报
回复
红位线信号不是合法的RS232数据,所以用MSCOMM是无法受到的

这个要用硬件的角度去理解

我估计信号RX从串口的某个状态脚进来,你可以先用示波器量一下,看看北航的〈PC机与单片机数据通讯技术〉里有讲,太多了,不想打,^_^
chenyu5188 2004-01-25
  • 打赏
  • 举报
回复
用MSComm 控件
lsftest 2004-01-25
  • 打赏
  • 举报
回复
楼主请留下邮箱,我给你发一个“串口编程调试精灵”给你试一试看有没有帮助。
lsftest 2004-01-25
  • 打赏
  • 举报
回复
请问楼主你的接收器是怎么做的?能不能给大家说说?或者告诉我在哪里可以找到相关资料也行。我找这东西可找得苦了。想买又买不着,想自己做又没资料。如果楼主能提供有用的信息,200分奉上。
我的邮箱:lsftest@163.com
dz08039 2004-01-25
  • 打赏
  • 举报
回复
计算机自带的红外口怎么读写,没有COM口号啊?
Sorcier 2003-11-03
  • 打赏
  • 举报
回复
回复: golden24kcn(不甜)

就算是二进制数据那也要在comEvReceive有反应才行啊,

我这里一点反应也没有, 用那些已经写好程序比如Ircontrol等软件都可以使用我做的这个红外线接受器, 我都快把我的遥控器按坏了
li_ping 2003-11-03
  • 打赏
  • 举报
回复
如何用MSComm Control传Binary Data

以下是读取Binary Data

Dim Buffer as Variant
Dim Arr() as Byte

' 设定并开启连接埠
MSComm1.CommPort = 1
' 连线速度 9600 baud、无同位检查、资料位元 8、停止位元 1
MSComm1.Settings = "9600,N,8,1"
告诉控制项当使用 Input 时,读取整个暂存区
MSComm1.InputLen = 0

MSComm1.PortOpen = True
' 设定 InputMode 以读取二进位资料
MSComm1.InputMode = comInputModeBinary
' 等待直到输入暂存区有 10 个位元组
Do Until MSComm1.InBufferCount < 10
DoEvents
Loop
' 往暂存区存二进位资料
Buffer = MSComm1.Input
' 指定给位元组阵列以便处理
Arr = Buffer
MSComm1.PortOpen = False


而送出Binary的资料则没有像InputMode的属性,在VB5.0中
Output属性是接Varant所以直接将ByteArray传送出去就好了,
所以重点变成如何将想传的资料放入ByteArray

Dim Buffer(5)

Buffer(0) = 210
Buffer(1) = 150
Buffer(2) = 68
Buffer(3) = 56

MSComm1.Output = Buffer

golden24kcn 2003-11-03
  • 打赏
  • 举报
回复
代码贴出来,我帮你找找错!!
一般来说,串口输入的都是二进制数据,要转一下码
Sorcier 2003-11-03
  • 打赏
  • 举报
回复
up
Sorcier 2003-11-03
  • 打赏
  • 举报
回复
红外线是自己做的, 所以要写一个
Sorcier 2003-11-03
  • 打赏
  • 举报
回复
没有哦
668 2003-11-03
  • 打赏
  • 举报
回复
你的红外线接收器有没有向串口发送信息的程序
Sorcier 2003-11-03
  • 打赏
  • 举报
回复
救命~~~~~

7,789

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧