I have problem with turning on led by pressing button. I want turn green led - RC0 for 4sec next red led - RC1 for 4sec and green led again - RC0 for 4sec.
I try something like this :
Code: Select all
program led;
begin
OSCCON := %01110010;
PORTC := 0x00;
TRISC := 0x00;
PORTA := 0x00;
TRISA := 0xFF;
ANSEL := 0;
ANSELH := 0;
While TRUE do
begin
if (PORTA=0x01) then
begin
PORTC:=0x01; // Turn ON led on PORTC
Delay_ms(4000);
PORTC:=0x02;
Delay_ms(8000);
PORTC:=0x01;
Delay_ms(4000);
PORTC:=0x00;
end;
end;
end.
If anyone can help me i will be grateful.