Попробуйте записать и запустить нижеследующую программу
Или просто внедрить её в Ваш код.

Похоже, дело в МК. Попробовал делать выход на порты PB.0 b PB.1 - вообще нет реакции светодиода. А т.к. другого МК под рукой не оказалось, то придется подождать 2-3- дня, пока съезжу в магазин. Главное, что, как все говорят, в коде ошибок нет, значит должен работать.

В свете открывшихся с выходом версии 2.0.8.1 перспектив(последний пост страницы 285), а так же в связи с приближающимися новогодними праздниками, предлагаю перевод справки по использованию RAINBOW. Может кому и поможет.

PCBWay - всего $5 за 10 печатных плат, первый заказ для новых клиентов БЕСПЛАТЕН

Сборка печатных плат от $30 + БЕСПЛАТНАЯ доставка по всему миру + трафарет

Онлайн просмотровщик Gerber-файлов от PCBWay + Услуги 3D печати

Похоже, среда игнорирует баг с End If

Config Pinb.3 = Input
Config Pinb.4 = Input
Config Portb.2 = Output

Gerkon Alias Pinb.3
Pusk Alias Pinb.4
Rele Alias Portb.2

Do
If Pusk = 0 Then : Set Rele : End If
If Pusk = 1 Then
If Gerkon = 0 Then : Reset Rele : End If
End If
Loop

----------
Почему то не хочет по некоторым именам к битам регистров обращаться.
$regfile = "m32def.dat"
$crystal = 8000000
$hwstack = 80
$swstack = 95
$framesize = 100

Tccr1a.com1a1 = 1
Tccr1a.com1b1 = 1
Tccr1a.com1a0 = 1
Tccr1a.com1b0 = 1
Tccr1b.ctc1 = 1
Tccr1a.pwm11 = 0
Tccr1a.pwm10 = 1
Tccr1b.wgm13=0 'не жрёт

Организация питания на основе надежных литиевых аккумуляторов EVE и микросхем азиатского производства

Качественное и безопасное устройство, работающее от аккумулятора, должно учитывать его физические и химические свойства, профили заряда и разряда, их изменение во времени и под влиянием различных условий, таких как температура и ток нагрузки. Мы расскажем о литий-ионных аккумуляторных батареях EVE и нескольких решениях от различных китайских компаний, рекомендуемых для разработок приложений с использованием этих АКБ. Представленные в статье китайские аналоги помогут заменить продукцию западных брендов с оптимизацией цены без потери качества.

Подробнее>>

Это не баг. Допускается как

If a > b then c = 0

так и

if a > b then
c = 0
end if

То есть одиночный оператор после if может не заканчиваться end if, если написан в одну строку.

Новый аккумулятор EVE серии PLM для GSM-трекеров, работающих в жёстких условиях (до -40°С)

Компания EVE выпустила новый аккумулятор серии PLM, сочетающий в себе высокую безопасность, длительный срок службы, широкий температурный диапазон и высокую токоотдачу даже при отрицательной температуре. Эти аккумуляторы поддерживают заряд при температуре от -40/-20°С (сниженным значением тока), безопасны (не воспламеняются и не взрываются) при механическом повреждении (протыкание и сдавливание), устойчивы к вибрации. Они могут применяться как для автотранспорта (трекеры, маячки, сигнализация), так и для промышленных устройств мониторинга, IoT-устройств.

Подробнее>>

Спасибо. Работает такая запись. Но у меня однажды была ошибка, при которой несанкционированно выполнялся кусок кода до ближайшего end if, а если его заремарить, то устройство буквально сходило с ума, выполнялись совершенно произвольные куски кода, при этом работали прерывания и динамическая индикация. Компилятор никаких ошибок не выдавал.
По поводу timer1. Если посмотреть файл m32def.dat, то там четвертый бит регистра TCCR1B назван не WGM13, а CTC11. Запись Tccr1b.CTC11 = 0 - корректна.

Итоги моих опытов. Купил новый МК, взял другой программатор, вместо монтажной платы собрал схему на картонке с помощью пайки. Результат - ноль. Проверил в Протеусе - все работает, как и замышлялось. В железе пока не хочет. Последний подход к инструменту - спаял схему на печ.плате с использованием МК в корпусе SO-8. Схема вроде подала признаки жизни, но ведет себя непонятно как. Но разбираться с ней уже нет времени, т.к. убываю на месяц в командировку. Так что придется пока отложить её до лучших времен.Но эта схемка мне нужна, так что потом буду её добивать.

Может у Вас просто контакт в тумблере пропадает? Тогда условие
If Pusk = 0 Then Set Rele
не выполняется, и светодиод тухнет.

rojnov, я лично пробовал Ваш код в железе. Все работает как положено, могу видео записать. Попробуйте сменить версию ПО. Я давно не кодю в Баскоме, потому компилировал в старенькой 1.11.9.8.

Привет всем)
Есть контроллер atmega8
В баскоме прописываю тактовую частоту 4000000
Во фьюзах выставлена тактовая частота 4 мГц с задержкой 64

Пишу команду wait 1
Но задержка больше чем секунда - это видно даже по банальному включению светодиода.
В чем может быть проблема?
Спасибо

Доброго времени.

Внутренний генератор конечно штука не точная, а задержки типа wait еще хуже, но больше - это сколько? В два раза? В десять? Можно скрин фьюзов? И код.

$regfile = "m8def.dat"
$crystal = 4000000
$framesize = 128
$hwstack = 40
$swstack = 40
Config Portb.1 = Output

Portb.1 = 0
Do
wait 1
Portb.1 = 1
Wait 1
Portb.1 = 0
Loop
End

Где жуткие уходы от 1 секунды?
Без кода и фузов сюдой не лезь.

А фузы только выставлены, или еще и записаны в МК? Или может там вместо 4 стоит 2 или вовсе 1 МГц.

CKDIV8. При включенном бите , тактовая частота делится на 8.

Microtech, Конкретно в 8-й Меге этого фьюза нет.

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

Приветствую всех и с наступающим Н.Г.
Маленький вопрос. Подключаю ЖК-индикатор 2*16, стандартный. Делаю конфигурацию по образцу:
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0
Config Lcd = 16 * 2
Вопрос: надо ли отдельно конфигурировать эти же порты на выход, типа "Config Portd.3 = Output" или

достаточно сконфигурировать только ЖКИ?

Вполне достаточно!

Спасибо!

Всех с 2019! Тут собственно возник вопрос как работает рандом в AVR и bascom? Что он он совсем не рандомный это я знаю но вот на сколько он не рандомный относительно других мк?
Мне нужен рандом для составления списка устройств автоматической/прозрачной адресации. Разные устройства находятся на разных системах на 2.4ГГ, на 430, и даже ИК. Что бы всем не пытаться связаться с устройством которого нет сам трансивер составляет список и услышав ИД из списка связывается и устройством. Трансивер запрашивает идентификатор и устройства его передают, но вот тут в дело вступает рандом, передача идет через случайной промежуток времени рассчитывая на то что пакет от какого то устройства пройдёт этим устройствам скажет молчать и снова запросит ИД и так пока все не замолчат если все будут рандомить по одинаковому то не чего не пройдёт. То есть в одно время получат запрос и можно сделать при таком глупом рандоме что бы все девайсы генерили разное время передачи?
Вообще это фундаментальная проблема составления списка как запросить ИД у устройств и что бы они не мешали друг другу. То есть трансивер сам сам составляет список устройств и сервер не говорит трансиверу какие адреса работают через него и не обращается к устройству через какой то трнансивер, это и есть автоматический режим.