




program Test_16F628A_Activation_Sortie;
procedure Init;
begin
TRISA := %00000000; // toutes lignes du port A (RA0 à RA7) configurées en sorties
end;
// Main program
begin
Init;
end.
procedure Init;
begin
TRISA := %11101100; // RA0, RA1 et RA4 configurées en sorties, autres lignes en entrées
end;
procedure Activation_Sorties;
begin
PORTA := %00000000; // RA0 à RA7 désactivées
end;
procedure Activation_Sorties;
begin
PORTA := %00000001; // RA0 activée et RA1 à RA7 désactivées
end;
procedure Activation_Sorties;
begin
PORTA.0 := 0; // désactivation de RA0 - allumage led D1
PORTA.1 := 1; // activation de RA1 - allumage led D2
PORTA.4 := 0; // désactivation de RA4 - collage relais RL1
end;
program Test_16F628A_activation_sorties;
procedure Init;
begin
TRISA := %00000000; // toutes lignes du port A (RA0 à RA7) configurées en sorties logiques
end;
procedure Activation_Sorties;
begin
PORTA.0 := 0; // désactivation de RA0 - allumage led D1
Delay_ms(500); // pause de 0,5 secondes
PORTA.0 := 1; // désactivation de RA0 - extinction led D1
Delay_ms(500); // pause de 0,5 secondes
end;
// Main program
begin
Init;
while true do
begin
Activation_Sorties;
end;
end.
procedure Activation_Sorties;
begin
PORTA.0 := PORTA.0 xor 1; // basculement état logique de RA0
Delay_ms(500); // pause de 0,5 secondes
end;
procedure Activation_Sorties;
begin
PORTA.0 := PORTA.0 xor 1; // basculement état logique de RA0
end;
procedure Activation_Sorties;
begin
PORTA.0 := PORTA.0 xor 1; // basculement état logique de RA0
PORTA.1 := PORTA.1 xor 1; // basculement état logique de RA1
PORTA.2 := PORTA.2 xor 1; // basculement état logique de RA2
PORTA.3 := PORTA.3 xor 1; // basculement état logique de RA3
PORTA.4 := PORTA.4 xor 1; // basculement état logique de RA4
end;
procedure Activation_Sorties;
begin
PORTA := PORTA xor %00011111; // basculement état logique de RA0 à RA4
end;