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 8     7.09.03 12:35 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
   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(1000);
56
   output_low(PIN_A3);
57
   delay_ms(1000);
58
   output_high(PIN_B5);
59
   delay_ms(1500);
60
 
61
   output_low(PIN_A2);        // vypni vsechno
62
   output_low(PIN_A3);
63
   output_low(PIN_B5);
64
 
65
   output_low(RESET);                        // zapnuti resetu od supervisoru
66
}