[petrd]

Сообщение от RN3QGA

С trisio понял.
Код жду. Сейчас на работе, вечером проверять будем.
БСПа.

Код, кнопка нажата - огонек бежит, отпущена - не бежит:

program SveticP16F629;
{ Если раскоментировать следующую строчку, то
программа будет работать со светодиодами
подключенными по схеме с ОА, иначе с ОК }
//{$DEFINE LED_OA}
var g: byte;
begin
CMCON  := 7;
TRISIO := 0x18;
{$IFDEF LED_OA}
GPIO   := 6;
{$ELSE}
GPIO   := 1;
{$ENDIF}
g := 1;
while true do
begin
// кнопка подключена к GP4 и земле, GP4 подтянут через 10 кОм к + питания
if Button(GPIO, 4, 10, 0) then
begin
if g = 8 then g := 1;
{$IFDEF LED_OA}
GPIO := (not g) and 7;
{$ELSE}
GPIO := g;
{$ENDIF}
Delay_ms(300);
g := g shl 1;
end;
end;
end.