Subversion Repositories svnkaklik

Rev

Rev 410 | Details | Compare with Previous | Last modification | View Log

Rev Author Line No. Line
6 kaklik 1 
#include "C:\MIHO_DAT\KROKAC\krokac.h"
2 
 
3 
 
4 
unsigned int   StepState;     // Vnitrni promenna kroku
5 
signed int     StepDirection; // Smer +1/0/-1
6 
 
7 
byte const StepTab[8]={       // Tabulka pro krokovy motor
8 
         0b0001,     // 0
9 
         0b0101,     // 1
10 
         0b0100,     // 2
11 
         0b0110,     // 3
12 
         0b0010,     // 4
13 
         0b1010,     // 5
14 
         0b1000      // 6
15 
         0b1001,     // 7
16 
         };
17 
 
18 
#INT_TIMER2
19 
void StepNext()
20 
{
21 
   unsigned int i;
22 
 
23 
   StepState+=StepDirection;     // posun se na dalsi krok
24 
   i=StepState&0b111;            // vezmi spodni 3 bity stavu
25 
   i=StepTab[i];                 // prekoduj pomoci tabulky
26 
   output_bit(MOTORA,i&0b0001);  // aktivuj jednotlive vystupy
27 
   output_bit(MOTORB,i&0b0010);
28 
   output_bit(MOTORC,i&0b0100);
29 
   output_bit(MOTORD,i&0b1000);
30 
}
31 
 
32 
 
33 
void StepSetDirection(signed int Direction)
34 
{
35 
   if(Direction> 1) Direction= 1;
36 
   if(Direction<-1) Direction=-1;
37 
   StepDirection=Direction;
38 
}
39 
 
40 
 
41 
void StepSetTime(unsigned int16 Time)
42 
{
43 
 
44 
}
45 
 
46 
void Delay(unsigned int16 Time)
47 
{
48 
   while(Time>255) {Time-=256;delay_us(256);};
49 
   if(Time!=0) delay_us(Time);
50 
}
51 
 
52 
 
53 
void main()
54 
{
55 
unsigned int16 T;
56 
unsigned long int i;
57 
 
58 
   // Nastav pracovni frekvenci procesoru
59 
   setup_oscillator(OSC_4MHZ);
60 
 
61 
   // Vypni motorovy vystup
62 
   output_low(MOTORA);
63 
   output_low(MOTORB);
64 
   output_low(MOTORC);
65 
   output_low(MOTORD);
66 
 
67 
   // Vstupy s pull-up odporem
68 
   port_b_pullups(TRUE);
69 
 
70 
   // Inicializace A/D prevodniku
71 
   setup_adc_ports(sAN0|VSS_VDD);
72 
   setup_adc(ADC_CLOCK_INTERNAL);
73 
   set_adc_channel(0);
74 
 
75 
   // Dalsi inicializace
76 
   setup_spi(FALSE);
77 
   setup_timer_0(RTCC_INTERNAL|RTCC_DIV_1);
78 
   setup_timer_1(T1_DISABLED);
79 
   setup_comparator(NC_NC_NC_NC);
80 
   setup_vref(FALSE);
81 
 
82 
   // Inicializace stavovych promennych
83 
   StepState=0;
84 
 
85 
   // Nastaveni casovace
86 
   setup_timer_2(T2_DIV_BY_16,0xFF,1);
87 
 
88 
   // Nastveni preruseni od casovace
89 
   enable_interrupts(global);
90 
   enable_interrupts(int_timer2);
91 
 
92 
for(;;)
93 
{
94 
 
95 
   T=read_adc(ADC_READ_ONLY);    // Prectu hodnotu
96 
   read_adc(ADC_START_ONLY);     // Ostartuji dalsi prevod (na pozadi)
97 
 
98 
   //setup_timer_2(T2_DIV_BY_16,T,1);
99 
   if(T>0) *0x92=T;              // Preload register casovace
100 
 
101 
   // Podle prepinacu se hybu
102 
   if(input(PIN_B5))
103 
      {
104 
         if(input(PIN_B4)) StepSetDirection(1); else StepSetDirection(-1);
105 
      }
106 
   else
107 
      {  int1 x;   // pomocna promenna aby se volalo spozdeni jen 1x
108 
         if (StepState>230) {
109 
                              if (!input(PIN_B4) && (x))
110 
                              {
111 
                                 StepSetDirection(0);
112 
                                 delay_ms(500);
113 
                                 x=0;
114 
                              };
115 
                              StepSetDirection(-1);
116 
                            }
117 
         if (StepState<30)  {
118 
                              StepSetDirection( 1);
119 
                              x=1;
120 
                            }
121 
      }
122 
//StepDirection=2;
123 
//for(i=0;i<800;i++)
124 
//{
125 
//   StepNext();
126 
//   Delay(T);
127 
//}
128 
//delay_ms(10);
129 
//StepDirection=-1;
130 
//for(i=0;i<800;i++)
131 
//{
132 
//   StepNext();
133 
//   Delay(T);
134 
//}
135 
//delay_ms(10);
136 
 
137 
}  // Cyklus for
138 
 
139 
}