INFO - FAQ - CC2-Forum - CCPro-Forum |
Hallo Martin! Anbei mal ein Lösungsansatz, getestet mit der Open-Micro. Mit dem DIP-Schalter an Port[3] wirst Du Probleme bekommen, das wird so nicht funktionieren, hier musst Du einen anderen Port verwenden. JG Jens ' --- Betriebssystem konfigurieren ----------------------------------------------------- include "om10.inc" ' Betriebssystem Daten laden RunOnErr = on ' bei Fehler Programm neustarten (Fehler in ERR) ' --- definition der Ports -------------------------------------------------- define RS232 Port[1] ' Serielle Schnittstelle define Dip1 Port[2] ' Dip1 define Dip2 Port[4] ' Dip2 define Dip3 Port[5] ' Dip3 ' --- definition der Variablen ---------------------------------------------- define PrgMode Byte[1] ' Programmverzweigung DEFINE Bit0 Bit[1] ' Bit0 vom Byte PrgMode DEFINE Bit1 Bit[2] ' Bit1 vom Byte PrgMode DEFINE Bit2 Bit[3] ' Bit2 vom Byte PrgMode ' --------------------------------------------------------------------------- ' --- Hauptprogramm --------------------------------------------------------- ' --------------------------------------------------------------------------- print "Progtramm gestartet..." ' Textausgabe #Loop Gosub DipAbfrage ' Dip-Schalter abfragen Print "Mode = ";PrgMode ' Textausgabe Pause 50 ' 1 Sekunde warten Goto Loop End #DipAbfrage PrgMode = 0 ' Reset - alle Bits löschen if (not Dip1) Then Bit0 = ON ' Bit0 setzen if (not Dip2) Then Bit1 = ON ' Bit1 setzen if (not Dip3) Then Bit2 = ON ' Bit2 setzen return |
Antwort schreiben |