јдминистраци€ форума не несЄт ответственности за достоверность информации и оставл€ет за собой право редактировать или в особых случа€х даже удал€ть посты без предупреждени€. —пасибо за понимание.

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

»нформаци€ о пользователе

ѕривет, √ость! ¬ойдите или зарегистрируйтесь.


¬ы здесь » ѕрограммирование ATMEL в BASCOM. » √отовые конструкции » ‘отореле. —умеречный выключатель


‘отореле. —умеречный выключатель

—ообщений 31 страница 60 из 108

31

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

дл€ защиты Ѕѕ от перегрева, на радиатор DS-ку вешали.

ј € видел (и даже вешал) на радиатор  –≈Ќку и тоже помогало от перегрева.
¬ Ѕѕ компа так делал.

0

32

 роме того, что сказано, что не на вс€кий нагреватель нужна лабораторна€ точность, ещЄ смысл применени€ 1n4148  в качестве датчика , и в том что его можно использовать после +125∞— , DS1820 уже вне диапазона. ѕоэтому и хотелось бы мне увидеть, рабочую схему подключени€  1n4148  в качестве датчика.

’отелось бы всетаки еще раз отметить универсальность этой схемы сумеречного включател€, где получена€ информаци€ с резестивных датчиков  - данные, предстают перед нами в цифровом виде на семисегментном индикаторе, и плюс настраиваема€ уставка с гистерезисом делает эту схему реально полезной.
“еперь вот посмотрите приложеный мною экскиз проекта в протеус, на основе программы сумеречного выключател€ 2,
Ёто вольтметр-амперметр до 50V и до 9,99ј с отдельно настраиваемой защитой по напр€жению и тока, это сделано из сумеречного перекл..
http://c2.at.ua/l/9/vidva.jpg
јрхив в протеус
“ак что если хорошенько подумать над этой схемкой, варианты применени€ дл€ автоматики: освещени€ , давлени€, термостата, вольтметра, амперметра вполне реальны, и вариаты комбинации 2 в 1 нагл€дней будет смотреть такой таблицей.
http://c2.at.ua/l/9/tablica.gif
“ут практически остаЄтс€ только придумывать дл€ разной автоматики варианты применени€ , и варианты используемых датчиков :)

ќтредактировано Coviraylhik (2011-06-25 15:51:27)

0

33

Ќе пон€л вашей мысли, на что больно смотреть? ≈сли € эту схему например задействую дл€ воздушного компресора, или автомобиль семисементники в самый раз, и тем более такие индикаторы практически в каждой "булочной" можно приобрести, так что, это не однозначное мнение.
ј функции  хорошо подход€т к класическим схемам измерений, поэтому и варианты примен€емости разнообразны.

0

34

—па€л эту схему , в данном случае это 2 в 1, давление на автомобильном датчике ћћ393а и температура датчик NTC термистор 640-10k


( шкала дл€ кг/см на манометре отградуирована до 7 атм. красным цветом)
схема с резестивными датчиками возможно потребует ещЄ доработки , хот€ по своим свойствам, мен€ она уже практически устраивает, ( хе-хе, а  по бюджету она  также устроит любого человека) ∆ду резолюции автора по поводу работы EEPROM , а там уже можно будет и выводы делать , что к чему.

увеличить

увеличить

ќтредактировано Coviraylhik (2011-06-28 17:55:40)

+1

35

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

ѕоэтому и хотелось бы мне увидеть, рабочую схему подключен舆 1n4148† в качестве датчика.

http://radiokot.ru/forum/viewtopic.php? … ;start=340
«десь термометр на 572ѕ¬5   “-е , как € и говорил, на полевом транзисторе сделан стабилизатор тока, а падение напр€жени€ на диоде,которое и замер€ет ј÷ѕ, пропорционально температуре. ƒл€ экспериментов, можно вообще - просто резистор поставить и на меге сделать ј÷ѕ с выводом на 16*2 ( которых в сети полно).

ќтредактировано kip (2011-06-29 09:32:39)

0

36

K postu pro vol'tmetrampermetr napisanomu ranee , polnaja shema.

увеличить

ќтредактировано Coviraylhik (2011-07-09 13:01:03)

+1

37

A zdes' dal'she oproboval varianty podkljuchenija k OU raznyh rezistivnyh datchikov kotorye pod ACP godjatsja.
Na praktike poluchaetsja vezde polozhitel'nyj rezul'tat,  tol'ko s datchikom vlazhnosti shemu ne proboval, tol'ko teorija, tak kak net v nalichii u menja takogo datchika vlazhnosti.
P.S. Izvinjajte tovariwi forumchane chto pishu v translite , adnako tut s nedavnih por  takaja beda, chto vse moi soobwenija na jetom forume na russkom vygljadjat vot tak

   –†—Ш–†—Х–†—С –°–Г–†—Х–†—Х–†¬±–°вА∞–†¬µ–†–Е–†—С–°–П –†–Е–†¬∞ –°–М–°вАЪ–†—Х–†—Ш –°вАЮ–†—Х–°–В–°—У–†—Ш–†¬µ –†–Е–†¬∞ –°–В–°—У–°–Г–°–Г–†—Ф–†—Х–†—Ш –†–Ж–°вАє–†—Ц–†¬ї–°–П–†“С–°–П–°вАЪ –†–Ж–†—Х–°вАЪ –°вАЪ–†¬∞–†—Ф

prichina jetogo javlenija mne ne ponjatna :(

увеличить

ќтредактировано Coviraylhik (2011-07-09 13:19:01)

0

38

ј чего перешли на иноземный €зык?

0

39

он же написал, что у него проблемы по€вились: как пишет кириллицей, так сразу текст портитс€ и пример привел

0

40

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

K postu pro vol'tmetrampermetr napisanomu ranee , polnaja shema

ј вот поподробнее бы про вольтамперметр.

0

41

ј что именно интересует по вольтамперметру? —хема здесь в форуме , прошивки также здесь в форуме, а также в протеусе можно предварительно посмотреть все функции схемы этого вольтамперметра.

0

42

Ќе срослось у мен€ с ѕротеусом, пока, надеюсь.
Ќужен сейчас измеритель дл€ очередного Ѕѕ, вот и обратил внимание на ваш вариант. ’отелось бы печатку, прошивку с фузами и вкратце описание, зачем светодиоды, кнопки, пределы измерени€...

0

43

¬ольтамперметр описание назначение меню и управление кнопок :
2 независимые канала вольтметр и амперметр, с выходом управл€ющим срабатыванием по току и напр€жению (в данной схеме выведено на светодиоды).
ѕри данной прошивке показани€  каналов: ¬ольтметр от 0 до 500. (положение точки дл€ разр€дности задаетс€ пользователем)
                                                                 јмперметр от0 до 999  (положение точки  задаетс€ пользователем)
* 2 светодиодных диспле€, каждый отвечает за свой канал
* дл€ удобства настройки на каждом индикаторе отображаютс€ уставки только своего канала, причем, второй индикатор продолжает показывать измер€емую величину
* также при неверном вводе уставок, по€вл€етс€ сообщение ошибки на дисплее соответствующего канала
* осуществлен автоматический выход из меню через ~5 сек.
* автоматическое определение рабочего режима (нагреватель/охладитель)  -    при ton<t<toff - режим нагревател€
                                                                                                                        при ton>t>toff - режим охладител€
                                                   ( схема универсальна и дл€ V-A слова несколько чужды но смысл € думаю €сен)                                 
* в основном режиме, при удержании кнопки +, нажима€ на кнопку выбор у первого идикатора мен€етс€ разр€д, в котором будет гореть точка
* в основном режиме, при удержании кнопки -, нажима€ на кнопку выбор у второго идикатора мен€етс€ разр€д, в котором будет гореть точка
* состо€ние точки на обоих индикаторах сохран€етс€ в EEPROM
јрхив дл€ сборки

ќтредактировано Coviraylhik (2011-07-14 18:59:42)

+1

44

—пасибо большое, вроде всЄ пон€тно. “олько вот ещЄ прошивку под ќ  можно ли сделать, под “ќ“3361, каковых имеетс€ кучка? ¬ообще бы прекрасно!

0

45

ѕрошивка с возможностью программного переключени€ типа индикаторов (ќ  или ќј) еще в процессе разработки. „тобы не выкладывать 2 прошивы дл€ разных индикаторов

0

46

Ќормальненько тогда. ѕлатку пока делать буду.

0

47

’≈-’≈   :blush:  так и думал что кто то будет искать с "перламутровыми пуговицами" , а если серьезно дл€ ќ  не проблема ( не проблема в принципе, а € только могу изменить по готовому примеру :( )
јвтор MACTEPok по свободному времени обещалс€ помочь и сделать ќј и ќ  в этой схеме универсально.......
Ќа худой случай будем вручную таблицы дл€ разных индикаторов подставл€ть в исходнике, так что пусть теб€ это не останавливает.

0

48

ѕохоже, проект становитс€ народным :flag:
¬озьмитесь тогда дружно, да оформите статью. ¬ыложим на нашем сайте.
ƒл€ потомков.

0

49

ѕоэкспериментировав с диодом в качестве датчика, по такой вот схеме,

вижу, что он дает неплохие результаты, а именно это соответствующа€ температуре линейность и мала€ инертность (или проще сказать резвость) на изменение температуры. ≈сть, конечно, и минус этой схемы, это аналогова€ настройка этого датчика. Ёто можно сказать некоторый творческий процесс, резистором  R1  настраиваем на 0—∞ в талой воде с остатками льда, а R2 настраиваем  в кип€щей воде это +100—∞, и повторить настройку нужно несколько раз сначала R1, потом R2 пока показани€ не станут соответствовать этим двум диапазонам температуры. ѕосле настройки вижу, что показани€ весьма стабильны.
ј дальше по€вилась така€ мысль, что его также можно заставить показывать и отрицательную температуру (честно говор€, аналогов такому в интернете не встречал).

ћј—“≈–ок, посмотрите пожалуйста, вот на эту схему - график, можно ли программно так  из положительного напр€жени€ на ј÷ѕ, вывести показани€ на дисплей со знаком минус.
≈сли конечно на практике это получитс€, то в очереди по€витс€ второй вопрос, уставка будет работать только в положительном диапазоне температур?

увеличить

увеличить

ќтредактировано Coviraylhik (2011-07-17 14:24:25)

0

50

”х! ћощно  :yep: ѕрограммно это будет выгл€деть как изменение формулы обработки результата ј÷ѕ и уставок - это не проблема. ј в железе потребуетс€ дополнительный пин на этот минус индикатора, либо индикатор на 4 цифры.

“ребуетс€ все это совместить с тем, что выше тут добавили к изначальной схеме?  :question:

0

51

ƒа нет же, по прежнему обойдемс€ трем€ цифрами, минимальные показани€ отр. тепературы -99.
—овмещать это пока не стоит, так как это только мысль така€ , измерение отр. температуры диодом это пока в теории, € уже писал что не встречал такого (да € много чего ещЄ не видал :)) можно попробовать, € здесь на форуме потому и написал , ведь одна голова хорошо .... может кто поддержит такую идею, а может кто и опровергнет, короче теори€ опровергаетс€ практикой :) !!!

0

52

да в чЄм собс-но проблема?  алибруйте нижний порог при -99 , а не при нуле и програмно вычисл€йте.  стати и ваш "минус" тоже думаю легко решить програмно.

ќтредактировано kip (2011-07-17 23:33:16)

0

53

¬ таком случае написать отдельную прошивку и вложить р€дом с первой. ≈сли цена делени€ будет в 1 градус, то особо и мен€ть ничего не придетс€. Ќо дл€ начала, все таки, нужно закончить с двухканальным... даже не знаю, как теперь его назвать :D

ќтредактировано MACTEPok (2011-07-18 08:05:06)

0

54

–аз "пошла така€ пь€нка" прибор уже пора переименовать.
“олько непон€тны несколько моментов:
зачен "извращатьс€" с 1N4148 когда есть LM35 с линейным
выходом, а дл€ высоких температур есть св€зка - термопара
хромель алюмель (тип  ) + AD596.
ј чтобы прибор больше "занималс€ своим делом" € заменил
динамическую индикацию на статическую и добавил LCD 12x2.
Ќ” и выходов добавил, через PCF8574.

0

55

alex_r61
 ому ведь как удобнее. ¬ыкладывайте варианты ваших схем и прошивок, всем будет интересно, и каждый выберет дл€ себ€.  ритерии выбора нашей схемы были оговорены выше.

0

56

 аналов ј÷ѕ - 5, цифровых выходов -8, кнопки занимают один канал ј÷ѕ и их
количество легко увеличить, есть последовательный порт, индикаторов 5(€ использовал
готовый дисплей LDM205) их также легко увеличить. ќ  или ќј не важно, достаточно
проинвертировать данные в таблице.
Ёто тест программа:

 од:
$regfile = "m168def.dat"
$crystal = 8000000
$lib "i2c_twi.lbx"

Const Key_set = 0                                           'кнопка SET
Const Key_up = 104                                          'кнопка UP
Const Key_dw = 24                                           'кнопка DOWN
Const Key_ex = 12
'-------------------------------------------------------------------------------
Portd = $0
Ddrd = $fd
Portb = 0
Ddrb = $3f
                                            

Dim W As Word
Dim B As Byte , X As Byte , I As Byte
Dim Digit(8) As Byte       
Dim Light As Integer
Dim S As Single
Dim Pout As Byte
Dim Flash As Byte , Ntick As Bit

Config Scl = Portc.5
Config Sda = Portc.4
Config Twi = 100000
Waitms 1

Pout = 0
I2cstart
I2cwbyte $40
I2cwbyte Pout
I2cstop

Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Clockrate = 64
Spiinit
For X = 1 To 5 
   Digit(x) = $ff
Next

Config Com1 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Open "com1:" For Binary As #1
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portb.1 , Rs = Portb.0
Config Adc = Single , Prescaler = 16 , Reference = Avcc     'настраиваем ј÷ѕ
Config Timer1 = Timer , Prescale = 64


Cursor Off Noblink
Cls
Lcd "U meter"

Spiout Digit(1) , 5
Portb.2 = 1
Waitus 1
Portb.2 = 0

Flash = 0
Reset Ntick

Print "Start"
Wait 1
Cls
'-------------------------------------------------------------------------------
Timer1 = $1f01
Enable Interrupts
Enable Timer1 : On Timer1 Tick_1s
Start Timer1

Do
   Light = Getadc(3)                                        'опрос фоторезистора
   S = Light / 10.23
   W = S
   Print #1 , "ADC3 " ; W
   Wait 1
   W = Getadc(0)
   B = W / 2
   Print #1 , "ADC0 " ; B
   Locate 1 , 1
   Select Case B
      Case Key_set : Lcd "Key SET "
      Case Key_up : Lcd "Key UP  "
      Case Key_dw : Lcd "Key DOWN"
      Case Key_ex : Lcd "Key EXIT"
      Case Else : Lcd "         "
   End Select
   Wait 1
Loop

'===============================================================================
Tick_1s:
   Timer1 = $1f01
Return

0

57

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

“олько непон€тны несколько моментов:зачен "извращатьс€" с 1N4148 когда есть LM35 с линейным

в том-то и дело, что LM35 нет, а 1N4148 как г :-) на. “ем-более, что действительно, даЄт хорошие показатели!
«аинтересовалс€, и накидал программку дл€ проверки.

 од:
'датчик температуры - диод в пр€мом включении(катодом на минус , анодом на порт —4.
' ¬ качестве источника тока-внутренний подт€гивающий резистор

$regfile = "m8def.dat"
$crystal = 8000000
                                            'используем 4-х битное подключение диспле€ с помощью альтернативной библиотеки



'указываем конфигурацию подключени€ диспле€ к портам ћ 
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.2 , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
Config Lcd = 16 * 1a
Config Portd = Output
Config Pind.4 = Input
Config Adc = Single , Prescaler = Auto , Reference = Internal


Set Portc.4
Set Portd.4
Kn Alias Pind.4
'объ€вл€ем переменные
Dim W As Word
Dim A As Single
Dim V As Single , K As Single
Dim S As String * 6
Dim X As Word
Dim E As Byte
Dim I As Byte
Dim Y As Byte , T As Byte
Dim Nool As Word , Sto As Word
Dim Nol As Eram Word , Ke As Eram Single
Start Adc                                                   'запускаем аналого-цифровое преобразование


If Kn = 0 Then Goto Aa                                      ' при нажатой кнопке при включении переходим на измерение температуры
Cursor Off                                                  'отключаем отображение курсора на ∆ 
Cls                                                         'очитка диспле€


'калибровка
Do                                                          'остужаем датчик до нул€
 Gosub Zamer
Nool = W
Home
Lcd "cool.." ; W                                            'показываем значение ј÷ѕ при нуле
'Waitms 200
If Kn = 0 Then Exit Do                                      'при нажатии кнопки запоминаем значение и переходим дальше
Loop
Nol = Nool
Cls
Lcd "wait..."
Wait 1
Do                                                          'нагреваем датчик до ста
Gosub Zamer
Sto = W
Home
Lcd "heat..." ; W
'Waitms 200
If Kn = 0 Then Exit Do
Loop
Cls
Lcd "wait..."
W = Nool - Sto                                              'вычисл€ем коэфициент
K = W / 100
Ke = K
Wait 1


'-------------------------------------------------------------
'главный цикл программы
Aa:
Nool = Nol
K = Ke
Do

 Gosub Zamer
 A = Nool - W

V = A \ K
Locate 1 , 1
  Lcd W ; "    "
 S = Fusing(v , "#.#")
Locate 2 , 1
Lcd "t=" ; S ; "   "                                        'выводим результат преобразовани€ на ∆ 
Waitms 200
Loop

Zamer:
X = 0
For E = 1 To 10
 W = Getadc(4)                                              'уменьшаем ошибку
X = X + W
 Next
 W = X / 10
 Return

ќтредактировано kip (2011-07-24 20:37:49)

0

58

kip тоже интересуюсь , только ваша программка по какой схеме должна работать?
что то в коде  с коментари€ми , мне они видны так -  'óêàçûâàåì êîíôèãóðàöèþ ïîäêëþ÷åíèÿ äèñïëåÿ ê ïîðòàì ÌÊ

0

59

ѕрицепилась наконец...

увеличить

ќтредактировано alex_r61 (2011-07-24 14:36:24)

0

60

Ќу да, у мен€ так-же отоброжалось. √люк какаой-то . —ейчас перезалил - вроде нормально....?...

0


¬ы здесь » ѕрограммирование ATMEL в BASCOM. » √отовые конструкции » ‘отореле. —умеречный выключатель