Имелось в виду изначально, вместе с исходниками ?
Только то, что в архиве в начале темы.
вопрос снят.
Дык.
Программирование ATMEL в BASCOM. |
Привет, Гость! Войдите или зарегистрируйтесь.
Вы здесь » Программирование ATMEL в BASCOM. » Бытовая и промышленная техника, авто, мото и т.п. » Простая метеостанция с часами
Имелось в виду изначально, вместе с исходниками ?
Только то, что в архиве в начале темы.
вопрос снят.
Дык.
Если это важно, то мы тут, на Севере, живем по GMT - General Moscow Time
Как бывшему северянину (Воркута), мне известно что такое GMT...
Это так, к слову...
Но важно не это, а то, какие значения куда попадают при выводе буфера на индикаторы...
Буфер формируется "единой строкой", теперь надо выяснить, "что на что залезло"...
Покопаюсь с использованием Proteus.
Быстрого решения на обещаю - копать чужое нелегко...
Быстрого решения на обещаю - копать чужое нелегко...
Да не парьтесь, пусть остается как есть. Непринципиально, вобщем-то. Хотя, отображаемые десятые доли градуса при точности датчика 0.5 градуса - это занятно, да
Да не парьтесь, пусть остается как есть. Непринципиально, вобщем-то. Хотя, отображаемые десятые доли градуса при точности датчика 0.5 градуса - это занятно, да
У вас на индикаторы вылезают лишние значения, отсюда и "сотые" и время вместо температуры...
В последнем листинге не везде убраны "год", "месяц", "день недели" и еще что-то, но индикаторов для них нет.
А строка вывода продолжает формироваться, как будто они в наличии...
Надо искать...
В той же п/п в ее конце есть такие строки:
Print_max7219 1_buffer_str , 1 , 1
Print_max7219 2_buffer_str , 1 , 2
Print_max7219 3_buffer_str , 2 , 1
Print_max7219 4_buffer_str , 2 , 2
Print_max7219 5_buffer_str , 3 , 1
Print_max7219 6_buffer_str , 3 , 2
Print_max7219 7_buffer_str , 4 , 1
Print_max7219 8_buffer_str , 4 , 2
Попробуйте, если не затруднит, по очереди (!) их закомментировать с демонстрацией результата (скрин).
Думаю, уцепился за хвостик...
А тут тэга спойлера на форуме нет, что ли?
Используйте "Свернутый текст", например...
По теме: голову сломал, не могу вкурить, как формируется строка вывода...
Судя по скринам, каждый параметр выводится самостоятельно, а не единой целой строкой, что я и подозревал...
Но, даже с учетом вчерашних правок, полного понимания это не дало...
Но, даже с учетом вчерашних правок, полного понимания это не дало...
Ну и бох с ним тогда, непринципиально.
Ну и бох с ним тогда, непринципиально.
ОК. Подождем появления автора.
Судя по скринам, выделенные строки можно смело закомментировать.
Вы немного "кастрировали" схему и МК теперь тратит время на "печать вникуда"...
Print_max7219 1_buffer_str , 1 , 1
Print_max7219 2_buffer_str , 1 , 2
Print_max7219 3_buffer_str , 2 , 1
Print_max7219 4_buffer_str , 2 , 2
Print_max7219 5_buffer_str , 3 , 1
Print_max7219 6_buffer_str , 3 , 2
Print_max7219 7_buffer_str , 4 , 1
Print_max7219 8_buffer_str , 4 , 2
Так же можно закомментировать эти строки, память сэкономится чуток:
Dim 5_buffer_str As String * 5
Dim 6_buffer_str As String * 5
Dim 7_buffer_str As String * 5
Dim 8_buffer_str As String * 5
ОК. Подождем появления автора.
Почему-то в голове сразу заиграла песня группы "Манго-манго" под названием "Мамаду". Если Вы такой пенсионер, каким хотите казаться, должны были ее слышать Очень подходит к нашему случаю.
Судя по скринам, выделенные строки можно смело закомментировать.
Это я еще вчера понял. Но выгода копеечная: в 168-ю атмегу влезло - и ладно. Дальше можно не экономить.
Вы немного "кастрировали" схему
А вот код так же сильно кастрировать побоялся. Если даже Вы не понимаете, как он работает, то куда уж мне! Самое смешное, что в ардуине на таком уровне я бы разобрался самостоятельно, пожалуй. А этот БАСКОМ... как в сказке: чем дальше, тем мрачнее. Если он раньше и был мне чуть-чуть интересен, то теперь иллюзии рассеялись окончательно. "Такой хоккей нам не нужен" (с).
Попробуйте в уже известной п/п один ее участок заменить (!) на приведенный фрагмент:
If Correct = 4 And Idle_time > 0 Then
4_buffer_str = Year_str
Else
' 4_buffer_str = Temperature_str_1
4_buffer_str = Temperature_str
End IfTemp(1) = &HD0 ' ID register address
I2creceive Slave , Temp(1) , 1 , 1
If Temp(1) = &H60 Then ' Is BME280 exist?
Gosub Bme280_read
Temp_word = Pressure
1_buffer_str = "P" + Str(temp_word)temperature = INT(temperature)
Temperature_str = STR(temperature)
Temperature_str = "° " + Mid(Temperature_str , 1 , 2)
' Temperature_str = "°" + Fusing(temperature , "#.#")humidity = INT(humidity)
3_buffer_str = STR(humidity)
3_buffer_str = "H " + Mid(3_buffer_str , 1, 2)
'3_buffer_str = "H" + Fusing(humidity , "#.#")' Temperature_str_1 = Mid(temperature_str , 1 , 4)
' Temperature_str_2 = Mid(temperature_str , 5 , 3)' Else
' 1_buffer_str = "bMNE"
' 3_buffer_str = "280 "
' Temperature_str_1 = "Err"
' Temperature_str_2 = "or "
End IfPrint_max7219 1_buffer_str , 1 , 1
Print_max7219 2_buffer_str , 1 , 2
Print_max7219 3_buffer_str , 2 , 1
Print_max7219 4_buffer_str , 2 , 2
' Print_max7219 5_buffer_str , 3 , 1
' Print_max7219 6_buffer_str , 3 , 2
' Print_max7219 7_buffer_str , 4 , 1
' Print_max7219 8_buffer_str , 4 , 2
Если не сработает, будем ждать автора...
А (опять же повторюсь) BASCOM ругать не стОит...
Вы же не будете пинать вертолет только из-за того, что не умеете им управлять ?
В данной ситуации дело не в BASCOM, а в стиле (методе) написания алгоритма.
"Чужая душа - потемки", так и тут - понять логику (!) автора не удается...
Осенью 24-го меня нашли с сайта "УАЗ Патриот" по поводу вот этой разработки
Открыл я СВОЮ программу
- неужели это я ваял !?
Но вспомнил, разобрался, поправил/добавил "хотелки"...
Люди остались довольны.
Сейчас бы при том же "железе" писал бы чуть по-другому.
Вы же не будете пинать вертолет только из-за того, что не умеете им управлять ?
Вертолеты разные бывают: есть простенький "Робинзон", а есть и "Ночной охотник". На "Робинзонах" летает пол-Москвы, а на "Ночных охотниках" гораздо меньше. Это я к тому, что ардуина "ближе к народу", чем БАСКОМ. А делает все то же самое, да как бы не больше. Отсюда и здоровый скептицизм насчет БАСКОМа, который вот уже за неделю вникания понятнее не стал ни а грош. Для меня это вполне определенный "звоночек": значит, оно мне и не надо, не мое это.
Фрагмент щас перепишу, хотя часы уже на стенку прибиты, отпишусь, что получилось.
ардуина "ближе к народу", чем БАСКОМ.
Давайте закончим это направление...
Это - как "с какого конца есть яйцо"...
...отпишусь, что получилось.
Ждемс...
Да, все получилось
Рад был помочь !
Nord, сделал у себя на форуме в теме про часы активную ссылку на данную тему. Так что ждите лишнего гугля в гости Сегодня, к слову, изготовил макет платы "Направлятора", а он, блин, тоже на БАСКОМе... Но это уже совсем другая история
сделал у себя на форуме в теме про часы активную ссылку на данную тему.
Так что ждите лишнего гугля в гости
Что за форум ?
Уже не раз упоминаете про какие-то ссылки, но их никто не видел...
Ссылки здесь не запрещены, если содержимое не противоречит законодательству и местным Правилам.
есть простенький "Робинзон"
Биг сорри, но вертолет таки - "РобинСон"
Что за форум ?
Дак все тот же, что и в профиле: http://mantrid.ru . Открываться, правда, может не у всех.
Биг сорри, но вертолет таки - "РобинСон"
Побоку, я на той мове не шпрехаю
Отредактировано Mantrid (2025-04-04 23:44:50)
Дак все тот же, что и в профиле
В Профиль не все заглядывают...
Сохранил, полазим.
Услуги... | Ищу/продам/куплю/услуги | 2016-09-25 |
Вы здесь » Программирование ATMEL в BASCOM. » Бытовая и промышленная техника, авто, мото и т.п. » Простая метеостанция с часами