МегаТермо

[pavel1979]

а можно ли сделать один термометр,но цифры крупнее?думаю поставить за окно на улицу

[pavel1979]

переделал как хотел,ест 150 мка,измерение раз в минуту

[Gordon Shumway]

ест 150 мка,измерение раз в минуту

Код в студию ! Точно 150 мка ?

[pavel1979]

питание от аккума сотового,дисплей нокиа 1280,код на баском

Спойлер

'======= Основные установки ================
$regfile = "m8adef.dat" 'указать нужный
$crystal = 8000000 'указать нужный
$hwstack = 16
$swstack = 64
$framesize = 32
Config Portb = Input
Config Portc = Output
Portc = 0
Config Portd = Input

Config 1wire = Portd.3
Dim Byte0 As Byte
Dim Byte1 As Byte
Dim Sign As String * 1
Dim T As Byte
Dim T1 As Byte
Dim T2 As Byte
'Dim Text As String * 6
Dim R As Byte
Dim B As Bit


Nokia_spi_data Alias Portc.4 : Config Portc.4 = Output 'MOSI - можно задать любую ножку
Nokia_spi_clock Alias Portc.5 : Config Portc.5 = Output 'SCK - можно задать любую ножку
Nokia_cs Alias Portc.3 : Config Portc.3 = Output 'CS - можно задать любую ножку
Display_reset Alias Portc.2 : Config Portc.2 = Output 'LCD_RESET - можно задать любую ножку
Display_reset = 1
Nokia_cs = 1
Declare Sub Nokia_init()
'Nokia_data_9 = &HC8 : Gosub Nokia_out_cmd
'Nokia_data_9 = &HA0 : Gosub Nokia_out_cmd
Declare Sub Nokia_clear()
Declare Sub Nokia_text(byval Nokia_text As String , Byval Uvel As Byte , Byval Nokia_inversion As Byte , Byval Szatie As Byte)
Declare Sub Nokia_picture(bylabel Nokia_label As Word)
Declare Sub Nokia_pos(byval Nokia_x As Byte , Byval Nokia_y As Byte)
'Dim Text As String * 10
Dim W As Iram Word At 8 Overlay
Dim Nokia_data_9 As Integer
Dim Nokia_data As Byte
Dim Text As String * 15
'Dim T As Byte
Call Nokia_init()
' Инициализируем дисплей
'Nokia_data_9 = &HC8 : Gosub Nokia_out_cmd
Nokia_data_9 = 140 'контрастность х+128
Gosub Nokia_out_cmd
'*******************************************************************************
Config Clock = Soft
'Async = On
Config Timer2 = Timer , Async = On , Prescale = 128 ' Делитель 32768 / 128 / 256 = 1 сек (прерывание TIMER2 = 2 раза в секунду)
'----------
Time$ = "02:20:00"
'---------- Настройка пониженного энергопотребления МК ----------
Assr.3 = 1 : Waitms 100 ' Включить НЧ-генератор AS2 и подождать стабилизации амплитуды генератора
' При включении бита AS2 (3) в регистре ASSR (ASSR.3), становится возможным применение режима
' "Powersave" - разновидность спящего режима. Пробуждение МК от TIMER2
' Mcucr = &B10000000 ' Разрешаем режим пониженного энергопотребления Power Idle
Mcucr = &B10110000 ' Разрешаем режим пониженного энергопотребления Power Save
'Prr = &B10111111
'Acsr = &B10000000
Enable Timer2
Enable Interrupts

Do
Display_reset = 1
Nokia_cs = 1
'Waitms 10
'Call Nokia_clear()
If _sec = 0 Then
' _sec = 55
'Text = ""
' If _hour < 10 Then Text = "0"
' Text = Text + Str(_hour)
' Text = Text + ":"
' If _min < 10 Then Text = Text + "0"
' Text = Text + Str(_min)
' Call Nokia_init() 'очищаем дисплей
' Call Nokia_pos(1 , 1)
' Call Nokia_text(text , 4 , 0 , 3)
' End If
Config Portd.4 = Output
Portd.4 = 1 'Call Nokia_picture(bunny)
1wreset
If Err = 1 Then 'если при опросе небыло ответа ставим флаг ошибки
Wait 1
Else ' иначе, если ошибки не было, продолжаем опрос датчика
1wwrite &HCC ' Выдаем команду чтения ПЗУ
1wwrite &H44 ' Запуск измерения
Waitms 750 ' Ждем окончания преобразования
1wreset
1wwrite &HCC
1wwrite &HBE ' Команда чтения ОЗУ датчика
Byte0 = 1wread() ' Читаем нулевой байт
Byte1 = 1wread() ' Читаем первый байт
If Byte1 > 248 Then ' Проверка на отрицательность температуры
Byte0 = &HFF - Byte0
Byte1 = &HFF - Byte1
Sign = "-"
Else
Sign = "+"
End If
T1 = Byte0 / 16 ' Сдвигаем нулевой байт вправо на 4 бита (2*2*2*2=16)
T2 = Byte1 * 16 ' Сдвигаем первый байт влево на 4 бита (2*2*2*2=16)
T1 = T1 + T2 ' Формируем результат для вывода на дисплей
' *** Коррекция полученных значений
If Sign = "-" Then T1 = T1 + 1 ' для корректного вывода отрицательных температур

'End If
If Sign = "+" And T1 = 0 Then Sign = " " ' убираем знак "+" с нулевой температуры

'End If
'End If
Text = Sign + Str(t1)
'Text = Text + " C"
Call Nokia_init()
Call Nokia_pos(0 , 2)
Call Nokia_text(text , 8 , 0 , 4)
Call Nokia_pos(80 , 2)
Call Nokia_text( "o" , 2 , 0 , 2)
Portd.3 = 0
Portd.4 = 0
End If
End If



Display_reset = 0
Nokia_cs = 0
Nokia_spi_data = 0
Nokia_spi_clock = 0
sleep
'Config Powermode = Powersave
Loop
End



'*******************************************************************************
$include "Nokia-1100 Library.inc" 'сама библиотека
'$inc Phone , 293 , "Phone.bgf" 'картинка №1
'$inc Scull , 657 , "Scull.bgf" 'картинка №2
'$inc Bunny , 490 , "Bunny.bgf" 'картинка №3
'*******************************************************************************

[pavel1979]

долго бился с потреблением,в итоге получилось так-перед погружением в сон все ноги либо на вход,либо лог ноль на выходе,питание на DS18B20 тоже с порта-когда надо питание подаю,замер температуры,питание снимаю
много мороки с выводом ресет дисплея-его нельзя опускать в ноль так как он сбросится,если эту ногу оставить включенной то потребление примерно на 1 ма выше,пришлось припаять к ноге ресет RC цепь(к мк его не цепляю,резистор 47 ком между ресет и плюс питания,конденсатор 0,1 мкф между ресет дисплея и минусом),дисплей сбрасывается при подаче питания,из-за чего пришлось перед очередным выводом информации на дисплей его инициализировать по новой-стало надежнее
увеличил контрастность-стало 180 мкампер,так что и она ест немного,раз в минуту потребление 5 ма

[kio88]

Здравствуйте!
Собирал года 4 назад, недавно снял атмегу в другое устройство, купил новую, хочу сделать как у Вас, HEXом не поделитесь?

Вложения

Фото0162.jpg

(120.54 KiB) Скачиваний: 512

Фото0161.jpg

(127.29 KiB) Скачиваний: 728

[dustas]

Собрал. Получилось вот что http://img.radiokot.ru/files/113481/116kqkspgb.jpg Кто-нибудь может помочь это исправить? Устройство работает, но картинка напрягает.

[Gordon Shumway]

картинка напрягает.

У вас неродной дисплей. Я не правил прошивку под них. Либо вам нужно найти оригинальный дисплей от Нокии 3310, либо собирайте вариант мегатермо 2 на дисплее от Нокии 1100.

[rjn2]

Собрал. Получилось вот что http://img.radiokot.ru/files/113481/116kqkspgb.jpg Кто-нибудь может помочь это исправить? Устройство работает, но картинка напрягает.

Я собирал на китайском дисплее NOKIA 5110, всё работает, фото макетки на 4-й странице.

[dustas]

Gordon Shumway, rjn2
Дисплеи 1100 и 5110 не имею, а есть целых 3 дисплея 3310 снятых с работающих телефонов, но на всех одна и та же картина. Ранее, на 1 странице, ya-zp написал, что собирал термометр с дисплеем, имеющим надпись "NOKIA", но со своей прошивкой. Я написал здесь сообщение в надежде, что кто-нибудь собрал устройство с аналогичным дисплеем и с правленой или своей прошивкой и сможет ею поделиться. К ya-zp я обращался напрямую, но пока ответа не получил. Конечно, если надежда не сбудется, то буду искать дисплей 1100, 5110 или 3310 с двумя улыбками.

[Gordon Shumway]

Gordon Shumway, rjn2
Дисплеи 1100 и 5110 не имею, а есть целых 3 дисплея 3310 снятых с работающих телефонов

Дисплеи 5110 и 3310 на одном чипе, поэтому взаимозаменяемы. 3310, как я понял, бывают разные, в телефонах работают нормально, но здесь библиотека нормально позволяет работать только с оригинальными дисплеями или приближенным к ним.

Дисплей 1100 - совсем на другом чипе, поэтому с ним был сделан следующий проект - Мегатермо часть вторая.
Рекомендую заняться именно им, там получилось сделать большие цифры, да и вообще он мне больше нравится...

[dustas]

Дисплей 1100 - совсем на другом чипе, поэтому с ним был сделан следующий проект - Мегатермо часть вторая.
Рекомендую заняться именно им, там получилось сделать большие цифры, да и вообще он мне больше нравится...

Мне очень понравился термометр с дисплеем 1100. Просто были в наличии 3310, поэтому на нём и собрал. Занялся поиском дисплея 1100. Как найду соберу на нём.
Спасибо.

[rjn2]

Свои дисплеи NOKIA 5110 я заказывал в Китае, цена около одного доллара, очень удобные для применения в радиолюбительских конструкциях.

Вложения

LCD_Nokia_5110_LCD.jpg

(62.52 KiB) Скачиваний: 559

[dustas]

rjn2
А плату делали свою, или обошлись имеющейся. Если разработали свою, то, может быть, поделитесь.

[rjn2]

Плату я не разрабатывал, собрал на макетной.

[dustas]

Здравствуйте!
Я так понял, что по Мегатермо c дисплеем 1100 вопросы можно задавать здесь, т.к отдельной темы я не нашёл. По схеме два левых контакта дисплея соединены, а на плате нет. Как правильно? Вроде бы должны соединяться.

[maximbaturin]

Решил собрать это интересное устройство. Так как предполагаю использовать питание не от батареек, а от БП. В схему добавил стабилизатор 78L33.
Кому интересно выкладываю свой проект в DipTrace, не просите, в LAY переделывать не буду.
https://yadi.sk/d/9NE-iMP03H29wx

[Zot08]

pavel1979 библиотеку на свой термометр не выложите?

[Синхрофазотрон]

А можно как то поправить картинку в прошивке в место елки что нибудь другое, просто этот канал хочу использовать на тёплый пол

[musor]

а смысл? чем оно мешает кроме того там нет управления релей тока замер