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