具有30种花样的流水灯汇编源程序!

2020-01-25 15:19发布

      本人从初中就对电子,无线电产生了浓厚的兴趣,至今已有10年的时间了。我对模拟电子技术和数字电子技术还算比较熟悉吧,实践上也不算赖。但对单片机我才是刚刚学,是一个单片机初学者。对单片机还比较陌生。学了一段时间的单片机,给我的感觉就是它太强大了!太好玩了!太有意思了!它可以用最简单的硬件电路,依靠程序来实现复杂的控制。流水灯就是一个很好的例子。下面我就给大家介绍一下我做的具有30种花样的流水灯,和大家一起分享。

     本花样流水灯,主要是由AT89S51单片机及8个不同颜 {MOD}的发光二极管组成。共有30种花样。运用“MOV A,#data,RL,RR,INC,DEC”指令编出各种花样的数据码,并将这些数据码送入端口(P0口)显示。广泛的应用于商场,饭店,超市,KTV,广场等地方。
注:晶振12MHZ,本程序已通过实践验证!!!
c8a08fb40310d5c730add168.jpg (616.86 KB, 下载次数: 0) 下载附件 30种花样流水灯 2012-4-1 20:49 上传
汇编源程序 30种花样流水灯.zip (864 Bytes, 下载次数: 158) 2012-4-1 20:53 上传 点击文件名下载附件




友情提示: 此问题已得到解决,问题已经关闭,关闭后问题禁止继续编辑,回答。
该问题目前已经被作者或者管理员关闭, 无法添加新回复
19条回答
Ack
1楼-- · 2020-01-25 17:03
一下是全部代码 有些坛友下载附件会有问题
  1. ORG 0000H
  2. MOV P0,#0FFH
  3. START:MOV R0,#8
  4.       MOV A,#0FEH
  5. LOOP1:MOV P0,A
  6.       ACALL DELAY
  7.       RL A
  8.       DJNZ R0,LOOP1
  9.       MOV R1,#8
  10.       MOV A,#7FH
  11. LOOP2:MOV P0,A
  12.       ACALL DELAY
  13.       RR A
  14.       DJNZ R1,LOOP2            
  15.       MOV R2,#4
  16. LOOP3:MOV P0,#55H
  17.       ACALL DELAY
  18.       MOV P0,#0AAH
  19.       ACALL DELAY
  20.       DJNZ R2,LOOP3
  21.       MOV R3,#3
  22. LOOP4:MOV P0,#7EH
  23.       ACALL DELAY
  24.       MOV P0,#0BDH
  25.       ACALL DELAY
  26.       MOV P0,#0DBH
  27.       ACALL DELAY
  28.       MOV P0,#0E7H
  29.       ACALL DELAY
  30.       MOV P0,#0DBH
  31.       ACALL DELAY
  32.       MOV P0,#0BDH
  33.       ACALL DELAY
  34.       MOV P0,#7EH
  35.       DJNZ R3,LOOP4
  36.       MOV R3,#3
  37. LOOP5:MOV P0,#0E7H
  38.       ACALL DELAY
  39.       MOV P0,#0DBH
  40.       ACALL DELAY
  41.       MOV P0,#0BDH
  42.       ACALL DELAY
  43.       MOV P0,#7EH
  44.       ACALL DELAY
  45.       MOV P0,#0BDH
  46.       ACALL DELAY
  47.       MOV P0,#0DBH
  48.       ACALL DELAY
  49.       MOV P0,#0E7H
  50.       ACALL DELAY
  51.       DJNZ R3,LOOP5
  52.       MOV R4,#3
  53. LOOP6:MOV P0,#00H
  54.       ACALL DELAY
  55.       MOV P0,#18H
  56.       ACALL DELAY
  57.       MOV P0,#3CH
  58.       ACALL DELAY
  59.       MOV P0,#7EH
  60.       ACALL DELAY
  61.       MOV P0,#0FFH
  62.       ACALL DELAY
  63.       DJNZ R4,LOOP6
  64.       MOV R4,#3
  65. LOOP7:MOV P0,#00H
  66.       ACALL DELAY
  67.       MOV P0,#81H
  68.       ACALL DELAY
  69.       MOV P0,#0C3H
  70.       ACALL DELAY
  71.       MOV P0,#0E7H
  72.       ACALL DELAY
  73.       MOV P0,#0FFH
  74.       ACALL DELAY
  75.       DJNZ R4,LOOP7
  76.       MOV R4,#3
  77. LOOP8:MOV P0,#0EFH
  78.       ACALL DELAY
  79.       MOV P0,#0CFH
  80.       ACALL DELAY
  81.       MOV P0,#8FH
  82.       ACALL DELAY
  83.       MOV P0,#0FH
  84.       ACALL DELAY
  85.       MOV P0,#0F7H
  86.       ACALL DELAY
  87.       MOV P0,#0F3H
  88.       ACALL DELAY
  89.       MOV P0,#0F1H
  90.       ACALL DELAY
  91.       MOV P0,#0F0H
  92.       ACALL DELAY
  93.       DJNZ R4,LOOP8
  94.       MOV R4,#4
  95.       MOV A,#0EFH
  96. LOOP9:MOV P0,A
  97.       ACALL DELAY
  98.       RL A
  99.       DJNZ R4,LOOP9
  100.       MOV R4,#4
  101.       MOV A,#0F7H
  102. LOOP10:MOV P0,A
  103.        ACALL DELAY
  104.        RR A
  105.        DJNZ R4,LOOP10
  106.        MOV R5,#9H
  107.        MOV A,#00H
  108.        MOV P0,A
  109. LOOP11:INC A
  110.        MOV P0,A
  111.        RL A
  112.        ACALL DELAY
  113.        DJNZ R5,LOOP11
  114.        MOV R5,#9
  115.        MOV A,#00H
  116.        MOV P0,A
  117. LOOP12:INC A
  118.        RR A
  119.        MOV P0,A
  120.        ACALL DELAY
  121.        DJNZ R5,LOOP12
  122.        MOV R5,#9
  123.        MOV A,#00H
  124.        MOV P0,A
  125. LOOP13:DEC A
  126.        MOV P0,A
  127.        RL A
  128.        ACALL DELAY
  129.        DJNZ R5,LOOP13
  130.        MOV R5,#9
  131.        MOV A,#00H
  132.        MOV P0,A
  133. LOOP14:DEC A
  134.        RR A
  135.        MOV P0,A
  136.        ACALL DELAY
  137.        DJNZ R5,LOOP14
  138.        MOV R5,#4
  139.        MOV A,#00H
  140. LOOP15:MOV P0,A
  141.        ACALL DELAY
  142.        MOV P0,#0FFH
  143.        ACALL DELAY
  144.        DJNZ R5,LOOP15
  145.        MOV P0,#00H
  146.        MOV R0,#8
  147.        MOV A,#01H
  148. LOOP16:MOV P0,A
  149.        ACALL DELAY
  150.        RL A
  151.        DJNZ R0,LOOP16
  152.        MOV R1,#8
  153.        MOV A,#80H
  154. LOOP17:MOV P0,A
  155.        ACALL DELAY
  156.        RR A
  157.        DJNZ R1,LOOP17            
  158.        MOV R2,#4
  159. LOOP18:MOV P0,#0AAH
  160.        ACALL DELAY
  161.        MOV P0,#55H
  162.        ACALL DELAY
  163.        DJNZ R2,LOOP18
  164.        MOV R3,#3
  165. LOOP19:MOV P0,#81H
  166.        ACALL DELAY
  167.        MOV P0,#42H
  168.        ACALL DELAY
  169.        MOV P0,#24H
  170.        ACALL DELAY
  171.        MOV P0,#18H
  172.        ACALL DELAY
  173.        MOV P0,#24H
  174.        ACALL DELAY
  175.        MOV P0,#42H
  176.        ACALL DELAY
  177.        MOV P0,#81H
  178.        DJNZ R3,LOOP19
  179.        MOV R3,#3
  180. LOOP20:MOV P0,#18H
  181.        ACALL DELAY
  182.        MOV P0,#24H
  183.        ACALL DELAY
  184.        MOV P0,#42H
  185.        ACALL DELAY
  186.        MOV P0,#81H
  187.        ACALL DELAY
  188.        MOV P0,#42H
  189.        ACALL DELAY
  190.        MOV P0,#24H
  191.        ACALL DELAY
  192.        MOV P0,#18H
  193.        ACALL DELAY
  194.        DJNZ R3,LOOP20
  195.        MOV R4,#3
  196. LOOP21:MOV P0,#0FFH
  197.        ACALL DELAY
  198.        MOV P0,#0E7H
  199.        ACALL DELAY
  200.        MOV P0,#0C3H
  201.        ACALL DELAY
  202.        MOV P0,#81H
  203.        ACALL DELAY
  204.        MOV P0,#00H
  205.        ACALL DELAY
  206.        DJNZ R4,LOOP21
  207.        MOV R4,#3
  208. LOOP22:MOV P0,#0FFH
  209.        ACALL DELAY
  210.        MOV P0,#7EH
  211.        ACALL DELAY
  212.        MOV P0,#3CH
  213.        ACALL DELAY
  214.        MOV P0,#18H
  215.        ACALL DELAY
  216.        MOV P0,#00H
  217.        ACALL DELAY
  218.        DJNZ R4,LOOP22  
  219.        MOV R4,#3
  220. LOOP23:MOV P0,#10H
  221.        ACALL DELAY
  222.        MOV P0,#30H
  223.        ACALL DELAY
  224.        MOV P0,#70H
  225.        ACALL DELAY
  226.        MOV P0,#0F0H
  227.        ACALL DELAY
  228.        MOV P0,#08H
  229.        ACALL DELAY
  230.        MOV P0,#0CH
  231.        ACALL DELAY
  232.        MOV P0,#0EH
  233.        ACALL DELAY
  234.        MOV P0,#0FH
  235.        ACALL DELAY
  236.        DJNZ R4,LOOP23
  237.        MOV R4,#4
  238.        MOV A,#10H
  239. LOOP24:MOV P0,A
  240.        ACALL DELAY
  241.        RL A
  242.        DJNZ R4,LOOP24
  243.        MOV R4,#4
  244.        MOV A,#08H
  245. LOOP25:MOV P0,A
  246.        ACALL DELAY
  247.        RR A
  248.        DJNZ R4,LOOP25
  249.        MOV R5,#9H
  250.        MOV A,#00H
  251.        MOV P0,A
  252. LOOP26:INC A
  253.        MOV P0,A
  254.        RL A
  255.        ACALL DELAY
  256.        DJNZ R5,LOOP26
  257.        MOV R5,#9
  258.        MOV A,#0FFH
  259.        MOV P0,A
  260. LOOP27:INC A
  261.        RR A
  262.        MOV P0,A
  263.        ACALL DELAY
  264.        DJNZ R5,LOOP27
  265.        MOV R5,#9
  266.        MOV A,#0FFH
  267.        MOV P0,A
  268. LOOP28:DEC A
  269.        MOV P0,A
  270.        RL A
  271.        ACALL DELAY
  272.        DJNZ R5,LOOP28
  273.        MOV R5,#9
  274.        MOV A,#0FFH
  275.        MOV P0,A
  276. LOOP29:DEC A
  277.        RR A
  278.        MOV P0,A
  279.        ACALL DELAY
  280.        DJNZ R5,LOOP29
  281.        MOV R5,#4
  282.        MOV A,#0FFH
  283. LOOP30:MOV P0,A
  284.        ACALL DELAY
  285.        MOV P0,#00H
  286.        ACALL DELAY
  287.        DJNZ R5,LOOP30
  288.        LJMP START
  289. DELAY:MOV R7,#00H
  290.    L1:MOV R6,#00H
  291.    L2:DJNZ R6,L2
  292.       DJNZ R7,L1
  293.       RET
  294.       END           
  295.                                  
复制代码
sky_walker
2楼-- · 2020-01-25 22:26
 精彩回答 2  元偷偷看……
yuguang
3楼-- · 2020-01-26 01:11
Ack 发表于 2012-4-1 21:18
一下是全部代码 有些坛友下载附件会有问题

有电路图更好
xianuo111
4楼-- · 2020-01-26 03:13
有C语言版本吗
fire
5楼-- · 2020-01-26 05:29
Ack 发表于 2012-4-1 21:18
一下是全部代码 有些坛友下载附件会有问题

我更感兴趣的不是代码,而是功能,到底这30种花样是啥花样
vvwvvw
6楼-- · 2020-01-26 06:17
以前见到过直接拿eprom的D0-D7口做流水灯的,用cd4040产生地址。不需要单片机,代码效率高

一周热门 更多>