Например TDA7294

Форум РадиоКот • Просмотр темы - BASCOM AVR в вопросах и ответах
Форум РадиоКот
Здесь можно немножко помяукать :)



Текущее время: Ср апр 24, 2019 03:08:48

Часовой пояс: UTC + 3 часа [ Летнее время ]


ПРЯМО СЕЙЧАС:



Начать новую тему Ответить на тему  [ Сообщений: 5796 ]     ... , , , 286, , , ,  
Автор Сообщение
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Сб окт 27, 2018 11:10:43 
Родился

Зарегистрирован: Пт окт 27, 2017 20:11:18
Сообщений: 9
Рейтинг сообщения: 0
А что у вас возращает остаток от деления? У меня - чепуху.

Код:
$regfile = "m48def.dat"
$sim

Dim L1 As Integer , L2 As Integer , L3 As Integer

Input "number1 " , L1
Input "number2 " , L2

Print "MOD: "
L3 = L1 Mod L2 : Print L3
Print "DIV: "
L3 = L1 / L2 : Print L3
End


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Вс окт 28, 2018 09:36:26 
Родился

Зарегистрирован: Ср ноя 04, 2009 13:49:25
Сообщений: 12
Откуда: Урал
Рейтинг сообщения: 0
number1 33
number2 15
MOD:
3
DIV:
2


Вернуться наверх
 
JLCPCB, всего $2 за 10 ПП любого цвета!

Более 600 000 заказчиков по всему миру! Более 10 000 заказов в день!

Скидка до $20 на доставку для первого заказа:https://jlcpcb.com/quote

Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Вс окт 28, 2018 10:06:26 
Родился

Зарегистрирован: Пт окт 27, 2017 20:11:18
Сообщений: 9
Рейтинг сообщения: 0
Решил посмотреть на баском, у меня 2081.
Результат
number1 1234
number2 4321
MOD:
1234
DIV:
0

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


Последний раз редактировалось Цобачкин Вс окт 28, 2018 12:03:16, всего редактировалось 1 раз.

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

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

Онлайн просмотровщик Gerber-файлов от PCBWay
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Вс окт 28, 2018 12:00:54 
Родился

Зарегистрирован: Ср ноя 04, 2009 13:49:25
Сообщений: 12
Откуда: Урал
Рейтинг сообщения: 0
Dim L1 As Integer , L2 As Integer , L3 As Integer - переменные целочисленные, без дробей.
Хотите с дробями, надо тип Single.
Dim L1 As Single, … и т.д.


Вернуться наверх
 
Впервые на русском языке! «Поваренная книга разработчика аналоговых схем: Операционные усилители»

Практическое руководство «Разработчика аналоговой электроники по операционным усилителям», созданной инженерами компании Texas Instruments. Содержит схемы, примеры типовых расчетов с указанием формул и последовательности действий. Результаты расчетов дополнительно проверяются в программе SPICE-моделирования.
Подробнее>>
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Вс окт 28, 2018 12:13:40 
Родился

Зарегистрирован: Пт окт 27, 2017 20:11:18
Сообщений: 9
Рейтинг сообщения: 0
Но в хелпе вроде указано что может.

number1 123456789
number2 987654321
MOD:
123456789
DIV:
0

Это результат для кода
Код:
$regfile = "m48def.dat"
$sim

Dim L1 As Long , L2 As Long , L3 As Long

Input "number1 " , L1
Input "number2 " , L2

Print "MOD: "
L3 = L1 Mod L2 : Print L3
Print "DIV: "
L3 = L1 / L2 : Print L3

End


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


Вернуться наверх
 
Впервые на русском языке! Работаем с микроконтроллерами STM32F7(на основе STM32F7 Online Training)

Цикл материалов на основе STM32F7 Online Training от компании STMicroelectronics.
Описаны функциональные блоки и инструменты разработки для семейства микроконтроллеров STM32F7, охватывающие тематику системной периферии, памяти, безопасности, аналоговой периферии, цифровой периферии, таймеров, экосистемы.
Подробнее...
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Вс окт 28, 2018 12:15:23 
Собутыльник Кота
Аватар пользователя

Карма: 65
Рейтинг сообщений: 1038
Зарегистрирован: Пн май 11, 2009 15:15:00
Сообщений: 2888
Откуда: СПб
Рейтинг сообщения: 0
Медали: 1
Мявтор 3-й степени (1)
А что Вам не нравится? Остаток числа 123456789 при делении на 987654321 равен, как ни странно, 123456789.
https://ru.wikipedia.org/wiki/Деление_с_остатком

_________________
Этот пост оказался полезен? Не поленись, нажми Изображение слева!
:) :)) :)))
Куплю индикаторы ИТС-1А, ИТС-1Б, ИГВ1-8х5Л, ИГПС1-222/7 и подобные.


Вернуться наверх
 


Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Вс окт 28, 2018 12:35:06 
Родился

Зарегистрирован: Пт окт 27, 2017 20:11:18
Сообщений: 9
Рейтинг сообщения: 0
Вы правы, я недопонимал операцию MOD.


Вернуться наверх
 


Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Вс окт 28, 2018 16:58:21 
Вымогатель припоя

Карма: 14
Рейтинг сообщений: 79
Зарегистрирован: Вт янв 05, 2016 11:14:25
Сообщений: 639
Откуда: Мелеуз
Рейтинг сообщения: 0
MOD-это остаток от деления,например 7/3=2 и остаток=1,то есть 7 MOD 3=1


Вернуться наверх
 
Prist.ru- удобный сайт для поиска, сравнения и покупки радиоизмерительных и электроизмерительных приборов, таких как: осциллограф, анализатор спектра, генератор сигналов, частотомер, мультиметр, лабораторный источник питания и др. На сайте есть актуальная информация о ценах и наличии приборов на складе.

Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Пт ноя 02, 2018 22:02:20 
Открыл глаза
Аватар пользователя

Зарегистрирован: Пн мар 12, 2012 00:06:08
Сообщений: 50
Откуда: Казань
Рейтинг сообщения: 0
Здравствуйте, как выйти из цикла? А именно:

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

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


Вернуться наверх
 


Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Пт ноя 02, 2018 22:14:34 
Вымогатель припоя

Карма: 14
Рейтинг сообщений: 79
Зарегистрирован: Вт янв 05, 2016 11:14:25
Сообщений: 639
Откуда: Мелеуз
Рейтинг сообщения: 0
Do
Что то считаем, скажем wait 600 (10минут)
Loop until кнопка=0


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Сб ноя 03, 2018 07:43:47 
Поставщик валерьянки для Кота
Аватар пользователя

Карма: 37
Рейтинг сообщений: 278
Зарегистрирован: Вт апр 21, 2009 23:24:10
Сообщений: 1998
Откуда: Иркутск
Рейтинг сообщения: 0
Медали: 1
Получил миской по аватаре (1)
Выход из такого цикла превращается в увлекательную игру. :tea:

_________________
"Слишком много людей ломаются, даже не подозревая о том, насколько близки к успеху они были в тот момент, когда упали духом". Томас Алва Эдисон


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Сб ноя 03, 2018 10:02:40 
Родился

Зарегистрирован: Ср ноя 04, 2009 13:49:25
Сообщений: 12
Откуда: Урал
Рейтинг сообщения: 0
Насколько точная задержка нужна?

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

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

Ну как то так.


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Сб ноя 24, 2018 21:28:34 
Встал на лапы

Зарегистрирован: Вс мар 27, 2011 08:48:48
Сообщений: 81
Откуда: г. Екатеринбург
Рейтинг сообщения: 0
Приветствую всех. Прошу помочь победить маленький кусочек кода, нужный для работы одного

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

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

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

как это дело исправить. Подскажите, буду очень благодарен.
Код маленький, поэтому вставлю его прямо в текст
Код:
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


Вложения:
Схема.jpg [29.57 KiB]
Скачиваний: 88
Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Сб ноя 24, 2018 22:05:29 
Вымогатель припоя

Карма: 14
Рейтинг сообщений: 79
Зарегистрирован: Вт янв 05, 2016 11:14:25
Сообщений: 639
Откуда: Мелеуз
Рейтинг сообщения: 0
Может светодиод мигающий?и надо так
Config Portb.3 = Input
Config Portb.4 = Input
остальное верно вроде


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Сб ноя 24, 2018 22:40:08 
Встал на лапы

Зарегистрирован: Вс мар 27, 2011 08:48:48
Сообщений: 81
Откуда: г. Екатеринбург
Рейтинг сообщения: 0
Нет, светодиод обычный, только что проверил.
И, насколько я знаю, на входе - Pin, а Port - на выходе. По крайней мере, я всегда так делал.


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Вс ноя 25, 2018 03:26:33 
Встал на лапы

Карма: 1
Рейтинг сообщений: 11
Зарегистрирован: Пт окт 19, 2012 06:54:55
Сообщений: 100
Рейтинг сообщения: 0
В протеусе нормально.
$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
Давай фузы посмотрим.


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Вс ноя 25, 2018 07:33:29 
Встал на лапы

Зарегистрирован: Вс мар 27, 2011 08:48:48
Сообщений: 81
Откуда: г. Екатеринбург
Рейтинг сообщения: 0
Добавил скриншот фьюзов. Все - по умолчанию.

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


Вложения:
Фьюзы.jpg [125.6 KiB]
Скачиваний: 78
Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Вс ноя 25, 2018 08:06:30 
Поставщик валерьянки для Кота
Аватар пользователя

Карма: 37
Рейтинг сообщений: 278
Зарегистрирован: Вт апр 21, 2009 23:24:10
Сообщений: 1998
Откуда: Иркутск
Рейтинг сообщения: 0
Медали: 1
Получил миской по аватаре (1)
Внешняя подтяжка входов есть?

_________________
"Слишком много людей ломаются, даже не подозревая о том, насколько близки к успеху они были в тот момент, когда упали духом". Томас Алва Эдисон


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Вс ноя 25, 2018 08:14:07 
Встал на лапы

Зарегистрирован: Вс мар 27, 2011 08:48:48
Сообщений: 81
Откуда: г. Екатеринбург
Рейтинг сообщения: 0
Внешняя подтяжка - сопротивления по 10к


Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Вс ноя 25, 2018 08:27:26 
Поставщик валерьянки для Кота
Аватар пользователя

Карма: 37
Рейтинг сообщений: 278
Зарегистрирован: Вт апр 21, 2009 23:24:10
Сообщений: 1998
Откуда: Иркутск
Рейтинг сообщения: 0
Медали: 1
Получил миской по аватаре (1)
Собрал в железе - все работает как положено, ничего не мигает. :solder: Попробуйте поменять порт, может в МК проблемы.

_________________
"Слишком много людей ломаются, даже не подозревая о том, насколько близки к успеху они были в тот момент, когда упали духом". Томас Алва Эдисон


Вернуться наверх
 
Показать сообщения за:  Сортировать по:  Вернуться наверх
Начать новую тему Ответить на тему  [ Сообщений: 5796 ]     ... , , , 286, , , ,  

Часовой пояс: UTC + 3 часа [ Летнее время ]


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 7


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB
Extended by Karma MOD © 2007—2012 m157y
Extended by Topic Tags MOD © 2012 m157y