Rev 1580 Rev 1585
1 //******** Mrakomer2 - stepper motor control ***************** 1 //******** Mrakomer2 - stepper motor control *****************
2 #define VERSION "3.0" // Special version for BART 2 #define VERSION "3.0" // Special version for BART
3 #define ID "$Id: irmrak.c 420 2006-12-29 21:43:11Z kakl $" 3 #define ID "$Id: irmrak.c 420 2006-12-29 21:43:11Z kakl $"
4 //************************************************************ 4 //************************************************************
5   5  
6 #include "irmrak.h" 6 #include "irmrak.h"
7 #include <string.h> 7 #include <string.h>
8   8  
9 char VER[4]=VERSION; 9 char VER[4]=VERSION;
10 char REV[50]=ID; 10 char REV[50]=ID;
11   11  
12 #bit CREN = 0x18.4 // USART registers 12 #bit CREN = 0x18.4 // USART registers
13 #bit SPEN = 0x18.7 13 #bit SPEN = 0x18.7
14 #bit OERR = 0x18.1 14 #bit OERR = 0x18.1
15 #bit FERR = 0x18.2 15 #bit FERR = 0x18.2
16   16  
17 #define HALL PIN_A4 // Hallova sonda pro zjisteni natoceni dolu 17 #define HALL PIN_A4 // Hallova sonda pro zjisteni natoceni dolu
18 // vykonovy FET je na RB3 (vystup PWM) 18 // vykonovy FET je na RB3 (vystup PWM)
19   19  
20 int port; // stav brany B pro krokove motory 20 int port; // stav brany B pro krokove motory
21 int j; // pro synchronisaci fazi 21 int j; // pro synchronisaci fazi
22 unsigned int8 uhel; // prijaty znak 22 unsigned int8 uhel; // prijaty znak
23 unsigned int8 i; // pro cyklus for 23 unsigned int8 i; // pro cyklus for
24   24  
25 // --- Kroky krokoveho motoru --- 25 // --- Kroky krokoveho motoru ---
26 void krok(int n) 26 void krok(int n)
27 { 27 {
28 while((n--)>0) 28 while((n--)>0)
29 { 29 {
30 if (1==(j&1)) {port^=0b11000000;} else {port^=0b00110000;}; 30 if (1==(j&1)) {port^=0b11000000;} else {port^=0b00110000;};
31 output_B(port); 31 output_B(port);
32 delay_ms(20); // Nutno nastavit podle dynamiky systemu. 32 delay_ms(20); // Nutno nastavit podle dynamiky systemu.
33 j++; 33 j++;
34 } 34 }
35 } 35 }
36   36  
37 // --- Dojet dolu magnetem na cidlo --- 37 // --- Dojet dolu magnetem na cidlo ---
38 void dolu() 38 void dolu()
39 { 39 {
40 unsigned int8 err; // pocitadlo pro zjisteni zaseknuti otaceni 40 unsigned int8 err; // pocitadlo pro zjisteni zaseknuti otaceni
41   41  
42 err=0; 42 err=0;
43 while(!input(HALL)) // otoceni trubky dolu az na hall 43 while(!input(HALL)) // otoceni trubky dolu az na hall
44 { 44 {
45 krok(1); 45 krok(1);
46 err++; 46 err++;
47 if(40==err) // do 40-ti kroku by se melo podarit otocit dolu 47 if(40==err) // do 40-ti kroku by se melo podarit otocit dolu
48 { 48 {
49 output_B(0); // vypnuti motoru 49 output_B(0); // vypnuti motoru
50 printf("E"); // Hlasime chybu 50 printf("E"); // Hlasime chybu
51 err=0; 51 reset_cpu();
52 } 52 }
53 }; 53 };
54 delay_ms(500); // cas na ustaleni trubky 54 delay_ms(500); // cas na ustaleni trubky
55 output_B(0); // vypnuti motoru 55 output_B(0); // vypnuti motoru
56 } 56 }
57   57  
58 // --- Najeti na vychozi polohu dole --- 58 // --- Najeti na vychozi polohu dole ---
59 void nula() 59 void nula()
60 { 60 {
61 port=0b10100000; // vychozi nastaveni fazi pro rizeni motoru 61 port=0b10010000; // vychozi nastaveni fazi pro rizeni motoru
62 output_B(port); 62 output_B(port);
63 j=0; // smer dolu 63 j=1; // smer dolu
64 delay_ms(500); 64 delay_ms(500);
65 } 65 }
66   66  
67   67  
68 //------------------------------------------------ 68 //------------------------------------------------
69 void main() 69 void main()
70 { 70 {
71 setup_oscillator(OSC_8MHZ|OSC_INTRC); // 8 MHz interni RC oscilator -  
72   -  
73 setup_adc_ports(NO_ANALOGS|VSS_VDD); 71 setup_adc_ports(NO_ANALOGS|VSS_VDD);
74 setup_adc(ADC_OFF); 72 setup_adc(ADC_OFF);
75 setup_spi(FALSE); 73 setup_spi(SPI_SS_DISABLED);
76 setup_timer_0(RTCC_INTERNAL|RTCC_DIV_1); 74 setup_timer_0(RTCC_INTERNAL|RTCC_DIV_1);
77 setup_timer_1(T1_DISABLED); 75 setup_timer_1(T1_DISABLED);
-   76 setup_timer_2(T2_DISABLED,0,1);
78 setup_ccp1(CCP_OFF); 77 setup_ccp1(CCP_OFF);
79 setup_comparator(NC_NC_NC_NC); 78 setup_comparator(NC_NC_NC_NC);
80 setup_vref(FALSE); 79 setup_vref(FALSE);
-   80 setup_oscillator(OSC_8MHZ|OSC_INTRC);
81   81  
82 output_B(0); // vypnuti motoru a topeni 82 output_B(0); // vypnuti motoru a topeni
83 set_tris_B(0b00000111); // faze a topeni jako vystupy 83 set_tris_B(0b00000111); // faze a topeni jako vystupy
84   84  
-   85 nula();
-   86 dolu(); // otoc trubku do vychozi pozice dolu
85   87
86 while(true) 88 while(true)
87 { 89 {
88 nula(); -  
89 dolu(); // otoc trubku do vychozi pozice dolu -  
90   -  
91 CREN=0; CREN=1; // Reinitialise USART 90 CREN=0; CREN=1; // Reinitialise USART
92   91  
93 while(!kbhit()) 92 while(!kbhit())
94 { 93 {
95 if (!input(HALL)) // znovuotoceni trubky dolu, kdyby ji vitr otocil 94 if (!input(HALL)) // znovuotoceni trubky dolu, kdyby ji vitr otocil
96 { 95 {
97 dolu(); 96 dolu();
98 } 97 }
99 }; // pokracuj dal, kdyz prisel po RS232 znak 98 }; // pokracuj dal, kdyz prisel po RS232 znak
100   99  
101   100  
102 uhel=getc(); // prijmi znak 101 uhel=getc(); // prijmi znak
103 if ('m'==uhel) // standardni mereni ve trech polohach 102 if ('m'==uhel) // standardni mereni ve trech polohach
104 { 103 {
105 nula(); 104 nula();
106 j++; // reverz, nahoru 105 j++; // reverz, nahoru
107   106  
108 krok(18); 107 krok(18);
109 printf("A"); // mereni teploty 45° nad obzorem 108 printf("A"); // mereni teploty 45° nad obzorem
110 delay_ms(200); 109 delay_ms(300);
111 krok(7); 110 krok(7);
112 printf("B"); // mereni teploty v zenitu 111 printf("B"); // mereni teploty v zenitu
113 delay_ms(200); 112 delay_ms(300);
114 krok(7); 113 krok(7);
115 printf("C"); // mereni teploty 45° nad obzorem na druhou stranu 114 printf("C"); // mereni teploty 45° nad obzorem na druhou stranu
116 delay_ms(200); 115 delay_ms(300);
117   116  
118 j++; // reverz 117 j++; // reverz
119 dolu(); 118 dolu();
120 printf("G"); // mereni teploty Zeme (<G>round) 119 printf("G"); // mereni teploty Zeme (<G>round)
121   120  
122 continue; 121 continue;
123 } 122 }
124 123
125 if ('i'==uhel) {printf("I"); continue;} // Predani prikazu pro Info 124 if ('i'==uhel) {printf("I"); continue;} // Predani prikazu pro Info
126 if ('h'==uhel) {printf("H"); continue;} // Predani prikazu pro Topeni 125 if ('h'==uhel) {printf("H"); continue;} // Predani prikazu pro Topeni
127 if ('c'==uhel) {printf("C"); continue;} // Predani prikazu pro vypnuti topeni 126 if ('f'==uhel) {printf("F"); continue;} // Predani prikazu pro vypnuti topeni
128 if ('x'==uhel) // Zjisteni verze FW 127 if ('x'==uhel) // Zjisteni verze FW
129 { 128 {
130 printf("Mrakomer - Motor V%s (C) 2006 KAKL\n\r", VER); 129 printf("Mrakomer - Motor V%s (C) 2006 KAKL\n\r", VER);
131 printf("%s\n\r", REV); 130 printf("%s\r\n", REV);
132 } 131 }
133   132  
134 if ((uhel>='0') && (uhel<='@')) // mereni v pozadovanem uhlu [0..;]=(0..11) 133 if ((uhel>='0') && (uhel<='@')) // mereni v pozadovanem uhlu [0..;]=(0..11)
135 { 134 {
136 uhel-='0'; 135 uhel-='0';
137 }; 136 };
138   137  
139 if(uhel>11) continue; // ochrana, abysme neukroutili draty 138 if(uhel>11) continue; // ochrana, abysme neukroutili draty
140   139  
141 nula(); 140 nula();
142 j++; // reverz, nahoru 141 j++; // reverz, nahoru
143   142  
144 krok(12); // odkrokuj do roviny 143 krok(12); // odkrokuj do roviny
145 for(i=0; i<uhel; i++) // dale odkrokuj podle pozadovaneho uhlu 144 for(i=0; i<uhel; i++) // dale odkrokuj podle pozadovaneho uhlu
146 { 145 {
147 krok(2); 146 krok(2);
148 }; 147 };
149 printf("S"); 148 printf("S");
150 delay_ms(200); 149 delay_ms(300);
151   150  
152 j++; // reverz 151 j++; // reverz
153 dolu(); 152 dolu();
154 printf("G"); // mereni teploty Zeme (<G>round) 153 printf("G"); // mereni teploty Zeme (<G>round)
155 } 154 }
156 } 155 }
157   156