um dort dann ein akustisches wie auch visuelles Signal aus zu lösen.
Alternativ hab ich noch einen gleichen Sender allerdings nicht mit einem Radarsignal , sondern mit einen PIR Sensor ausgestattet.
So hab ich die Möglichkeit eine Signal per PIR Sensor oder per Radar zu erfassen.
Warum diese beiden Möglichkeiten ?
Radarsensoren reagieren auf Bewegung und haben den Vorteil auch durch dünnes Holz, Glas, usw eine Bewegung zu erfassen,
haben allerdings auch den Nachteil auf nicht vermeidbare Bewegungen zu reagieren wie sie beispielsweise bei durch einen Windzug
entstehende Bewegung von Blätter in Erscheinung treten.
PIR Sensoren reagieren auf Temperaturdifferenzen die auftreten wenn z.B. ein Mensch oder Tier sich Temperaturmäßig von seiner Umgebung abhebt..
Diese Sensoren können aber keine Temperatur durch Glas hindurch erfassen.
aber ein Piezo Summer als Alarm Melder hinzugefügt wird.
Dementsprechend ist auch die Software der beiden Schaltungen nicht identisch.
Ich bezeichne ihn aber dennoch als Sender weil es seine Hauptfunktion sein soll ein Signal zu senden sobald das Radarmodul eine Bewegung registriert hat.
der sich auf 3,6864 MHz beläuft.
Es funktionieren natürlich auch andere Quarze, die sollten aber an eine Baudrate von 9600 angepasst sein.
damit nicht für jedermann ersichtlich ist das der Radar Sender aktiv ist außerdem wird dadurch Strom gespart.
SenderDer Ausgang des Radarmodul liegt auf Minus und geht bei Bewegungserkennung für eine festgelegte Zeit von ca. 2 bis 3 Sekunden auf Plus,
bei erneuter Betätigung wird nachgetriggert.
Wenn der Eingang CDS ( Freigabe) auf Minus gelegt wird ist das Radarsignal unterbunden, ein unbelegter Eingang gibt das Signal wieder frei.
Diese Funktion wird bei dieser Schaltung aber nicht genutzt.
es gibt auch Module mit der Bezeichnung HC11 die Baugleich und Pin Kompatible sind allerdings nicht die gleichen Protokolle benutzen.
Laut Datenblatt soll es möglich sein, einige Parameter des Modul HC 12 anzupassen, was mir trotz Intensiver
Versuche aber nicht gelungen ist.
Auch beim testweise Aufbau mit den Modul HC 11 ließen sich die Parameter nicht ändern.
Das Modul HC12 kann ohne Probleme mit dem Modul HC11 ausgetauscht werden, es müssen dann
allerdings beide, also am Sender und am Empfänger getauscht werden.
| $regfile "m8def.dat"
|
Definiert den Atmega als Atmega8 |
| $crystal = 3686400 |
Gibt die Quarzfrequenz an in Herz |
| $hwstack =
32 |
Default use 32 Hardware reservierte Speicher |
| $swstack =
10 |
Default Software resvierung Speicher |
| $baud = 9600 | Geschwindigkeit der UART Schnittstelle setzen |
| Ddrd.5 = 1 |
Ausgang für Rote Betriebs Led setzen |
| Sreg.7 = 1 | Interrupt Gloabal einschalten |
| Gicr = &B01000000 | Interrupt 0 einschalten, Bit 6 setzt
Interrupt 0- Bit 7 setzt Interrupt 1 |
| Mcucr = &B00000011 | Interrupt reagiert bei steigender Flanke |
| On Int0 Senden | Namen der Interrupt Routine die angesprungen
wird wenn an Pind.2 ein Signal erfasst wird |
| Do | Schleifen
Anfang |
| for T=0 to 100 |
Schleifenanfang
|
| waitms 300 |
Pause |
| portd.5=1 |
Rote
Led einschalten |
| waitms 15 |
Pause |
| portd.5=0 |
Rote
Led aus schalten |
| next T |
Schleife
nach 100 Durchläufe beenden |
| Loop | Ende
der Programmschleife |
| Senden: | Routine
die beim ausgelösten Interrupt an Pind.2
angesprungen wird |
| Print "A" | Das
ASKII Zeiche "A" per Funk senden |
| Wait 2 |
Pause |
| Return |
Rücksprung
zum Punkt an dem das Programm wegen des Interrupt
unterbrochen wurde |
es wurde das Radarmodul weg gelassen dafür aber ein Piezo zur akustischen Alarmmeldung angebracht.
Wenn durch einen Sender ein Alarm auslöst wird blinkt die Blaue Led für einige Sekunden und eine kurzer Piep Ton ist zu hören.
Anschließend blinkt die Grüne Led als Anzeige für die Anzahl der eingegangenen Alarme.
Also dreimal blinken für drei entgangene Alarme usw.
Empfänger| $regfile "m8def.dat" |
Definiert den Atmega als Atmega8 |
| $crystal = 3686400 |
Gibt die Quarzfrequenz an in Herz |
| $hwstack = 32
|
Default use 32 Hardware reservierte Speicher |
| $swstack = 10 |
Default Software resvierung Speicher |
| $baud = 9600 | Geschwindigkeit
der UART Schnittstelle setzen |
| Ddrd.5 = 1 |
Ausgang für Rote Betriebs Led setzen |
| Ddrd.7 =
1
|
Ausgang für Blau Sende-Led setzen |
| Ddrc.2 = 1 | Ausgang für Grüne Melder setzen |
| Ddrc.5 = 1 |
Ausgang für Piezo Summer setzen |
| Sreg.7 = 1 | Interrupt Gloabal einschalten |
| Portc.5=1 |
Voreinstellen das Piezo aus ist |
| Portc.2=1 |
Voreinstellen das Grüne Led aus ist |
| Dim K as Byte |
Variable zum
aufaddieren der eingehenden Meldungen |
| Dim M as Byte |
Variable zum Anzeigen
der eingehenden Alarma |
| Dim Blinken as byte |
Variable aufblitzen
der Blaue Led bei Eingang eines Alarm |
| Voreinstellungen |
|
| Portc.5=1 |
Piezo
aus schalten |
| Waitms 200 |
Pause
, damit Grüne Led kurz aufleuchtet als
einschaltmeldung |
| Portc.2=1 |
Grüne
Led aus schalten |
| Konfiguration zum Empfangen von Daten über die
UART Schnittstelle ( RS 232) |
|
| SREG.7=1 |
Globale freigabe der
Interrupts |
| On Urxc Datemempfang |
Festlegen der Routine
die angesprungen wird wenn Daten eintreffen |
| Enable Urxc |
Interrupt für
Datemempfang freigeben |
| Dim X as Byte |
Variable in der die
eintreffenen Daten kopiert wereden Wenn Daten am RXD Eingang empfangen werden , werden sie im Register URXC 'gespeichert dann wird in Routine Datenemfang gesprungen. |
| Do | Schleifenanfang |
| For M = 1 to K |
|
| Portc.2=0 |
Grüne Led ein
schalten |
| waitms 6 |
Pause |
| Portc.2=1 |
Grüne Led aus
schalten |
| waitms 300 |
Pause |
| Next M |
|
| Portd.5=1 |
Rote
Led an |
| Waitms 30 | Pause |
|
Portd.5=0 |
Rote
Led aus |
| Waitms 10 |
Pause |
| Loop | Rücksprung |
| Datenempfang: |
|
| X=UDR |
Empfangenes
Byte in Variable X verschieben |
| if X="A" then Gosub
Alarm |
Abfrage ob ein A
empfangen wurde |
| Return |
|
| Alarm: |
|
| K=K+1 |
Variable speichert die Anzahl
der eingegangenen Alarme |
| Portc.5=0 |
Piezo einschalten |
| waitms 200 |
Pause |
| Portc.5=1 |
Piezo aus schalten |
| for Blinken=1 to 100 |
|
| Portd.7=1 |
|
| waitms 10 |
|
| portd.7=0 |
|
| waitms 100 |
|
| Next Blinken |
|
| Return |
|
Pin1= GND