А что у вас возращает остаток от деления? У меня - чепуху.

number1 33
number2 15
MOD:
3
DIV:
2

Решил посмотреть на баском, у меня 2081.
Результат
number1 1234
number2 4321
MOD:
1234
DIV:
0

По идее 1234/4321 = 0,2855820411942

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

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

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

Dim L1 As Integer , L2 As Integer , L3 As Integer - переменные целочисленные, без дробей.
Хотите с дробями, надо тип Single.
Dim L1 As Single, … и т.д.

Выбираем схему BMS для заряда литий-железофосфатных (LiFePO4) аккумуляторов

Обязательным условием долгой и стабильной работы Li-FePO4-аккумуляторов, в том числе и производства EVE Energy, является применение специализированных BMS-микросхем. Литий-железофосфатные АКБ отличаются такими характеристиками, как высокая многократность циклов заряда-разряда, безопасность, возможность быстрой зарядки, устойчивость к буферному режиму работы и приемлемая стоимость. Но для этих АКБ очень важен контроль процесса заряда и разряда для избегания воздействия внешнего зарядного напряжения после достижения 100% заряда. Инженеры КОМПЭЛ подготовили список таких решений от разных производителей.

Подробнее>>

Но в хелпе вроде указано что может.

number1 123456789
number2 987654321
MOD:
123456789
DIV:
0

Это результат для кода


В общем, косяк. Надо писать свою функцию MyMOD. Получается, компилятор не покрыт даже базовым математическим тестом.

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

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

Подробнее>>

А что Вам не нравится? Остаток числа 123456789 при делении на 987654321 равен, как ни странно, 123456789.
https://ru.wikipedia.org/wiki/Деление_с_остатком

Вы правы, я недопонимал операцию MOD.

MOD-это остаток от деления,например 7/3=2 и остаток=1,то есть 7 MOD 3=1

Здравствуйте, как выйти из цикла? А именно:

Цикл
Do
Что то считаем, скажем wait 600 (10минут)
Loop

Как выйти из цикла нажатием кнопки не дожидаясь завершения отсчета 10 минут?

Do
Что то считаем, скажем wait 600 (10минут)
Loop until кнопка=0

Выход из такого цикла превращается в увлекательную игру.

Насколько точная задержка нужна?

Добавлено after 6 minutes 13 seconds:
Dim Т As word

...
t = 0
do
incr t
waitms 100
loop until t = 6000 or кнопка нажата

Ну как то так.

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

устройства. Для упрощения схемы выходная часть заменена на светодиод. Алгоритм работы

такой:
Исходное состояние - тумблер выключен, под герконом - магнит.
1. Включаем тумблер - светик должен гореть независимо от расположения магнита и геркона.
2. Выключаем тумблер - светик должен погаснуть при поднесении магнита к геркону.

Вроде элементарная задачка, но у меня светик не горит, а мигает. Никак не могу понять,

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

Может светодиод мигающий?и надо так
Config Portb.3 = Input
Config Portb.4 = Input
остальное верно вроде

Нет, светодиод обычный, только что проверил.
И, насколько я знаю, на входе - Pin, а Port - на выходе. По крайней мере, я всегда так делал.

В протеусе нормально.
$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 10
$swstack = 10
$framesize = 30

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
If Pusk = 1 Then
If Gerkon = 0 Then Reset Rele
End If

Loop
Давай фузы посмотрим.

Добавил скриншот фьюзов. Все - по умолчанию.

Добавлено after 8 minutes 31 second:
Проверил еще раз - светик мигает с частотой примерно 5 Гц

Внешняя подтяжка входов есть?

Внешняя подтяжка - сопротивления по 10к

Собрал в железе - все работает как положено, ничего не мигает. Попробуйте поменять порт, может в МК проблемы.