I2C Einstieg

[Weichlöter]

Hallo Einsteiger,

eine sehr gute Beschreibung der Hardware mit Schaltplan findest Du hier:

http://www.horter.de/i2c/i2c-ausgabe/ausgabe_2a.html

Gruß Christian

[Der Einsteiger]

Also Leute, danke für eure Antworten.
Doch es will noch nicht gehen...

Hie der Code :

$regfile = "m32def.dat"
$crystal = 16000000
$hwstack = 200
$swstack = 200
$framesize = 400

'TWI konfigurieren
Config Sda = Portc.1
Config Scl = Portc.0
Config Twi = 100000                                         'TWI Frequenz

'Adresse des PCF
Const Pcf8574w = &H40
Const Pcf8574r = &H41

Dim Bitmuster As Byte
Bitmuster = 1

'I²C initialisieren
I2cinit

Do

I2cstart                                                    'TWI Startkondition
I2cwbyte Pcf8574w
I2cwbyte Bitmuster
I2cstop

Wait 1

I2cstart                                                    'TWI Startkondition
I2cwbyte Pcf8574w
I2cwbyte 0
I2cstop

Wait 1


Loop
End

Zu A0-2 hab ich es so gemacht wie empfohlen: kleinste Adresse -> daraus folgere ich A0-2 auf GND ??

eine LED an P0 angeschlossen. Müsste die dann nicht leuchten ?? Oder habe ich mal wieder einen Denkfehler ??
Ich hoffe ihr könnt mir helfen ...

[021aet04]

Welchen Typ hast du genau? Es gibt den PCF8574 und den PCF8574A. Das hier auf Seite 9.
Die Adresse ist einmal Hex 40 (bzw 41) und einmal Hex 70 (bzw 71).

MfG Hannes

[Der Einsteiger]

Ich habe den PCF 8574 P von Reichelt.
Muss ich INT irgendwie verbinden ??

[021aet04]

Der Int kann unbeschalten bleiben. Dieser ist nur dafür gedacht wenn man den µC signalisieren will das neue Daten anliegen (wenn man einen oder mehrere I/O als Eingang verwendet). Ich kenne mich mit Bascom nicht aus, aber versuche einmal den Gesamten Port zu beschreiben. Eventuell im Sekundentakt die Werte ändern (z.B. gesamten Port 0 und dann 1). MfG Hannes

[Der Einsteiger]

Ich habe den Fehler gefunden
Es lag daran dass ich die Widerstände an SCL und SDA vergessen hab ( ich habe nicht RN-Control sondern mein eigenes Board genutzt, welches diese Widerstände nicht hat).
Jetzt geht es also und summt vor sich hin und blinkt dazu :

$regfile = "m32def.dat"
$crystal = 16000000
$hwstack = 200
$swstack = 200
$framesize = 400


Config Portd.7 = Output


'TWI konfigurieren
Config Sda = Portc.1
Config Scl = Portc.0
Config Twi = 100000                                         'TWI Frequenz

'Adresse des PCF
Const Pcf8574w = &H40
Const Pcf8574r = &H41


Sound Portd.7 , 400 , 450
Sound Portd.7 , 400 , 250
Sound Portd.7 , 400 , 450
Wait 1

'I²C initialisieren
I2cinit

Sound Portd.7 , 400 , 450

Do

I2cstart                                                    'TWI Startkondition
I2cwbyte Pcf8574w
I2cwbyte &B00000000
I2cstop

Sound Portd.7 , 400 , 450

Wait 1

I2cstart                                                    'TWI Startkondition
I2cwbyte Pcf8574w
I2cwbyte &B11111111
I2cstop

Sound Portd.7 , 400 , 450

Wait 1

Loop
End

Kann ich, wenn ich neue Prog proggen möchte auch die Kabel und Verbindungen zum PCF dranlassen ??

Wie soll es jetzt weiter gehen ??

[Weichlöter]

Hallo Einsteiger,

für einen PCF8574 (alle Adressanschlüsse auf low) schaltet man folgendermaßen alle LED´s aus:

I2cstart
I2cwbyte &B01000000 'Adresse
I2cwbyte &B11111111 'Daten
I2cstop

Zum Einschalten mußt Du statt 1 eine 0 schreiben. Alle LES´s an:

I2cstart
I2cwbyte &B01000000 'Adresse
I2cwbyte &B00000000 'Daten
I2cstop

Geht natürlich auch gemischt in jeder Kombination.

Gruß Christian

[Der Einsteiger]

Und wie kann ich einen Eingang auslesen ??

[Kampi]

Hey,

das machst du einfach mit einem I2crbyte, statt dem I2cwbyte um die Daten zu schreiben.

I2cstart
I2cwbyte Adresse
I2crbyte MeineVariable, Nack
I2cstop

Das Datenbyte enthält den Status ALLER GPIOs.
Um den Status von GPIO 0 zu erhalten musst du es maskieren:

Status = MeineVariable AND &B00000001

[Der Einsteiger]

Ok. Danke