N-Bahnforum

Code: Alles auswählen

/*  Simulation "TV-Flimmerkiste" 
    auch als "Schweißlicht" einsetzbar                                            
*/
/* Verschaltung der LED (max.20mA) mit Widerstand (1kOhm), 
   Versorgung über USB-Anschluss

                                                                                  .
                               ___________________                                .
                              |                   |                               .
                              |TX1  | O O O |  VIN|                               .
                              |     |       |     |                               .
                              |RX0  | O O O |  GND|                               .
                              |     |_______|     |                               .
                              |RST             RST|                               .
                              |                   |                               .
     o------------------------|GND              5V|                               .
     |                        |                   |                               .
     |                        |D2               A7|                               .
     |                        |                   |                               .
     |                        |D3               A6|                               .
     |                        |                   |                               .
     |                        |D4               A5|                               .
     |                        |      ARDUINO      |                               .
     |                        |D5               A4|                               .
     |                        |                   |                               .
     |                        |D6    N-A-N-O    A3|                               .
     |                        |                   |                               .
     |                        |D7               A2|                               .
     |                        |                   |                               .
     |                        |D8               A1|                               .
     |                        |                   |                               .
     |                        |D9               A0|                               .
     |                        |                   |                               .
     o---|<LED-------R1K0-----|D10             REF|                               .
                              |        ___        |                               .
                              |D11    |   |    3V3|                               .
                              |       |USB|       |                               .
                              |D12    |   |    D13|                               .
                              |___________________|                               .
                                                                                  .
*/

// Zuerst ein paar Definitionen
// PWM Pin für das "analoge" Flimmern:
byte    pwmFlimmerPin=10;
// Zeitintervall für das Flimmern (ändert sich im Programm per Zufall):
unsigned long flimmerZeit =0;
// wie lange ist eine Helligkeitsphase für das Flimmern
// (ändert sich im Programm per Zufall):
unsigned long flimmerDauer;
// die Helligkeit beim Flimmern (ändert sich im Programm per Zufall):
int flimmerHelligkeit=0;
// Flag für "Flimmern aktiv?"
boolean   flimmerFlag=FALSE;

// Die Grundeinstellungen vornehmen
void setup() {
  // Zufallszahlengenerator initialisieren mit Analog-Only-Pin, 
  // das ist wirklich "Zufall", welcher Wert da eingelesen wird
  randomSeed(analogRead(A7));
  // Leuchtstelle initialisieren
  pinMode(pwmFlimmerPin, OUTPUT);  
}

// Die LED (=TV) flimmern lassen
void flimmernPwmPin() {
	// sobald die Zeit da ist: Flimmern an
  if (flimmerFlag)
  {
  	// Zeitspanne mit Helligkeitsstufe abgelaufen?
    if (millis()>flimmerDauer)
    {
      // neue Flimmerhelligkeit als Zufallswert
      flimmerHelligkeit=random(256);
      // neue Flimmerdauer als Zufallswert
      flimmerDauer=millis()+random(200);
    }
  } 
  else
  {
    // Flimmern aus, wenn kein Flimmern gewünscht
    flimmerHelligkeit=0;       
  } 
  analogWrite(pwmFlimmerPin, flimmerHelligkeit); 
}

// Hauptschleife, endlos
void loop() {
  // wann soll das TV flimmern?
  if (millis()>flimmerZeit) 
  {
  	// das Flag "umdrehen"
  	flimmerFlag = !flimmerFlag
  	// min. 10, max. 60 sec Flimmern (anpassbar)
  	flimmerZeit = millis()+1000*(random(50)+10);
  }
  // flimmern lassen
  flimmernPwmPin();
}

Code: Alles auswählen

/*  Simulation einer flackernden Kerze */

/* Verschaltung der LED (max.20mA) mit Widerstand (1kOhm), 
   Versorgung über USB-Anschluss

                                                                                  .
                               ___________________                                .
                              |                   |                               .
                              |TX1  | O O O |  VIN|                               .
                              |     |       |     |                               .
                              |RX0  | O O O |  GND|                               .
                              |     |_______|     |                               .
                              |RST             RST|                               .
                              |                   |                               .
     o------------------------|GND              5V|                               .
     |                        |                   |                               .
     |                        |D2               A7|                               .
     |                        |                   |                               .
     |                      * |D3               A6|                               .
     |                        |                   |                               .
     |                        |D4               A5|                               .
     |                        |      ARDUINO      |                               .
     |                      * |D5               A4|                               .
     |                        |                   |                               .
     o---|<LED-------R1K0-----|D6    N-A-N-O    A3|                               .
                              |                   |                               .
                              |D7               A2|                               .
                              |                   |                               .
                              |D8               A1|                               .
                              |                   |                               .
                            * |D9               A0|                               .
                              |                   |                               .
                            * |D10             REF|                               .
                              |        ___        |                               .
                            * |D11    |   |    3V3|                               .
                              |       |USB|       |                               .
                              |D12    |   |    D13|                               .
                              |___________________|                               .
                                                                                  .
*/
/* Anmerkung: Alle Pins mit * sind ebenfalls PWM-fähig. Sollten mehrere "Flacker-Kerzen"
              benötigt werden, können entsprechend viele Pins definiert werden.
              Dann wird es günstig sein, das Programm so abzuändern, dass die Pin-Nummer
              als Parameter an die Routine "flackernPwmPin" übergeben wird.
              So können bis zu 6 LEDs als unabhängige "Flacker-Kerzen" betrieben werden */


// PWM Pin für das "analoge" Flackern (dauernd, Kerze)
byte    pwmFlackerPin     = 6;
// Anfangs- und Endzeiten für das Flackern (ändert sich im Programm per Zufall)
unsigned long flackerDauer= 0;
// die Helligkeit beim Flackern (ändert sich im Programm per Zufall)
int flackerHelligkeit     = 0;
// "Flackergeschwindigkeit" (je höher die Zahl, desto langsamer)
int flackertempo          = 3;

// Die Grundeinstellungen vornehmen
void setup() {
  // Zufallszahlengenerator initialisieren mit Analog-Only-Pin, das ist wirklich "Zufall"
  randomSeed(analogRead(A7));
  // Leuchtstelle initialisieren
  pinMode(pwmFlackerPin, OUTPUT); 
}

// Die flackernde LED (=Kerze) im Zufallsmodus flackern lassen
void flackernPwmPin() {
  // Zeitspanne mit Helligkeitsstufe abgelaufen?
  if (millis()>flackerDauer)
  {
    // neue Flackerhelligkeit als Zufallswert
    flackerHelligkeit=random(256);
    // neue Flackerdauer als Zufallswert
    flackerDauer=millis()+flackertempo*random(222);
  }
  analogWrite(pwmFlackerPin, flackerHelligkeit); 
}

// Hauptschleife, endlos
void loop() {
  flackernPwmPin();      // die Kerze flackert immer
}