Programme sur PIC 16f628a

[anthonydu62]

Bonjour à toutes et tous.
Voila, je cherche à réaliser un petit programme me permettant de:
Sur une sortie "RA0" de faire clignoter une led à sur 0.4 seconde en permanence
et après 2 secondes de clignotement de RA0, RA1 s'allume.
Mais j'ai un petit soucis, mon programme ne va pas.
Le voici:


program MyProject;

//Faires clignoter une leds à 0.4 secondes sur A0 puis allumage constant de A1
//au bout de 2 secondes

procedure Init;
begin
TRISA := %00000000; // toutes lignes du port A (RA0 à RA7) configurées en sorties logiques
end;

procedure Sorties_Cligno;

begin
PORTA.0 := 1; // basculement état logique 1 de RA0
Delay_ms(200); // pause de 0,2 secondes
PORTA.0 := 0; // basculement état logique 0 de RA0
Delay_ms(200); // pause de 0,2 secondes
end;

procedure Sorties_Fixe;
begin
Delay_ms(2000);
PORTA.1:=1 // basculement état logique 1 de RA1
end;

// Lancement procedure
begin
Init;
while true do
Sorties_Cligno;
Sorties_Fixe;
end.


Pouvez vous m'aider?
Merci d'avance
-----

[remy01]

Bonjour,
c'est écrit avec quel langage, quel compilateur ???

[Claudius01]

Bonjour,

Ne manquerait-il pas l'initialisation (en assembleur et à convertir dans le langage du programme) :

        movlw   0x7       ; Turn comparators off and
        movwf   CMCON     ; enable pins for I/O function

Cordialement, A+
--
Claudius

[Claudius01]

Ne connaissant pas le langage, je propose tout de même et par analogie le petit code correspondant :

procedure Init;
begin
CMCON := %00000111; // Entres / Sorties du type logique
TRISA := %00000000; // Toutes lignes du port A (RA0 à RA7) configurées en sorties
end;

Cordialement, A+
--
Claudius

[A voir en vidéo sur Futura]

[freepicbasic]

Du pascal en pic c est rare.

si tu faisais une boucle dans ta procedure de clignotement
du genre 5 fois ça ferait 2 secondes

[anthonydu62]

Bonjour,
c'est écrit avec quel langage, quel compilateur ???

Oups!!! J'utilise MicroPascal

Ne connaissant pas le langage, je propose tout de même et par analogie le petit code correspondant :

procedure Init;
begin
CMCON := %00000111; // Entres / Sorties du type logique
TRISA := %00000000; // Toutes lignes du port A (RA0 à RA7) configurées en sorties
end;

Cordialement, A+
--
Claudius

Je viens de mettre la ligne "CMCON..." et sa change rien

Mon problème, c'est que j'arrive bien à faire clignoter la led 1 (RA0).
Mais après les 2 secondes, RA1 ne s'allume pas.

[freepicbasic]

Comme ceci;

procedure Sorties_Cligno;

begin
for i := 1 to 5 do begin
PORTA.0 := 1; // basculement état logique 1 de RA0
Delay_ms(200); // pause de 0,2 secondes
PORTA.0 := 0; // basculement état logique 0 de RA0
D elay_ms(200); // pause de 0,2 secondes
end {for};
end;

[anthonydu62]

Voici le montage sous ISIS

[freepicbasic]

Mon problème, c'est que j'arrive bien à faire clignoter la led 1 (RA0).
Mais après les 2 secondes, RA1 ne s'allume pas.

quand tu dis clignote c est 1 flash
et tu attend 2 secondes pour allumer et ausitot tu va flasher 200ms
met le delay après pas avant

[freepicbasic]

procedure Sorties_Fixe;
begin
PORTA.1:=1 // basculement état logique 1 de RA1
Delay_ms(2000);
PORTA.1:=0 // basculement état logique 0 de RA1
Delay_ms(200);
end;

[anthonydu62]

procedure Sorties_Fixe;
begin
PORTA.1:=1 // basculement état logique 1 de RA1
Delay_ms(2000);
PORTA.1:=0 // basculement état logique 0 de RA1
Delay_ms(200);
end;

Je pense m'être mal expliqué, je veux RA0 clignote toujours et que RA1, sl'allume après 2 secondes.

[invite03481543]

Voici le montage sous ISIS

Bonjour,

ce schéma n'a aucune chance de fonctionner dans la vraie vie.
Pourquoi vous escrimer à ne pas utiliser vos mains et votre tête?

[invite03481543]

La patte MCLR doit être reliée au +Vcc à travers une résistance de 10K.
L'alimentation du PIC doit être découplée, sur votre schéma rien de tout cela n'apparait.
Utilisez une plaque de développement type veroboard et de vrais composants, vous progresserez utilement et vraiment.
Et téléchargez la datasheet, la réponse à votre non fonctionnement s'y trouve (voir PORTA)
@+