Subversion Repositories svnkaklik

Rev

Rev 243 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log

Rev 243 Rev 244
Line 1... Line 1...
1
// Program pro MiniSumo na R-Day 2006
1
// Program pro MiniSumo na R-Day 2006
2
//"$Id: cholerik.c 243 2007-04-19 19:57:53Z kakl $"
2
//"$Id: cholerik.c 244 2007-04-19 20:35:06Z kakl $"
3
 
3
 
4
#include "cholerik.h"
4
#include "cholerik.h"
5
 
5
 
6
#define THRESHOLD     15     // rozhodovaci uroven pro okraj areny
6
#define THRESHOLD     15     // rozhodovaci uroven pro okraj areny
7
                            // 0-15 (od 0.25 do 0.75 Vdd)
7
                            // 0-15 (od 0.25 do 0.75 Vdd)
Line 171... Line 171...
171
   enable_interrupts(INT_TIMER0);
171
   enable_interrupts(INT_TIMER0);
172
   enable_interrupts(GLOBAL);
172
   enable_interrupts(GLOBAL);
173
 
173
 
174
   for (n=1;n<=5;n++)   // 5s do zacatku souboje
174
   for (n=1;n<=5;n++)   // 5s do zacatku souboje
175
   {
175
   {
176
      Delay_ms(720);
176
      Delay_ms(670); // 5,25s
177
      Beep(1000,200);
177
      Beep(1000,200);
178
   }
178
   }
179
 
179
 
180
/*----- Main Loop ------------------------------------------------------------*/
180
/*----- Main Loop ------------------------------------------------------------*/
181
   while(true)       // hlavni smycka
181
   while(true)       // hlavni smycka