roboforum.ru

Технический форум по робототехнике.

 

Хочу собрать светодиодную маргалку. Помогите.

Раздел создан специально для людей которым интересна робототехника, но в силу разных причин они не знают с чего начать.
Задавайте ваши вопросы, какими бы простыми они не казались, постоянные посетители форума постараются ответить на них по мере своих сил.
Робот своими руками. Самодельный робот.

Re: Хочу собрать светодиодную маргалку. Помогите.

Сообщение кулер 23 » 17 июн 2009, 00:17

интересно а автор скоро будет
Аватара пользователя
кулер 23
 
Сообщения: 798
Зарегистрирован: 17 апр 2009, 19:44
Откуда: Югорск
Skype: rizhykot
ФИО: Аксютин Юрий

Re: Хочу собрать светодиодную маргалку. Помогите.

Сообщение CALLIKA » 30 июн 2009, 19:38

Чтобы не плодить тему задам вопрос сюда - можете написать самый компактный код на Си, для мигалки которая работает в таком режиме, мигает светодиод от 1 до 8 (задержка 200млС), дальше 8 светодиод остается гореть и начинается мигание от 1 до 7, 7 и 8 остались гореть и т.д. пока не загорят все 8 светодиодов ?
Заранее спасибо :)
CALLIKA
 
Сообщения: 41
Зарегистрирован: 25 янв 2009, 00:08
Откуда: Великий Новгород
прог. языки: PHP

Re: Хочу собрать светодиодную маргалку. Помогите.

Сообщение Snable » 30 июн 2009, 19:55

Навскидку так:
Код: Выделить всёРазвернуть
for (j=7;j>=0;j--) for (i=0;i<=j;i++)
{
  port+=(1<<i);
  if (i) port-=(1<<i);
  delay_ms(200);
}

Хотя не проверял :wink:
Аватара пользователя
Snable
 
Сообщения: 395
Зарегистрирован: 21 мар 2009, 20:06
Откуда: Город на Неве
прог. языки: GNU C++ with Qt / C# via .NET
ФИО: Александр

Re: Хочу собрать светодиодную маргалку. Помогите.

Сообщение CALLIKA » 01 июл 2009, 17:20

Хотя не проверял
Proteus'ом проверил - нето :(
CALLIKA
 
Сообщения: 41
Зарегистрирован: 25 янв 2009, 00:08
Откуда: Великий Новгород
прог. языки: PHP

Re: Хочу собрать светодиодную маргалку. Помогите.

Сообщение blindman » 01 июл 2009, 17:35

Код: Выделить всёРазвернуть
   uint8_t on = 0, running = 0x80, end = 0x01;
   while (on != 255U) {
      PORTA = on | running;
      if (running == end) {
         running = 0x80;
         on |= end;
         end <<= 1;
      } else {
         running = running >> 1;
      }
   }
Проект [[Open Robotics]] - универсальные модули для построения роботов
Модули Open Robotics можно приобрести в магазине shop.roboforum.ru

Day OFF? You must be pulling my leg! Stop making humor before someone sees you, fool!

Аватара пользователя
blindman
 
Сообщения: 4130
Зарегистрирован: 29 апр 2008, 21:15
Откуда: Хабаровск
прог. языки: C,C++,Assembler,PHP,Javascript,Ruby, SPIN,Java(?)
ФИО: Андрей Юрьевич

Re: Хочу собрать светодиодную маргалку. Помогите.

Сообщение кулер 23 » 11 окт 2009, 20:41

ну и где мигалка то :(
Аватара пользователя
кулер 23
 
Сообщения: 798
Зарегистрирован: 17 апр 2009, 19:44
Откуда: Югорск
Skype: rizhykot
ФИО: Аксютин Юрий

Re: Хочу собрать светодиодную маргалку. Помогите.

Сообщение galex1981 » 11 окт 2009, 22:20

Наверное не получилась, или терпения не хватило...
if(!Operate) Read(pDatasheet);
Аватара пользователя
galex1981
 
Сообщения: 4360
Зарегистрирован: 04 дек 2008, 22:44
Откуда: Камышин
Skype: galk-aleksandr1
прог. языки: C, C++, Assm, BasCom, VB, php
ФИО: Галкин Александр Владимирович

Пред.

Вернуться в Новичкам или основы основ роботостроения.

Кто сейчас на конференции

Сейчас этот форум просматривают: Bing [Bot] и гости: 4

Mail.ru counter