i have try this code in the software simulator .... because that dosent work on EP5...
Code: Select all
program test;
var i : byte ;
procedure init;
begin
osccon:= %01110000; // osc int 8mhz
osctune.pllen := 1; // pll 4x donc programme a 32 mhz
ADCON0 := 0 ;
ADCON1 := %00001111; // all digital
CMCON := 7;
TRISA := %00000000; //porta output
portA := %00000000;
TRISB := %11000000; // port B configuré lcd
TRISC := %11111111; // port C configuré comme entrée
portc := 0 ;
end;
begin
while true do
begin
for i := 0 to 7 do
begin
if porta.i = 0 then porta.i := 1 else porta.i := 0;
delay_ms(30);
end;
end;
end.
to make that working in real, you have to use the Init procedure before the while loop. It is possible to make the simulator have to consider the register parameter ?
have a nice day