Poprzedni temat «» Następny temat
Termometr (baragraf) Nixie AVT 5452 - problem
Autor Wiadomość
Nick_2


Dołączył: 09 Maj 2007
Posty: 104
Wysłany: 2016-04-15, 21:55   Termometr (baragraf) Nixie AVT 5452 - problem

Witam
Ostatnio udało mi sie zakupic lampy elektronowe IN-13 i postanowiłem zbudowac z nich termometr w stylu retro. Poszukałem troche w internecie i znalazłem kit ktory jakis czas temu był opublikowany na łamach EP:
http://serwis.avt.pl/manuals/AVT5452.pdf

Zrobiłem płytkę, zaprogramowałem układ i... klapa. Po pierwsze po podłaczeniu lampy pokazał sie na niej pionowy pasek ale co sekundę zapała sie i gasnął. Okazało sie ze napięcie przetwornicy "siadało" do 100V. Wykonałem przetwornice na układzie NE555, zgodnie z notą katalogową lampy zbudowałem układ testowy z tranzystorem i potencjometrem ktorym mozna regulowac prąd płynacy przez lampę. Testy wyszły ok ale po podłaczeniu wyjscia ze wzmacniacza zgodnie ze schematem w lampie świeci sie cały pasek i nie ma zadnej reakcji na ogrzewanie czujnika.
Poniżej zamieszczam listing oprogramowania napisanego w bascomie, byłbym wdzieczny za sprawdzenie. Dodam tylko że na wyjsciu PWM jest cały czad napiecie 5V niezależnie od ogrzewania czujnika. Jedynie przy zalozeniu zwory spada do 3,5V

'Analogowy termometr nixie
'Projekt wykonał Krzysztof Gońka
$regfile = "attiny2313.dat"
'$crystal = 1000000
Config Portb.0 = Input
Config Portb.3 = Output
Config Portd.3 = Output
Config 1wire = Pind.3
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect
Portb.0 = 1
Portb.3 = 0
Portb.3 = 1
Dim Temperatura As Word
Dim Lsb As Byte
Dim Msb As Byte
Dim Reszta As Byte
Dim Indeks As Byte
Dim Pwm As Byte

Do
If Pinb.0 = 0 Then
Pwm1a = 107
Else
Gosub Pomiar
If Temperatura > 9 And Temperatura < 45 Then
Indeks = Temperatura - 10
Pwm = Lookup(indeks , Wartosci_pwm)
Pwm1a = Pwm
Else
Pwm1a = 0
End If
Wait 2
End If
Loop
End

Pomiar:
1wreset
If Err = 1 Then
Do
1wreset
If Pinb.0 = 0 Then
Pwm1a = 107
End If
Loop Until Err = 0
End If
1wwrite &HCC
1wwrite &H44
Waitms 750
1wreset
1wwrite &HCC
1wwrite &HBE
Lsb = 1wread()
Msb = 1wread()
1wreset
Temperatura = Msb
Shift Temperatura , Left , 8
Temperatura = Temperatura + Lsb
Reszta = Temperatura Mod 16
Shift Temperatura , Right , 4
If Reszta >= 8 Then
Incr Temperatura
End If
Return

Wartosci_pwm:
Data 8 , 14 , 21 , 28 , 34 , 41 , 48 , 54 , 61 , 68 , 74 , 81 , 88,
Data 94 , 101 , 107 , 114 , 121 , 127 , 134 , 141 , 147 , 154 , 161,
Data 167 , 174 , 181 , 187 , 194 , 200 , 207 , 214 , 220 , 227 , 234
 
     
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  


Powered by phpBB modified by Przemo © 2003 phpBB Group
Strona wygenerowana w 0,02 sekundy. Zapytań do SQL: 10