Subversion Repositories svnkaklik

Rev

Rev 410 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log

Rev 410 Rev 659
1 
#include "D:\KAKLIK\programy\PIC_C\mereni\otmer\otmer.h"
 1 
#include "D:\KAKLIK\programy\PIC_C\mereni\otmer\otmer.h"
2 
 
 2 
 
3 
#define DATA   PIN_A1
 3 
#define DATA   PIN_A1
4 
#define CP     PIN_A0
 4 
#define CP     PIN_A0
5 
#define STROBE PIN_A2
 5 
#define STROBE PIN_A2
6 
 
 6 
 
7 
#include "shift_reg.c"
 7 
#include "shift_reg.c"
8 
 
 8 
 
9 
void main()
 9 
void main()
10 
{
 10 
{
11 
int n=0;
 11 
int n=0;
12 
int i;
 12 
int i;
13 
   putreg(1);
 13 
   putreg(1);
14 
   while(true)
 14 
   while(true)
15 
   {
 15 
   {
16 
      i=1;
 16 
      i=1;
17 
      for(n=0;n<=7;n++)
 17 
      for(n=0;n<=7;n++)
18 
      {
 18 
      {
19 
         putreg(~i);
 19 
         putreg(~i);
20 
         i=i<<1;
 20 
         i=i<<1;
21 
         Delay_ms(50);
 21 
         Delay_ms(50);
22 
      };
 22 
      };
23 
      i=0x80;
 23 
      i=0x80;
24 
      for(n=0;n<=7;n++)
 24 
      for(n=0;n<=7;n++)
25 
      {
 25 
      {
26 
         putreg(~i);
 26 
         putreg(~i);
27 
         i=i>>1;
 27 
         i=i>>1;
28 
         Delay_ms(50);
 28 
         Delay_ms(50);
29 
      };
 29 
      };
30 
   }
 30 
   }
31 
 
 31 
 
32 
   while(true)
 32 
   while(true)
33 
   {
 33 
   {
34 
      putreg(~n);
 34 
      putreg(~n);
35 
      Delay_ms(100);
 35 
      Delay_ms(100);
36 
      n++;
 36 
      n++;
37 
   }
 37 
   }
38 
}
 38 
}