Bonjour,
J'ai un pic 16 f 84a que je programme en pascal , je cherche à créer un chenillard à 13 dels , il y a 2 vitesses différentes et à chaque "tour" on change de vitesse. Mon programme fonctionne en grande partie mais les 2 DELS branchés sur les ports spéciaux ne fonctionnent jamais , les ports ,RB0/INT et RA4TOCKI .
voici mon programme :
program NOEL2008squencedumlange;
var i : integer;
const premier : array[13] of byte =(%00000000, %00000000, %00000000,%00000000,
%00100000, %01000000, %10000000, %00000010,
%00000100,%00001000,%00010000, %00000001,%00000000); // commande du port B
const deuxieme : array[13] of byte =(%00010, %00100,%01000,%10000,%00000,%0 0000
,%00000,%00000,%00000,%00000,% 00000,%00000,%00001); // commande du port A
begin
Trisb:=0;
trisa:=0;
portb:=0;
porta:=0;
while (1=1) do
begin for i := 0 to 12 do // compteur
begin
portb:=premier[i]; // vitesse rapide sur port b
porta:=deuxieme[i]; //vitesse rapide sur port a
delay_ms(300); // 300 millième de secondes avant de changer de lampe
end;
for i := 0 to 12 do // compteur
begin
portb:=premier[i]; // vitesse lente sur port b
porta:=deuxieme[i]; //vitesse lente sur port a
delay_ms(1500); // 1.5 secondes avant de changer de lampe
end;
end;
end.
Ais-je activé une interruption ou quelque chose comme ça sans le savoir ?
( Le watch doc timer et power up timer sont sur off )
Pouvez vous m'éclairer s'il vous plait ??
-----
