Subversion Repositories svnkaklik

Rev

Details | Last modification | View Log

Rev Author Line No. Line
2 kaklik 1 
/* Program pro ovladani slunecniho robota */
2 
/* (chodi se zapojenim Dark Walker rev.3  */
3 
/* $Header: /programy/PIC_C/roboti/solarni/2004/main.c 1     19.09.05 20:39 Jakub $ */
4 
 
5 
#include "D:\@Kaklik\programy\PIC_C\robot\solarni_robot\dalsi_verze\main.h"
6 
 
7 
#define LED       PIN_B3   // LED
8 
#define ON_TIME   75       // Cas sepnuti rele
9 
#define meridlo   PIN_B2   // Napetovy supervisor
10 
#define RESET     PIN_B0   // Pridrzeni RESETu
11 
 
12 
void rele1()   // Sepnuti prvniho rele
13 
{
14 
   output_low(PIN_A1);
15 
   output_low(PIN_B4);
16 
   delay_ms(ON_TIME);
17 
   output_high(PIN_A1);
18 
   output_high(PIN_B4);
19 
}
20 
 
21 
void motor()   // Sepnuti motoru
22 
{
23 
   output_low(pin_A2);
24 
   output_low(pin_B1);
25 
   output_low(PIN_A4);
26 
   delay_ms(ON_TIME);
27 
   output_high(pin_A2);
28 
   output_high(pin_B1);
29 
   output_high(PIN_A4);
30 
}
31 
 
32 
 
33 
void main()
34 
{
35 
 
36 
   setup_counters(RTCC_INTERNAL,WDT_18MS);
37 
 
38 
   output_high(RESET);                       // vypnuti resetu od supervizoru
39 
 
40 
   output_low(PIN_A2);        // vypni vsechno
41 
   output_low(PIN_A3);
42 
   output_low(PIN_B5);
43 
 
44 
   output_high(LED);                         //
45 
   delay_ms(ON_TIME);                        // bliknuti LED
46 
   output_low(LED);                          //
47 
 
48 
   output_high(PIN_A3);
49 
   delay_ms(3000);
50 
   output_high(PIN_B5);
51 
   delay_ms(10000);
52 
   output_low(PIN_B5);
53 
 
54 
   output_high(PIN_A2);    // rozjezd
55 
   delay_ms(200);
56 
   output_low(PIN_A3);
57 
   delay_ms(1000);
58 
   output_high(PIN_A3);
59 
   delay_ms(200);
60 
   output_low(PIN_A3);
61 
   delay_ms(1000);
62 
   output_high(PIN_B5);
63 
   delay_ms(200);
64 
   output_low(PIN_B5);
65 
   delay_ms(1000);
66 
   output_high(PIN_B5);
67 
   delay_ms(200);
68 
   output_low(PIN_B5);
69 
 
70 
   output_low(PIN_A2);        // vypni vsechno
71 
   output_low(PIN_A3);
72 
   output_low(PIN_B5);
73 
 
74 
   output_low(RESET);                        // zapnuti resetu od supervisoru
75 
}