Ethersex_Wiki - Benutzerbeiträge [de-at]

Relais Schalten

2010-05-07T16:31:21Z

DrD:

== Kleines Projekt zum Schalten von Relais ==

Ein ULN2803 wurde mit den 8 Ausgängen des AVR NET-IO von Pollin verbunden. Am Asgang des ULN sind 12V Relais angeschlossen, die die angeschlossenen Geräte schalten (nicht vergessen Pin10 mit der positiven Versorgungsspannung zu verbinden, sonst sind die Freilaufdioden nicht angeschlossen).
Parallel zu dem Relais sind noch LEDs zur Signalisierung des Schaltzustandes angeschlossen.

Zusätzlich wurden noch Tastern an die Eingänge des NET-IO gegen Masse angeschlossen.

== Hier das zugehörige Control6-Skript: ==

<source lang="c">
dnl Taster konfigurieren und einlesen
static uint8_t t1=0;
static uint8_t t2=0;
static uint8_t t3=0;

CONTROL_START

ON STARTUP DO
DDRA &= ~_BV(PA0); dnl switch pin for Input DDRA(PA0) = 0
DDRA &= ~_BV(PA1); dnl switch pin for Input DDRA(PA1) = 0
DDRA &= ~_BV(PA2); dnl switch pin for Input DDRA(PA2) = 0

DDRC |= _BV(PC0); dnl Ausgang Drucker
DDRC |= _BV(PC1); dnl Ausgang Sound
DDRC |= _BV(PC2); dnl Ausgang Festplatte

PORTA |= _BV(PA0); dnl PORTA(PA0) = 1 seite 56 und 57
PORTA |= _BV(PA1); dnl PORTA(PA1) = 1 seite 56 und 57
PORTA |= _BV(PA2); dnl PORTA(PA2) = 1 seite 56 und 57

PORTC &= ~_BV(PC0); dnl Ausgang Drucker
PORTC &= ~_BV(PC1); dnl Ausgang Sound
PORTC &= ~_BV(PC2); dnl Ausgang Festplatte
END

if (!(PINA & 0b00000001)) t1++; dnl prüfen ob Taste gedrückt, falls ja einen Zähler zur Entprellung inkrementieren
else t1=0; dnl ansonsten Zähler wieder auf Null setzen

if (!(PINA & 0b00000010)) t2++;
else t2=0;

if (!(PINA & 0b00000100)) t3++;
else t3=0;

if (t1==5) PORTC ^= (1<<PC0); dnl nach 5*25ms den entsprechenden Port toggeln

if (t2==5) PORTC ^= (1<<PC1);

if (t3==5) PORTC ^= (1<<PC2);

CONTROL_END</source>

Ich musste die Abfrage klassisch mit einer Bitmnusterabfrage machen, da bei mir ein Abfrage des Pins mittels <source lang="c">PINA0</source> usw. nicht funktionierte.
----
Eingebaut wurde das Ganze in einen alten Router. Einzige Modifikation am NET-IO ist ein Kühlkörper am 7805, da ich nur ein 12V Netzteil übrig hatte.
Falls gewünscht, kann ich ja noch ein paar Fotos machen.

[[Kategorie:Erfahrungsberichte]]

Relais Schalten

2010-05-07T16:28:55Z

DrD: /* Hier das zugehörige Control6-Skript: */

Relais Schalten

2010-05-07T16:27:40Z

DrD:

== Kleines Projekt zum Schalten von Relais ==

Ein ULN2803 wurde mit den 8 Ausgängen des AVR NET-IO von Pollin verbunden. Am Asgang des ULN sind 12V Relais angeschlossen, die die angeschlossenen Geräte schalten (nicht vergessen Pin10 mit der positiven Versorgungsspannung zu verbinden, sonst sind die Freilaufdioden nicht angeschlossen).
Parallel zu dem Relais sind noch LEDs zur Signalisierung des Schaltzustandes angeschlossen.

Zusätzlich wurden noch Tastern an die Eingänge des NET-IO gegen Masse angeschlossen.

== Hier das zugehörige Control6-Skript: ==

<source lang="c">
dnl Taster konfigurieren und einlesen
static uint8_t t1=0;
static uint8_t t2=0;
static uint8_t t3=0;

CONTROL_START

ON STARTUP DO
DDRA &= ~_BV(PA0); dnl switch pin for Input DDRA(PA0) = 0
DDRA &= ~_BV(PA1); dnl switch pin for Input DDRA(PA1) = 0
DDRA &= ~_BV(PA2); dnl switch pin for Input DDRA(PA2) = 0

DDRC |= _BV(PC0); dnl Ausgang Drucker
DDRC |= _BV(PC1); dnl Ausgang Sound
DDRC |= _BV(PC2); dnl Ausgang Festplatte

PORTA |= _BV(PA0); dnl PORTA(PA0) = 1 seite 56 und 57
PORTA |= _BV(PA1); dnl PORTA(PA1) = 1 seite 56 und 57
PORTA |= _BV(PA2); dnl PORTA(PA2) = 1 seite 56 und 57

PORTC &= ~_BV(PC0); dnl Ausgang Drucker
PORTC &= ~_BV(PC1); dnl Ausgang Sound
PORTC &= ~_BV(PC2); dnl Ausgang Festplatte
END

if (!(PINA & 0b00000001)) t1++; dnl prüfen ob Taste gedrückt, falls ja einen Zähler zur Entprellung inkrementieren
else t1=0; dnl ansonsten Zähler wieder auf Null setzen

if (!(PINA & 0b00000010)) t2++;
else t2=0;

if (!(PINA & 0b00000100)) t3++;
else t3=0;

if (t1==5) PORTC ^= (1<<PC0); dnl nach 5*25ms den entsprechenden Port toggeln

if (t2==5) PORTC ^= (1<<PC1);

if (t3==5) PORTC ^= (1<<PC2);

CONTROL_END</source>

----
Eingebaut wurde das Ganze in einen alten Router. Einzige Modifikation am NET-IO ist ein Kühlkörper am 7805, da ich nur ein 12V Netzteil übrig hatte.
Falls gewünscht, kann ich ja noch ein paar Fotos machen.
Wie kriege ich den Text in die Kategorie "Erfahrungsberichte"?

Relais Schalten

2010-05-07T16:25:47Z

DrD:

== Kleines Projekt zum Schalten von Relais ==

Ein ULN2803 wurde mit den 8 Ausgängen des AVR NET-IO von Pollin verbunden. Am Asgang des ULN sind 12V Relais angeschlossen, die die angeschlossenen Geräte schalten (nicht vergessen Pin10 mit der positiven Versorgungsspannung zu verbinden, sonst sind die Freilaufdioden nicht angeschlossen).
Parallel zu dem Relais sind noch LEDs zur Signalisierung des Schaltzustandes angeschlossen.

Zusätzlich wurden noch Tastern an die Eingänge des NET-IO gegen Masse angeschlossen.

== Hier das zugehörige Control6-Skript: ==

<source lang="c">
dnl Taster konfigurieren und einlesen
static uint8_t t1=0;
static uint8_t t2=0;
static uint8_t t3=0;

CONTROL_START

ON STARTUP DO
DDRA &= ~_BV(PA0); dnl switch pin for Input DDRA(PA0) = 0
DDRA &= ~_BV(PA1); dnl switch pin for Input DDRA(PA1) = 0
DDRA &= ~_BV(PA2); dnl switch pin for Input DDRA(PA2) = 0

DDRC |= _BV(PC0); dnl Ausgang Drucker
DDRC |= _BV(PC1); dnl Ausgang Sound
DDRC |= _BV(PC2); dnl Ausgang Festplatte

PORTA |= _BV(PA0); dnl PORTA(PA0) = 1 seite 56 und 57
PORTA |= _BV(PA1); dnl PORTA(PA1) = 1 seite 56 und 57
PORTA |= _BV(PA2); dnl PORTA(PA2) = 1 seite 56 und 57

PORTC &= ~_BV(PC0); dnl Ausgang Drucker
PORTC &= ~_BV(PC1); dnl Ausgang Sound
PORTC &= ~_BV(PC2); dnl Ausgang Festplatte
END

if (!(PINA & 0b00000001)) t1++; dnl prüfen ob Taste gedrückt, falls ja einen Zähler zur Entprellung inkrementieren
else t1=0; dnl ansonsten Zähler wieder auf Null setzen

if (!(PINA & 0b00000010)) t2++;
else t2=0;

if (!(PINA & 0b00000100)) t3++;
else t3=0;

if (t1==5) PORTC ^= (1<<PC0); dnl nach 5*25ms den entsprechenden Port toggeln

if (t2==5) PORTC ^= (1<<PC1);

if (t3==5) PORTC ^= (1<<PC2);

CONTROL_END</source>

----
Eingebaut wurde das Ganze in einen alten Router. Einzige Modifikation am NET-IO ist ein Kühlkörper am 7805, da ich nur ein 12V Netzteil übrig hatte.

Relais Schalten

2010-05-07T16:25:23Z

DrD: /* Kleines Projekt zum Schalten von Relais */

== Kleines Projekt zum Schalten von Relais ==

Ein ULN2803 wurde mit den 8 Ausgängen des AVR NET-IO von Pollin verbunden. Am Asgang des ULN sind 12V Relais angeschlossen, die die angeschlossenen Geräte schalten (nicht vergessen Pin10 mit der positiven Versorgungsspannung zu verbinden, sonst sind die Freilaufdioden nicht angeschlossen).
Parallel zu dem Relais sind noch LEDs zur Signalisierung des Schaltzustandes angeschlossen.

Zusätzlich wurden noch Tastern an die Eingänge des NET-IO gegen Masse angeschlossen.

==
Hier das zugehörige Control6-Skript: ==

<source lang="c">
dnl Taster konfigurieren und einlesen
static uint8_t t1=0;
static uint8_t t2=0;
static uint8_t t3=0;

CONTROL_START

ON STARTUP DO
DDRA &= ~_BV(PA0); dnl switch pin for Input DDRA(PA0) = 0
DDRA &= ~_BV(PA1); dnl switch pin for Input DDRA(PA1) = 0
DDRA &= ~_BV(PA2); dnl switch pin for Input DDRA(PA2) = 0

DDRC |= _BV(PC0); dnl Ausgang Drucker
DDRC |= _BV(PC1); dnl Ausgang Sound
DDRC |= _BV(PC2); dnl Ausgang Festplatte

PORTA |= _BV(PA0); dnl PORTA(PA0) = 1 seite 56 und 57
PORTA |= _BV(PA1); dnl PORTA(PA1) = 1 seite 56 und 57
PORTA |= _BV(PA2); dnl PORTA(PA2) = 1 seite 56 und 57

PORTC &= ~_BV(PC0); dnl Ausgang Drucker
PORTC &= ~_BV(PC1); dnl Ausgang Sound
PORTC &= ~_BV(PC2); dnl Ausgang Festplatte
END

if (!(PINA & 0b00000001)) t1++; dnl prüfen ob Taste gedrückt, falls ja einen Zähler zur Entprellung inkrementieren
else t1=0; dnl ansonsten Zähler wieder auf Null setzen

if (!(PINA & 0b00000010)) t2++;
else t2=0;

if (!(PINA & 0b00000100)) t3++;
else t3=0;

if (t1==5) PORTC ^= (1<<PC0); dnl nach 5*25ms den entsprechenden Port toggeln

if (t2==5) PORTC ^= (1<<PC1);

if (t3==5) PORTC ^= (1<<PC2);

CONTROL_END</source>

----
Eingebaut wurde das Ganze in einen alten Router. Einzige Modifikation am NET-IO ist ein Kühlkörper am 7805, da ich nur ein 12V Netzteil übrig hatte.

Relais Schalten

2010-05-07T16:25:03Z

DrD: /* Gibt es eine Möglichkeit Code vernünftig anzuzeigen? */

== Kleines Projekt zum Schalten von Relais ==

Ein ULN2803 wurde mit den 8 Ausgängen des AVR NET-IO von Pollin verbunden. Am Asgang des ULN sind 12V Relais angeschlossen, die die angeschlossenen Geräte schalten (nicht vergessen Pin10 mit der positiven Versorgungsspannung zu verbinden, sonst sind die Freilaufdioden nicht angeschlossen).
Parallel zu dem Relais sind noch LEDs zur Signalisierung des Schaltzustandes angeschlossen.

Zusätzlich wurden noch Tastern an die Eingänge des NET-IO gegen Masse angeschlossen.

----

Hier das zugehörige Control6-Skript:
<source lang="c">
dnl Taster konfigurieren und einlesen
static uint8_t t1=0;
static uint8_t t2=0;
static uint8_t t3=0;

CONTROL_START

ON STARTUP DO
DDRA &= ~_BV(PA0); dnl switch pin for Input DDRA(PA0) = 0
DDRA &= ~_BV(PA1); dnl switch pin for Input DDRA(PA1) = 0
DDRA &= ~_BV(PA2); dnl switch pin for Input DDRA(PA2) = 0

DDRC |= _BV(PC0); dnl Ausgang Drucker
DDRC |= _BV(PC1); dnl Ausgang Sound
DDRC |= _BV(PC2); dnl Ausgang Festplatte

PORTA |= _BV(PA0); dnl PORTA(PA0) = 1 seite 56 und 57
PORTA |= _BV(PA1); dnl PORTA(PA1) = 1 seite 56 und 57
PORTA |= _BV(PA2); dnl PORTA(PA2) = 1 seite 56 und 57

PORTC &= ~_BV(PC0); dnl Ausgang Drucker
PORTC &= ~_BV(PC1); dnl Ausgang Sound
PORTC &= ~_BV(PC2); dnl Ausgang Festplatte
END

if (!(PINA & 0b00000001)) t1++; dnl prüfen ob Taste gedrückt, falls ja einen Zähler zur Entprellung inkrementieren
else t1=0; dnl ansonsten Zähler wieder auf Null setzen

if (!(PINA & 0b00000010)) t2++;
else t2=0;

if (!(PINA & 0b00000100)) t3++;
else t3=0;

if (t1==5) PORTC ^= (1<<PC0); dnl nach 5*25ms den entsprechenden Port toggeln

if (t2==5) PORTC ^= (1<<PC1);

if (t3==5) PORTC ^= (1<<PC2);

CONTROL_END</source>

----
Eingebaut wurde das Ganze in einen alten Router. Einzige Modifikation am NET-IO ist ein Kühlkörper am 7805, da ich nur ein 12V Netzteil übrig hatte.

Relais Schalten

2010-05-07T16:24:37Z

DrD: /* Gibt es eine Möglichkeit Code vernünftig anzuzeigen? */

== Kleines Projekt zum Schalten von Relais ==

Ein ULN2803 wurde mit den 8 Ausgängen des AVR NET-IO von Pollin verbunden. Am Asgang des ULN sind 12V Relais angeschlossen, die die angeschlossenen Geräte schalten (nicht vergessen Pin10 mit der positiven Versorgungsspannung zu verbinden, sonst sind die Freilaufdioden nicht angeschlossen).
Parallel zu dem Relais sind noch LEDs zur Signalisierung des Schaltzustandes angeschlossen.

Zusätzlich wurden noch Tastern an die Eingänge des NET-IO gegen Masse angeschlossen.

----

== Gibt es eine Möglichkeit Code vernünftig anzuzeigen? ==

Hier das zugehörige Control6-Skript:
<source lang="c">
dnl Taster konfigurieren und einlesen
static uint8_t t1=0;
static uint8_t t2=0;
static uint8_t t3=0;

CONTROL_START

ON STARTUP DO
DDRA &= ~_BV(PA0); dnl switch pin for Input DDRA(PA0) = 0
DDRA &= ~_BV(PA1); dnl switch pin for Input DDRA(PA1) = 0
DDRA &= ~_BV(PA2); dnl switch pin for Input DDRA(PA2) = 0

DDRC |= _BV(PC0); dnl Ausgang Drucker
DDRC |= _BV(PC1); dnl Ausgang Sound
DDRC |= _BV(PC2); dnl Ausgang Festplatte

PORTA |= _BV(PA0); dnl PORTA(PA0) = 1 seite 56 und 57
PORTA |= _BV(PA1); dnl PORTA(PA1) = 1 seite 56 und 57
PORTA |= _BV(PA2); dnl PORTA(PA2) = 1 seite 56 und 57

PORTC &= ~_BV(PC0); dnl Ausgang Drucker
PORTC &= ~_BV(PC1); dnl Ausgang Sound
PORTC &= ~_BV(PC2); dnl Ausgang Festplatte
END

if (!(PINA & 0b00000001)) t1++; dnl prüfen ob Taste gedrückt, falls ja einen Zähler zur Entprellung inkrementieren
else t1=0; dnl ansonsten Zähler wieder auf Null setzen

if (!(PINA & 0b00000010)) t2++;
else t2=0;

if (!(PINA & 0b00000100)) t3++;
else t3=0;

if (t1==5) PORTC ^= (1<<PC0); dnl nach 5*25ms den entsprechenden Port toggeln

if (t2==5) PORTC ^= (1<<PC1);

if (t3==5) PORTC ^= (1<<PC2);

CONTROL_END</source>

----
Eingebaut wurde das Ganze in einen alten Router. Einzige Modifikation am NET-IO ist ein Kühlkörper am 7805, da ich nur ein 12V Netzteil übrig hatte.

Relais Schalten

2010-05-07T16:23:17Z

DrD: /* Kleines Projekt zum Schalten von Relais */

== Kleines Projekt zum Schalten von Relais ==

Ein ULN2803 wurde mit den 8 Ausgängen des AVR NET-IO von Pollin verbunden. Am Asgang des ULN sind 12V Relais angeschlossen, die die angeschlossenen Geräte schalten (nicht vergessen Pin10 mit der positiven Versorgungsspannung zu verbinden, sonst sind die Freilaufdioden nicht angeschlossen).
Parallel zu dem Relais sind noch LEDs zur Signalisierung des Schaltzustandes angeschlossen.

Zusätzlich wurden noch Tastern an die Eingänge des NET-IO gegen Masse angeschlossen.

----

== Gibt es eine Möglichkeit Code vernünftig anzuzeigen? ==

Hier das zugehörige Control6-Skript:
<nowiki>
dnl Taster konfigurieren und einlesen
static uint8_t t1=0;
static uint8_t t2=0;
static uint8_t t3=0;

CONTROL_START

ON STARTUP DO
DDRA &= ~_BV(PA0); dnl switch pin for Input DDRA(PA0) = 0
DDRA &= ~_BV(PA1); dnl switch pin for Input DDRA(PA1) = 0
DDRA &= ~_BV(PA2); dnl switch pin for Input DDRA(PA2) = 0

DDRC |= _BV(PC0); dnl Ausgang Drucker
DDRC |= _BV(PC1); dnl Ausgang Sound
DDRC |= _BV(PC2); dnl Ausgang Festplatte

PORTA |= _BV(PA0); dnl PORTA(PA0) = 1 seite 56 und 57
PORTA |= _BV(PA1); dnl PORTA(PA1) = 1 seite 56 und 57
PORTA |= _BV(PA2); dnl PORTA(PA2) = 1 seite 56 und 57

PORTC &= ~_BV(PC0); dnl Ausgang Drucker
PORTC &= ~_BV(PC1); dnl Ausgang Sound
PORTC &= ~_BV(PC2); dnl Ausgang Festplatte
END

if (!(PINA & 0b00000001)) t1++; dnl prüfen ob Taste gedrückt, falls ja einen Zähler zur Entprellung inkrementieren
else t1=0; dnl ansonsten Zähler wieder auf Null setzen

if (!(PINA & 0b00000010)) t2++;
else t2=0;

if (!(PINA & 0b00000100)) t3++;
else t3=0;

if (t1==5) PORTC ^= (1<<PC0); dnl nach 5*25ms den entsprechenden Port toggeln

if (t2==5) PORTC ^= (1<<PC1);

if (t3==5) PORTC ^= (1<<PC2);

CONTROL_END</nowiki>

----
Eingebaut wurde das Ganze in einen alten Router. Einzige Modifikation am NET-IO ist ein Kühlkörper am 7805, da ich nur ein 12V Netzteil übrig hatte.

Relais Schalten

2010-05-07T16:22:27Z

DrD:

== Kleines Projekt zum Schalten von Relais ==

Ein ULN2803 wurde mit den 8 Ausgängen des AVR NET-IO von Pollin verbunden. Am Asgang des ULN sind 12V Relais angeschlossen, die die angeschlossenen Geräte schalten (nicht vergessen Pin10 mit der positiven Versorgungsspannung zu verbinden, sonst sind die Freilaufdioden nicht angeschlossen).
Parallel zu dem Relais sind noch LEDs zur Signalisierung des Schaltzustandes angeschlossen.

Zusätzlich wurden noch Tastern an die Eingänge des NET-IO gegen Masse angeschlossen.

----
Hier das zugehörige Control6-Skript:
<nowiki>
dnl Taster konfigurieren und einlesen
static uint8_t t1=0;
static uint8_t t2=0;
static uint8_t t3=0;

CONTROL_START

ON STARTUP DO
DDRA &= ~_BV(PA0); dnl switch pin for Input DDRA(PA0) = 0
DDRA &= ~_BV(PA1); dnl switch pin for Input DDRA(PA1) = 0
DDRA &= ~_BV(PA2); dnl switch pin for Input DDRA(PA2) = 0

DDRC |= _BV(PC0); dnl Ausgang Drucker
DDRC |= _BV(PC1); dnl Ausgang Sound
DDRC |= _BV(PC2); dnl Ausgang Festplatte

PORTA |= _BV(PA0); dnl PORTA(PA0) = 1 seite 56 und 57
PORTA |= _BV(PA1); dnl PORTA(PA1) = 1 seite 56 und 57
PORTA |= _BV(PA2); dnl PORTA(PA2) = 1 seite 56 und 57

PORTC &= ~_BV(PC0); dnl Ausgang Drucker
PORTC &= ~_BV(PC1); dnl Ausgang Sound
PORTC &= ~_BV(PC2); dnl Ausgang Festplatte
END

if (!(PINA & 0b00000001)) t1++; dnl prüfen ob Taste gedrückt, falls ja einen Zähler zur Entprellung inkrementieren
else t1=0; dnl ansonsten Zähler wieder auf Null setzen

if (!(PINA & 0b00000010)) t2++;
else t2=0;

if (!(PINA & 0b00000100)) t3++;
else t3=0;

if (t1==5) PORTC ^= (1<<PC0); dnl nach 5*25ms den entsprechenden Port toggeln

if (t2==5) PORTC ^= (1<<PC1);

if (t3==5) PORTC ^= (1<<PC2);

CONTROL_END</nowiki>

----
Eingebaut wurde das Ganze in einen alten Router. Einzige Modifikation am NET-IO ist ein Kühlkörper am 7805, da ich nur ein 12V Netzteil übrig hatte.

Relais Schalten

2010-05-07T16:21:33Z

DrD: Die Seite wurde neu angelegt: == Kleines Projekt zum Schalten von Relais == Ein ULN2803 wurde mit den 8 Ausgängen des AVR NET-IO von Pollin verbunden. Am Asgang des ULN sind 12V Relais angeschlos...

== Kleines Projekt zum Schalten von Relais ==

Ein ULN2803 wurde mit den 8 Ausgängen des AVR NET-IO von Pollin verbunden. Am Asgang des ULN sind 12V Relais angeschlossen, die die angeschlossenen Geräte schalten (nicht vergessen Pin10 mit der positiven Versorgungsspannung zu verbinden, sonst sind die Freilaufdioden nicht angeschlossen).
Parallel zu dem Relais sind noch LEDs zur Signalisierung des Schaltzustandes angeschlossen.

Zusätzlich wurden noch Tastern an die Eingänge des NET-IO gegen Masse angeschlossen.

----
Hier das zugehörige Control6-Skript:
<nowiki>dnl Taster konfigurieren und einlesen
static uint8_t t1=0;
static uint8_t t2=0;
static uint8_t t3=0;

CONTROL_START

ON STARTUP DO
DDRA &= ~_BV(PA0); dnl switch pin for Input DDRA(PA0) = 0
DDRA &= ~_BV(PA1); dnl switch pin for Input DDRA(PA1) = 0
DDRA &= ~_BV(PA2); dnl switch pin for Input DDRA(PA2) = 0

DDRC |= _BV(PC0); dnl Ausgang Drucker
DDRC |= _BV(PC1); dnl Ausgang Sound
DDRC |= _BV(PC2); dnl Ausgang Festplatte

PORTA |= _BV(PA0); dnl PORTA(PA0) = 1 seite 56 und 57
PORTA |= _BV(PA1); dnl PORTA(PA1) = 1 seite 56 und 57
PORTA |= _BV(PA2); dnl PORTA(PA2) = 1 seite 56 und 57

PORTC &= ~_BV(PC0); dnl Ausgang Drucker
PORTC &= ~_BV(PC1); dnl Ausgang Sound
PORTC &= ~_BV(PC2); dnl Ausgang Festplatte
END

if (!(PINA & 0b00000001)) t1++; dnl prüfen ob Taste gedrückt, falls ja einen Zähler zur Entprellung inkrementieren
else t1=0; dnl ansonsten Zähler wieder auf Null setzen

if (!(PINA & 0b00000010)) t2++;
else t2=0;

if (!(PINA & 0b00000100)) t3++;
else t3=0;

if (t1==5) PORTC ^= (1<<PC0); dnl nach 5*25ms den entsprechenden Port toggeln

if (t2==5) PORTC ^= (1<<PC1);

if (t3==5) PORTC ^= (1<<PC2);

CONTROL_END</nowiki>

----
Eingebaut wurde das Ganze in einen alten Router. Einzige Modifikation am NET-IO ist ein Kühlkörper am 7805, da ich nur ein 12V Netzteil übrig hatte.