|
Так, не выдержал все проверил.
При включении загорались сразу два сетодиода на GPIO1 и 2. и после отпускания кнопки тоже оставались гореть светодиоды. Решил попробовать сделать чтоб при включении ничего не горело и после отпускания кнопки ничего не горело.
Вот добавил кусочек кода, наверное можно более изящно но все работает ОК.
[PHP]program P12F629Button_Svetic;
//{$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
// Добавил
GPIO.0:=1;
GPIO.1:=1;
GPIO.2:=1;
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(100);
g := g shl 1;
//Добавил
GPIO.0:=1;
GPIO.1:=1;
GPIO.2:=1;
end;
end;
end.[/PHP]
Да чуть не забыл попробовал раскомментировать строки компилятор выдает ошибку.
Пока не понял в чем дело.
|