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

yorx выдалось немного свободного времени, проверил в симуляторе. Проблема была в массиве данных, при использовании целочисленных значений, после цифр необходимо ставить знак %.

Теперь все работает
 



архив c исходником и файлом протеуса

Доброго времени суток, exersizze попробовал Ваш код все равно не работает как надо, схема соединения правильная , проверял на Pic. Светики не бегают поочередно , при симуляции в протеусе , в переменную А записываются другие значения, не те что я прописал (Data 1 , 2 , 4 , 8 , 16 , 32 , 64 , 128 , и т.д)не могу понять почему. Если по отдельности выводить значение переменной А = 32768 то выводит правильно, но когда в цикле пытаюсь белеберда в регистрах получается. Спасибо за направление которое подсказали . С Уважением, Владимир.

yorx, вывод Q7 ' первой микросхемы соединен с DS второй микросхемы? Суть в том что соединяя два регистра, мы увеличиваем разрядность и должны уже передавать не 8, а 16 бит данных.

надо просто взять код для одного регистра и дописать данные


Доброго времени суток, коллеги помогите пожалуйста, как вывести бегущий огонек на 2 регистра . С одним регистром проблем не возникло, привожу пример:


А вот с двумя регистрами, не получается они работают не по очереди, а одновременно оба. Привожу пример:

Как упорядочить регистры не пойму , подскажите пожалуйста.

Не люблю отвечать ссылками но задача тривиальная. В поиске выдает кучу результатов, например вот http://we.easyelectronics.ru/Soft/8-kanalnyy-shim-na-attiny13.html

Приветствую Товарищи эксперты!
Подскажите пожалуйста как через сдвиговик гнать ШИМ?
Допустим 6 светодиодов (бегущий огонек) должны загораться и гаснуть плавно
как это реализовать?

Ev3658, для визуального понимания советую поставит протеус и помоделировать в нем каждый такт. Сразу большинство вопросов отпадут, можно будет своими
глазами наблюдать за логикой. читаем внимательно: команда SHIFTOUT может выводить тактовые импульсы на ножку Clockpin, в данном случае это и есть  PortB.3

В Q7 ' данные лезут в след за Q7, сразу автоматом.

 защелкивать данные после того как загружены во все регистры (защелкиваем же все регистры одновременно)

последовательно, от первого регистра до последнего.

Блин, честно, чайник я ещё, можно чуток обчайниковать статейку?
Вот это не ясно, почему в одной строке два порта - Shiftout Portb.2 , Portb.3 , A , 1
Понимаю, что переменная двухбайтная, но если взглянуть на картинку, хотелось бы в коде послать двоичное и на картинке его увидеть.
И ещё, так как уже всё спаял, начинаю алхимичить. Вообщем Q7' как открывается? После 8го такта забитого в регистр автоматом? Или после защёлкивания?
Если много использовать регистров сдвига, защёлкивать каждый раз данные на регистре или после посылки во все регистры?
Посылаемые данные как попадают в регистры? По очереди или пока до последнее не дойдёт и так конечные данные окажутся на первом регистре?

Так он не в адрес статьи, а товарищу Leosix отписал.

31 Valera18, а зачем? Честь Вашей внимательности, конечно, но цель статьи - научить работать со сдвиговыми регистрами и конкретно с командой SHIFTOUT. Ну есть там ошибка, и что? Вы будете ставить свои значения и считать для своего проекта. Все предельно понятно и четко рассказано.

Для Leosix

Заметил ошибку в подсчёте значения "А", проверьте весь подсчёт.
Из ходя из первого:
Do
If Pind.1 = 1 Then
B = 32768
A = 32768
Do
B = B / 2
A = A + B
Shiftout Portb.2 , Portb.3 , A , 1
Pulseout Portb , 0 , 5
Waitms 100
Loop Until A = 65535

при подсчёте выходит А=65536, а у Вас чтобы выйти из цикла Loop Until A = 65535. Вам нужно изменить на Loop Until A = 65536. Проверьте остальные подсчёты.

Во втором цикле нет выхода из Do Loop:
Waitms 700
A = 65535
B = 32768 * 2
Do
B = B / 2
A = A - B
Shiftout Portb.2 , Portb.3 , A , 1
Pulseout Portb , 0 , 5
Waitms 100
Loop (Чтобы выйти нужно Loop Until A = "значение")
Loop
End If

Или может Я чего-то не понял?

Для Leosix

Лучше так:

$regfile = "attiny2313.dat"
$crystal = 1000000
Dim A As Long
Dim B As Long
Config Portb = Output
Config Pind.1 = Input : Pind.1 = 1
Config Pind.2 = Input : Pind.2 = 1
Do
If Pind.1 = 0 Then
.....
.....
end if

If Pind.2 = 0 Then
.....
.....
end if

Один контакт кнопки подключён к земле (-), а другой к порту МК.
Добавлю: для кнопок лучше использовать Debounce Pind.1 , 0 , K1 , Sub
подробно можно прочитать тут: http://avrhelp.mcselec.com/debounce.htm

Здравствуйте. Написал код для автоматического включения подсветки на лестнице (по 1 ступеньке) при приближении человека.
Но программа не реагирует на внешние сигналы вход Д1 и Д2.
Это мой первый опыт в программировании, оцените код пожалуйста)

$regfile = "attiny2313.dat"
$crystal = 1000000
Dim A As Long
Dim B As Long
Config Portb = Output
Config Pind.1 = Input
Config Pind.2 = Input
Do
If Pind.1 = 1 Then
B = 32768
A = 32768
Do
B = B / 2
A = A + B
Shiftout Portb.2 , Portb.3 , A , 1
Pulseout Portb , 0 , 5
Waitms 100
Loop Until A = 65535
Waitms 700
A = 65535
B = 32768 * 2
Do
B = B / 2
A = A - B
Shiftout Portb.2 , Portb.3 , A , 1
Pulseout Portb , 0 , 5
Waitms 100
Loop
Loop
End If

If Pind.2 = 1 Then
B = 2
A = 1
Shiftout Portb.2 , Portb.3 , A , 1
Pulseout Portb , 0 , 5
Waitms 100
Do
A = A + B
Shiftout Portb.2 , Portb.3 , A , 1
Pulseout Portb , 0 , 5
Waitms 100
B = B * 2
Loop Until A = 65535
Waitms 700
A = 65534
Shiftout Portb.2 , Portb.3 , A , 1
Pulseout Portb , 0 , 5
Waitms 100
A = 65532
Shiftout Portb.2 , Portb.3 , A , 1
Pulseout Portb , 0 , 5
Waitms 100
B = 2
Do
B = B * 2
A = A - B
Shiftout Portb.2 , Portb.3 , A , 1
Pulseout Portb , 0 , 5
Waitms 100
Loop
End If
End

Для вывода большого кол-ва бит, просто пропихиваем их все по одному, и когда закончили даем импульс на ногу SТ

$regfile = "m32def.dat" '
$crystal = 16000000
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portd.7
Config Lcd = 16 * 2
Wait 1
Cursor Off
Cls
Locate 1 , 5
Lcd "ZHARKOFF"
Locate 2 , 6 '
Lcd " test"
Wait 2
Config Portc = Input
Config Portc.0 = Input : Di1 Alias Portc.0
'Set Portc.0 '
Config Portc.1 = Input : Di2 Alias Portc.1
'Set Portc.1 '
Config Portc.2 = Input : Di3 Alias Portc.2
'Set Portc.2 '
Config Portc.3 = Input : Di4 Alias Portc.3
'Set Portc.3 '
Config Portc.4 = Input : Di5 Alias Portc.4
'Set Portc.4 '
Config Portc.5 = Input : Di6 Alias Portc.5
'Set Portc.5 '
Config Portc.6 = Input : Di7 Alias Portc.6
'Set Portc.6 '
Config Portc.7 = Input : Di8 Alias Portc.7
'Set Portc.7
Config Porta = Output
Config Porta.0 = Output : Do1 Alias Porta.0
Config Porta.1 = Output : Do2 Alias Porta.1
Config Porta.2 = Output : Do3 Alias Porta.2 '
Config Porta.3 = Output : Do4 Alias Porta.3
Config Porta.4 = Output : Do5 Alias Porta.4
Config Porta.5 = Output : Do6 Alias Porta.5
Config Porta.6 = Output : Do7 Alias Porta.6
Config Porta.7 = Output : Do8 Alias Porta.7
Config Portd.4 = Output
Config Portd.5 = Output
Config Portd.6 = Output
Sh_cp Alias Portd.5
Ds Alias Portd.4
St_cp Alias Portd.6
St_cp = 0
Ds = Di1
Sh_cp = 0
Sh_cp = 1
Ds = Di2 '
Sh_cp = 0 '
Sh_cp = 1
Ds = Di3 '
Sh_cp = 0 '
Sh_cp = 1
Ds = Di4 '
Sh_cp = 0 '
Sh_cp = 1
Ds = Di5 '
Sh_cp = 0 '
Sh_cp = 1
Ds = Di6
Sh_cp = 0
Sh_cp = 1
Ds = Di7
Sh_cp = 0 '
Sh_cp = 1
Ds = Di8
Sh_cp = 0 '
Sh_cp = 1
Ds = Do1 '
Sh_cp = 0 '
Sh_cp = 1
Ds = Do2 '
Sh_cp = 0 '
Sh_cp = 1
Ds = Do3 '
Sh_cp = 0
Sh_cp = 1
Ds = Do4 '
Sh_cp = 0 '
Sh_cp = 1
Ds = Do5 '
Sh_cp = 0
Sh_cp = 1
Ds = Do6 '
Sh_cp = 0 '
Sh_cp = 1
Ds = Do7 '
Sh_cp = 0 '
Sh_cp = 1
Ds = Do8 '
Sh_cp = 0 '
Sh_cp = 1
St_cp = 1
End

В принципе я понял. Но та написана только на первые 8-бит (1 сдвиговый регистр). А как ввести данные на следующий регистр (следующие 8 бит)? Или я что-то не правильно понял? Может полученое 8+8=16 битное число нужно перевести в десятичное и потом вложить в последний пример програмки
Вот что у меня вышло. Но увы в Протеусе оно не работает

А из чего формируется результат который нужно вывести? Можно эти биты поочереди засовывать в регистр, как в первом примере (с простым ножкодрыганием)

Считывать состояние регистра на выходе регистра мне и не нужно. Вы меня не поняли. Попробую обьяснить свой вопрос по другому.
В примере программы уже есть 16-битный код, исходя из которого каждая бита управляет своим светодиодом, тобиш он статический. А в моем случае 16 битный код динамический, и должен формироваться из состояния переменных, которые управляют входом/выходом. Исходя из этого кода будет видно состояние входа или выхода (1 или 0). Переменные уже есть в программе. Нужно только создать механизм создания 16-битного кода для сдвигового регистра

Считать состояние на выходе регистра никак не получиться, он работает только на вывод.

Здравствуйте уважаемые форумчане. Очень интересная тема. И как раз кстате. Сейчас разрабатываю устройство на базе Atmega32. Свободные есть только три порта. Нужно обеспечить контроль 16 портов (8 входов и 8 выходов)( (0 или 1), но с помощью сдвигового регистра. Я использую вторую схемку из двух сдвиговых регистров. Первый будет индицировать состояние входов, а второй - выходов. Но вот вопрос в том, каким образом вычислить состояние переменной А, исходя из состояния входов-выходов?

С учетом того что входы микросхемы имеют очень большое сопротивление (порядка сотен кОм), а выход микроконтроллера может потянуть до 20мА, можно подключать очень много микросхем, сотню-другую думаю потянет.

" Как говорилось ранее, регистры могут легко состыковаться друг с другом, тем самым давая возможность увеличить количество портов вывода практически до бесконечности."
Вопрос а выходы ATTINY 2313 сколько могут "потянуть" 5 ? 10? штук. Спасибо

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

Появилась мысль совместить 2 светодиодных (3 разрядных) индикатора и дисплей Nokia 3310, я так понимаю 3310 не получится подключить через 74HC595 ибо выводится будет графика?

Для мигания разрядов есть такой пример Number(1) = 36 ' на индикацию выводим -tESt-
Number(2) = 29
Number(3) = 16
Number(4) = 5
Number(5) = 29
Number(6) = 36

Blink_flag(1) = 1 ' мигаем первым и шестым разрядом
Blink_flag(6) = 1
Полная ссылка здесь http://www.edm2007.narod.ru/startavr8.html

Можно организовать цикл в котором в регистр будут отправляться то полезные данные, то нули. Цикл естественно должен быть с условием входа и выход. Вообще алгоритмов можно придумать кучу чтобы организовать мигание цифр..

А как сделать чтобы индикатор моргал, т.е. все цифры одновременно гасли и зажигались с интервалом 0,5-1 сек?? т.е это используется тогда, когда есть несколько индикаторов с разными устанавливаемыми величинами, и при выборе определенной величины мигает тот индикатор, на котором выбран для изменения

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

Подскажите чего я не так делаю.Делаю простенький телеграфный ключик,а вот команда pulseout не как не хочет работать.В Tir как раз пытаюсь высести импульс требуемой длительности , не выходит вообще тишина,а в toch как щас сделано у меня ,всё работает но хотелось понять почему не идёт pulseout.