Например TDA7294

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



Текущее время: Вс янв 20, 2019 14:13:04



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


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



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

Зарегистрирован: Пт окт 27, 2017 20:11:18
Сообщений: 12
Рейтинг сообщения: 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
Сообщений: 10
Откуда: Урал
Рейтинг сообщения: 0
number1 33
number2 15
MOD:
3
DIV:
2


Вернуться наверх
 
JLCPCB, 10 прототипов ПП всего за $2 и 2 дня доставка!

Крупнейший производитель печатных плат в Китае, 300,000+ заказчиков, 10,000+ он-лайн заказов в день.

Рассчитайте цену онлайн:https://jlcpcb.com/quote

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

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

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


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

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

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

Второй конкурс по дизайну печатных плат от PCBWay!
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Вс окт 28, 2018 12:00:54 
Родился

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


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


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

Зарегистрирован: Пт окт 27, 2017 20:11:18
Сообщений: 12
Рейтинг сообщения: 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. Получается, компилятор не покрыт даже базовым математическим тестом.


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

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

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

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


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


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

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


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


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

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


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

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

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

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


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

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


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

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

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


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

Зарегистрирован: Ср ноя 04, 2009 13:49:25
Сообщений: 10
Откуда: Урал
Рейтинг сообщения: 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]
Скачиваний: 60
Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Сб ноя 24, 2018 22:05:29 
Вымогатель припоя

Карма: 14
Зарегистрирован: Вт янв 05, 2016 11:14:25
Сообщений: 584
Откуда: Мелеуз
Рейтинг сообщения: 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 
Встал на лапы

Карма: 2
Зарегистрирован: Пт окт 19, 2012 06:54:55
Сообщений: 97
Рейтинг сообщения: 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]
Скачиваний: 44
Вернуться наверх
 
Не в сети
 Заголовок сообщения: Re: BASCOM AVR в вопросах и ответах
СообщениеДобавлено: Вс ноя 25, 2018 08:06:30 
Поставщик валерьянки для Кота
Аватар пользователя

Карма: 38
Зарегистрирован: Вт апр 21, 2009 23:24:10
Сообщений: 1994
Откуда: Иркутск
Рейтинг сообщения: 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 
Поставщик валерьянки для Кота
Аватар пользователя

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

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


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



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


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

Сейчас этот форум просматривают: Core-X и гости: 9


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

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


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