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

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

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

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


Вы здесь » Программирование ATMEL в BASCOM. » Готовые конструкции » Кухонный таймер


Кухонный таймер

Сообщений 31 страница 46 из 46

31

pavel1969
Делал на SYN470(приёмник) и MICRF115(передатчик).Посылку в 19 байт без потерь пробивает через 3-х комнатную квартиру насквозь,ещё и до машины на улице достаёт.Питание 3.5в.

0

32

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

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

А когда будет все остальное?

0

33

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

0

34

Пусть будет как есть. Каждый может сделать под себя.

0

35

с вашего позволения - третьим буду.
таймер с предустановками для ускорения варения пельмения. всякие хипсторы могут прикрутить вайфай, веб и облака с ведром, но это не наш путь.

картинки

http://s4.uploads.ru/t/cqdsE.jpg
http://s4.uploads.ru/t/1ZIKU.jpg
http://sh.uploads.ru/t/CcgpV.jpg

Отредактировано IDok (2018-05-28 07:55:00)

+3

36

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

с вашего позволения - третьим буду.
таймер с предустановками для ускорения варения пельмения. всякие хипсторы могут прикрутить вайфай, веб и облака с ведром, но это не наш путь.

Вот почему-бы не засунуть картинки под спойлер, на сколько проблем стало-бы меньше ! Супружница узрела и уже умудрилась весь мозок вышкрябать, --"сделай хоть что то для дома полезное"

0

37

sasha_1973
так лучше? :)

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

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

они такие. факт!

0

38

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

так лучше?

Та уже всё едино. Уже узрела.

0

39

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

Уже узрела.

как говорят мои сыновья - "тут соррян, косяк вышел"  :dontknow:

0

40

Добрый вечер.
В продолжении экспериментов по усовершенствованию кухонного таймера, были куплены на али вот такие радио модули на 433 мгц.
http://s3.uploads.ru/t/MifqC.jpg
Напомню суть усовершенствования - радио_удлинитель. Таймер пЫкает на кухне, через  радио_удлинитель пЫкает в комнате.
Пробую стандартными Принт - Инпут прогнать через УАРТ. По радиоканалу идет всякий мусор.
Понимаю, что нужен кодер для передатчика и декодер для приемника. А как прогу написать - туплю... :(
Поделитесь, пожалуйста, рабочим кодом для приемника и для передатчика.
Спасибо.

0

41

При помощи примеров с польского форума, разобрался в работе сих радио модулей.
Дело осталось за малым - собрать в железе и подправит ПО.

to be continued...

0

42

pavel1969
Я тоже хочу радиомодули. Не знаю какакие выбрать.

0

43

Смотря какая нужна "дальнобойность"   Сейчас широкий выбор модулей от 100 метров и до километра или даже до 10 км.   Вопрос только в цене и возможности самому написать библиотеку под модуль.  :flag:

0

44

Продолжение, которое по_следовало...
Собрал приемник.
Супер-мега-мозг - Ать_Мега8... ;)
Донором корпуса стала одна из колонок компьютерной говорилки.
Щас разобрал-разбросал сам таймер.
Добавлю кнопку включения радио и диодик-индикатор.
http://s8.uploads.ru/t/Hfn75.jpg

0

45

Доделал.

+1

46

Добавлю и свой вариант в копилку... ;)

Несмотря на то, что для кухонных нужд были сделаны часы И снова часики , супруга так и не расстается с таймером двухгодичной разработки... ;)

После окончательного понимания работы модуля Модуль индикации на TM1637 само собой встал вопрос о его применении.

Появился этот таймер:
- отсчет одного интервала до 99 минут
- батарейное питание
- окончание отсчета - звуковая сигнализация
Прекращение отсчета или "сброс" звука - выключение питания

Составляющие:
- модуль индикации на TM1637
- модуль сенсорной клавиатуры 4х1 на TTP224
- Li-On АКБ формфактора 18650
- модуль защиты/зарядки на TP4056
- модуль DC-DC up  на MT3608
Во главе всего этого "бутерброда" ATTiny2313A... ;)

Исходник:

Свернутый текст

$Regfile="attiny2313a.dat"
$Crystal=8000000
$hwstack=40
$swstack=32
$framesize=32

'===================================================================
Config Submode = New

$include "TM1637_core_2313.inc"

'badanie modulu wyswietlacz 4-Digit Display CATALEX - 7seg - 2015-05-31
'by kaktus
'http://kaktusa.pl

'===================================================================
' RESET МК обязательно подключить через RS-цепочку   !!!!!!!!!!!

' Подключение модул индикатора:
' CLK -> SCL
' DIO -> SDA, не забываем про "подтяжку"
' Переуказать, если необходимо, в TM1637_core_2313.inc  !!!!!!!!!!!
'
' Указывать в теле программы про I2С необходимости нет
'---[      test       ]-------------------------------------------------------------
Set DdrB.5
Test Alias PortB.5
'---------------------------------------------------------------------------------
' Блоки DATA  Brightness и  Cyfry не переименовывать
'---------------------------------------------------------------------------------
' Вывод значения в нужной позиции
' аналог Locate
'
' Call Tm1637(27 , 27 , 27 , 27 , 0 , 0)
' значение 1, значение 2, значение 3, значение 4, яркость 0-7, двоеточие 0-1
'===================================================================
Config PORTB.3 = Output                 ' Сигнализатор
PORTB.3 = 0

Config PORTB.0 = Input                    ' Сенсорная кнопка "1"
Config PORTB.1 = Input                    ' Сенсорная кнопка "2"
Config PORTB.2 = Input                    ' Сенсорная кнопка "4"

'===================================================================

Dim takt As Byte
Dim kn As Byte
Dim ind As Byte
Dim flag As Bit
Dim z3 As Byte
Dim zn1 As Byte
Dim zn2 As Byte
Dim seco As Byte
Dim vrem As Byte

Dim dig(12) As Byte
Dig(1) = &B00111111                                             '0
Dig(2) = &B00000110                                             '1
Dig(3) = &B01011011                                             '2
Dig(4) = &B01001111                                             '3
Dig(5) = &B01100110                                             '4
Dig(6) = &B01101101                                             '5
Dig(7) = &B01111101                                             '6
Dig(8) = &B00000111                                             '7
Dig(9) = &B01111111                                             '8
Dig(10) = &B01101111                                           '9
Dig(11) = &B00000000                                           'off  27
Dig(12) = &B01000000                                           '-    28

zn1 = 0
zn2 = 0
z3 = 27
flag = 0

'===================================================================
Config Timer0 = Timer , Prescale = 1024

On Timer0 pulse
Enable Timer0
Enable Interrupts
Stop TIMER0

'===================================================================
Do

Call Tm1637(z3 , zn2 , zn1 , z3 , 4 , 0)

If ind = 1 Then Goto zvuk

kn = PINB
If kn.0 = 1 Then Gosub knopka
If kn.1 = 1 Then Gosub knopka
If kn.2 = 1 Then Gosub knopka

Loop
End
'===================================================================
'===================================================================
zvuk:                                                               ' Отсчет установленного времени
'                                                                        и подача сигнала

Do
If takt = 123 Then
      vrem = vrem - 1
      takt = 0
End If

ind = Makebcd(vrem)
zn1.0 = ind.0
zn1.1 = ind.1
zn1.2 = ind.2
zn1.3 = ind.3
zn2.0 = ind.4
zn2.1 = ind.5
zn2.2 = ind.6
zn2.3 = ind.7

Call Tm1637(z3 , zn2 , zn1 , z3 , 4 , 0)

If ind = 0 Then
      Disable Interrupts
      Exit Do
End If
Loop

zvuk1:
Disable Interrupts

Do
PORTB.3 = 1
Waitms 250
PORTB.3 = 0
Waitms 250
Loop
Goto zvuk1

'===================================================================
knopka:                                                             ' Обработка кнопок

If kn.1 = 1 Then zn1 = zn1 + 1                       ' Установка десятков
If zn1 > 9 Then zn1 = 0
knopka1:
If PINB.1 = 1 Then Goto knopka1

If kn.0 = 1 Then zn2 = zn2 + 1                       ' Установка единиц
If zn2 > 9 Then zn2 = 0
knopka2:
If PINB.0 = 1 Then Goto knopka2

If kn.2 = 1 Then ind = 1                                   ' Запуск отсчета
knopka3:
If PINB.2 = 1 Then Goto knopka3

If ind = 1 Then
      vrem = zn2 * 10
      vrem = vrem + zn1
      Start Timer0
End If

Return
'===================================================================
pulse:

seco = seco + 1
If seco = 15 Then
      takt = takt + 1
      Toggle flag
      If z3 = 27 And flag = 1 Then z3 = 28
      If z3 = 28 And flag = 0 Then z3 = 27
      seco = 0
End If

Return
'===================================================================
'===================================================================
Tm1637_start:                                               '1637 start transmission
   Set Clk
   Set Dio_out
   Waitus 2
   Reset Dio_out
Return

Tm1637_ack:                                                 '1637 responses transmission
   Reset Clk
   Waitus 5
   Reset Dio_set
   Bitwait Dio_in , Reset
   Set Clk
   Waitus 2
   Reset Clk
   Set Dio_set
Return

Tm1637_stop:                                                '1637 Stop transmission
   Reset Clk
   Waitus 2
   Reset Dio_out
   Waitus 2
   Set Clk
   Waitus 2
   Set Dio_out
Return

Brightness:
Data &H80                                                   'off
Data &H88                                                   'min 1/61   136
Data &H89                                                   '2/16       137
Data &H8A                                                   '4/16       138
Data &H8B                                                   '10/16      139
Data &H8C                                                   '11/16      140
Data &H8D                                                   '12/16      141
Data &H8E                                                   '13/16      142
Data &H8F                                                   'max 14/16  143

Cyfry:
Data &B00111111                                             '0
Data &B00000110                                             '1
Data &B01011011                                             '2
Data &B01001111                                             '3
Data &B01100110                                             '4
Data &B01101101                                             '5
Data &B01111101                                             '6
Data &B00000111                                             '7
Data &B01111111                                             '8
Data &B01101111                                             '9
Data &B01110111                                             'A    10
Data &B01111100                                             'B    11
Data &B00111001                                             'C    12
Data &B01011110                                             'D    13
Data &B01111001                                             'E    14
Data &B01110001                                             'F    15
Data &B00111101                                             'G    16
Data &B01110110                                             'H    17
Data &B00110000                                             'I    18
Data &B00001110                                             'J    19
Data &B00111000                                             'L    20
Data &B01010100                                             'n    21
Data &B00111100                                             'o    22
Data &B01110011                                             'P    23
Data &B01010000                                             'r    24
'Data &B01101101                                             'S<->5
Data &B01111000                                             't    25
Data &B00111110                                             'U    26
Data &B00000000                                             'off  27
Data &B01000000                                             '-    28
Data &B00001111                                             ')    29

Внешний вид:
- верхний левый контакт - установка десятков минут
- верхний правый - установка единиц
- нижний - "Старт"
http://sd.uploads.ru/t/2cdNu.jpg

Сразу после включения:
http://sg.uploads.ru/t/uOVtR.jpg

Установка интервала:
http://sd.uploads.ru/t/W0ZvO.jpg

Индикация отсчета (мигают сегменты G в крайних разрядах):
http://s9.uploads.ru/t/DQYt0.jpg

+4


Вы здесь » Программирование ATMEL в BASCOM. » Готовые конструкции » Кухонный таймер