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 
}