Turbo51学习笔记（5） 第一个程序

逍遥派掌门人

在高级语言里，“Hello world"是经典的第一个程序；在与硬件密切相关的嵌入式编程里，点亮LED灯则更具有代表性。
下面的代码实现一个LED灯的明、暗循环：

1. Program led_test;
   
2. 
   
3. const
   
4.    flash_time_limit_1=$A0;
   
5.    flash_time_limit_2=$FF;
   
6. 
   
7. var
   
8.   count : byte;
   
9.   LED_bit : Boolean absolute P1.1;      // 设置LED接到P1.1脚上
   
10.   flash_status : byte;  
    
11.   flash_delay_1,flash_delay_2,flash_delay_3 : byte;
    
12.    
    
13. begin
    
14.    flash_status := 0;
    
15.   
    
16.   repeat
    
17. 
    
18.     case flash_status of
    
19.     0:
    
20.       begin
    
21.           LED_bit := not LED_bit;          // 明、暗的转换
    
22.          flash_delay_1 := flash_time_limit_1;
    
23.          Inc(flash_status);      
    
24.      end;
    
25.    1:
    
26.      begin
    
27.          if (flash_delay_1 > 0) then
    
28.          begin
    
29.             Dec(flash_delay_1);         
    
30.          end
    
31.          else begin
    
32.                   flash_delay_2 := flash_time_limit_2;
    
33.                   Inc(flash_status);
    
34.                end;
    
35.      end;
    
36.    2:
    
37.     begin
    
38.         if (flash_delay_2 > 0) then
    
39.         begin
    
40.             Dec(flash_delay_2);
    
41.         end
    
42.         else begin
    
43.                   flash_status := 0;    // 重新开始
    
44.                end;
    
45.      end;
    
46.    end;
    
47. 
    
48.   until False;  
    
49.   
    
50. end.

复制代码

编译成功：
   

1234567

感谢掌门人,要是有设备试一下就好了

cvlsam

1234567 发表于 2014-11-6 14:10
感谢掌门人,要是有设备试一下就好了

在Proteus上测试没有啥问题，就是闪烁的速度快一点。


按理说在实际的89C51上也应该可以，有空烧录一下试试实际效果。

Good Luck～

cvlsam

将程序下载的C51中去，LED灯会常亮，需要修改延时时间。
如：
const
   flash_time_limit_1=$A0;
   flash_time_limit_2=$FF;
修改为A000和FFFF

var
    flash_delay_1,flash_delay_2,flash_delay_3 : byte;
修改其类型为Word。

这样就可以在C51中清晰的看到LED灯的变化。

Good Luck~

逍遥派掌门人

cvlsam 发表于 2014-11-8 13:34
将程序下载的C51中去，LED灯会常亮，需要修改延时时间。
如：
const

简单的方法就是改变时钟频率。
验证的方法另外开一帖。

cvlsam

逍遥派掌门人 发表于 2014-11-9 01:34
简单的方法就是改变时钟频率。
验证的方法另外开一帖。

嗯，在Proteus上的确可以改变时钟频率，而烧录到C51单片机上时，显然变成常亮了，正如上面我反馈的，通过延长循环时间，这样可就可以看出闪烁效果了。