Termometru

CD4066,tot feturi foloseste,cate doua antiparalel,pentru fiecare comutator,fiind bidirectional.Bipolar nici n-ar fi putut folosi,datorita caderii de tensiune,CE,mult mai mare....

Quote

Ok, pana la urma cred ca am sa merg pe varianta flasher-ului de leduri clasic cu 555 si un pnp in loc de ledul 1 din schema clasica care sa imi comande o poarta in CD4066 cand outputul 555-ului e low, iar in locul ledului 2 leg direct o alta poarta. Apreciez ca e acelasi lucru ca si varianta ta cu doua NPN, avantajul e ca in cazul 555 in ucenicie am mai facut "licurici" inclusiv cu durata variabila selectabila si ar prinde bine un astfel de "feature" si in cazul asta.

Daca folosesti 555,foloseste sugestia data de @f300;in locul pnp-ului folosesti unul din comutatoarele ramase libere,pe post de inversor.De exemplu,pinul 13 il legi la iesirea din 555,pinul 1 il pui la masa,intre pinul 2 si plus,o rezistenta de 10K.Vei avea doua iesiri defazate,pt comanda ;iesirea din 555 si pinul 2.Simplifici astfel montajul...

Ok, poate ca postez o prostie, dar e mai bine sa o postez decat sa fac lipituri si abia apoi sa constat prostia. Am inteles corect explicatia ta?

Eu zic ca asta este (cel putin pe partea cu switch-urile). Ai facut un test simplu mai intii sa vezi daca iti modifica valoarea masurata cind introduci integratul asta in circuit, sa nu muncesti degeaba?

pisicamatache, on 21st April 2012, 22:40, said:

Nu m-am gindit la contacte reed "cit pumnul" asemanatoare celor folosite in auto la semnalizari ,etc....care au nevoie de cimpuri mari pentru inchidere.
Sint si contacte reed cit un sfert din lungimea unui bat de chibrit si diametru aproape identic.
Citeva spire nu inseamna ,intradevar ,3 sau 4 .
Da' nici de ordinul miilor.
La urma urmei un 555 duce pe iesire 200mA si chiar alimentat la 5 volti debiteaza 1000mW .
Deci ceva mai putin decit Ptotal decit este el capabil.

Nu o lua personal,cele ...cateva spire... m-a facut sa raspund.Un contact Reed,e totusi scump si greu de gasit,comparativ cu CD4066...

pisicamatache, on 22nd April 2012, 14:59, said:

Niciodata.

buna seara
stiu ca poate nu e locul potrivit dar adresez si eu o intrebare
cu un atmega8 si un senzor LM35 se poate face un termometru care sa afiseze rezultatul digital pe un display de NEC e616?
ma intereseaza doar daca se poate utiliza display-ul
cam asa arata el
http://web.tradekore...creen_panel.jpg

Edited by Buddy1, 28 August 2012 - 19:10.

salut
ma poate ajuta si pe mine cineva cu o schema pt un termometru cu ATmega8 si LM35?
afisarea as vrea sa o fac pe digiti pt ca un display este destul de scum
ma gandeam la 3 sau 4 digiti daca e sa afisez si simbolul
as prefera o schema care sa aiba dat deja si codul sursa

buna ziua
am de gand sa fac acest termometru http://atmega32-avr....using-at-mega8/
acuma am si eu o intrebare: cum se poate adapta sa afiseze pe un display de nokia 3310?
atasez si codul

' ***************************************************************************
' *
' * Title         : LCD Thermometer LM35.bas
' * Version       : 1.0
' * Last Updated :  17.04.2006
' * Target        : AT Mega8
' * Author        : www.avrprojects.net
' * Program code  : BASCOM AVR
' * Hardware req. : LM35
' * Description   : read analog value from LM 35 temperature sensor, show the result on a LCD
' *                 display with bar-graph
' ***************************************************************************
$regfile = "M8def.dat"                                      ' use the Mega8

$crystal = 10000000

Deflcdchar 0 , 32 , 32 , 31 , 31 , 31 , 31 , 32 , 32        ' replace ? with number (0-7)'
Deflcdchar 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1                ' replace ? with number (0-7)
Deflcdchar 2 , 16 , 16 , 16 , 16 , 16 , 16 , 16 , 16        ' replace ? with number (0-7)
Deflcdchar 3 , 16 , 16 , 31 , 31 , 31 , 31 , 16 , 16        ' replace ? with number (0-7)
Deflcdchar 4 , 1 , 1 , 31 , 31 , 31 , 31 , 1 , 1            ' replace ? with number (0-7)
Deflcdchar 5 , 32 , 32 , 28 , 28 , 28 , 28 , 32 , 32        ' replace ? with number (0-7)

Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.6 , Rs = Portd.7

Config Lcd = 20 * 4

Config Adc = Single , Prescaler = Auto , Reference = Avcc   'config ADC

Start Adc

Dim W As Word , Perc As Word , Volt As Word , Volt_d As Byte , Channel As Byte , I As Byte , Cols As Byte , Cols_d As Byte

Cls
Cursor Off
Locate 3 , 1
Lcd "0"
Locate 3 , 5
Lcd "10"
Locate 3 , 10
Lcd "20"
Locate 3 , 15
Lcd "30"
Locate 3 , 19
Lcd Chr(223) ; "C"

Do
  W = Getadc(0)
  Volt = W * 5
  Volt_d = Volt Mod 10
  Volt = Volt / 10
  Locate 1 , 1
  Lcd Volt ; "," ; Volt_d

  Cols = Volt / 2

  Locate 2 , 1
  For I = 1 To Cols
   Select Case I
   Case 1 : Lcd Chr(3)
   Case 5 : Lcd Chr(4)
   Case 10 : Lcd Chr(4)
   Case 15 : Lcd Chr(4)
   Case 20 : Lcd Chr(4)
   Case Else : Lcd Chr(0)
  End Select
  Next I

  Cols_d = Cols Mod 2
  If Cols_d > 0 Then
  Lcd Chr(5)
  Cols = Cols + 2
  Else
  Cols = Cols + 1
End If

  For I = Cols To 20
  Select Case I
   Case 1 : Lcd Chr(2)
   Case 5 : Lcd Chr(1)
   Case 10 : Lcd Chr(1)
   Case 15 : Lcd Chr(1)
   Case 20 : Lcd Chr(1)
   Case Else : Lcd Chr(32)
   End Select
   Next I

   Waitms 1000
  Loop
End

Edited by pitic20, 08 September 2012 - 12:17.

nu stie nimeni??

razyell_3x, on 09 aprilie 2012 - 17:48, said:

Daca nu e cu deranj as vrea si eu schema montajului de mai sus, daca se poate. Si o intrebare: merge si pe auto? Pentru a nu fi acuzat de lene si ca doresc totul mura in gura,dupa ce ati muncit atat la ea, vreau sa va spun ca anumite siteuri si scheme atasate nu le pot deschide. Va multumesc anticipat!

Sa fie asta schema? Dar modificata?  LM35_ICL7107_ICL7660_termo_sch.gif   30.92K   29 downloads

Salut. I-mi cer scuze de intarziere.
Atasez alaturi o schema de termometru cu microcontroler functionabila.
Am atasat si simularea in PROTEUS si hex-ul.

Quote

uite ca si exemplu poti folosi codul de mai jos, bineintels cu configurarea pinilor intre MC si display.
Schema este de la un proiect personal mai vechi ( un bord electronic de scuter ).

'Configuratia pinilor LCD-ului si conectarea acestora la atmega8
'1-VDD = +3,3V
'2-SCK = PB1 ( PIN15 )
'3-SDIN = PB2 ( PIN17 )
'4-D/C = PB3
'5-SCE = PB4 poate fi pus si la GND
'6-GND = GND
'7-VOUT = condesantor
'8-RST = PB5

$regfile "m8def.dat"
$crystal = 12000000
'configurarea portului B ca iesire si portb.0 este folosita pentru alimentarea
' display-ului cu o mica intarziere de la alimentare pentru a nu aparea paraziti
'pe display

Portb = 0
Wait 1
Portb.0 = 1

Dim W As Word,Volt As Word , Volt_d As Byte,B1 As Byte
Dim Text As String * 13
Dim Sign As String * 1
Dim Lenght As Byte
Dim Loops As Byte , Pas As Word

'declararea functiei de trimitere de date
'Valoare este imformatia care trebuie trimisa
Declare Sub Data_send(byval Valoare As Byte )
Declare Sub Position(byval X_pos As Byte , Byval Y_pos As Byte)
Declare Sub Initializare
Declare Sub Words
Declare Sub Clslcd

'atriburirea pinilor Dc, Sce si Rst
Dc Alias Portb.3
Sce Alias Portb.4
Rst Alias Portb.5

Waitms 100
'configurarea modului de trimitere de date.
'"Din" nu este importanta deoarece MC-ul nu primeste date de la LCD

Config Spi = Soft , Din = Portb.6 , Dout = Portb.2 , Ss = None , Clock = Portb.1
'initializarea trimiteri de date
Spiinit

Rst = 1
'initializarea display-ului
Initializare
Waitms 10
Dc = 1
Waitms 50
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'config ADC


Do
Position 0 , 1
'Temp 1
W = Getadc(0)
Volt = W * 5
Volt_d = Volt Mod 10
Volt = Volt / 10
Text = "TEMP INT "
Call Words
Text = Str(volt)
Call Words
Text = ","
Call Words
Text = Str(volt_d)
Call Words
Text = " "
Call Words
'temp2
Position 0 , 2
W = Getadc(1)
Volt = W * 5
Volt_d = Volt Mod 10
Volt = Volt / 10
Text = "TEMP EXT "
Call Words
Text = Str(volt)
Call Words
Text = ","
Call Words
Text = Str(volt_d)
Call Words
Text = " "
Call Words

waitms 50
Loop
End


'************************************ RUTINE SI TABELE DE DATE *********************
'subrutina de sterge a display-ului
Sub Clslcd
For Pas = 1 To 504
Data_send &H00
Next
End Sub
'subrutina de initializare a display-ului
Sub Initializare
Data_send &H21
Data_send &H90
Data_send &H20
Data_send &HC
Data_send &H80
End Sub

' subrutina de trimitere de date
Sub Data_send
Spiout Valoare , 1
End Sub

'------------Position x & y---------------------------------------------------
Sub Position(byval X_pos As Byte , Byval Y_pos As Byte)
Dc = 0
'in modul comanda
Y_pos = Y_pos Xor &H40
'Y_pos=0 la 5
Spiout Y_pos , 1
X_pos = X_pos * &H06 'X_pos=0 la 83
Spiout X_pos , 1
Dc = 1 'inapoi in modul de date
End Sub

'rutina de verificare a fiecarui caracter din string
Sub Words()
Lenght = Len(text)
For Loops = 1 To Lenght
If Loops = 1 Then
Sign = Left(text , 1)
Elseif Loops = Lenght Then
Sign = Right(text , 1)
Else
Sign = Mid(text , Loops , 1)
End If
If Sign = "/" Then Restore Slash:
If Sign = "," Then Restore Comma:
If Sign = " " Then Restore Spcs:
If Sign = "0" Then Restore 0:
If Sign = "1" Then Restore 1:
If Sign = "2" Then Restore 2:
If Sign = "3" Then Restore 3:
If Sign = "4" Then Restore 4:
If Sign = "5" Then Restore 5:
If Sign = "6" Then Restore 6:
If Sign = "7" Then Restore 7:
If Sign = "8" Then Restore 8:
If Sign = "9" Then Restore 9:
If Sign = "A" Then Restore A:
If Sign = "B" Then Restore B:
If Sign = "C" Then Restore C:
If Sign = "D" Then Restore D:
If Sign = "E" Then Restore E:
If Sign = "F" Then Restore F:
If Sign = "G" Then Restore G:
If Sign = "H" Then Restore H:
If Sign = "I" Then Restore I:
If Sign = "J" Then Restore J:
If Sign = "K" Then Restore K:
If Sign = "L" Then Restore L:
If Sign = "M" Then Restore M:
If Sign = "N" Then Restore N:
If Sign = "O" Then Restore O:
If Sign = "P" Then Restore P:
If Sign = "Q" Then Restore Q:
If Sign = "R" Then Restore R:
If Sign = "S" Then Restore S:
If Sign = "T" Then Restore T:
If Sign = "U" Then Restore U:
If Sign = "V" Then Restore V:
If Sign = "W" Then Restore W:
If Sign = "X" Then Restore X:
If Sign = "Y" Then Restore Y:
If Sign = "Z" Then Restore Z:
	 For Count = 1 To 6
	 Read B1
	 Data_send B1
	 Next
Next Loops
End Sub
'***********************tabelul de caractere font 5x8***********************

Spcs:
Data &H0 , &H0 , &H0 , &H0 , &H0 , &H0
Comma:
Data &H00 , &H00 , &H50 , &H30 , &H00
Slash:
Data &H20 , &H10 , &H08 , &H04 , &H02					 ' /
0:
Data &H0 , &H3E , &H41 , &H41 , &H41 , &H3E
1:
Data &H0 , &H0 , &H41 , &H7F , &H40 , &H0
2:
Data &H0 , &H42 , &H61 , &H51 , &H49 , &H46
3:
Data &H0 , &H22 , &H41 , &H49 , &H49 , &H36
4:
Data &H0 , &H18 , &H14 , &H52 , &H7F , &H50
5:
Data &H0 , &H4F , &H49 , &H49 , &H49 , &H31
6:
Data &H0 , &H3E , &H49 , &H49 , &H49 , &H32
7:
Data &H0 , &H3 , &H1 , &H71 , &H9 , &H7
8:
Data &H0 , &H36 , &H49 , &H49 , &H49 , &H36
9:
Data &H0 , &H26 , &H49 , &H49 , &H49 , &H3E
A:
Data &H0 , &H78 , &H16 , &H11 , &H16 , &H78
B:
Data &H0 , &H7F , &H49 , &H49 , &H49 , &H36
C:
Data &H0 , &H3E , &H41 , &H41 , &H41 , &H22
D:
Data &H0 , &H7F , &H41 , &H41 , &H41 , &H3E
E:
Data &H0 , &H7F , &H49 , &H49 , &H49 , &H41
F:
Data &H0 , &H7F , &H9 , &H9 , &H9 , &H1
G:
Data &H0 , &H3E , &H41 , &H41 , &H49 , &H3A
H:
Data &H0 , &H7F , &H8 , &H8 , &H8 , &H7F
I:
Data &H0 , &H0 , &H41 , &H7F , &H41 , &H0
J:
Data &H0 , &H30 , &H40 , &H40 , &H40 , &H3F
K:
Data &H0 , &H7F , &H8 , &H14 , &H22 , &H41
L:
Data &H0 , &H7F , &H40 , &H40 , &H40 , &H40
M:
Data &H0 , &H7F , &H2 , &HC , &H2 , &H7F
N:
Data &H0 , &H7F , &H6 , &H8 , &H30 , &H7F
O:
Data &H0 , &H3E , &H41 , &H41 , &H41 , &H3E
P:
Data &H0 , &H7F , &H9 , &H9 , &H9 , &H6
Q:
Data &H0 , &H3E , &H41 , &H51 , &H21 , &H5E
R:
Data &H0 , &H7F , &H9 , &H19 , &H29 , &H46
S:
Data &H0 , &H26 , &H49 , &H49 , &H49 , &H32
T:
Data &H0 , &H1 , &H1 , &H7F , &H1 , &H1
U:
Data &H0 , &H3F , &H40 , &H40 , &H40 , &H3F
V:
Data &H0 , &HF , &H30 , &H40 , &H30 , &HF
W:
Data &H0 , &H3F , &H40 , &H38 , &H40 , &H3F
X:
Data &H0 , &H63 , &H14 , &H8 , &H14 , &H63
Y:
Data &H0 , &H7 , &H8 , &H70 , &H8 , &H7
Z:
Data &H0 , &H61 , &H51 , &H49 , &H45 , &H43

Edited by tehnics, 25 November 2013 - 13:12.