找回密碼
 立即注冊(cè)

QQ登錄

只需一步，快速開始

搜索
查看: 5107|回復(fù): 1
打印 上一主題 下一主題
收起左側(cè)

BASCOM AVR 版 RC5紅外發(fā)射與接收遙控仿真

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:342822 發(fā)表于 2019-12-22 16:15 | 只看該作者 |只看大圖 回帖獎(jiǎng)勵(lì) |倒序?yàn)g覽 |閱讀模式
仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）


單片機(jī)源程序如下:
  1. rem Main.bas file generated by New Project wizard
  2. rem  RC5編碼發(fā)射
  3. rem Created:   周六 12月 21 2019   taotie
  4. rem Processor: ATmega8
  5. rem Compiler:  BASCOM-AVR

  7. rem Write your code here

  9. $regfile ="m8def.dat"
  10. $crystal =8000000

  12. DDRD=&B00000000
  13. PORTD=&B11111111

  15.   main:
  16.   do

  18.   if pind.0=0 then Rc5send  0 , 0,1
  19.   waitms 80
  20. if pind.0=0 then Rc5send  0, 0,1
  21.   waitms 80

  23.   
  24.   if pind.1=0 then Rc5send 0,0,2
  25.   waitms 80
  26. if pind.1=0 then Rc5send 0,0,2
  27.   waitms 80

  29.    
  30.   if pind.2=0 then Rc5send 0,0,3
  31.   waitms 80
  32. if pind.2=0 then Rc5send 0,0,3
  33.   waitms 80

  35.    
  36.   if pind.3=0 then Rc5send 0,0,4
  37.   waitms 80
  38. if pind.3=0 then Rc5send 0,0,4
  39.   waitms 80

  41.    
  42.   if pind.4=0 then Rc5send 0,0,5
  43.   waitms 80
  44.   if pind.4=0 then Rc5send 0,0,5
  45.   waitms 80
  46.   loop
  47.   end
復(fù)制代碼

所有資料51hei提供下載:
rc5.zip (363.09 KB, 下載次數(shù): 47)

評(píng)分

參與人數(shù) 1黑幣 +50 收起 理由
admin + 50 共享資料的黑幣獎(jiǎng)勵(lì)！

查看全部評(píng)分

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂頂 踩踩
回復(fù)

使用道具 舉報(bào)

沙發(fā)
ID:342822 發(fā)表于 2020-1-17 14:50 | 只看該作者

回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表