roboforum.ru

Да они все примерно одинаковые, поэтому как они носятся я знаю
У меня одна с ДВС, так вот та ещё и рычит
Всё равно хочется попробовать. Потеплее и посуше будет, займусь.

По результатам отпишись, очень интересно =)

Навеяно темой про фоторамку:
Нашел у себя на балконе вот такой вот ДВД плеер, естессно сгоревший
Есть надежда что TFT дисплей живой, хотелось бы восстановить до работающего монитора



С чего мне начать, кроме поиска даташита?

Добавлено спустя 1 минуту 38 секунд:
И где посмотреть название монитора?
На наклеечке написано: A070FW03 V4

похоже часы-рамка заразительно влияют.

эх, попробовал секвенсер от MiBBiM:
http://roboforum.ru/viewtopic.php?f=69&t=6275&start=180#p113687
траблы такие:
при создании задачи и последующем ее выполнении все сервы переходят в среднее положение (1500мкс) независимо от того, что указано в задаче Пробовал много разных вариантов, результат один
Контроллер, который я использовал - OR-AVR-M128-DS, прошивка ORFA, последняя версия

Возможно отличаются номера регистров для управления сервами, а MiBBiM просто зашил номера в программу.

не подскажешь на каком языке написана его программка? Может почитаю обучалку да сам подправлю

Добавлено спустя 51 секунду:
а разве номера регистров не совпадают с модулем 128-S?

Конечно нет в DS убран драйвер SPI и добавлен драйвер двигателей.
Хуже того в разных версиях прошивок могут меняться номера регистров.
Сейчас думаем как бороться с этими неудобствами.

pashteet писал(а):Навеяно темой про фоторамку:
Нашел у себя на балконе вот такой вот ДВД плеер, естессно сгоревший

Если бы на моём балконе такой хлам валялся я бы без дела ни сидел

по твоему я без дела сижу?

Добавлено спустя 35 минут 2 секунды:
смотрю сейчас программу MiBBiM
Вот кусок кода, я так понимаю занимается формированием отправлемых данных:

Код: Выделить всё • Развернуть

begin
  // начальная инициализация команды, пример:'S40 0D 02 04B0 05 05B0 P'+#13;
  s := 'S40 0D ';
  for i := 0 to lb_tasks.Items.Count-1 do with tasks[i] do
    if (T >= time_from) and (T <= time_to) then
    begin
      if T = time_to then 
        x := pos_to       
      else begin
        dx := (pos_to - pos_from) div ((time_to-time_from) div tmr.Interval);
        x := pos_from + ( (T - time_from) div (tmr.Interval) ) * dx;
      end;
      s := s + inttohex(servo,2) + ' ' + inttohex(x, 4) + ' ';
    end;
  // если есть что отправлять, то дополняю до команды и отправляю
  if s <> 'S40 0D ' then //
    com.WriteStr(s + 'P' + #13);
  // если все задачи кончились
  if T = T_max then
  begin
    tmr.Enabled := false;
    interface_en_dis();
    try
      com.Close
    except
      ShowMessage('невозможно закрыть порт!');
      close()
    end;
  end;
  T := T + tmr.Interval;
end;

Посмотрите плиз, если не сложно

Добавлено спустя 4 минуты 12 секунд:
Поправил, а то вместо коментов были иероглифы

Добавлено спустя 21 минуту 47 секунд:
Строка:

Код: Выделить всё • Развернуть

 s := 'S40 0D ';

может нужно заменить "OD" на "11"
и далее по программе тоже
???

Добавлено спустя 1 минуту 55 секунд:
как определить регистр порта через который сервы управляются?

через инструкцию

Добавлено спустя 25 секунд:
или более долгодействующее - через интроспектор

поменял в программе регистр на 11, лучше не стало

Добавлено спустя 1 час 36 минут 56 секунд:
Поигрался с гипертерминалом, разобрался что такое драйвер интроспекции, разобрался где какие регистры. Попробовал парочку программ, представленных на этом форуме - понравилось. Вывод, срочно нужен терминал

pashteet писал(а):по твоему я без дела сижу?

Я говорю что я на данный момент без дела сижу

Посчитал фару из 4-х светодиодов:
Питание - 6В, внешнее
Ток потребления - 4*25 = 100мА
Подбираем транзистор, подходит КТ3102А:
Ток коллектора Ik=100мА, коэф. усиления h21=100-200 (берем 200, с запасом)
Считаем ток базы:
Ib=Ik/h21=100/200=0,5мА
Подбираем сопротивление в базу транзистора:
Rx=Uk/Ib=3.3/0.5=6,6КОм (т.к. ток считали в мА)
где Uk=3.3В - напряжение на выводе GPIO
сопротивление взял с небольшим запасом - 6.8КОм
вот схемка принципиальная:

А вот что получилось на макетке:


Проверил от батарейки - работает

Сегодня померли два аккума..... Новые, полностью заряженные..... Подключил параллельно (емкость одинаковая, напряжение одинаковое), за сутки разрядились почти в 0
Вывод, не оставляйте аккумы параллельно включенными , иначе они разрядятся от перетоков