  INFO - FAQ - CC2-Forum - CCPro-Forum |
|
||
|
Hallo, ich versuche verzweifelt das Relais 1 zum Schalten zu bringen wenn die Bitmaske 01111111 zeigt. Vielleicht kann mal jemand die IF Achtports=&b01111111 then REL1=ON (Tip von Dieter) so einzubauen das das geht. Hier nochmal das ganze Listing. Danke vorab und Gruß Tommes '-------------------------- '------ I/O PORTS --------- '-------------------------- define ACHTPORTS byteport[1] 'entspricht PORT[1] bis PORT[8] define LIGHT port[16] define SDA port[9] define SCL port[10] '-------------------------- '---- SYSTEM MEMORY ------- '-------------------------- define wert byte [2] define MASK byte[1] define EXTPORT byteport[4] define REL1 port[29] define REL2 port[30] define REL3 port[31] define REL4 port[32] #INIT '---- PULL UPS ACTIVE ---- SDA=on SCL=on EXTPORT=OFF CONFIG.INIT CONFIG.PUT 00001000b CONFIG.OFF REL1=OFF REL2=OFF REL3=OFF REL4=OFF '------------------------- LIGHT=off LCD.INIT LCD.CLEAR '-------------------------------------------------------------------- ' Beispielprogramm Abfrage BYTEPORT '-------------------------------------------------------------------- #LOOP LCD.POS 1,1 MASK=10000000b #ABFRAGE '-------- PORT BIT mit MASKEN BIT VERGLEICHEN ------ if (ACHTPORTS and MASK) =0 then LCD.PRINT "0" else LCD.PRINT "1" END IF '-------- MASKEN BIT VERSCHIEBEN ------------------- MASK=MASK shr 1 '-------- ALLE BITS ABGEFRAGT WENN MASKE NULL IST -- if MASK=0 then goto LOOP else goto ABFRAGE END IF '-------------------------Relais 1 schalten ----------------------------------- if Achtports=&b01111111 then REL1=ON |
| Antwort schreiben |
Re: Kann vielleicht jemand das Programm komplettieren? (von Frank E. - 4.05.2006 22:08)