Der Einzeller         

Blitzwarner für die Hemdentasche (10 bis 19 Bauteile) von Heinz D.                       
Elektronik-Labor  AVR  HF  Projekte 



(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