PIC контроллеры. Программаторы и первый проект на PIC

[Праведник]

Подписался на тему....

[_Mixer_]

Между 5 и 14 есть около 5 вольт. Т.е. нужно замкнуть эти ноги и должно сработать реле, если я правильно понял? Мат. часть изучаю по мере возможностей. Как видите не тупо копирую конструкцию, а пытаюсь разобраться что да как.

[petrd]

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

Между 5 и 14 есть около 5 вольт. Т.е. нужно замкнуть эти ноги и должно сработать реле, если я правильно понял? Мат. часть изучаю по мере возможностей. Как видите не тупо копирую конструкцию, а пытаюсь разобраться что да как.

Да какой, замкнуть! Если без контроллера между 5 и 14 ногами есть 5 вольт, то реле должно включиться и все три светодиода должны светиться. И нечего там больше проверять.

[slawa681]

Здравствуйте!У меня вопрос по напряжению питания микросхем и прошиваемого микроконтроллера и по напряжению программирования в программаторе EXTRA-PIC.
Каковы их предельно допустимые значения (минимум и максимум) и насколько критичны их значения во время прошивки микроконтроллера?

[RN3QGA]

Доброго времени суток.
Постараюсь кратко.
Хочется обратиться за помощью.
Есть 12F629 и мПаскаль, (я уже писал ранее ) немного разобрался с миганием светодиодов на трех выводах.
Но вот поочередно что то не получается пока получилось либо все сразу либо по одному.
Если можно то пример кода хоть на Си, я думаю по аналогии разбурусь но лучше бы на паскале.
и как кнопку прилепить, ну для запуска мигания хотя бы.
Всем благодарен.

[petrd]

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

Здравствуйте!У меня вопрос по напряжению питания микросхем и прошиваемого микроконтроллера и по напряжению программирования в программаторе EXTRA-PIC.
Каковы их предельно допустимые значения (минимум и максимум) и насколько критичны их значения во время прошивки микроконтроллера?

Все параметры указаны в DS на конкретный контроллер. Обычно начинающими используются PIC16F, PIC12F в режиме высоковольтного программирование . Поэтому напряжение питания должно быть 5 в, напряжение программирования 9 - 13,5 вольт. Источник напряжения должен обеспечит стабильное напряжение в период программирования. О каких минимумах и максимумах надо говорить, если обычно ставятся стабилизаторы 7805 и 7812, которые все что надо обеспечивают.

[petrd]

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

Доброго времени суток.
Постараюсь кратко.
Хочется обратиться за помощью.
Есть 12F629 и мПаскаль, (я уже писал ранее ) немного разобрался с миганием светодиодов на трех выводах.
Но вот поочередно что то не получается пока получилось либо все сразу либо по одному.
Если можно то пример кода хоть на Си, я думаю по аналогии разбурусь но лучше бы на паскале.
и как кнопку прилепить, ну для запуска мигания хотя бы.
Всем благодарен.

Выкладывайте сюда свой код, где Вы пытаетесь делать, а у Вас не получается, что надо поправим и туда же по ходу кнопку засунем.

[RN3QGA]

Вот мой код. Наверно можно и проще но я новичок Пики пытаю в первые. не судите строго.

program SveticP16F629;
const A: array [0..8] of byte=
(%00000001,%00000110,93,
%00000010,%00000101,93,
%00000100,%00000011,93);
var I,J,g: byte;
begin
while true do
begin
for I:=0 to 18 do
begin
g:=I+I+I;
TRISIO:=A[g];
GPIO:=A[g+1];
Delay_us(1000);
end;
end;
end.

Основа примера взята из журнала Радио номер не помню но за 2008 год точно.
Там приведен вариант маятника на светодиодах. Я взял для примера. Попробывал для трех сетодиодов ночтоб мигали по очереди но что то не дохожу как.
Спасибо за понимание и помощь.

[petrd]

RN3QGA Просьба, когда код выкладываете, обрамляйте тегами (quote, code, php),
[PHP]program SveticP16F629;
const A: array [0..8] of byte=
(%00000001,%00000110,93,
%00000010,%00000101,93,
%00000100,%00000011,93);
var I,J,g: byte;
begin
while true do
begin
for I:=0 to 18 do
begin
g:=I+I+I;
TRISIO:=A[g];
GPIO:=A[g+1];
Delay_us(1000);
end;
end;
end.
[/PHP]
а то плохо воспринимается.

[RN3QGA]

ОК. Все учтем.

[petrd]

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

ОК. Все учтем.

И опишите словами, что Вы хотите получить, например, к GPIO0-GPIO2 подключено 3 светодиода, надо чтобы они по очереди загорались слева направо, гасли и потом справа налево и так в цикле. И сразу по коду - у Вас массив из 9 байт, а по тексту видно, что идет обращение к элементам массива с индексами больше 8. Значение переменной g не должно быть больше 8.

[RN3QGA]

Простите бестолкового.
Сначала.
К GPIO0,GPIO1,GPIO2 подключены светодиоды катодами, а через R 300 оМ подоется 5В на аноды.
Собственно в какую сторону они будут мигать по порядку всеравно,
я на примере разобраться хочу как это оно. Думаю проще чтоб мигали от GPIO0 к GPIO2 и сначала.
Вроде все.
Спасибо за терпение.
P.S. А может просто диоды на массу посадить через гасящие R 100Ом, правда проще или сложнее будет не знаю.

[petrd]

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

К GPIO0,GPIO1,GPIO2 подключены светодиоды катодами, а через R 300 оМ подоется 5В на аноды.
Собственно в какую сторону они будут мигать по порядку всеравно,
я на примере разобраться хочу как это оно. Думаю проще чтоб мигали от GPIO0 к GPIO2 и сначала.
Вроде все.
P.S. А может просто диоды на массу посадить через гасящие R 100Ом, правда проще или сложнее будет не знаю.

Вот вариант с подключением диодов к + питания

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

С подключением к земле будет чуть проще, а вообщем все равно как их подключать. Смотрел только в симуляторе. Что непонятно спрашивайте.

[slawa681]

При измерении напряжения на плате программатора EXTRA-PIC напряжение питания микросхемы MAX232 после стабилизатора 7805- 4,8 вольт,а напряжение питания микроконтроллера 4,9 вольт.Напряжение программирования после стабилизатора 7812 - 13,9 вольт.Вопрос возник из-за того что при прошивке микроконтроллеров
PIC16F876A или PIC16F628A корректно работает только прогамма ProgCode,а icprog и WinPic800 (дугие не проверял)не считывают и не прошивают эти микроконтроллеры а в списке поддерживаемых этих программ присутствуют. Уровень напряжения DATA,CLOCK 4,5 вольт согласно статьи по настройке и тестированию программатора EXTRA-PIC.Вот я и не понимаю то ли проблема в железе и напряжении,то ли проблема в прогаммном обеспечении.

[RN3QGA]

Спасибо за помощь Petrd.
Не понял что есть CMCON?
и немного в сторону - сколько выдерживают Пики в среднем перезаписей , как лучше моделировать
по вашему мнению и что за симулятор используете?
С уважением RN3QGA.

[Праведник]

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

if (g and 8)= 8 then g := 1;

А просто
if (g and 8) then g := 1; Не проканает?

[petrd]

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

При измерении напряжения на плате программатора EXTRA-PIC напряжение питания микросхемы MAX232 после стабилизатора 7805- 4,8 вольт,а напряжение питания микроконтроллера 4,9 вольт.Напряжение программирования после стабилизатора 7812 - 13,9 вольт.Вопрос возник из-за того что при прошивке микроконтроллеров
PIC16F876A или PIC16F628A корректно работает только прогамма ProgCode,а icprog и WinPic800 (дугие не проверял)не считывают и не прошивают эти микроконтроллеры а в списке поддерживаемых этих программ присутствуют. Уровень напряжения DATA,CLOCK 4,5 вольт согласно статьи по настройке и тестированию программатора EXTRA-PIC.Вот я и не понимаю то ли проблема в железе и напряжении,то ли проблема в прогаммном обеспечении.

1. Неплохо бы на другом компе посмотреть и тогда прикинуть, железо или программа.
2. Напряжение 4,8-4,9 в, 4,5 в как-то маловато для 7805.
3. Настройки железа в ICPROG и WinPIC правильные?
Посмотрите железо повнимательнее, должен работать.

[RN3QGA]

Проверил. Светятся все три светодиода.
Может что в "конфиге" нужно выставить по другому, а то я оставил без изменений :
галочка только в PWRT и lntOSC GP4 . Использую ICProg.
В самом mikroPascal установки в проекте следующие:

OsciLLator - Internal RC No Clock
Watchdog Timer - off
PWRT - on
Master Clear Enabel - Disabled
Brown Out Detect - off
ну и остальное - off

вот такое инфо.
С уважением RN3QGA.

[petrd]

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

Не понял что есть CMCON?
и немного в сторону - сколько выдерживают Пики в среднем перезаписей , как лучше моделировать
по вашему мнению и что за симулятор используете?

1. Регистр CMCON - регистр управления компаратором. Командой CMCON :=7; отключили его.
2. Для PIC16F обычно 100 000 циклов перезаписи - всю жизнь шить, не перешить.
3. Внутри mikroP есть симулятор-отладчик, после удачной компиляции - кнопка F9 , им и смотрел, его на первое время Вам хватит. Но мне больше нравится смотреть в железе.

Сообщение от Праведник

А просто
if (g and 8) then g := 1; Не проканает?

Проканает. Это с синтаксисом Паскаля у меня что-то сразу не сросталось, сделал наверняка, потом забыл убрать. Обычно пишу-то на Си.

[petrd]

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

Проверил. Светятся все три светодиода.
Может что в "конфиге" нужно выставить по другому, а то я оставил без изменений :
галочка только в PWRT и lntOSC GP4 . Использую ICProg.
В самом mikroPascal установки в проекте следующие:
вот такое инфо.
С уважением RN3QGA.

Частота - 4 МГц? Завтра в железе посмотрю и все встанет на свои места.

[RN3QGA]

В mikroP

MCV Clock F=4.00000 MHz.

Вроде все так.
Отладчиком и я смотрю, но как и вы люблю чтоб реально работало.
Думал может какой симулятор схем пользуете.
Спасибо за терпение надеюсь не сильно достаю.

[RN3QGA]

Вот наконец то написал что то.
[PHP]program Pic12F629Svet;
begin
TRISIO:=1;
While true do
begin
TRISIO:=0;
Delay_ms(300);
TRISIO.0:=1;
GPIO.0:=0;
Delay_ms(300);
TRISIO.1:=1;
GPIO.1:=0;
Delay_ms(300);
TRISIO.2:=1;
GPIO.2:=0;
Delay_ms(300);
TRISIO:=1;
Delay_ms(300);
end;
end.[/PHP]
Вариант конечно примитивный но в железе работает.
Это примерно то, что мне нужно.
принцип понял, но хотелось бы Ваш вариант Petrd разобрать.
Да и про кнопочку не забыть вот тут я даже не знаю как это реализовать.

[petrd]

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

Вот наконец то написал что то.
принцип понял, но хотелось бы Ваш вариант разобрать.
Да и про кнопочку не забыть вот тут я даже не знаю как это реализовать.

1. А зачем Вы каждый раз TRISIO настраиваете? Вначале программы выставьте один раз нужные выводы на выход и больше не трогайте, все равно у Вас там пока ничего, кроме светодиодов нет.
2. Вчерашний код поправил и кой чего добавил. Проблема была в том, что была задержка в 1 ms, а надо было в 1 сек. Все работало, а глаз-то не видел быстрого моргания.
3. Для кнопки посмотрите встроенную функцию Button() , код чуть позже покажу.

[RN3QGA]

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

БСПа.

[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.

[RN3QGA]

Ок. Огромное спасибо.
Буду разбираться. Вопросы задам.
Вот бы где взять описания команд мПАСА на русском, может книга какая есть?
Честно говоря тут пробел, привык к Дельфям да и то на уровне ниже среднего.
Ладно как говориться не будем нос вешать, вперед учиться, ну и тд.
С уважением RN3QGA.

[RN3QGA]

Так, не выдержал все проверил.
При включении загорались сразу два сетодиода на 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]
Да чуть не забыл попробовал раскомментировать строки компилятор выдает ошибку.
Пока не понял в чем дело.

[petrd]

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

Вот бы где взять описания команд мПАСА на русском, может книга какая есть?

mikroP основан на стандартном Паскале. В том же учебнике по Делфи расписаны команды Паскаля . А с английским лучше дружить.

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

Попробовал раскомментировать строки компилятор выдает ошибку.
Пока не понял в чем дело.

Раскомментировать надо не строки, а только одну строку

//{$DEFINE LED_OA}  -> {$DEFINE LED_OA}

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

При включении загорались сразу два сетодиода на GPIO1 и 2. и после отпускания кнопки тоже оставались гореть светодиоды.

Все правильно. Программа сделана под мою отладку. У меня светодиоды подключены анодами к GP, а катодами к земле, у Вас же аноды к + питания, катоды к GP, чтобы одновременно горел только 1 светодиод в Вашей схеме и надо раскомментировать строку.

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

Решил попробовать сделать чтоб при включении ничего не горело и после отпускания кнопки ничего не горело. Вот добавил кусочек кода, наверное можно более изящно но все работает ОК.

Тут не про изящность надо думать, а про рациональность кода и работоспособность, пару замечаний, в коде вместо

GPIO.0:=1;
GPIO.1:=1;
GPIO.2:=1;

лучше зваписать

GPIO := 7;

Результат тот же, а в итоге код короче. Из кода в условии проверки нажатия кнопки без ущерба можно убрать все те же строчки GPIO.0:=1; GPIO.1:=1; GPIO.2:=1;, все равно сработают эти же строчки в начале цикла. Второе, пользоваться побитными операциями с портами, как с регистрами я бы поостерегся, порт - это не регистр и при обращении к нему происходит процедура Чтение - Модификация - Запись (про это можете прочитать на первых страницах этого топика).
В итоге я бы сделал так:

program P12F629Button_Svetic;
//{$DEFINE LED_OA}
var g: byte;
begin
//CMCON  := 7; // эту строку сейчас можно убрать, но на будущее надо держат в уме
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;
end;
end.

[RN3QGA]

Вот это обстоятельный ответ. Приятно общаться.
Все принято! Большое спасибо. Видимо придется
Вас еще помучать.Шутка. Главное, чято охоту к изучению
не отбиваете.

[RN3QGA]

Вот еще вопрос.
Пытаюсь сделать примерно следующее:

IF кнопка нажата then код1 else код2.
но что то не работает

все время выполняется только код1.