Lampyridae

WTF

Leuchtkäfer auf der Suche nach Artgenossen.

Ziel

Artgenossen durch blinkendes Licht anlocken. Ich suche Leute die in meiner Umgebung Funkfeuer Knoten betreiben wollen.

Material

• Microcontroller vom Microcontroller_Workshop
• Transistor c547c
• Widerstand 1k Ohm
• Leuchtdioden

Schaltbild

Programm

// kompiliert mit sdcc wie unter Microcontroller_How_To beschrieben

#include"pic18fregs.h"
#define RA3       PORTAbits.RA3

long const ditl=1000;
long const dahl=3000;        //ditl*3
long const spacel=6000;      //ditl*7 (ditl*6 weil pause nach signal ist dit)


void delay_ms(long ms)
{
  long i;

  while (ms--)
    for (i=0; i < 330; i++)
      ;
}

void dit(void)
{
  RA3 = 1;
  delay_ms(ditl);
  RA3 = 0;
  delay_ms(ditl);
}

void dah(void)
{
  RA3 = 1;
  delay_ms(dahl);
  RA3 = 0;
  delay_ms(ditl);
}

void bend(void)
{
  //RA3 = 0;
  delay_ms(dahl);
}

void space(void)
{
  //RA3 = 0;
  delay_ms(spacel);
}

void main(void) {
  int i;
  TRISA = 0;

  // 0 = 0V, 1 = 5V
  
  for (;;)
    {
      // www.funkfeuer.at
      // .--/.--/.--/.-.-.-/..-./..-/-./-.-/..-././..-/./.-./.-.-.-/.-/-
      
      dit(); dah(); dah(); bend();
      dit(); dah(); dah(); bend();
      dit(); dah(); dah(); space();
      dit(); dah(); dit(); dah(); dit(); dah(); space();
      dit(); dit(); dah(); dit(); bend();
      dit(); dit(); dah(); bend();
      dah(); dit(); bend();
      dah(); dit(); dah(); bend();
      dit(); dit(); dah(); dit(); bend();
      dit(); bend();
      dit(); dit(); dah(); bend();
      dit(); bend();
      dit(); dah(); dit(); space();
      dit(); dah(); dit(); dah(); dit(); dah(); space();
      dit(); dah(); bend();
      dah(); space(); space();
    }

}