BASCOM AVR в вопросах и ответах

[aleksandr-zh]

в "обычных" - анод и катод перепутаны.
В RGB - Цвета отличаются.

[rojnov]

Насчет простой программки для проверки - я уже как-то делал такое. Завтра сделаю еще раз, отпишусь.

[rojnov]

Добрый вечер. Вчера я писал насчет дохлых ATtiny2313 в корпусе SO20. Сегодня проверил их еще раз. Сначала залил в новый МК прошивку проверки портов - каждый порт на 0,5 сек зажигает светодиод. В архиве видеофайл, чтобы было понятнее. Затем то же самое проделал с дохлыми МК. Всего их 7 штук. В архиве фотка одного из них. Вот что получилось в итоге:
1. Горят все, кроме одного (фото).
2. Горят все не мигая.
3. Горят 7 диодов, остальные еле светятся.
4. Горят 6 диодов, не мигая.
5. Ярко горят 4 диода, остальные еле светятся.
6. Ярко горят 4 диода. остальные еле светятся.
7. Почти все диоды горят ярко.
Что интересно, обычно после прошивки, пока программатор еще в порту USB, программа сразу начинает работать, получая питание от порта. А в данном случае диоды загорались только при подключении внешнего питания.
Вот такая история. Вопрос прежний - поддаются ли такие МК оживлению. И почему во время программирования все читается, удаляется, записывается, но в итоге ничего не работает.
К сожалению, видяшка не влазит по объёму, поэтому прицепляю только фото. Не охота возиться с переконвертированием из за ерунды.

[veso74]

А чем LED управляете? Полным кодом и hex.

[rojnov]

В МК заливаю hex.

Добавлено after 2 minutes 7 seconds:
Добавил код в Баскоме.

Добавлено after 2 minutes 39 seconds:
Что-то не добавилось. Пробую архивом.

[veso74]

С ваш hex в Proteus мигает только PD4 (pin_8). Остальные пины: либо LOW, либо HIGH.

Быстро написал тест все пинах. Arduino -> ATTinyCore, hex ниже:

[Novice user]

Что за камень такой-$regfile = "2313def.dat",если для аттини2313 $Regfile="attiny2313a.dat"

[rojnov]

Привет. Ужал видео до невозможности, чтобы вошло по объёму. На видео снял, как работает проверка портов на новом ATtiny2313. Этим же кодом проверял все свои дохлые МК. Код я выложил вчера.
Не могу добавить видео работы исправного МК. Не знаю, какой формат видео разрешен.

[Novice user]

С вашим кодом выше и в протеусе ничего не мигает,и не будет работать-ваша прошивка для AT90s2313,а вот если поставить для аттини2313 ($Regfile="attiny2313a.dat") то в протеусе все работает замечательно

[rojnov]

Эту тему пока откладываю до лучших времен, т.е. до того времени, пока не придут новые контроллеры. И их уже потом буду проверять тем же способом.

[сокол]

Всем доброго дня! Есть исходник Кто разбирается BASKOM помогите пожалуйста поменять пороги. 1этап подача тока 50 сек или до достижение до 14,4 2 этап подача тока 10 сек или до достижение до 14,7
Надо так:первый этап подача тока 1 мин или до достижение 14,6в. 2этап подача тока 30 сек или до достижение до 15,3в Исходник в архиве. Нужен НЕХ файл.

[aleksandr-zh]

написана под старую версию
в новой надо немного причесать выход из циклов


Добавлено after 5 minutes 8 seconds:
Кстати! кто применяет Баском - не качайте с пираток новые версии (новые, скорее всего, выше 2083): Автор встроил какую-то гадость русским
Проверка не то по IP, не то по наличию русской раскладки в Винде!
Плюс проверка по сети модификации файлов и если что не так- какие-то кары
Цитирую автора - Марка: "Они это обнаружат, но будет поздно"

Хочу попросить знакомых проверить активность новых версий в попытках вылезти в сеть или модифицировать файлы.

тут еще сказали, что в другом софте такие же бяки:
"Не только Марк, но и разработчик EmBitz (IDE для STM32) тоже винит во всем Россию. Доступ к сайту закрыл для наших IP. В среде программирования проверяет язык системы и если русский, добавляет ошибки в код! На форуме кота это осуждалось.
Если не ошибаюсь он из Нидерландов как и Марк"

Знаю, так как с 2010 года лицензия Баскома, иногда лично переписывались с автором, пока ему окончательно не промыло мозги их пропагандой
Написал какой-то бред на главной странице, если коротко: "вы русский и уже из-за этого во всём в мире виноваты", потом что-то про бомбы Путина у него дома...
Ныне я забанен у него на форуме и удалён.

[uquote="AVI-crak",url="/forum/viewtopic.php?p=4368349#p4368349"]Спасибо за прокси.
2.5 запустился в виртуалке, теперь новая фишка - порча файлов проекта, причём максимально подло. Эта зараза находит два одинаковых типа переменных, и меняет их местами. Закрыл проект - рандомно получил головную боль.
1.11 по прежнему остаётся стабильной версией, это когда у автора ещё флягу не сорвало.[/uquote]

Добавлено after 56 minutes 46 seconds:
[uquote="сокол",url="/forum/viewtopic.php?p=4553322#p4553322"]Надо так:.[/uquote]
ваше задание не совпадает с кодом
Оно работает не так, как вы описали выше.

[koms48]

Лично у меня WAIT переменная не канает. Только WAIT константа (0,1,2 и далее)

[Microtech]

Проверил Wait и Waitms переменной. Работает. Когда объявил переменную single или double, компилятор дал ошибку. integer съел. Снёс недавно появившийся Bascom 2086, оставил 2083. Судя по описанию, там ничего нового и интересного мне не добавили.

[aleksandr-zh]

[uquote="сокол",url="/forum/viewtopic.php?p=4553322#p4553322"]Всем доброго дня![/uquote]
Как я вами связаться? дайте точный алгоритм.
просто то, что Вы писали, не совпадает с кодом.

Ребята, расписал код, убрал "магические цифры"

Код: Выделить всё

$regfile = "attiny13.dat"               ' BASCOM 2.0.8.6
$crystal = 9600000

$hwstack = 8
$swstack = 8
$framesize = 8

Out_1 Alias Portb.0 : Config Out_1 = Output
Out_2 Alias Portb.1 : Config Out_2 = Output
Out_3 Alias Portb.4 : Config Out_3 = Output

Config Pinb.3 = Input : Vhod Alias Pinb.3

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc

Dim U , Ubotton As Word
Dim Utop1 , Utop2 As Word


Dim Index , Cntr As Word
Dim Pauza_tmp2 , Pauza_t As Byte

Const Vr_10sec = 333                    ' * 30 ms  Задержка 10 сек
Const Vr_40sec = 1333                   ' * 30 ms  Задержка 40 сек

Pauza_t = 15                            ' mS
Pauza_tmp2 = 10                         ' Sec

Utop1 = 722                             ' 14.4   '1000 квантов = 19,947 подмаргивает/при 19,960 горит
Utop2 = 711                             ' 14.2
Ubotton = 591                           ' 11.8

Cntr = Vr_40sec


Do

  If Vhod = 0 Then                      ' В зависимости от состояния Входа выполняется разный этап.
    For Index = 0 To Vr_10sec
      Out_1 = 1
      Waitms Pauza_t
      If Getadc(1) > Utop2 Or Vhod = 1 Then Exit For
      Out_1 = 0
      Waitms Pauza_t
    Next

    Wait 5

    For Index = 0 To Vr_10sec
      Out_2 = 1
      Waitms Pauza_t
      If Getadc(1) < Ubotton Or Vhod = 1 Then Exit For
      Out_2 = 0
      Waitms Pauza_t
    Next

    Wait 5

  Else

    For Index = 0 To Cntr
      Out_1 = 1
      Waitms Pauza_t
      If Getadc(1) > Utop1 Or Vhod = 0 Then
        If Index < 10 And Utop1 = 737 Then Out_3 = 1
        Cntr = Vr_10sec
        Index = Vr_10sec
        Utop1 = 737
        Pauza_tmp2 = 5
      End If
      Out_1 = 0
      Waitms Pauza_t
    Next

    Wait Pauza_tmp2
  End If

Loop

[сокол]

Напишите мне ЛС я вам дам почту

[aleksandr-zh]

[uquote="koms48",url="/forum/viewtopic.php?p=4553651#p4553651"]Лично у меня WAIT переменная не канает. Только WAIT константа (0,1,2 и далее)[/uquote]
причина в очень старой версии компилятора, давно добавлено (говорю, как пользующийся Баскомом больше 15 лет)

Добавлено after 1 minute 44 seconds:
[uquote="Microtech",url="/forum/viewtopic.php?p=4553792#p4553792"]Снёс недавно появившийся Bascom 2086, оставил 2083. Судя по описанию, там ничего нового и интересного мне не добавили.[/uquote]
Автор сделал упор на MegaAVR и иже с ними.
Из приятных плюшек: добавил по моей просьбе форматирование текста нажатием "горячих кнопок" и по мелочи поправлен перевод на русский (я делал когда-то)

[forter]

aleksandr-zh!
При всех трудностях лицензирования Баском, у Вас все-таки последняя его версия, судя по приложенному Вами листингу!
И как, код не портится?

[aleksandr-zh]

не могу проверить
вроде всё работает. Но, повторюсь: у меня оф. лицензия уже 15й год
Я попросил в теме Em::blocks IDE (EmBitz) спецов посмотреть код.
Знаю, что компилятор написан на Дельфи (вроде так говорил Марк).

[vem566]

Коты! Кто нибудь подключал цветной TFT дисплей 320*480 на чмпе ILI9488? Или на ILI9341. Они вроде почти одинаковы по командам. Инициализация и вывод одиночного пикселя. Нигде не могу найти описания последовательности команд. Нашел описание на китайском. Но чет я не силен в нем. В английском даташите нашел просто перечисление команд.