找回密码
 立即注册

QQ登录

只需一步,快速开始

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

74HC138扩展的96流水灯仿真及单片机程序

[复制链接]
ID:210588 发表于 2020-3-31 14:22 | 显示全部楼层 |阅读模式
51hei图片20200331141958.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<2000;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=0x04;//P1口100
  186. P2=0x00;       
  187. delay1(20);
  188. P2=0x01;
  189. delay1(20);
  190. P2=0x02;       
  191. delay1(20);
  192. P2=0x03;
  193. delay1(20);
  194. P2=0x04;       
  195. delay1(20);
  196. P2=0x05;
  197. ……………………

  198. …………限于本文篇幅 余下代码请从51黑下载附件…………
复制代码

所有资料51hei提供下载:
74HC138扩展的96流水灯仿真及程序.rar (104.61 KB, 下载次数: 20)

评分

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

查看全部评分

回复

使用道具 举报

ID:695749 发表于 2020-3-31 15:40 | 显示全部楼层
这个思路很好,还可以有很多变化,达到想要显示和控制的形式。谢谢分享!
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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