Сообщение от RN3QGA:
Вот еще вопрос.
Пытаюсь сделать примерно следующее:
все время выполняется только код1.

Сообщение от :
program SvetPIC16F629;
{$DEFINE LED_OA}
var g: byte;
begin
TRISIO := 0x18;
{$IFDEF LED_OA}
GPIO := 7;
{$ELSE}
GPIO := 0;
{$ENDIF}
g := 1;
while true do
begin
if Button(GPIO, 4, 10, 0) then
begin
if g = 8 then g := 1;
{$IFDEF LED_OA}
GPIO := (not g) and 7;
Delay_ms(100);
g := g shl 1;
GPIO := 7;
{$ELSE}
GPIO := g;
Delay_ms(100);
g := g shl 1;
GPIO := 0;
{$ENDIF}
end
else
begin
trisio:=0;
Gpio:=0xff;
Delay_ms(300);
Gpio:=0x00;
end;
end ;
end.

Сообщение от :
program Pic12F629Svet;
begin { Main program }
TRISIO:=0;
While true do
begin
if Button (GPIO, 4, 10, 0) then
begin
GPIO:=0x00;
Delay_ms(100);
GPIO:=0xff;
Delay_ms(100);
end
else
begin
GPIO:=0x00;
Delay_ms(500);
GPIO:=0xff;
Delay_ms(500);
end;
end;
end.

Сообщение от :
program SvetPIC16F629;
{$DEFINE LED_OA}
var g: byte;
begin
TRISIO := 0x18;
{$IFDEF LED_OA}
GPIO := 7;
{$ELSE}
GPIO := 0;
{$ENDIF}
g := 1;
while true do
begin
if Button(GPIO, 4, 10, 0) then
begin
if g = 8 then g := 1;
{$IFDEF LED_OA}
GPIO := (not g) and 7;
Delay_ms(100);
g := g shl 1;
GPIO := 7;
{$ELSE}
GPIO := g;
Delay_ms(100);
g := g shl 1;
GPIO := 0;
{$ENDIF}
end
else
begin
Gpio:=0xff;
Delay_ms(300);
Gpio:=0x00;
Delay_ms(300);
end;
end ;
end.

Сообщение от RN3QGA:
Пример.
В идеале идея заключается в том, чтобы при нажатии бежали огоньки, а без просто мигали.,
Но в будущем хочу сделать, чтоб допустим одной кнопкой переключать разные действия типа программы, друг за другом.
А вот это работает.

trisio:=0;

...
else
begin
trisio:=0;  // это Вы уберёте (уже убрали)
Gpio:=0xff;
Delay_ms(300);
Gpio:=0x00;
end;
......

Сообщение от :
Вот возник вопрос еще , а у Delay_ms секунды переменной быть могут?

procedure Vdelay_ms(time_in_ms : word)

Сообщение от :
procedure Vdelay_ms(time_in_ms : word)

Сообщение от RN3QGA:
А как можно обработать поочередно нажатие.
чтоб нужная часть кода срабатывала, допустим 1 раз - 1код., еще раз 2 код, и т д. по кругу?

Сообщение от :
procedure Vdelay_ms(time_in_ms : word)

Сообщение от :
program Pic12F629Svet;
var i,r:word;
begin { Main program }
r:=1;
i:=1;
TRISIO:=0;
While true do
begin
if r=1 then i:=1;
if r=2 then i:=50;
if r=3 then i:=200;
if r=4 then i:=700;
if r=5 then i:=2000;
GPIO:=0x00;
VDelay_ms(i);
GPIO:=0xff;
VDelay_ms(i);
if Button (GPIO, 4, 1, 0) then
begin
r:=r+1;
if r=6 then
begin
r:=1;
i:=1;
end;

end;
end;
end.

Сообщение от RN3QGA:
Я только хотел про переменную спросить, значит в верном направлении думаю, будем пробовать если не получиться спрошу. Ну наверно что-то типа этого в примитиве конечно, работает но с одной особенностью. Чем больше задержка Delay тем кнопка не точно по нажатию срабатывает. Тратиться время я это понимаю но как обойти. Чтоб кнопка на нажатие четко срабатывала, а то перескакивает бывает.

Сообщение от dr.ON:
petrd, А вы с емкостными кнопками, а точнее со слайдерами дело не имели случаем?
Пытаюсь тут сделать его по микрочиповской технологии( 2 треугольных электрода), получается ерунда полнейшая. Чувствительность к боковому смещению пальца просто ужасающая.
P.S. Кстати правильную форму электродов ктонибудь знает?

Сообщение от RN3QGA:
А чегойто я подключил к GP3 (4 нога P12F626) диод а он у меня не светится, хотя трисы в 0 выставлены, светятся только G 0,1,2. Как то одтельно подключать на до что ли ?
Про таймеры и прирывания честно говоря не совсем понятно т.к. на Си, я 0.
Но попробую разобраться если что спрошу.
Спасибо за помощь.

Сообщение от :
unsigned short counter, oldstate, step;
void interrupt(){ // подпрограмма обработки прерывания
if(INTCON.T0IF){
counter++;
if (counter>1){
PORTB=~PORTB&0x0f|step;
counter=0;
}
INTCON.T0IF=0;
}
}// interrupt
void Init(){ // подпрограмма начальной инициализации
CMCON=7; // все входы как цифровые, компараторы отключены
TRISA=0xff; // настроили выводы PORTA на вход
TRISB=0; // настроили выводы PORTB на вывод
OPTION_REG = 0x87; // настройка TMR0, прерывания будут каждые 66,304 ms
INTCON.T0IE=1; // разрешили прерывания по переполнению TMR0
INTCON.GIE=1; // разрешили все прерывания
step=0;
oldstate=0;
}// Init
void main(){
Init();
while(1){ // организовали вечный цикл
if (Button(&PORTA, 0, 1, 0))
oldstate = 1;
if (oldstate && Button(&PORTA, 0, 1, 1)){ // ждем отпускания кнопки (переход от 0 к 1)
step=~step&0x80;
PORTB|=step;
oldstate = 0;
}
}
}//~

Сообщение от RN3QGA:
Как я понял код разбит на 2 части первая подпрограмма в которой можно делать условия выполнения, а вторая бесконечный цикл где постоянно выполняется что-то. но мне не понятно контроллер все время "заглядывает" с начала подпрограммы или нет?

program Name_Program;
// начало объявления констант, переменных, меток
//
//  конец объявления констант, переменных, меток
// начало объявления процедур и функций
procedure interrupt; // подпрограмма обработки прерываниий
begin
if TestBit(INTCON, T0IF) = 1 then
begin
// здесь код, указывающий что делать, если произошло переполнение TMR0
ClearBit(INTCON, T0IF); // стирать бит надо обязательно
end
end;
procedure Init;   // подпрограмма инициализации
begin
end;
// конец объявления процедур и функций
// далее основной код программы, именно отсюда и начинается ее выполнение
begin
Init;            // вызов процедуры инициализации
INTCON.T0IE := 1; // после этой команды разрешается работа прерываний таймера 0 при условии
// разрешения работы механизма прерываний
INTCON.GIE := 1; // после выполнения этой команды разрешена работа механизма прерываний
while true do    // отсюда и до конца код вечного цикла
begin
//код вечного цикла
end;
end.

Сообщение от RN3QGA:
Вот тут подумал, Петр а может на конкретной задаче разобрать. И я Вам меньше глупых вопросов задавать буду и Вам один раз написать.
Если конечно это Вас устроит. Я понимаю Вам не очень то интересно мигать светодиодами да еще и Паскаль вспоминать, но уж не обижайтесь на мою, отчасти лень, отчасти назойливость.

program Test_Program;
var count, oldstate, g, old_GPIO: byte;
procedure interrupt; // подпрограмма обработки прерываниий
begin
if TestBit(INTCON, T0IF) = 1 then
begin
count := count+1;
if g = 255 then
begin
if count>6 then
begin
GPIO := old_GPIO;
old_GPIO := not(old_GPIO) and 0x07;
count := 0;
end
end
else
GPIO := 0x07;
ClearBit(INTCON, T0IF);
end
end;
procedure Init; // подпрограмма инициализации
begin
TRISIO := 0x18;
GPIO := 0x07;
OPTION_REG := 0x87; // настройка TMR0, прерывания будут каждые 65,536 ms
INTCON.T0IE := 1;
INTCON.GIE := 1;
count := 14;
oldstate := 0;
g := 0;
old_GPIO := 0;
OSCCAL := OSCCAL;
asm
bsf   STATUS, RP0
call  0x3FF
movwf OSCCAL
bcf   STATUS, RP0
end;
end;
begin
Init;
while true do
begin
if Button(GPIO, 4, 10, 0) then oldstate := 255;
if oldstate and Button(GPIO, 4, 1, 1) then
begin
g := not(g);
oldstate := 0;
end
end;
end.

Сообщение от petrd:
Что для чего в программе вечерком напишу.

OSCCAL := OSCCAL;
asm
bsf   STATUS, RP0
call  0x3FF
movwf OSCCAL
bcf   STATUS, RP0
end;

retlw xx (код 34xx)

retlw xx

Сообщение от RN3QGA:
У-ух Петр огромное спасибо.
Я вот единственное забыл сказать Вам, что я у себя на макетке переделал диоды, анодом к выводам, катодом на массу через R. Если это важно конечно. Ну я пока подожду с Вашего позволения комментария дабы лишних вопросов не задавать ну , а уж потом "держитесь".
И вопросик немного в сторону. В постах выше Вы "показали" свое железо для отладки, скажите если не секрет это для работы или для души приобретено, я не буду скрывать, в принципе я могу себе позволить приобрести ну скажем черта в банке, только вот оно мне нужно или нет понять не могу, стоит ли приобретать, просто я немного помешан с детства на электронике, вот только жизнь сложилась далеко от этого, но увлечение оказывается сильней, короче нужен совет пригодится это железо мне или достаточно на макетке собирать и мучать?
Но все остальное в силе через тернии к звездам.

Сообщение от :
Если константа затерта, то если есть возможность лучше в ячейку по адресу 0x3FF записать число 0x3480

Сообщение от RN3QGA:
Да чуть не забыл: о константах которые программатор затирает. я использую самостейный программатор Экстра пик. Мне нужно проверить затирает он или нет для начала? , и если затирает (а скорее всего затирает), то необходимо будет ручками постоянно допписыватьили только в том случае когда нужна точность. Все ли я правильно понял?

Сообщение от RN3QGA:
И так ,скопировал, компильнул, прошил, включил - горят все три светодиода но реакции на кнопку нет. Закоментировал ASM - все заработало. Подцепил еще светодиод на GP5 и кнопку на GP3 для продолжения экспериментов. Светодиод на GP5 не мигает. Видимо нужно настраивать, вроде бы этот вывод может работать на выход или я ошибаюсь.

Сообщение от RN3QGA:
Да, действительно все работает ОК с этим вроде понял. Так, ну теперь как подключить GP5, и еще допустим как я говорил выше нужно организовать выбор,например разного типа мигания по нажатию кнопки, в приведенном коде, где это сделать? Я понял, так (поправите конечно) видимо необходимо организовать процедуру(ы) отдельно и из цикла While вызывать их при нужном условии.
....
а обрабатывать переменные кнопки и т.д. в While надеюсь правильно?

.....
old_GPIO := not(old_GPIO) and 0x07; -> old_GPIO := not(old_GPIO) and 0x27;
......
GPIO := 0x07; ->GPIO := 0x27;
......

if count>6 then

Сообщение от :
if count=1 then мигаем 1, if count=2 then мигаем 2 и тд.

Сообщение от :
1. Петр если можно, точная роль переменной count?
2. Процедура Init вызывается каждый раз при выполнеии кода или один раз.
3. OPTION_REG := 0x87 - настройка TMR0. если менять как влияет.

Сообщение от RN3QGA:
Значит получается прямая зависимость от количества прерываний, но все таки одно не понял, как организовать выбор разных подпрограмм (может не совсем корректно сказано конечно), ну то есть если переменная 1 то так мигаем, если 2 то по другому, если 3 то по третьему, я конечно могу предположить, что можно в зависимости от их количества делать проверку, то есть в нашем случае к примеру. Теоретически все вроде выресовывается так, но можно ли так, а практически ей богу не соображу вообще. Че й то заклинило можно сказать. и еще немного:

program Test_Program;
var count, oldstate, g, old_GPIO, flash: byte;
procedure interrupt; // подпрограмма обработки прерываниий
begin
if TestBit(INTCON, T0IF) = 1 then
begin
count := count+1;
//if g = 255 then
//begin
if count > flash then
begin
GPIO := old_GPIO;
old_GPIO := not(old_GPIO) and 0x07;
count := 0;
end;
// end
//else
//GPIO := 0x07;
ClearBit(INTCON, T0IF);
end
end;
procedure Init; // подпрограмма инициализации
begin
TRISIO := 0x18;
GPIO := 0x07;
OPTION_REG := 0x87; // настройка TMR0, прерывания будут каждые 66,304 ms
INTCON.T0IE := 1;
INTCON.GIE := 1;
count := 14;
oldstate := 0;
g := 0;
old_GPIO := 0;
OSCCAL := OSCCAL;
asm
bsf   STATUS, RP0
call  0x3FF
movwf OSCCAL
bcf   STATUS, RP0
end;
end;
begin
Init;
while true do
begin
if Button(GPIO, 4, 10, 0) then oldstate := 255;
if oldstate and Button(GPIO, 4, 1, 1) then
begin
g := g+1;
oldstate := 0;
end;
case g of
0: flash := 1; // здесь может быть целая подпрограмма, а не один оператор
1: flash := 4;
2: flash := 8;
3: flash := 12
else
begin
g :=0;
flash := 1;
end;
end;
end;
end.

Сообщение от :
0: flash := 1; // здесь может быть целая подпрограмма, а не один оператор

Сообщение от :
case g of
0: then begin.......... end;
1: then begin.......... end;
end;