《匠人手记》推荐网上购书渠道： EDN网（ednchina）购书入口   >>> 互动出版网（china-pub）购书入口   >>> 当当网（dangdang）购书入口   >>> 淘宝网（taobao）购书入口   >>> 更多购书渠道……   >>>

设为首页｜加入收藏｜联系匠人｜管理入口｜21IC首页｜21IC博客｜21IC社区｜侃单片机｜回复的贴｜参与的贴

[加入团队] [加入Q群] [广告赞助] [交换连接] [代理工具] [免责声明]      匠人的原创栏目：[匠人公告] [匠人文集] [匠人笔记] [写书近况]

天气预报 百宝日历 百宝专栏 首页 相册 标签 电脑应用(65) 供需信息(22) 写书近况(82) 匠人文集(115) 硬件技术(171) 匠人公告(86) 与非门专栏(545) 匠人笔记(115) 团队撰写(96) 汽车电子(52) 编程技巧(465) 程序宝典(476) 网络酷文(472) 开发工具(19) 资料宝藏(274) 项目管理(11) 藏经宝阁(42) 趣味设计(5) 社区热贴(2) 比尔盖茨熊专栏(0)  百宝信息 载入中... 百宝流量 （2006-07-01开始） 匠人手记

匠人DIY：旋转时钟系列、天梯 之 从零开始玩PIC  匠人原创：浅谈“鲁棒性”、戏说“看门狗”  匠人原创：焊了一块51学习板 、上海书城暗访记 、  匠人笔记：渐明渐暗动态流水灯效果（C源程序）  社区动态：《匠人手记》义拍赈灾活动圆满结束   网络酷文：MISRA2004概览（C编程规范）    匠人手记：购书攻略、勘误表、书友会、书友Q群  书友近况：网络——互动的力量、精致兰花大高帽！ PIC 端口模拟 红外通讯 程序匠人 发表于 2005-10-4 20:55:00  阅读全文 | 回复(0) | 引用通告 | 编辑 PIC 端口模拟 红外通讯 38K调制 1200bps 偶校验 半双工 单片机 发表于 2005-9-24 23:21:45 来自老古论坛 最近写了个小程序，贴出来大家分享 考虑到有些场合同时需要232（485），和红外，PIC16F87x系列单片机只有一个UART模块，因而用端口模拟红外通讯有它的用武之地。当然，如果仅仅是红外通讯那完全可以用 UART模块，38K调制载波可用PWM生成，这样可简化设计。 PIC 端口模拟 红外通讯 38K调制 1200bps 偶校验 半双工  适用于16F7X 16F87X INT_Serv    ;单片机自动清GIE  movwf W_Temp      ;save W  swapf STATUS,W     ;save STATUS  movwf STATUS_Temp  swapf FSR,W      ;save FSR  movwf FSR_Temp    ;红外接收中断  banksel INTCON      ;RB0 interrupt  btfsc INTCON,INTF  call INT_Serv_IR_RX    swapf FSR_Temp,W     ;restore FSR  movwf FSR  swapf STATUS_Temp,W    ;restore STATUS  movwf STATUS  swapf W_Temp,F     ;restore W  swapf W_Temp,W  retfie ;----------------------------------------------------- ;函数名:INT_Serv_IR_RX() ;函数功能:RB0红外数据中断接收子程序（0唤醒） ;函数入口参数:IR_Data_ADD,IR_Data_Length,注意中断中间变量INT_Loop_Temp3,INT_Loop_Temp4,IR_Data_Temp INT_Loop_Temp2 ;函数出口参数:无 ;-----------------------------------------------------   INT_Serv_IR_RX      banksel INTCON  ;bcf  INTCON,INTE     ;Disable RB0 interrupt  bcf  INTCON,INTF     ;clear interrutpt flag  ;-----------------------------------  movlw D'59'      ;wait start  movwf INT_Loop_Temp3 IR_RX_Start_Wait1  nop  nop  nop  nop  decfsz INT_Loop_Temp3,F  goto IR_RX_Start_Wait1    btfsc PORTB,IR_RX     ;再一次检测起始位 数据中间采样，有待于改进 59*7+4+59*7+3=833us ---> 1200bps  goto IR_RX_END    movlw D'59'      ;wait start  movwf INT_Loop_Temp3 IR_RX_Start_Wait2  nop  nop  nop  nop  decfsz INT_Loop_Temp3,F  goto IR_RX_Start_Wait2  ;-----------------------------------  movlw D'8'      ;8位数据  movwf INT_Loop_Temp4   clrf INT_Loop_Temp2   IR_RX_lp1  movlw D'58'      ;数据中间采样，有待于改进 58*7+7+4+59*7+3=833us ---> 1200bps  movwf INT_Loop_Temp3   IR_RX_Data_Wait1  nop  nop  nop  nop  decfsz INT_Loop_Temp3,F  goto IR_RX_Data_Wait1    incf INT_Loop_Temp2,F    ;1的个数，为校验准备 （9月9号）  btfss PORTB,IR_RX  decf INT_Loop_Temp2,F  nop  nop  nop  nop    bcf  STATUS,C       btfsc PORTB,IR_RX  bsf  STATUS,C  rrf  IR_Data_Temp,F    ;先收低位!!!!!!!!!!      movlw D'59'        movwf INT_Loop_Temp3   IR_RX_Data_Wait2  nop  nop  nop  nop  decfsz INT_Loop_Temp3,F  goto IR_RX_Data_Wait2    decfsz INT_Loop_Temp4,F  goto IR_RX_lp1     ;一字节完毕  ;----------------------------  movlw D'59'      ;接收校验位，数据中间采样，有待于改进 59*7+4+59*7+3=833us ---> 1200bps （9月9号）  movwf INT_Loop_Temp3 IR_RX_E_Wait1  nop  nop  nop  nop  decfsz INT_Loop_Temp3,F  goto IR_RX_E_Wait1    incf INT_Loop_Temp2,F  btfss PORTB,IR_RX  decf INT_Loop_Temp2,F   nop    movlw D'59'        movwf INT_Loop_Temp3 IR_RX_E_Wait2  nop  nop  nop  nop  decfsz INT_Loop_Temp3,F  goto IR_RX_E_Wait2  ;-------------------------------  movlw D'109'      ;等待停止位,并给出10*7个周期用于处理下面的指令,方便接收连续数据.但规约规定,byte之间至少间隔12ms  movwf INT_Loop_Temp3 IR_RX_Stop_Wait  nop  nop  nop  nop  decfsz INT_Loop_Temp3,F  goto IR_RX_Stop_Wait  ;------------------------------     btfsc Flags,Flag_Receive_Frame   ;存在没有被处理过的数据帧，拒绝新帧。 （9月2号）  goto IR_RX_END    btfsc INT_Loop_Temp2,0    ;如有奇偶校验加在这里，C保留了校验位。（9月9号）  goto IR_ECheck_Error    ;1个数为奇,丢帧    ;如果接收的数据过长要加出错处理，否则可能影响RAM其他区域的寄存器数据!(待完善)    movf IR_Data_Temp,W  xorlw 0xFE  btfsc   STATUS,Z  goto IR_Receive_FEH  btfss Flags,Flag_FEH    ;Flag_FEH=0 end  goto IR_RX_END  xorlw 0x16^0xFE  btfsc STATUS,Z  goto IR_Receive_END  goto IR_Save_Data   IR_Receive_FEH        ;数据中间出现FEH如何？  bsf  Flags,Flag_FEH  clrf IR_Data_Length  goto IR_RX_END IR_Receive_END  bsf  Flags,Flag_Receive_Frame     ;数据中间出现16H如何？  bcf  Flags,Flag_FEH  bsf  Flags,Flag_IR_Frame    ;IR Received frame  ;goto INT_Serv_485_END    ;also save end IR_Save_Data  movlw IR_Data_ADD  movwf FSR  movf IR_Data_Length,W  addwf FSR,F  movf IR_Data_Temp,W  movwf INDF  incf IR_Data_Length,F   ;增加接收数据个数 IR_RX_END  bsf  INTCON,INTE     ;enable RB0 interrupt  return IR_ECheck_Error  bcf  Flags,Flag_FEH  bsf  INTCON,INTE     ;enable RB0 interrupt  return ;----------------------------------------------------- ;函数名:Delay_20ms() ;函数功能:485字节间发送延时 ;函数入口参数:Delay2 ;函数出口参数:无 ;----------------------------------------------------- Delay  banksel Delay1  clrf Delay1   Delay_lp1  decfsz Delay1,F  goto Delay_lp1  ;(256*3+3)*25  decfsz Delay2,F  goto Delay_lp1    return ;----------------------------------------------------- ;函数名:Initial_IR() ;函数功能:初始化红外 ;函数入口参数:无 ;函数出口参数:无 ;-----------------------------------------------------  Initial_IR  bsf  STATUS,RP0  bcf  TRISC,IR_TX   ;output  bsf  TRISB,IR_RX   ;input  bcf  STATUS,RP0    bcf  PORTC,IR_TX   ;no TX  bcf  Flags,Flag_Receive_Frame  clrf IR_Data_Length  ;clear Data_Number    bsf  INTCON,INTE   ;enable RB0(IR_RX) interrupt !!!!!!  bsf  STATUS,RP0   ;bank1  bcf  OPTION_REG,INTEDG ;down endage  bcf  STATUS,RP0   ;bank0    return ;----------------------------------------------------- ;函数名:IR_Send_Byte() ;函数功能:红外字节发送 ;函数入口参数:IR_Data_Temp(待发送数据) ;函数出口参数:无 ;-----------------------------------------------------  IR_Send_Byte  movlw D'9'  movwf Loop_Temp1  clrf Loop_Temp4   ;保存1的个数    goto IR_Send_0   ;起始位   IR_Send_Data_lp1  rrf  IR_Data_Temp,F  ;先发低位!!!!!!!!1  btfss STATUS,C     goto IR_Send_0  goto IR_Send_1   IR_Send_0  movlw D'32'   ;32*26us=1200Hz  movwf Loop_Temp2 IR_38K      ;26uS=38K  bsf  PORTC,IR_TX  ;7+1=8  nop  nop  nop  nop  nop  nop  nop  bcf  PORTC,IR_TX  ;14+1+2+1=18  nop  nop  nop  nop  nop  nop  nop  nop  nop  nop  nop  nop  nop  nop  decfsz Loop_Temp2,F  goto IR_38K    goto IR_Send_Next   IR_Send_1  bcf  PORTC,IR_TX  ;~ 119*(4+1+2)=833us=1200Hz  movlw D'119'  movwf Loop_Temp2  incf Loop_Temp4,F IR_Send_1_Delay  nop  nop  nop  nop  decfsz Loop_Temp2,F  goto IR_Send_1_Delay   IR_Send_Next  decfsz Loop_Temp1,F  goto IR_Send_Data_lp1 ;---------------------------------- ;发送校验位  btfsc Loop_Temp4,0  goto IR_Send_E1  IR_Send_E0  movlw D'32'   ;32*26us=1200Hz  movwf Loop_Temp2 IR_E38K      ;26uS=38K  bsf  PORTC,IR_TX  ;7+1=8  nop  nop  nop  nop  nop  nop  nop  bcf  PORTC,IR_TX  ;14+1+2+1=18  nop  nop  nop  nop  nop  nop  nop  nop  nop  nop  nop  nop  nop  nop  decfsz Loop_Temp2,F  goto IR_E38K    goto IR_Stop IR_Send_E1  bcf  PORTC,IR_TX  ;~ 119*(4+1+2)=833us=1200Hz  movlw D'119'  movwf Loop_Temp2 IR_Send_E1_Delay  nop  nop  nop  nop  decfsz Loop_Temp2,F  goto IR_Send_E1_Delay ;---------------------------------- IR_Stop   bcf  PORTC,IR_TX  ;~ 119*(4+1+2)=833us=1200Hz  movlw D'119'  movwf Loop_Temp2 IR_Send_Stop  nop  nop  nop  nop  decfsz Loop_Temp2,F  goto IR_Send_Stop  return   ;----------------------------------------------------- ;函数名:IR_Send_Data() ;函数功能:IR发送数据 ;函数入口参数:IR_Data_ADD(发送数据首地址),IR_Data_Length(发送数据长度) ;函数出口参数:无 ;-----------------------------------------------------  IR_Send_Data     banksel INTCON  bcf  INTCON,INTE  ;disable IR_RX interrupt    banksel IR_Data_ADD  movlw IR_Data_ADD  ;Data begining address  movwf FSR    movlw 3     ;3个FEH唤醒字节  movwf Loop_Temp3 Send_Data_IR_lp0   movlw 0xFE    ;FE 唤醒接收，视通讯协议定  movwf IR_Data_Temp  call IR_Send_Byte    movlw Delay_20ms  movwf Delay2  call Delay    ;字节之间的延时 20ms    decfsz Loop_Temp3,F  goto Send_Data_IR_lp0    movf IR_Data_Length,F    ;产生Z标志  btfsc STATUS,Z   ;Length=0 return  goto Send_Data_IR_END    movf IR_Data_Length,W ;Data length  movwf Loop_Temp3    Send_Data_IR_lp1  movf INDF,W    ;addlw 0x33    ;    movwf IR_Data_Temp  call IR_Send_Byte    movlw Delay_20ms  movwf Delay2  call Delay    ; 12ms<20ms<300ms    incf FSR,F    ;point to next data  decfsz Loop_Temp3,F  ;all data sended?  goto Send_Data_IR_lp1  Send_Data_IR_END   banksel INTCON  bsf  INTCON,INTE   ;enable IR_RX interrupt    return 看《匠人手记》，与匠人同行！北航出版，正在热卖！ 上一篇：一些实用的单片机c程序 下一篇：W77E58 双串口通信源代码 发表评论： 昵称： 密码： (游客无须输入密码) 主页： 标题： 载入中... 芯片专题 器件专题 软件专题 硬件专题 综合专题 项目专题 原创专题 EMC Freescale PIC MSP430  AVR ARM 器件检测 LCD LED 按键 触摸键 E2PROM 电池 电机 电阻 电容 电感 指令系统 软件算法 编程规范 滤波算法 串行通讯 PCB设计 I2C PWM 红外遥控 充电技术 中断 ADC  新手入门 项目管理 电磁兼容 低功耗 汽车电子 电子秤 电磁炉 电动车 报警器 匠人手记 匠人夜话 网络心路 一周热点串烧 从零开始玩PIC DIY旋转时钟 广告5号位 [投放] 学习板、开发板、编程器、下载器、仿真器（查看详情……）

站内搜索 日志标题日志内容 站外搜索 百度  google mp3  歌词  图片  FLASH  知道  文档 新闻  词典  地图  mp3  软件  天网  雅虎  爱问  搜狗  讯雷  网讯  华军  天空  21IC器件搜索 货源价格资料 百宝箱分站 《匠人的百宝箱》21IC站 《匠人的百宝箱》21IC笔记团队 《匠人的百宝箱》MCUBLOG站 《匠人的百宝箱》MCUBLOG笔记团队 《匠人的百宝箱》EDN站 《匠人手记》EDN书友会 《匠人的百宝箱》与非网站 《匠人的百宝箱》新浪站 《匠人的百宝箱》百度站 《匠人的百宝箱》网易126站 《匠人的百宝箱》网易163站 《匠人的百宝箱》互动出版网站 广告4号位 [投放]

新鲜货色	匠人手记	近期动态
载入中...	《匠人手记》购书全攻略   书友近况：淘书手记、答疑与讨论：什么是散转程序   《匠人手记》新书艳照  EDN《匠人手记》签名售书优惠活动开始报名啦！  欢迎加入《匠人手记》EDN书友会  欢迎加入《匠人手记》书友会Q群  《匠人手记》终稿目录  《匠人手记》封面，请大家先睹为快  上周六收到了北航寄来的《匠人手记》清样，让大家先睹为快	《匠人的百宝箱》21IC笔记团队  社区动态：《匠人手记》义拍活动，得款直接捐献灾区  浅谈A/D  太阳能应用图片集粹1  Keil C动态内存管理机制分析及改进  一种触摸实现方式  modelsim仿真UART接收功能  关于射频表无法用红外改写时间的问题  一定要珍惜的十种人  PADS2007安装问题解决方案
匠人原创	粉丝评论	往日酷贴
匠人原创：心灵的震撼——写在512地震之后  社区动态：《戒色》新片发布会(网友聚会恶搞系列)  匠人文集：两粒电子的爱情、出书的那些日子……    匠人夜话：论21ic的论坛文化、续。性格决定命运   选狼还是选狮子、狮子的结局…  《匠人夜话》27：七年之痒—写在升任21icbbs站长之际  匠人自制低成本电容式触控板  匠人漫画：人生，就是一场永无止境的攀登  一阶滤波算法之深入研究	载入中... 载入中...	网络酷文：博客，改变的不仅仅是图书   网络酷文：C语言宏定义技巧、C语言 条件编译详解   21IC上海2008-04聚会报名进行中。。。   两分钟让你明白什么是ERP！[转]   神奇的Duff's Device 算法   实用一线通讯电路及软件设计方法   程序员的“七年之痒”   史上最短但最精彩的武侠小说   网络无厘头文学《缺钙水浒》（爆笑）  你的博客还能持续多久（转贴）  电动车无刷电机控制器软件设计要点（作者:谢渊斌）

大千八卦	友情连接
新浪新闻： 新浪财经： AK58新闻： 新浪股票： 新浪股票： 证券之星： 行情数据 分时走时图 K线分析 新闻资讯 代码查询 BBS论坛 个股资料	[更多酷站连接]     [欢迎交换连接] [百宝箱之与非门分舵] [电脑圈圈的家当] [IC921的博客] [柔月阁] [八楼的呼吸] [hotpower 的水潭] [xwj的文君阁] [所长的BLOG] [阿摆手记] [电子伙伴] [unaided的笔记] [小飞的笔记] [单片机开发联盟] [网址之家] [好东西网址大全] [美萍中文精选] [数字电视之家] [SMARTCODE电子书斋] [软件开发之窗] [Armoric的笔记] [我爱研发网] [infernal的笔记] [雄鹰的空中加油站] [SunK] [逍遥电子] [ningpanda的博客] [C-Design] [一网见天下] [海边淘沙] [嵌入式365] [水牛的仓库] [股剩是怎样炼成的] [PIC论坛] [ICC AVR开发网] [中国高校自动化网]

!!! 《匠人的百宝箱》 !!!