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

QQ登錄

只需一步,快速開始

帖子
查看: 5087|回復(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

  6. rem Write your code here

  7. $regfile ="m8def.dat"
  8. $crystal =8000000

  9. DDRD=&B00000000
  10. PORTD=&B11111111

  11.   main:
  12.   do

  13.   if pind.0=0 then Rc5send  0 , 0,1
  14.   waitms 80
  15. if pind.0=0 then Rc5send  0, 0,1
  16.   waitms 80

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

  22.    
  23.   if pind.2=0 then Rc5send 0,0,3
  24.   waitms 80
  25. if pind.2=0 then Rc5send 0,0,3
  26.   waitms 80

  27.    
  28.   if pind.3=0 then Rc5send 0,0,4
  29.   waitms 80
  30. if pind.3=0 then Rc5send 0,0,4
  31.   waitms 80

  32.    
  33.   if pind.4=0 then Rc5send 0,0,5
  34.   waitms 80
  35.   if pind.4=0 then Rc5send 0,0,5
  36.   waitms 80
  37.   loop
  38.   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ù) 返回頂部 返回列表