Mesurer la durée d'une impulsion avec le module CCP d'un PIC.

[Montd'est]

Bonjour,

J'ai quelques problèmes avec que j'essai de faire dans le titre:

Je cherche à mesurer a durée d'une impulsion 5 V , j'ai donc cherché à détecter un front montant qui met le compteur du timer à 0, puis ensuite, un changement est fait pour détecter un front descendant qui fait écrire la valeur du compteur du timer 1 dans la variable "val_fin".

J'ai quelques problèmes...
voici la process d'interruption:

(Au démarrage du programme la détection est programmée sur front montant )

  procedure interrupt;
    begin
    if Testbit(PIR1,CCP1IF) then

   begin
   


       if commence = 0 then    // si mesure pas commencée
       begin
         
              CCPR1L:=0;  CCPR1H:=0; // raz  compteur timer 1
              Lo(val_debut):=CCPR1L;   // enregister les valeurs du timer 1 (0 à 7) dans "val debut"
              Hi(val_debut):=CCPR1H;    // enregister les valeurs du timer 1 (8 à 15) dans "val debut"



             commence:=1; // mesure commencée
             ClearBit(PIR1,CCP1IF); // drapeau nettoyé
             CCP1CON:=%00000100; // détection sur front descendant maintenant

       end;
       

       
       
       if ((commence = 1) and (PIR1.CCP1IF=1)) then
       begin
                Lo(val_fin):=  CCPR1L;
                Hi(val_fin):=  CCPR1H;
                CCPR1L:=0;  CCPR1H:=0; // raz

                  commence:=0;
                   ClearBit(PIR1,CCP1IF); // drapeau
              CCP1CON:=%00000101; // détec front montant ( pret pour une nouvelle mesure)

       
       end;

   end;

   end;

Voyez vous une grosse gaffe ? merci, désolé pour la présentation.
-----

[invite03481543]

Bonsoir,

il me semble que tu aurais du utiliser un else plutôt qu'un second if ici:

if ((commence = 1) and (PIR1.CCP1IF=1)) then... // plutot un else

puisque tu mets commence à 1 dans le premier if du coup tu y passes aussitôt après.
@+

[invite03481543]

Je n'avais pas vu que tu mettais bien le flag à 0 dans le 1er if, donc ce n'est pas ça la cause.
Malgré tout l'usage du else me parait plus judicieux malgré tout.
En C dans un if il faut mettre "==", je ne sais pas si c'est valable également en basic.
Si tel est le cas...

[invite03481543]

Comme tu mets une variable "commence" à 1 dans le 1er if il faudrait peut-être mettre une commande "fin" dans le 2eme pour pouvoir lancer ton calcul de différence dans ton main().
Pour en revenir au else, il t'éviterait de mettre ton flag à 0 dans les 2 if, il suffirait de le mettre juste avant de sortir, ça allègerait un peu ton code.

[A voir en vidéo sur Futura]

[Montd'est]

Bjr,

Merci, en effet le else était plus adapté.

Je commence à avoir des résultats cohérents, j'avais fait une erreur:

Au lieu de remettre le timer 1 à 0, j'ai remi la copie du contenu du timer 1 à 0

  procedure interrupt;
    begin
    if Testbit(PIR1,CCP1IF) then

   begin
   
       if commence = 0 then
       begin

        
        TMR1H:=0;  TMR1L:=0; // raz  compteur timer 1 ;  au paravant il y avait :CCPR1L:=0;  CCPR1H:=0; 
        Lo(val_debut):=CCPR1L;
        Hi(val_debut):=CCPR1H;

        commence:=1;
        ClearBit(PIR1,CCP1IF); // drapeau
         CCP1CON:=%00000100; // détec front descendan

       end
       
        else
       
       
       begin
       
        Lo(val_fin):=  CCPR1L;
        Hi(val_fin):=  CCPR1H;
        
        commence:=0;
        ClearBit(PIR1,CCP1IF); // drapeau
        CCP1CON:=%00000101; // détec front montant

       end;

   end;

   end;