Planete Sciences

program Servo;
var NombreTour : byte;

procedure Avancer360;
 var Temps : byte;
 begin
  Temps := 0;
  TMR0 := 0;
  {On maintient l'impulsion à l'état haut pendant 2ms.
  Fréquence d'oscillation = 4 MHz
  donc on aura : 4000 / 4 = 1000000 cycle par seconde.
  Soit 1 cycle chaque 0,0000001 seconde (1 us).
  Pour un presclar = 8, on a une incrémentation du timer
  chaque 8 us (8 * 1 us).
  Initialement le timer (TMR0) est à 0. Lorsque il atteind
  50, 5 fois, nous avons 2000 us (2 ms)
  50*8*5=2000 us}

  PORTA.RA0 := 1;
  while(Temps < 5) do
   begin
    if (TMR0 = 50) then
                       begin
                       Temps := Temps + 1;
                       TMR0 := 0;
                       end;
   end;

  {On maintient l'impulsion à l'état bas pendant 18 ms.
  Fréquence d'oscillation = 4 MHz
  donc on aura : 4000 / 4 = 1000000 cycle par seconde.
  Soit 1 cycle chaque 0,0000001 seconde (1 us).
  Pour un presclar = 8, on a une incrémentation du timer
  chaque 8 us (8 * 1 us).
  Initialement le timer (TMR0) est à 0. Lorsque il atteind
  125, 18  fois, nous avons 18000 us (18 ms)
  18*8*125=18000 us}

   PORTA.RA0 := 0;
   Temps := 0;
   TMR0 := 0;
   while(Temps < 18) do
    begin
    if (TMR0 = 125) then
                        begin
                        Temps := Temps + 1;
                        TMR0 := 0;
                        end;
    end;


end;


begin
  TRISA := %11111110;
  PORTA := 0;
  OPTION_REG := %11000010; {presclar = 8}
  INTCON.GIE_bit := 1;
  //for NombreTour := 1 to 3 do //essaye de faire tourner le moteur 3 tours complet.
  Avancer360;
 end.