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
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
Posty: 1
• Strona 1 z 1
Wróć do „Kącik lampowy / elektronika retro”
Przejdź do
- Forum EdW - regulamin, wskazówki i opinie
- ↳ Regulamin forum oraz wskazówki dla początkujących
- ↳ Opinie o Forum "EdW" i stronie Elportal.pl
- Czasopismo "Elektronika dla Wszystkich" - opinie i uwagi
- ↳ Uwagi do bieżącego i archiwalnych numerów EdW
- Elektronika
- ↳ Podstawy elektroniki - teoria i praktyka
- ↳ Elektronika - dyskusje ogólne
- ↳ DIY - projekty użytkowników forum
- ↳ Warsztat
- ↳ Układy audio
- ↳ Serwis urządzeń elektronicznych
- ↳ Programy wspomagające projektowanie
- ↳ Robotyka i modelarstwo
- ↳ Kącik lampowy / elektronika retro
- ↳ Szkoła konstruktorów
- ↳ Poszukiwania
- ↳ Dane katalogowe
- ↳ Szukam schematu/PCB
- ↳ Gdzie kupić?
- Komputery, mikroprocesory i technika cyfrowa
- ↳ Mikroprocesory i technika cyfrowa
- ↳ Technika cyfrowa
- ↳ 8051
- ↳ AVR/AVR32
- ↳ PIC
- ↳ ARM
- ↳ MSP430
- ↳ PSoC
- ↳ Komputery
- ↳ Komputery - dyskusje ogólne
- ↳ Programowanie komputerów
- Warto zajrzeć
- ↳ Książki i czasopisma oraz interesujące linki
- ↳ Szkoły i uczelnie
- Inne
- ↳ Hyde Park
- ↳ Prace domowe - sprawozdania, projekty, zaliczenia itp.
- ↳ Śmietnik
- Kramik
- ↳ Sprzedam
- ↳ Kupię
- ↳ Zamienię
- ↳ Praca