【练习】PIC 编程 - LED闪灯 （功力挑战）

chieh2020

Q1:
program LED_Blink_Q1

dim LED_1, LED_2, LED_3 as byte

sub procedure interrupt
    LED_1 = LED_1 + 1
    LED_2 = LED_2 + 1
    LED_3 = LED_3 + 1
    TMR0 = 96
    INTCON = 0x20
end sub

main:
     OPTION_REG = 0x84
     ADCON1 = 0x07
     CMCON = 0x07
     PORTB = 0x00
     TRISB = 0x00
     TMR0 = 96
     INTCON = 0xa0
     LED_1 = 0
     LED_2 = 0
     LED_3 = 0
     
while TRUE
      if (LED_1 > 50) then
         PORTB = not PORTB
         LED_1 = 0
      end if
wend
end.

chieh2020

Q2:

program LED_Blink_Q2

dim LED_1, LED_2, LED_3 as byte

sub procedure interrupt
    LED_1 = LED_1 + 1
    LED_2 = LED_2 + 1
    LED_3 = LED_3 + 1
    TMR0 = 96
    INTCON = 0x20
end sub

main:
     OPTION_REG = 0x84
     ADCON1 = 0x07
     CMCON = 0x07
     PORTB = 0x00
     TRISB = 0x00
     TMR0 = 96
     INTCON = 0xa0
     LED_1 = 0
     LED_2 = 0
     LED_3 = 0
     
while TRUE
      if (LED_1 > 50) then
         PORTB.0 = not PORTB.0
         LED_1 = 0
      end if
      if (LED_2 > 100) then
         PORTB.1 = not PORTB.1
         LED_2 = 0
      end if
      if (LED_3 > 5) then
         PORTB.2 = not PORTB.2
         LED_3 = 0
      end if
wend
end.

chieh2020

Q3:

program LED_Blink_Q3

dim LED_1, LED_2, LED_3 as byte

sub procedure interrupt
    LED_1 = LED_1 + 1
    LED_2 = LED_2 + 1
    LED_3 = LED_3 + 1
    TMR0 = 96
    INTCON = 0x20
end sub

main:
     OPTION_REG = 0x84
     ADCON1 = 0x07
     CMCON = 0x07
     PORTB = 0x00
     TRISB = 0x00
     TMR0 = 96
     INTCON = 0xa0
     LED_1 = 0
     LED_2 = 0
     LED_3 = 0
     
while TRUE
      
      if (LED_1 < 5) then
         PORTB.0 = 1
         else PORTB.0 = 0
         if LED_1 >95 then
            LED_1 = 0
         end if
      end if
      
      if (LED_2 < 30) then
         PORTB.1 = 1
         else PORTB.1 = 0
         if LED_2 >170 then
            LED_2 = 0
         end if
      end if
      
      if (LED_3 < 1) then
         PORTB.2 = 1
         else PORTB.2 = 0
         if LED_3 >9 then
            LED_3 = 0
         end if
      end if
wend
end.

chieh2020

PIC大大，刚刚学习PIC,帮我看看可以过关吗？

电子达人

哇，这是什么程序语言？ sub 和 function 名后面没有（）做parameter passing ?
看起来有点像BASIC...

pic

PIC大大，刚刚学习PIC,帮我看看可以过关吗？
chieh2020 发表于 3-7-2010 11:24 PM

我没有PICBasic， 你可以提供Hex 吗？ 或你自己用Proteus 来模拟再贴上来看看？

chieh2020

我是用Mikrobasic写的。
以下是我用Proteus7.4 模拟
Q1

Q2

Q3

pic

我是用Mikrobasic写的。
以下是我用Proteus7.4 模拟


Q3
chieh2020 发表于 20-8-2010 03:43 PM

10Hz 的不完美~

chieh2020

我改了TMR0的prescale。现在是10Hz的了。

pic

我改了TMR0的prescale。现在是10Hz的了。
chieh2020 发表于 21-8-2010 03:29 AM

不错， 很好啊~

电子达人

我来试试看。。。。
第一题：

1. #include <htc.h>   //hi-tech C header
   
2. 
   
3. __CONFIG(0x2130);
   
4. #define bitset(var,bitno)((var)|=1UL<<(bitno))
   
5. #define bitclr(var,bitno)((var)&=~(1UL<<(bitno)))
   
6. #define testbit_on(data,bitno) ((data>>bitno)&0x01)
   
7. #define _XTAL_FREQ 4000000 //operating frequency in hz
   
8. 
   
9. char x=0;
   
10. 
    
11. void init()
    
12. {
    
13.         x=0;
    
14.         TRISB=0b11111000;
    
15.         PORTB=0;
    
16.         PCON=0B00001000;
    
17. }
    
18. 
    
19. void main()
    
20. {       
    
21.        
    
22.         init();
    
23.         while(1)
    
24.         {       
    
25.                 __delay_ms(100); //500ms delay is too large
    
26.                 x++;
    
27.                 if(x==5)
    
28.                 {       
    
29.                         x=0;
    
30.                         PORTB=~PORTB;
    
31.                 }
    
32.         }
    
33. }

复制代码

第二题：

1. #include <htc.h>   //hi-tech C header
   
2. 
   
3. __CONFIG(0x2130);
   
4. #define bitset(var,bitno)((var)|=1UL<<(bitno))
   
5. #define bitclr(var,bitno)((var)&=~(1UL<<(bitno)))
   
6. #define testbit_on(data,bitno) ((data>>bitno)&0x01)
   
7. #define _XTAL_FREQ 4000000 //operating frequency in hz
   
8. 
   
9. char x=0,y=0,z=0;
   
10. 
    
11. void init()
    
12. {
    
13.         x=0;
    
14.         y=0;
    
15.         z=0;
    
16.         TRISB=0b11111000;
    
17.         PORTB=0;
    
18.         PCON=0B00001000;
    
19. }
    
20. 
    
21. void main()
    
22. {       
    
23.        
    
24.         init();
    
25.         while(1)
    
26.         {       
    
27.                 __delay_ms(50);
    
28.                 x++,y++,z++;
    
29.                 if(x==10)                //LED1
    
30.                 {       
    
31.                         x=0;
    
32.                         if(testbit_on(PORTB,0)) bitclr(PORTB,0);
    
33.                         else bitset(PORTB,0);
    
34.                 }
    
35.                 if(y==20)                //LED2
    
36.                 {       
    
37.                         y=0;
    
38.                         if(testbit_on(PORTB,1)) bitclr(PORTB,1);
    
39.                         else bitset(PORTB,1);
    
40.                 }
    
41.                 if(z)   //"if" added just for clarity/scalability   //LED3
    
42.                 {       
    
43.                         z=0;
    
44.                         if(testbit_on(PORTB,2)) bitclr(PORTB,2);
    
45.                         else bitset(PORTB,2);
    
46.                 }
    
47.                
    
48.         }
    
49. }

复制代码

hex file :
1. 9w2hfr.freedomwhisper.com/files/3 LED flasher(1).hex
2. 9w2hfr.freedomwhisper.com/files/3 LED flasher (2).hex

电子达人

第三题的，单用delay，timing也是差不多吧。。。
看了其他的，我发现到我的我和suyy10的很接近，不一样的是我只用delay。。。懒惰翻查F628Ainterrupt 的 registers 的用法。。。

电子达人

第三题:

1. #include <htc.h>   //hi-tech C header
   
2. 
   
3. __CONFIG(0x2130);
   
4. #define bitset(var,bitno)((var)|=1UL<<(bitno))
   
5. #define bitclr(var,bitno)((var)&=~(1UL<<(bitno)))
   
6. #define testbit_on(data,bitno) ((data>>bitno)&0x01)
   
7. #define _XTAL_FREQ 4000000 //operating frequency in hz
   
8. #define ledaon  5           //on time and off time for LED A,B,C  respectively
   
9. #define ledaoff   95           
   
10. #define ledbon        30
    
11. #define ledboff 170
    
12. #define ledcon 1
    
13. #define ledcoff 9
    
14. #define delayconst 10         //time multiplication constant for above LED settings
    
15. //delayconst*ledaon= on time of led A in milisecs
    
16. 
    
17. char x=0,y=0,z=0;
    
18. 
    
19. void init()
    
20. {
    
21.         x=0;
    
22.         y=0;
    
23.         z=0;
    
24.         TRISB=0b11111000;
    
25.         PORTB=0xff;
    
26.         PCON=0B00001000;
    
27. }
    
28. 
    
29. void main()
    
30. {       
    
31.        
    
32.         init();
    
33.         while(1)
    
34.         {       
    
35.                 __delay_ms(delayconst);
    
36.                 x++,y++,z++;
    
37.                 if (x==ledaoff)                 //LED1
    
38.                 {       
    
39.                         x=0;
    
40.                         bitset(PORTB,0);
    
41.                 }
    
42.                 else if((x==ledaon)&& testbit_on(PORTB,0))
    
43.                 {
    
44.                         x=0;
    
45.                         bitclr(PORTB,0);
    
46.                 }
    
47.                 if (y==ledboff)                 //LED2
    
48.                 {       
    
49.                         y=0;
    
50.                         bitset(PORTB,1);
    
51.                 }
    
52.                 else if((y==ledbon) && testbit_on(PORTB,1))
    
53.                 {
    
54.                         y=0;
    
55.                         bitclr(PORTB,1);
    
56.                 }
    
57.                 if (z==ledcoff)     //LED3
    
58.                 {       
    
59.                         z=0;
    
60.                         bitset(PORTB,2);
    
61.                 }
    
62.                 else if((z==ledcon) && testbit_on(PORTB,2))
    
63.                 {
    
64.                         z=0;
    
65.                         bitclr(PORTB,2);
    
66.                 }
    
67.         }
    
68. }

复制代码

hex file:
3.   9w2hfr.freedomwhisper.com/files/3 LED flasher(3).hex

电子达人

我的编码是以flexibility和fast code 为重...所以有很多redundant 的部分...又没有用到interrupt....请各位见谅...

电子达人

fritlizt

回复 173# 电子达人


   
不错。 你的idea很好。
如果加上interrupt就很perfect的了。。。

qweeer

各位大大与版主，不好意思，刚刚才看到这里有这样的练习，感觉很有兴趣，就进来看看了。看了题目，就开始第2和第三题，大概用了我1个小时左右吧！

我是用 PIC Basic 的，总觉得Basic 比较容易。
我是用hardware来测试的，用眼睛看 led 闪乐，应该没有问题吧。
我是用很容易明白但是很愚蠢的方法来做的，希望可以过关
迟来的作品：
http://rapidshare.com/files/417524505/LED2.hex
http://rapidshare.com/files/417525435/LED3.hex
请多多指教

qweeer

*我是用 PIC16F877A来测试。
刚看到各位大大用的Proteus Pro 7.4 ，好像很好玩
现在下载着Proteus Pro 7.4 ，等下就可以试试Proteus的功力了。

qweeer

第一次用这Proteus Pro 7.4
摸了一整晚，终于摸到了一点点头绪，这个 Proteus Pro 7.4，一个字，赞！
我第2第3题的output 如下：

qweeer

我第2题的方法：
                                                                                
                Device 16F877A
                XTAL = 4
                ALL_DIGITAL = TRUE                                
                TRISB = %00000000                                 

Start:   Gosub LEDB1
           Goto Start        

LEDB2:      PortB.2 = 1              ' 100ms (Total)                                
                Delayms 50                '  50ms
                PortB.2 = 0
                Delayms 50                '  50ms
                Return
               
LEDB2x5:   Gosub LEDB2               ' 500ms (Total)
                Gosub LEDB2
                Gosub LEDB2
                Gosub LEDB2
                Gosub LEDB2
                Return

LEDB0:      PortB.0 = 1                '1000ms (Total)               
                Gosub LEDB2x5          ' 500ms
                PortB.0 = 0
                Gosub LEDB2x5          ' 500ms
                Return               

LEDB1:  PortB.1 = 1               '2000ms (Total)
           Gosub LEDB0              '1000ms
           PortB.1 = 0
           Gosub LEDB0              '1000ms
           Return