Администрация форума не несёт ответственности за достоверность информации и оставляет за собой право редактировать или в особых случаях даже удалять посты без предупреждения. Спасибо за понимание.

Программирование ATMEL в BASCOM.

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.



Простая метеостанция с часами

Сообщений 61 страница 81 из 81

61

Nord написал(а):

Имелось в виду изначально, вместе с исходниками ?

Только то, что в архиве в начале темы.

Nord написал(а):

вопрос снят.

Дык.

0

62

Mantrid написал(а):

Если это важно, то мы тут, на Севере, живем по GMT - General Moscow Time

Как бывшему северянину (Воркута), мне известно что такое GMT...  :flag: ;)
Это так, к слову... ;)

Но важно не это, а то, какие значения куда попадают при выводе буфера на индикаторы... ;)
Буфер формируется "единой строкой", теперь надо выяснить, "что на что залезло"...

0

63

Покопаюсь с использованием Proteus.
Быстрого решения на обещаю - копать чужое нелегко...

0

64

Nord написал(а):

Быстрого решения на обещаю - копать чужое нелегко...

Да не парьтесь, пусть остается как есть. Непринципиально, вобщем-то. Хотя, отображаемые  десятые доли градуса при точности датчика 0.5 градуса - это занятно, да ;)

0

65

Mantrid написал(а):

Да не парьтесь, пусть остается как есть. Непринципиально, вобщем-то. Хотя, отображаемые  десятые доли градуса при точности датчика 0.5 градуса - это занятно, да

У вас на индикаторы вылезают лишние значения, отсюда и "сотые" и время вместо температуры...
В последнем листинге не везде убраны "год", "месяц", "день недели" и еще что-то, но индикаторов для них нет.
А строка вывода продолжает формироваться, как будто они в наличии...
Надо искать... ;)

0

66

В той же п/п в ее конце есть такие строки:

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

Попробуйте, если не затруднит, по очереди (!) их закомментировать с демонстрацией результата (скрин).
Думаю, уцепился за хвостик... ;)

0

67

Nord написал(а):

Попробуйте, если не затруднит, по очереди (!) их закомментировать с демонстрацией результата (скрин).

Картинки ниже, пронумерованы согласно закомментированных строк:

картинки

http://forumupload.ru/uploads/0000/25/b8/2186/t727696.gif
http://forumupload.ru/uploads/0000/25/b8/2186/t277469.gif
http://forumupload.ru/uploads/0000/25/b8/2186/t119014.gif
http://forumupload.ru/uploads/0000/25/b8/2186/t375082.gif
http://forumupload.ru/uploads/0000/25/b8/2186/t813799.gif
http://forumupload.ru/uploads/0000/25/b8/2186/t304446.gif
http://forumupload.ru/uploads/0000/25/b8/2186/t428809.gif
http://forumupload.ru/uploads/0000/25/b8/2186/t756830.gif

Э-э... А тут тэга спойлера на форуме нет, что ли? :(

Отредактировано Mantrid (2025-04-03 07:17:26)

0

68

Mantrid написал(а):

А тут тэга спойлера на форуме нет, что ли?

Используйте "Свернутый текст", например... ;)

По теме: голову сломал, не могу вкурить, как формируется строка вывода...
Судя по скринам, каждый параметр выводится самостоятельно, а не единой целой строкой, что я и подозревал...
Но, даже с учетом вчерашних правок, полного понимания это не дало...

0

69

Nord написал(а):

Но, даже с учетом вчерашних правок, полного понимания это не дало...

Ну и бох с ним тогда, непринципиально.

0

70

Mantrid написал(а):

Ну и бох с ним тогда, непринципиально.

ОК. Подождем появления автора.

Судя по скринам, выделенные строки можно смело закомментировать.
Вы немного "кастрировали" схему и МК теперь тратит время на "печать вникуда"... ;)

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

0

71

Nord написал(а):

ОК. Подождем появления автора.

Почему-то в  голове сразу заиграла песня группы "Манго-манго" под названием "Мамаду". Если Вы такой пенсионер, каким хотите казаться, должны были ее слышать ;) Очень подходит к нашему случаю.

Nord написал(а):

Судя по скринам, выделенные строки можно смело закомментировать.

Это я еще вчера понял. Но выгода копеечная: в 168-ю атмегу влезло - и ладно. Дальше можно не экономить.

Nord написал(а):

Вы немного "кастрировали" схему

А вот код так же сильно кастрировать побоялся. Если даже Вы не понимаете, как он работает, то куда уж мне! Самое смешное, что в ардуине на таком уровне я бы разобрался самостоятельно, пожалуй. А этот БАСКОМ... как в сказке: чем дальше, тем мрачнее. :( Если он раньше и был мне чуть-чуть интересен, то теперь иллюзии рассеялись окончательно. "Такой хоккей нам не нужен" (с).

0

72

Попробуйте в уже известной п/п один ее участок заменить (!) на приведенный фрагмент:

фрагмент

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 If

   Temp(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 If

   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

Если не сработает, будем ждать автора... ;)

А (опять же повторюсь) BASCOM ругать не стОит...
Вы же не будете пинать вертолет только из-за того, что не умеете им управлять ? ;)
В данной ситуации дело не в BASCOM, а в стиле (методе) написания алгоритма.
"Чужая душа - потемки", так и тут - понять логику (!) автора не удается...

Осенью 24-го меня нашли с сайта "УАЗ Патриот" по поводу вот этой разработки
Открыл я СВОЮ программу  o.O  :canthearyou: - неужели это я ваял !?  :blush: ;)
Но вспомнил, разобрался, поправил/добавил "хотелки"...
Люди остались довольны.
Сейчас бы при том же "железе" писал бы чуть по-другому.

0

73

Nord написал(а):

Вы же не будете пинать вертолет только из-за того, что не умеете им управлять ? ;)

Вертолеты разные бывают: есть простенький "Робинзон", а есть и "Ночной охотник". На  "Робинзонах" летает пол-Москвы, а на "Ночных охотниках" гораздо меньше. Это я к тому, что ардуина "ближе к народу", чем БАСКОМ. А делает все то же самое, да как бы не больше. Отсюда и здоровый скептицизм насчет БАСКОМа, который вот уже за неделю вникания понятнее не стал ни а грош. Для меня это вполне определенный "звоночек": значит, оно мне и не надо, не мое это.
Фрагмент щас перепишу, хотя часы уже на стенку прибиты, отпишусь, что получилось.

0

74

Mantrid написал(а):

ардуина "ближе к народу", чем БАСКОМ.

Давайте закончим это направление... ;)
Это - как "с какого конца есть яйцо"... ;)

Mantrid написал(а):

...отпишусь, что получилось.

Ждемс... ;)

0

75

Да, все получилось:
http://forumupload.ru/uploads/0000/25/b8/2186/t844221.gif

"Теперь я могу умереть спокойно" (с), как говорится ;)  Большое спасибо за помощь!  И Мамаду ждать не пришлось ;)

+1

76

Mantrid написал(а):

Да, все получилось

Рад был помочь !  :flag: ;)

0

77

Nord,  сделал у себя на форуме в теме про часы активную ссылку на данную тему. Так что ждите лишнего гугля в гости ;)  Сегодня, к слову, изготовил макет платы "Направлятора", а он, блин, тоже на БАСКОМе... Но это уже совсем другая история ;)

0

78

Mantrid написал(а):

сделал у себя на форуме в теме про часы активную ссылку на данную тему.
Так что ждите лишнего гугля в гости

Что за форум ?
Уже не раз упоминаете про какие-то ссылки, но их никто не видел...  :dontknow: ;)

Ссылки здесь не запрещены, если содержимое не противоречит законодательству и местным Правилам.

0

79

Mantrid написал(а):

есть простенький "Робинзон"

Биг сорри, но вертолет таки - "РобинСон" ;)

0

80

Nord написал(а):

Что за форум ?

Дак все тот же, что и в профиле: http://mantrid.ru . Открываться, правда, может не у всех.

Nord написал(а):

Биг сорри, но вертолет таки - "РобинСон" ;)

Побоку, я на той мове не шпрехаю ;)

Отредактировано Mantrid (2025-04-04 23:44:50)

0

81

Mantrid написал(а):

Дак все тот же, что и в профиле

В Профиль не все заглядывают...
Сохранил, полазим. ;)

0