pc遥控器.bas

PC遥控例子(PC端程序+编译器设置+实物照片+原理图+源代码)

Config Rc5 = Pinb.1                                         '配置端口B的1号IO线为RC5红外遥控信号输入脚
Ddrb = &HFD                                                 '配置端口B的1号IO线为输入，其余为输出
Portb = &HFC                                                '设置端口B的0、1号IO线为低电平，其余为高电平
Enable Interrupts                                           '打开全局中断
Dim Address As Byte , Command As Byte                       '定义2个字节型变量，分别保存RC5编码的地址和指令数据
Do                                                          '无条件DO LOOP循环开始
    Getrc5(address , Command)                               '读取RC5红外遥控信号，并将地址数据保存于address变量，指令数据保存于Command变量
    If Address = 0 Then                                     '判断地址数据是否为0(电视遥控器地址为0)
        Command = Command And &B01111111                    '指令数据与&H7F做与运算，获取真实按键代码
        Print Chr(command);                                 '往PC串口发送按键代码
        Sound Portb.0 , 1000 , 160                          '打开扬声器，使其发出嘟的一声
        Waitms 250                                          '等待250毫秒，防止快速连击
    End If                                                  '判断结束
Loop                                                        '无条件DO LOOP循环结束
End                                                         '程序结束