Der Einzeller
Blitzwarner für die Hemdentasche (10 bis 19 Bauteile) von Heinz D.
(basiert auf der Weiterentwicklung des
Entwurfs vom 29.4.14)
ACHTUNG!!!
Zum Flashen des T13 muss die Versorgungsspannung zu den Dioden und dem TA7642 getrennt werden,
bei 3V/5V verbrennen sie! Am Besten aus der Fassung nehmen.
Es
sollte alles in einen dicken Kugelschreiber, der Piezo war jedoch nicht
hinein zu bekommen. Erfahrungen mit den beiden Warnern von ELV und
Franzis zeigen, das die akustische Anzeige das wichtige Element
darstellt. Getreu dem Motto von Earl Muntz (Leitartikel in ct' Hacks
2/2014) wurde aus allen Entwürfen jene Teile entfernt, die für die
Funktion nicht nötig waren. Übrig blieb der TA7642 mit seiner
notwendigen Beschaltung (~200uA) der einen T13 20PU mit 600kHz (~300uA)
ansteuert. Bei 1,2MHz (ab Werk) werden ~400uA verbraucht. Der Piezo ist
für größere Lautstärke zwischen B2+B3 geschaltet.
Option:
Die LEDs werden mit 100nF (Xc ~2k2) und (Schottky-) Diode angesteuert, sie können auch entfallen.
Auch
das Basic-Programm fiel dem 'Muntzing' zum Opfer: es wird ständig der
Mittelwert der Ausgangsspannung des TA gespeichert, ist der letzte
NF-Wert ~6mV kleiner als der Mittelwert, wird ein Ton erzeugt. Mit dem
gleitenden Mittelwert wird sowohl die Versorgungsspannungs-Schwankung
als auch die Änderung der HF-Lage (Störquellen, Tag/Nacht) ständig
ausgeregelt. Bei zu vielen Fehlalarmen kann die Schwelle etwas erhöht
werden (..9). Mit setzen der Tonzeit wird die Ausgabe auf Piezo/LED
eingeleitet. Nach 255 * ~0,7ms = ~175ms Schleifendurchläufen wird die
Ausgabe (~700Hz) gestoppt.
Optional
wird mit dem Blitz-Zähler eine gelbe/rote LED gesteuert. Mit Reduce
wird alle ~45s der Blitz-Zähler = Warnstufe um 1 reduziert. Die
Schwellen sind in Zeile 62/66 änderbar.
Mit einer AAA-Alkaline
(1,55V) passt alles in eine kleine Tic-Tac-Box. Bei ~500uA sollte sie
Monate halten. Der Franzis-Warner war bereits am 20.11.13 in einer
großen Tic-Tic-Box. Fürs Foto hatte er sie ausgezogen. Beide haben nun
einen 3V-AA-Batteriekasten. Der ELV hat einen Piezosummer (3-12V)
parallel zur Blitz-LED bekommen. (Die Piezos im Gehäuse sind noch
hinreichend laut.)
Erfahrungen:
Alle
drei sind ähnlich empfindlich und warnen gleichzeitig, je nach
Ausrichtung des Ferritstäbchen. Die Antenne hat zwei kleine blinde
Flecke in Richtung ihrer Achse. Portabel hat das kaum Auswirkung,
stationär kann eine ungünstige Ausrichtung zu einer verspäteten Meldung
führen. Das Stäbchen sollte immer waagerecht/horizontal liegen,
vertikal sinkt die Empfindlichkeit. Mit Schottkydioden (1N5817/BAT43
statt 1N4148) können auch weiße, blaue, cyan und pinke LEDs verwendet
werden. Bei nahen Gewittern werden oft (erwünscht) Mehrfachtöne
erzeugt, weil das Entladen der höheren Spannung an C2 etwas länger
dauert. Bei gleichem HF-Teil warnt der Franzis (in Stellung
empfindlich) bei 'man made noise' (Lichtschalter/Zündkerzen) früher und
der Piezo kann nerven (siehe auch 7.8.14: Gewitter-Warnton).
Die Einstellung der Schwelle auf ~6mV (veränderbar) ist bei mir ein
guter Kompromiss. Beim ELV wird die Unterscheidung etwas besser gelöst
und der Piezo an der Blitz-LED warnt selten aber eindeutig.
Alles in allem sind alle drei fast gleich gut, sie unterscheiden sich im Schwierigkeitsgrad:
Einfach: der Franzis-Warner, löten sollte man können.
Mittelschwer: der GW1, der Umbau auf Batteriebetrieb/Piezo erfordert das Verstehen des Schaltplans.
Schwer: der Einzeller, Bauteilbeschaffung, Flashen und Ausführung ist nichts für Anfänger.
Download: 1407-Blitz1v5-bas-hex.zip
Data "1 4 0 7 - B l i t z 1 V 5 " 'Prog-Name im .hex-File
' 1407-Blitz1V5, der Einzeller
' 1,55 Volt/~500uA Gewitterwarner für die Hemdentasche
' dieses Programm dient Ausbildungszwecken
' #############################################################################
' ATTiny13 20PU
' 1 /Reset/B5/Ad0
' 2 B3/Ad3 -> Piezo
' 3 B4/Ad2 <- TA7642
' 4 GND
' 5 B0/mosi/oc0a -> Led rot
' 6 B1/miso/Int0/oc0b -> Led gelb
' 7 B2/Sck/Ad1/T0 -> Piezo + -> Led grün
' 8 +Vcc <- 300uA, -> 2k2, TA7642 (~200uA)
' #############################################################################
'$prog &HFF , &H6A , &HFF , &H00 '1,2MHz ~400uA
'$prog &HFF , &H69 , &HFF , &H00 '600kHz ~300uA
$crystal = 1200000 'ab Werk
$crystal = 600000
$regfile = "attiny13.dat"
$hwstack = 16
$swstack = 16
$framesize = 16
$programmer = 19 'USBASP
Stop Watchdog : Stop Ac ' Strom sparen
Ddrb = &B01111
Rot Alias Portb.0
Gelb Alias Portb.1
Gruen Alias Portb.2 ' +Piezo
Piezo Alias Portb.3
Ta7642 Alias Getadc(2) 'B4
Config Adc = Free , Prescaler = Auto , Reference = Avcc
Dim Mittelwert As Integer
Dim Aktuell As Integer
Dim Schwelle As Integer
Dim Tonzeit As Byte ' Tonezeit
Dim Blitz As Word ' Blitzzähler
Dim Reduce As Word ' ~45s
Do ' ~0,7ms/loop
Mittelwert = Mittelwert + Aktuell
Mittelwert = Mittelwert / 2
Aktuell = Ta7642 ' Getadc
Schwelle = Mittelwert - 3 ' (n+1) * 1,5mV
' negativer Puls aufgetreten ?
If Aktuell < Schwelle Then
Tonzeit = 255 ' Blitzzeit ein
Incr Blitz ' Blitzzähler = Warnstufe
Piezo = 1 : Gruen = 0 ' init
' Waitms 50 ' zur Trennung
End If
' Piezo/Led einschalten ?
If Tonzeit = 0 Then
Piezo = 0 : Gruen = 0 ' aus
Else
Toggle Piezo : Toggle Gruen ' ein
Decr Tonzeit ' alle ~0,7ms runterzählen
End If
' optional: rote/gelbe Led einschalten ? ---------------------------------------
If Blitz > 20 Then ' Led rot ?
Toggle Rot
Else
Rot = 0
If Blitz > 2 Then Toggle Gelb Else Gelb = 0 ' Led gelb ?
End If
' Schleifenzähler zur Reduzierung der Warnstufe für gelb/rot
If Reduce = 0 And Blitz > 0 Then Decr Blitz
Decr Reduce ' alle ~0,7ms runterzählen
Loop
'end ---------------------------------------------------------------------------
Elektronik-Labor
AVR
HF Projekte
