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/robot/solarni_robot/dalsi_verze/main.c 7     14.05.03 23:21 Kaklik $ */
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
   port_b_pullups (true);                    // zapnuti pullapu ,aby se poznal sepnuty
41
                                             // nebo rozepnuty kontakt
42
 
43
   output_high(LED);                         //
44
   delay_ms(ON_TIME);                        // bliknuti LED
45
   output_low(LED);                          //
46
 
47
     if (!input(pin_B5))                     // zmereni spravneho sepnuti rele1 (spatne kdys
48
     {                                       // sepnuto)                                                                        
49
         port_b_pullups (false);             // vypnuti pullapu
50
         goto chyba;                         // kdys je uz sepnuto nemusi se znova spinat
51
                                             // ani cekat na nabiti kondenzatoru
52
     }
53
 
54
   port_b_pullups (false);                   // vypnuti pullapu za spravneho prubehu
55
   rele1();                                  // sepnuti rele1
56
 
57
   delay_ms(28000);                          // cekani na nabiti kondenzatoru (casovy limit
58
                                             // pred rozjetim je 30 vterin 2 vteriny jsou
59
                                             // rezerva na nabiti kondenzatoru pro PIC)
60
 
61
chyba:
62
   motor();                                  // zapnuti motoru
63
   output_low(RESET);                        // zapnuti resetu od supervisoru
64
}