o: ActiveSupport::Cache::Entry :@compressedF:@value"W"yW
| main.c | ||
|---|---|---|
| 19 | 19 |
#include "main.h" |
| 20 | 20 |
|
| 21 | 21 |
#case |
| 22 |
#use fast_io(A) // Aby se neztracely znaky pri cteni prikazu |
|
| 23 |
#use fast_io(B) |
|
| 24 |
#use fast_io(E) |
|
| 25 |
#use fast_io(F) |
|
| 26 |
#use fast_io(D) |
|
| 27 |
#use fast_io(J) |
|
| 22 | 28 |
|
| 23 |
#define REVERS 3 // 2*256 ms = 0,75 s
|
|
| 29 |
#define REVERS 3 // 3*256 ms = 0,75 s
|
|
| 24 | 30 |
#define GO 117 // 117*256 ms = 30 s |
| 25 | 31 |
#define GO_ZALUZIE 6 // cca 1,5 s |
| 26 | 32 |
#define RECEIVE 10 // cca 2,6 s |
| 33 |
#define ZAKMIT 250 // pocet pruchodu hlavni smyckou pred opetovnou detekci prepnuti vypinace |
|
| 27 | 34 |
|
| 28 | 35 |
#define OR110NU PIN_A0 // t1 Zaluzie koupelna dole |
| 29 | 36 |
#define OR110ND PIN_A1 // t2 |
| ... | ... | |
| 50 | 57 |
//#define PIN_C6 31766 //TX |
| 51 | 58 |
//#define PIN_C7 31767 //RX |
| 52 | 59 |
|
| 60 |
#define OS102A PIN_E0 // t1 Svetlo chodba |
|
| 61 |
#define OS105A PIN_E1 // t2 Svetlo kuchyne stred |
|
| 62 |
#define OS207A PIN_E2 // t3 Svetlo klubovna |
|
| 63 |
#define OS104A PIN_E3 // t4 Svetlo laborator |
|
| 64 |
#define OS202A PIN_E4 // t5 Svetlo Kaklik stred |
|
| 65 |
#define OS209A PIN_E5 // t6 Svetlo Zizala koupelna |
|
| 66 |
#define OS203A PIN_E6 // t7 Svetlo Kaklik koupelna |
|
| 67 |
//#define O... PIN_E7 // t8 |
|
| 68 |
|
|
| 53 | 69 |
#define OR104VU PIN_F0 // t1 Roleta laborator vychod |
| 54 | 70 |
#define OR104VD PIN_F1 // t2 |
| 55 | 71 |
#define OR202JU PIN_F2 // t3 Roleta Kaklik |
| ... | ... | |
| 59 | 75 |
//#define O... PIN_F6 // t7 |
| 60 | 76 |
//#define O... PIN_F7 // t8 |
| 61 | 77 |
|
| 62 |
#define OS102A PIN_E0 // t1 Svetlo chodba |
|
| 63 |
#define OS105A PIN_E1 // t2 Svetlo kuchyne stred |
|
| 64 |
#define OS207A PIN_E2 // t3 Svetlo klubovna |
|
| 65 |
#define OS104A PIN_E3 // t4 Svetlo laborator |
|
| 66 |
#define OS202A PIN_E4 // t5 Svetlo Kaklik stred |
|
| 67 |
#define OS209A PIN_E5 // t6 Svetlo Zizala koupelna |
|
| 68 |
#define OS203A PIN_E6 // t7 Svetlo Kaklik koupelna |
|
| 69 |
//#define O... PIN_E7 // t8 |
|
| 70 |
|
|
| 71 | 78 |
//#define I.... input(PIN_D0) // A |
| 72 | 79 |
#define IS201AZ input(PIN_D1) // B Vypinac chodba 2.n.p. zapad u Kaklika |
| 73 | 80 |
#define IS207AJ input(PIN_D2) // C Vypinac klubovna |
| ... | ... | |
| 195 | 202 |
|
| 196 | 203 |
void main() |
| 197 | 204 |
{
|
| 198 |
char buf[10]; |
|
| 205 |
char buf[10]; // Buffer pro prijem prikazu |
|
| 206 |
unsigned int8 zakmity=0; // Osetreni zakmitu vypinacu |
|
| 199 | 207 |
|
| 200 | 208 |
setup_adc_ports(NO_ANALOGS|VSS_VDD); |
| 201 | 209 |
setup_adc(ADC_CLOCK_DIV_2); |
| 202 | 210 |
setup_psp(PSP_DISABLED); |
| 203 | 211 |
setup_spi(SPI_SS_DISABLED); |
| 204 | 212 |
setup_wdt(WDT_OFF); |
| 205 |
setup_timer_0(RTCC_INTERNAL|RTCC_DIV_1);
|
|
| 213 |
setup_timer_0(RTCC_INTERNAL|RTCC_DIV_8);
|
|
| 206 | 214 |
setup_timer_1(T1_DISABLED); |
| 207 | 215 |
setup_timer_2(T2_DISABLED,0,1); |
| 208 | 216 |
setup_timer_3(T3_DISABLED|T3_DIV_BY_1); |
| 209 | 217 |
setup_ccp1(CCP_OFF); |
| 210 | 218 |
setup_comparator(NC_NC_NC_NC); |
| 211 | 219 |
setup_vref(FALSE); |
| 220 |
|
|
| 221 |
set_tris_a(0); // Vystupy |
|
| 222 |
set_tris_b(0); |
|
| 223 |
set_tris_e(0); |
|
| 224 |
set_tris_f(0); |
|
| 225 |
set_tris_d(0xFF); // Vstupy |
|
| 226 |
set_tris_j(0xFF); |
|
| 212 | 227 |
|
| 213 | 228 |
output_a(0xFF); // Vsechno zhasni a zastav |
| 214 | 229 |
output_b(0xFF); |
| ... | ... | |
| 265 | 280 |
|
| 266 | 281 |
while(TRUE) |
| 267 | 282 |
{
|
| 283 |
restart_wdt(); |
|
| 268 | 284 |
|
| 269 | 285 |
if(kbhit()) // Chce po nas nekdo neco? |
| 270 | 286 |
{
|
| ... | ... | |
| 389 | 405 |
} |
| 390 | 406 |
|
| 391 | 407 |
// mistni vypinace z 2. n.p. |
| 392 |
if(s201AV!=IS201AV) {s201AV=IS201AV; output_toggle(OS102A); delay_ms(100); continue;}
|
|
| 393 |
if(s201AZ!=IS201AZ) {s201AZ=IS201AZ; output_toggle(OS102A); delay_ms(100); continue;}
|
|
| 394 |
if(s207AJ!=IS207AJ) {s207AJ=IS207AJ; output_toggle(OS207A); delay_ms(100); continue;}
|
|
| 395 |
if(s203AJ!=IS203AJ) {s203AJ=IS203AJ; output_toggle(OS203A); delay_ms(100); continue;}
|
|
| 396 |
if(s209AJ!=IS209AJ) {s209AJ=IS209AJ; output_toggle(OS209A); delay_ms(100); continue;}
|
|
| 397 |
if(s205A!=IS205A) {s205A=IS205A; output_toggle(OS205A); delay_ms(100); continue;}
|
|
| 398 |
if(s204AJ!=IS204AJ) {s204AJ=IS204AJ; output_toggle(OS204A); delay_ms(100); continue;}
|
|
| 399 |
if(s202AN!=IS202AN) {s202AN=IS202AN; output_toggle(OS202A); delay_ms(100); continue;}
|
|
| 400 |
|
|
| 401 |
if(r207VU!=IR207VU) {r207VU=IR207VU; up(&r207V,&tr207V); delay_ms(100); continue;}
|
|
| 402 |
if(r207VD!=IR207VD) {r207VD=IR207VD; down(&r207V,&tr207V); delay_ms(100); continue;}
|
|
| 403 |
if(r202NU!=IR202NU) {r202NU=IR202NU; up(&r202J,&tr202J); delay_ms(100); continue;}
|
|
| 404 |
if(r202ND!=IR202ND) {r202ND=IR202ND; down(&r202J,&tr202J); delay_ms(100); continue;}
|
|
| 405 |
if(r204ZU!=IR204ZU) {r204ZU=IR204ZU; up(&r204Z,&tr204Z); delay_ms(100); continue;}
|
|
| 406 |
if(r204ZD!=IR204ZD) {r204ZD=IR204ZD; down(&r204Z,&tr204Z); delay_ms(100); continue;}
|
|
| 407 |
|
|
| 408 |
restart_wdt(); |
|
| 408 |
if (0==zakmity) |
|
| 409 |
{
|
|
| 410 |
if(s201AV!=IS201AV) {s201AV=IS201AV; output_toggle(OS102A); zakmity=ZAKMIT;}
|
|
| 411 |
if(s201AZ!=IS201AZ) {s201AZ=IS201AZ; output_toggle(OS102A); zakmity=ZAKMIT;}
|
|
| 412 |
if(s207AJ!=IS207AJ) {s207AJ=IS207AJ; output_toggle(OS207A); zakmity=ZAKMIT;}
|
|
| 413 |
if(s203AJ!=IS203AJ) {s203AJ=IS203AJ; output_toggle(OS203A); zakmity=ZAKMIT;}
|
|
| 414 |
if(s209AJ!=IS209AJ) {s209AJ=IS209AJ; output_toggle(OS209A); zakmity=ZAKMIT;}
|
|
| 415 |
if(s205A!=IS205A) {s205A=IS205A; output_toggle(OS205A); zakmity=ZAKMIT;}
|
|
| 416 |
if(s204AJ!=IS204AJ) {s204AJ=IS204AJ; output_toggle(OS204A); zakmity=ZAKMIT;}
|
|
| 417 |
if(s202AN!=IS202AN) {s202AN=IS202AN; output_toggle(OS202A); zakmity=ZAKMIT;}
|
|
| 418 |
|
|
| 419 |
if(r207VU!=IR207VU) {r207VU=IR207VU; up(&r207V,&tr207V); zakmity=ZAKMIT;}
|
|
| 420 |
if(r207VD!=IR207VD) {r207VD=IR207VD; down(&r207V,&tr207V); zakmity=ZAKMIT;}
|
|
| 421 |
if(r202NU!=IR202NU) {r202NU=IR202NU; up(&r202J,&tr202J); zakmity=ZAKMIT;}
|
|
| 422 |
if(r202ND!=IR202ND) {r202ND=IR202ND; down(&r202J,&tr202J); zakmity=ZAKMIT;}
|
|
| 423 |
if(r204ZU!=IR204ZU) {r204ZU=IR204ZU; up(&r204Z,&tr204Z); zakmity=ZAKMIT;}
|
|
| 424 |
if(r204ZD!=IR204ZD) {r204ZD=IR204ZD; down(&r204Z,&tr204Z); zakmity=ZAKMIT;}
|
|
| 425 |
} |
|
| 426 |
else zakmity--; |
|
| 409 | 427 |
} |
| 410 | 428 |
} |