Перейти к содержанию

Рекомендуемые сообщения

Реклама: ООО ТД Промэлектроника, ИНН: 6659197470, Тел: 8 (800) 1000-321

20% скидка на весь каталог электронных компонентов в ТМ Электроникс!

Акция "Лето ближе - цены ниже", успей сделать выгодные покупки!

Плюс весь апрель действует скидка 10% по промокоду APREL24 + 15% кэшбэк и бесплатная доставка!

Перейти на страницу акции

Реклама: ООО ТМ ЭЛЕКТРОНИКС, ИНН: 7806548420, info@tmelectronics.ru, +7(812)4094849

Да не вопрос. Только я думаю надо ветку отдельную создать. Завтра, ну т.е уже сегодня :) залью всю инфу, программы на какой-нибудь файлообменник, создам тему и выложу ссылки. Жди.

Будьте проще и люди к вам потянутся.

Ссылка на комментарий
Поделиться на другие сайты

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

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

Реклама: АО КОМПЭЛ, ИНН: 7713005406, ОГРН: 1027700032161

  • 2 месяца спустя...

Доброй ночи всем.

На изучение ассемблера не хватает свободного времени, забросил давно. Осваиваю теперь потихоньку PicBasic :)

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

Вот уже некоторое время ломаю голову над следующей поставленной задачей, не получается :( Решил обратиться за помощью к Вам.

Нужно измерить длительность положительного имульса в интервале 10...1000мс, как это реализовать на этом языке?

Pulsin работает как то криво. После "переполнения" назначенной ей переменной, даже если импульс не появился, программа выполняется дальше, и в это время на поступление импульса никак не реагирует. Как убрать это "мертвое время"? И еще, выходит, что при кварце на 4мГц, максимальное время измерения ограничено 0,65сек (65535 максимальное значение переменной) Как это обойти программно?

Ссылка на комментарий
Поделиться на другие сайты

...И еще, выходит, что при кварце на 4мГц, максимальное время измерения ограничено 0,65сек (65535 максимальное значение переменной) Как это обойти программно?

1. Поскольку для счета используется скорее всего TMR0, а он - 8битный (т.е. дает значение только 0...255), то в программу уже введена какая-то переменная для второго байта. Значит, разбираться в коде и аналогично вводить переменные для 3-го, 4-го и т.д. байтов...

2. Можно выставить другой предделитель для TMR0. Правда, точность ухудшится.

3. Просто использовать кварц на меньшую частоту. Значение переменной останется то же (65535), но замедлится выполнение программы, а время измерения, наоборот, увеличится пропорционально снижению частоты.

Но как это делается в вашем басике, я не знаю. На асме это занимает от двух до 5 строчек кода.

Изменено пользователем AlenB
Ссылка на комментарий
Поделиться на другие сайты

Поскольку для счета используется скорее всего TMR0, а он - 8битный (т.е. дает значение только 0...255), то в программу уже введена какая-то переменная для второго байта. Значит, разбираться в коде и аналогично вводить переменные для 3-го, 4-го и т.д. байтов...

На асме я это дело представляю, а басик совсем голову поломал... Как то мешать два языка, в которых мало понимаю, не хочется.

Что же, на нем только мигалки светодиодные писать что ли :) должно решатся средствами самого басика. Ну это второстепенная задача, а вот как без проблем замерить одиночный импульс...

В PicBasicPro нравится что можно без заморочек выводить на лсд дисплей все что нужно, да и синтаксис простой и понятный

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

Ну это уже совсем крайние меры.

Изменено пользователем 25Watt
Ссылка на комментарий
Поделиться на другие сайты

На асме я это дело представляю
Ну и делайте тогда на АСМе, зачем делать на том, что Вы плохо знаете ?

А вообще, задача решается просто. Настраиваем таймер на 1 мс. и перезапускаем постоянно его. Т.е. делаем тики в 1 мс. и смотрим за состоянием входа. Добавляем 1 переменную размером 2 байта и когда на входе лог. 1, считаем ей кол-во тиков. Всё просто.

Ссылка на комментарий
Поделиться на другие сайты

Что же, на нем только мигалки светодиодные писать что ли

Да, именно так (и да простят меня модераторы)

Вот (http://www.barrymichels.com/ide/) человек делал контроллер для винта. После переписывания кода с басика на труЪ-асм быстродействие увеличилось в 40раз.

Ссылка на комментарий
Поделиться на другие сайты

Вот так это будет выглядеть на Си.

pulse.rarPIC16F628A. И тебе советую заменить 84-ый на него.

Думаю принцип понятен, перведёшь на своего Барсика :)

Ссылка на комментарий
Поделиться на другие сайты

Ну и делайте тогда на АСМе, зачем делать на том, что Вы плохо знаете ?

Ну ассемблер я тоже только поверхностно знаю. Уж больно много он времени отнимает...

А вообще, задача решается просто. Настраиваем таймер на 1 мс. и перезапускаем постоянно его. Т.е. делаем тики в 1 мс. и смотрим за состоянием входа. Добавляем 1 переменную размером 2 байта и когда на входе лог. 1, считаем ей кол-во тиков. Всё просто.

Кажется примерно алгоритм понял.

PIC16F628A. И тебе советую заменить 84-ый на него

Да я и сам понял давно. Но сейчас под рукой только 84й. 628х заказал, но что-то долго едут...

Думаю принцип понятен, перведёшь на своего Барсика

Спасибо конечно, но вот в Си я даже основ не знаю. Пол часа изучал ваш код, так и не понял ничего :)

Пошел дальше ломать моск...

Изменено пользователем 25Watt
Ссылка на комментарий
Поделиться на другие сайты

Вот как то так получается

time var word				  'определение переменных
portb.0 = 1					'PORTB0 как вход
lcdout $FE, 1, "test"		  'вывод на дисплей
pause 1000					 'пауза 1с
lcdout $FE, 1, "0"			 'вывод на дисплей
start:						 'метка
if portb.0 = 0 then start	  'если на входе лог. 0, то переход на метку
pause 1						'пауза 1 мс
time = time + 1				'инкремент переменной
if time > 1000 then goto error 'если больше 1000 то переход на метку
if portb.0 = 1 then start	  'если на входе лог. 1, то переход на метку
lcdout $FE, 1, #time		   'значение переменной на дисплей
error:						 'метка
time = 0					   'очищаем переменную
goto start					 'в начало

Точность низкая получается, но приемлемо для моих целей.

Теперь нужно измерить количество импульсов (до 10) и длительность каждого занести в память :)

Изменено пользователем 25Watt
Ссылка на комментарий
Поделиться на другие сайты

  • 1 месяц спустя...

Добрый день или вечер всем. Помогите с вопросом можно ли в пикбейсике перевести трехбайтное число в 10-чный формат (8 байт). Или как это сделать проще?

Ссылка на комментарий
Поделиться на другие сайты

Здравствуйте, у меня возникла проблема , при написании прошивки, команду

pause 500 программа признаёт синтаксической ошибкой, есть ли замена этой команде, работаю с программой picsimulatoride, скачивал PicBasicPro_2.43 вобще не запускается.

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

Ссылка на комментарий
Поделиться на другие сайты

   Найдите в сети прграмму PicBasik Plus она же (PBP_Editor), там все нормально реализовано, даже команды ASM воспринимает и компилятор рабочий . Справка вся расписана примерами. 

Изменено пользователем skrvad
Ссылка на комментарий
Поделиться на другие сайты

  • 7 месяцев спустя...

всем привет, может быть вопрос глупый, ноо...

Суть вопроса:

Есть переменная со значением, например:

a var byte

a=6

Как мне заставить эту ДЕСЯТИЧНУЮ шестёрку вывестись на порт В например. Тоесть не будет ли ошибкой если я напишу:

a var byte

a=6

portB = a

Или же надо как-то иначе?

Ссылка на комментарий
Поделиться на другие сайты

  • 2 месяца спустя...

Всем доброго времени суток, Расскажите, как пользоваться АЦП на Бэйсике?

Читал книгу Чака Хелибайка, он пишет что там нужно мерять напряжение с помощью "плечей" - 2-х резисторов - один постоянный другой переменный, в других местах видел где-то, что можно просто переменный резистор подцепить.

Как правильнее сделать? :ph34r:

Ссылка на комментарий
Поделиться на другие сайты

  • 3 недели спустя...

Как правильнее сделать? :ph34r:

По закону Ома будет правильнее. АЦП анализирует напряжение на входе. Как будете подавать, такие данные и получите в цифровом формате.

Слава антисионистам Владимиру Путину и Владимиру Квачкову!

Ссылка на комментарий
Поделиться на другие сайты

  • 2 месяца спустя...
  • 4 месяца спустя...

добрый вечер!

хотеть узнать, как можно повторить программу main n-раз, допустим 5 раз

Symbol LED = 0

TRISB = %11111110

main:

High LED

Pause 500

Low LED

Pause 500

goto main

END

к примеру, я хочу заставить диод мигать по пол секунды,пять раз, затем он потухнет на 5 сек, потом снова начнет по пол секунды мигать 5 раз

как так сделать?

Ссылка на комментарий
Поделиться на другие сайты

Вот, по идее должно работать так: 5 раз моргнули с перерывом 0,5 секунды, подождали 5 секунд.

Symbol	LED = 0	

TRISB = %11111110	

PORTB.0 = 0 'делаем 0 на выводе светодиода, не обязательно но оооочень желательно

a var byte 'переменная - счётчик

main:
a=0	
for a = 1 to 5 'начинаем считать 5 раз
High	LED	

Pause	500

Low	LED	


Pause	500	

next a   '  прибавляем к счётчику единицу и повторяем снова

pause 5000 ' когда а = 5 - делаем паузу 5 секунд и повторяем всё заново

goto	main	
END	

Ссылка на комментарий
Поделиться на другие сайты

Присоединяйтесь к обсуждению

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

Гость
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Ответить в этой теме...

×   Вставлено с форматированием.   Восстановить форматирование

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

Загрузка...
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу

  • Сообщения

    • ИМХО, только с24, с25, с12 имеет смысл проверить/заменить.
    • Я сам найду, вы мне название напишите пожалуйста.
    • Добрый вечер..)) Нет в моем случае лучше найти готовый для моего Цифровой осциллограф Instrustar ISDS205A 2 канала х 20 МГц..
    • А как же вы квазар спаяли? Или ЛУТом не владеете? Можно даже маркером все прорисовать. А за осцил боятся не стоит, ему на вход будет приходить допустимое напряжение (указано в хар-ках осциллографа).
    • Релюхи не причём. При неисправности релюх симптомы были бы другие. И ИБП даже не клацает когда переходит в  "аварию".   Да. Аккум новый. Более того - 2 новых пробовал. И без АКБ тоже. Не влияет. Да мелкие особо не вздуваются ж. Хотя С21 под подозрением..   Спасибо. Буду иметь ввиду.
    • #include <Wire.h> #include <Oregon_TM.h> #include <BME280I2C.h> //////////////////////////////////////////////////////////////////////////////////////////////////////////// //Скетч для устройства, передающего данные датчика BME280 в формате Oregon Scientific THGN132N //Принципиальная схема прилагается. //Для работы необходима библиотека https://github.com/finitespace/BME280/ //Устройство работает от 3-ех пальчиковых батареек, для экономии электричества заливать скетч нужно через ISP //////////////////////////////////////////////////////////////////////////////////////////////////////////// //Также возможна передача данных в формате - THP (температура, влажность, давление, напряжение батареи) //Пример с приёмником поддерживает расшифоовку THP //////////////////////////////////////////////////////////////////////////////////////////////////////////// # define THGN_SEND 1 // Передавать ли данные в формате THGN132 # define THP_SEND 0 // Передавать ли данные в формате THP # define DEVICE_LOG 1 //Писать ли лог В Serial # define DONE_PIN 15 // вывод сигнала об окончании работы на таймер # define BME_WAIT 10 // Сколько мс ожидать датчик BME # define BATTERY_THR 3.5 // Порог напряжения для выставляения флага разряда батарейки (THGN) ///////////////////////////////////////////////////////////////////////////////////////////////// //Ниблы датчика THP //Во всех полях младшие ниблы идут вперёд!!! // 1-2 - тип (55) // 3 - канал (0-7) // 4-6 - (температура от -100С) * 10. Т.е. +25.1С = 1251 = 4E3h // 7-9 - Влажность *10 Т.е. 25.1% = 251 = 0FBh // 10-12 - (давление от 500ммртст) * 10. Т.е. 765мм = 2650 = A5Ah // 13-15 - данные с АЦП (A0) // 16-17 - CheckSUM // 18-19 - CRC8 (poly 0x07 start 0x00) ///////////////////////////////////////////////////////////////////////////////////////////////// Oregon_TM transmitter(4); BME280I2C bme; bool bme_present = false; float bme_temp(NAN), bme_hum(NAN), bme_pres(NAN); ///////////////////////////////////////////////////////////////////////////////////////////////// void setup() { digitalWrite(DONE_PIN, LOW); pinMode(DONE_PIN, OUTPUT); #ifdef DEVICE_LOG Serial.begin(115200); Serial.println("Waiting for BMEsensor..."); #endif //Обмен данными с BME////////////////////////////////// Wire.begin(); while(!bme.begin()) { if (millis() > BME_WAIT) break; } if (!bme.begin()) { #ifdef DEVICE_LOG Serial.println("No BME sensor found"); #endif bme_present = false; } else { switch(bme.chipModel()) { case BME280::ChipModel_BME280: bme_present = true; bme.read(bme_pres, bme_temp, bme_hum); #ifdef DEVICE_LOG Serial.println("Found BME280 sensor! Success."); Serial.print("Temperature = "); Serial.print(bme_temp, 1); Serial.println("C"); Serial.print("Humidity = "); Serial.print(bme_hum, 1); Serial.println("%"); Serial.print("Pressure = "); Serial.print(bme_pres * 0.75, 1); Serial.println("mmHg"); #endif break; default: #ifdef DEVICE_LOG Serial.println("Found UNKNOWN sensor! Error!"); #endif bme_present = false; } } //Напряжения батареи/////////////////////////////////////////// word battvotage = (word)(((float)(1.1 * 16368) / Vbg()) * 100); #ifdef DEVICE_LOG Serial.print("Battery voltage = "); Serial.println(battvotage,HEX); #endif //Подготовка и отправка данных THGN////////////////////////////////////// transmitter.protocol == 2; if (THGN_SEND) { transmitter.setType(THGN132); transmitter.setChannel(3); transmitter.setBatteryFlag(battvotage < BATTERY_THR); if (bme_present) { if (bme_hum > 98) bme_hum = 98; if (bme_hum < 2) bme_hum = 2; if (bme_temp > 70) bme_temp = 70; if (bme_temp < -50) bme_temp = -50; transmitter.setTemperature(bme_temp); transmitter.setHumidity(bme_hum); transmitter.setComfort(bme_temp, bme_hum); } else { transmitter.setTemperature(-49.9); transmitter.setHumidity(2); transmitter.setComfort(-49.9, 2); } transmitter.SendPacket(); } // Если отправляются оба формата пакетов, межу ними надо выдержать паузу if (THP_SEND && THGN_SEND) delay(100); //Подготовка и отправка данных THP////////////////////////////////////// if (THP_SEND) { transmitter.setType(THP); transmitter.setChannelTHP(1); transmitter.setBatteryTHP( battvotage); if (bme_present) { transmitter.setTemperatureTHP(bme_temp); transmitter.setHumidityTHP(bme_hum); transmitter.setPressureTHP(bme_pres * 0.75); // перевод Pa в mmHg } else { transmitter.setErrorTHP(); } transmitter.SendPacket(); } #ifdef DEVICE_LOG Serial.println(); Serial.print(millis()); Serial.println("ms"); Serial.println(); #endif //Команда на отключение питания digitalWrite(DONE_PIN, HIGH); } ///////////////////////////////////////////////////////////////////////////////////////////////// void loop(){} ///////////////////////////////////////////////////////////////////////////////////////////////// int Vbg() { ADMUX = (1<<REFS0)|(0<<REFS1)|(1<<MUX3)|(1<<MUX2)|(1<<MUX1)|(0<<MUX0); long buffersamp=0; for (int n=0x0; n<=0xff; n++ ) { ADCSRA = 0xc7; while (bit_is_set(ADCSRA,ADSC)); buffersamp += ADC; } buffersamp >>=4; //16368 full scale 14bit ADCSRA &= ~(1 << ADEN); // отключаем АЦП return buffersamp; } Вот код программы. Пробовал по разному и от 5в запитывал и всю систему от 3,3 в. Причем голая ардуинка с таймером работает в нормальном режиме некоторое время, но потом все равно слетает и начинает питать мк постоянно( Причем это происходит всегда через разный промежуток времени.
  • Похожий контент

×
×
  • Создать...