Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Re: PCF8574 Ansteuerung Kategorie: Open-Micro/Open-Mini/Open-Midi/Open-Macro/Open-Maxi (von GerdL - 15.02.2011 11:11)
 Als Antwort auf PCF8574 Ansteuerung von Klaus - 14.02.2011 16:34
GerdL nutzt:  CC1-Unit V1.1, CC1-M-Unit V1.1, Open-Micro, Open-Mini
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

Bisherige Antworten:

Re: PCF8574 Ansteuerung (von Klaus - 16.02.2011 16:29)
    Re: PCF8574 Ansteuerung (von GerdL - 16.02.2011 20:04)
        Re: PCF8574 Ansteuerung (von Klaus - 25.02.2011 10:38)