Subversion Repositories svnkaklik

Rev

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

Rev 6 Rev 410
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
}