kbibi99
Messages postés13Date d'inscriptionmardi 6 septembre 2011StatutMembreDernière intervention23 avril 2012
-
19 nov. 2011 à 15:11
Bonjour,
je suis entrain de créer un programme avec mikropascal pour pic16F877 mais lors de la compilation il affiche cet problème
program khalil;
const temp_sirene = 10000;
var receive : byte;
begin
trisa := 0;
trisb := 0;
trisd := 0;
trise := 0;
porta := 0;
ADCON1 := 7;
portb := 0;
portd := 0;
porte := 0;
UART1_Init(9600); // Initialize UART module at 9600 bps
Delay_ms(100); // Wait for UART module to stabilize
while (TRUE) do // Endless loop
begin
if (UART1_Data_Ready() <> 0) then // If data is received,
begin
receive := UART1_Read(); // read the received data,
UART1_Write('T'); // and send data via UART
if receive = 71 then begin portb := 0xFF; delay_ms (temp_sirene); portb := 0; end;
end;
end;