
|
INFO - FAQ - CC2-Forum - CCPro-Forum |
|
||
|
Hallo Klaus! Hier ein Ausschnitt meines Prog. zum schreiben mfg gerdl Define SCL port[5] Define SDA port[6] Define ports byte[1] Define data byte[2] Define i byte[3] #loop ports=&b00001101 ' Port 1,3,4 auf on setzen goto pcf_Schr #pcf_Schr print " PCF-schreiben" data = &h40 'Schreiben eines Bytes an einen PCF8574 an Adr. 0.0.0: gosub i2c_start data=ports gosub i2c_write gosub i2c_stop goto loop #pcf_lesen data = &h41 'Lesen eines Bytes von einen PCF8574 an 0.0.0: gosub i2c_start gosub i2c_readlast gosub i2c_stop goto loop ' I2C Steuerung #i2c_stop SDA = 0 DEACT SCL DEACT SDA return #i2c_start 'returns Ack in i SDA = 1 SCL = 1 SDA = 0 SCL = 0 #i2c_write 'returns Ack in i for i=0 to 7 SDA = data AND (&h80 SHR i) TOG SCL TOG SCL next i DEACT SDA TOG SCL i = NOT SDA TOG SCL return #i2c_read gosub i2c_sub_read SDA = 0 TOG SCL TOG SCL return #i2c_readlast gosub i2c_sub_read TOG SCL TOG SCL return #i2c_sub_read DEACT SDA data = 0 for i=0 to 7 TOG SCL data = (data shl 1) or (SDA and 1) TOG SCL next return > Hallo > ich suche ein Programm wo ich ein PCF 8574 mit der Open Micro ansteuern kann nur als Ausgänge. > Ich brauche die Zusatz-Ports für LEDs und Relais. > mfg Klaus |
| Antwort schreiben |