找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 3383|回复: 1
收起左侧

C51单片机利用74hc138扩展流水灯的仿真电路图+程序

[复制链接]
ID:440585 发表于 2019-9-17 11:00 | 显示全部楼层 |阅读模式
C51单片机利用74hc138扩展流水灯程序 包含源代码,仿真电路 可以随意扩展多个LED

电路原理图如下:
0.png

单片机源程序如下:
  1. #define uint unsigned int
  2. #define uchar unsigned char

  3. void delay1(uchar y)
  4. {        
  5.     uchar i;
  6.         uint j;
  7.         for(i=0;i<y;i++)
  8.         {
  9.                 for(j=0;j<5000;j++);
  10.         }
  11. }
  12. void led(void)
  13. {

  14. P3=0x01; //01
  15. P2=0x00;        
  16. delay1(20);
  17. P2=0x01;
  18. delay1(20);
  19. P2=0x02;        
  20. delay1(20);
  21. P2=0x03;
  22. delay1(20);
  23. P2=0x04;        
  24. delay1(20);
  25. P2=0x05;
  26. delay1(20);
  27. P2=0x06;        
  28. delay1(20);
  29. P2=0x07;
  30. delay1(20);

  31. P3=0x02;//10
  32. P2=0x00;        
  33. delay1(20);
  34. P2=0x01;
  35. delay1(20);
  36. P2=0x02;        
  37. delay1(20);
  38. P2=0x03;
  39. delay1(20);
  40. P2=0x04;        
  41. delay1(20);
  42. P2=0x05;
  43. delay1(20);
  44. P2=0x06;        
  45. delay1(20);
  46. P2=0x07;
  47. delay1(20);

  48. P3=0x04;//100
  49. P2=0x00;        
  50. delay1(20);
  51. P2=0x01;
  52. delay1(20);
  53. P2=0x02;        
  54. delay1(20);
  55. P2=0x03;
  56. delay1(20);
  57. P2=0x04;        
  58. delay1(20);
  59. P2=0x05;
  60. delay1(20);
  61. P2=0x06;        
  62. delay1(20);
  63. P2=0x07;
  64. delay1(20);

  65. P3=0x08;//1000
  66. P2=0x00;        
  67. delay1(20);
  68. P2=0x01;
  69. delay1(20);
  70. P2=0x02;        
  71. delay1(20);
  72. P2=0x03;
  73. delay1(20);
  74. P2=0x04;        
  75. delay1(20);
  76. P2=0x05;
  77. delay1(20);
  78. P2=0x06;        
  79. delay1(20);
  80. P2=0x07;
  81. delay1(20);

  82. P3=0x10; //10000
  83. P2=0x00;        
  84. delay1(20);
  85. P2=0x01;
  86. delay1(20);
  87. P2=0x02;        
  88. delay1(20);
  89. P2=0x03;
  90. delay1(20);
  91. P2=0x04;        
  92. delay1(20);
  93. P2=0x05;
  94. delay1(20);
  95. P2=0x06;        
  96. delay1(20);
  97. P2=0x07;
  98. delay1(20);

  99. P3=0x20;//100000
  100. P2=0x00;        
  101. delay1(20);
  102. P2=0x01;
  103. delay1(20);
  104. P2=0x02;        
  105. delay1(20);
  106. P2=0x03;
  107. delay1(20);
  108. P2=0x04;        
  109. delay1(20);
  110. P2=0x05;
  111. delay1(20);
  112. P2=0x06;        
  113. delay1(20);
  114. P2=0x07;
  115. delay1(20);

  116. P3=0x40;//1000000
  117. P2=0x00;        
  118. delay1(20);
  119. P2=0x01;
  120. delay1(20);
  121. P2=0x02;        
  122. delay1(20);
  123. P2=0x03;
  124. delay1(20);
  125. P2=0x04;        
  126. delay1(20);
  127. P2=0x05;
  128. delay1(20);
  129. P2=0x06;        
  130. delay1(20);
  131. P2=0x07;
  132. delay1(20);

  133. P3=0x80;//10000000
  134. P2=0x00;        
  135. delay1(20);
  136. P2=0x01;
  137. delay1(20);
  138. P2=0x02;        
  139. delay1(20);
  140. P2=0x03;
  141. delay1(20);
  142. P2=0x04;        
  143. delay1(20);
  144. P2=0x05;
  145. delay1(20);
  146. P2=0x06;        
  147. delay1(20);
  148. P2=0x07;
  149. delay1(20);
  150. P3=0x00;

  151. P1=0x01;//P1口01
  152. P2=0x00;        
  153. delay1(20);
  154. P2=0x01;
  155. delay1(20);
  156. P2=0x02;        
  157. delay1(20);
  158. P2=0x03;
  159. delay1(20);
  160. P2=0x04;        
  161. delay1(20);
  162. P2=0x05;
  163. delay1(20);
  164. P2=0x06;        
  165. delay1(20);
  166. P2=0x07;
  167. delay1(20);

  168. P1=0x02;//P1口10
  169. P2=0x00;        
  170. delay1(20);
  171. P2=0x01;
  172. delay1(20);
  173. P2=0x02;        
  174. delay1(20);
  175. P2=0x03;
  176. delay1(20);
  177. P2=0x04;        
  178. delay1(20);
  179. P2=0x05;
  180. delay1(20);
  181. P2=0x06;        
  182. delay1(20);
  183. P2=0x07;
  184. delay1(20);
  185. P1=0x00;
  186. }
复制代码

附件内有Proteus仿真图:
利用74HC138扩展的多个流水灯.rar (27.59 KB, 下载次数: 25)

评分

参与人数 1黑币 +50 收起 理由
admin + 50 共享资料的黑币奖励!

查看全部评分

回复

使用道具 举报

ID:658437 发表于 2020-2-17 20:03 | 显示全部楼层
为啥只亮两个灯?
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表