Tresor mit Codetasten

Profi Computing 1991 : Tresor mit Codetasten 

Die Bauanleitung für das Modell sind im Experimentierbuch des genannten Kastens enthalten. Das PDF Buch steht auf http://www.fischertechnik-museum.ch/museum/thumbnails.php?album=72 zum Download zur Verfügung. Hinzugekommen ist eine rote Lampe um Fehlversuche anzuzeigen (Renesas C). Die dazu gehörenden C# 2005 Renesas C / VC++ und ROBO Pro Programme sind in TresorCode.ZIP enthalten.

Der Tresor rechts öffnet sich, wenn der über die Taster eingegebene Code den Vorgaben des Programms entspricht. Schließen des Tresors über Taster 4. Hier die komplette Renesas C Anwendung :

#include "RoboFish\roboFish.h"

#define mTresor 1
#define mFehler 4
#define eCodeTaste1 1
#define eCodeTaste2 2
#define eCodeTaste3 3
#define eCodeTaste4 4
#define eTresorSchliessen 4
#define eTresorOffen 5
#define eTresorZu 6
#define dSchliessen 2
#define dOeffnen 1
#define dEin 1
#define dAus 0

UCHAR main(void) {
  UCHAR CodeZahl;
  UCHAR IStat;
  UCHAR i;

  InitFish();
  Pause(1000);
  do {
    SetMotor(mTresor, dSchliessen);
    WaitForInput(eTresorZu);
    SetMotor(mTresor, dAus);

    CodeZahl = 0;
    for(i = 1; i < 8; i *= 2) {
      IStat = 0;
      while(IStat == 0) {IStat = GetInputs() & 0xF; Pause(44);}
      CodeZahl += IStat * i;
      while(IStat != 0) {IStat = GetInputs() & 0xF; Pause(44);}
    }
    if (CodeZahl == 42) {
      SetMotor(mTresor, dOeffnen);
      WaitForInput(eTresorOffen);
      SetMotor(mTresor, dAus);
      WaitForInput(eTresorSchliessen);
    }
    else {
      SetMotor(mFehler, dEin);
      Pause(2345);
      SetMotor(mFehler, dAus);
    }
  } while(1);
  return(0);
}

Zunächst bei Inbetriebnahme Deckel zu, dann in einer for-Schleife warten auf die Eingabe der CodeZahl. Dazu werden zunächst alle infrage kommenden Tasten auf gedrückt abgefragt und so aufaddiert, dass Zahlendreher ... zu einer anderen CodeZahl führen. Danach wird auf die Freigabe der Taster gewartet. Im OK-Fall wird der Deckel geöffnet und dann auf I4 zum Schließen gewartet. Bei falscher CodeZahl geht die rote Lampe an.

Zusätzlich erforderlich : cs2005Fish40Setup.EXE  bzw. die Renesas C Umgebung.

Stand : 01.07.2007