Probleme en Mikropascal

Fermé
kbibi99 Messages postés 13 Date d'inscription mardi 6 septembre 2011 Statut Membre Dernière intervention 23 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;




end.




[URL=https://www.imagup.com/data-recovery-solutions-for-small-businesses-of-san-francisco/][IMG]http://data.imagup.com/12/1136377334.jpg[/IMG][/URL]