Termometr (baragraf) Nixie AVT 5452 - problem

Czyli elektronika w stylu retro, lampy, układy lampowe i stare radia. Wymiana doświadczeń i porady znawców tematu.
ODPOWIEDZ
Nick_2
Użytkownik
Posty: 105
Rejestracja: 09 maja 2007, 8:11

Termometr (baragraf) Nixie AVT 5452 - problem

Post autor: Nick_2 » 15 kwie 2016, 21:55

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

ODPOWIEDZ