I2Csend Problem

[infosystems]

Hallo Jungs,

ich komme da echt nicht weiter.
Ich spreche den PCF8574 über I2C als Ausgang an.
Der PCF ist doch mit Latch am Ausgang, der sollte sich doch das Gesendete merken.
Warum tut er das nicht?

Mit Do Loop ist es keine Lösung. Nachdem ich mehrere (n) PCF's anspreche, steht da das Signal nur den n'ten Teil der Zeit an.

Hier erst mal den Code:

 $regfile = "m16def.dat"
 $framesize = 32
 $swstack = 32
 $hwstack = 32
 $crystal = 7372800
 $baud = 9600


   Config Scl = Portc.0                                     ' Ports fuer I2C-Bus
   Config Sda = Portc.1
   I2cinit



'Daten über I2C an die Anzeigen senden
'Do
   I2csend &B1001110 , &B01111111
   'I2csend &B1001100 , &B01111111
   'I2csend &B1001010 , &B01111111
   'I2csend &B1001000 , &B01111111
'Loop

End

Vielen Dank

Rici

[tobimc]

HI!

Mach mal
$framesize = 32 '64
$swstack = 32 '50
$hwstack = 32 '50
alles größer...

Wenn deine Adressen stimmen, sollte es schon so gehen, ich glaube nur, dass der prozzi sich verhaspelt, wenn du zu kleine Frames und Stacks hast, insbesondere, weil du einen SW-I²C benutzt.

Wenn das nicht hilft, Adresse überprüfen (schreiben, lesen) und sonst mal mit i2cwbyte probieren.

VLG Tobi

[PicNick]

Seltsam. Wie hast du denn die Outputs vom PCF beschaltet ?

[tobimc]

Hi


Hast du Pullups an SDA und SCL?

Wenn alle (BASCOM-) Stricke reißen, kannst du immernoch den Hardware-TWI des M16 benutzen.
Ist allerdings etwas komplexer anzusteuern.

VLG TS

[linux_80]

Mahlzeit,
Wenn man unter Bascom beim Master die Hardware benutzen will reicht es diese Zeilen einzufügen:

$lib "i2c_twi.lbx"                             ' we do not use software emulated I2C but the TWI
' und
Config Twi = 100000                            ' wanted clock frequency

die anderen Configs kann man dann weglassen, denn die Pins sind da ja festgelegt.

[PicNick]

Versuch auch mal
I2Cwbyte 'adresse'
if err = 0 then I2Cwbyte daten

Ob der PCF sich überhaupt angesprochen fühlt

bzw. bei der HW-TWI: if TWSR = &H18 ( adresse acked)
und nacher if TWSR = &H28 ( data acked)
Insbesondes das Soft-"I2csend" von Bascom ist etwas schlampig mit den Ack's und nack's

[infosystems]

Hallo,

ich verstehe es wirklich nicht mehr.
Ich versuche es jetzt mit HW-TWI

 $regfile = "m16def.dat"
 $framesize = 64
 $swstack = 50
 $hwstack = 50
 $crystal = 7372800
 $baud = 9600


'Config Scl = Portc.0                                        'Ports fuer IIC-Bus MEGA16 bei Software I2C
'Config Sda = Portc.1                                        'Ports fuer IIC-Bus MEGA16 bei Software I2C


$LIB "I2C_TWI.LBX"
CONFIG TWI = 100000

I2cinit
I2cstart




'Waitms 1000


'Daten über I2C an die Anzeigen senden
'Do
   I2csend &B1001110 , &B01111111
   'I2csend &B1001100 , &B01111111
   'I2csend &B1001010 , &B01111111
   'I2csend &B1001000 , &B01111111
'Loop

End

Die PCF's werden angesprochen. Wenn ich alles über die DO-LOOP Schleife laufen lasse, so funktioniert es. Ich möchte aber die Ausgänge der der PCF setzen und danach mit dem Programm weitermachen. Die sind doch latched. Warum geht das nicht. Ohne die Schleife werden die Ausgänge kurz auf 1 gesetzt und danach sind sie wieder auf 0.
Die Hardware ist folgendermaßen: nach dem PCF liegt ein ULN2003, danach ein einige LED's in Reihe, und letztendlich ein Vorwiderstand, alles auf +15V. Das sollte doch OK sein. Die Pullups an SDA und SCL sind eingebaut.
Meine Bascom Version ist: 1.11.8.1

Habt Ihr noch irgend eine Idee???

Viele Grüße

Richard[/code]

[linux_80]

Lass' mal das I2Cstart weg, das braucht man bei I2CSend nicht !
I2CInit reicht, und dann nur noch mit I2Csend die Bytes senden.

Mit "Print Err" kannst Du einen Fehlerstatus am Terminal ausgeben.
Sollte 0 sein wenns geklappt hat.

[infosystems]

Hallo,

scheinbar habe ich doch ein HW Problem.
Habe nun einige Beispiele aus dem Internet durchgetestet. Es ist immer so: Der Ausgang wird gesetzt, in kurzer Zeit aber wieder zurückgesetzt. Selbst das Beispiel von der Roboterseite "I2C Relaisplatine RNREL 1.0" funktioniert nicht. Ich verwende den PCF8574P. Habt Ihr noch eine Idee wo ich suchen sollte? Die Relais (hier LED's blinken nur ganz kurz auf, also nicht wie im Programm angegeben 2 Sekunden).

 $regfile = "m16def.dat"
 $framesize = 64
 $swstack = 50
 $hwstack = 50
 $crystal = 7372800
 $baud = 9600

Declare Sub Rnb_relaisschalten(byval Relaisnr As Byte , Byval Status As Byte)

'Const Relaisport_adr = &H76                                 'I2C Adr PCF 2

Const Relaisport_adr = &B1001110
Dim Relaisstatus As Byte
Dim I As Byte

Config Scl = Portc.0                                        'Ports fuer IIC-Bus
Config Sda = Portc.1


I2cinit
Wiederhole:
For I = 0 To 7
Call Rnb_relaisschalten(i , 1)                              'Relais i so anziehen

Wait 2                                                      'Warte 2 Sekundne
Call Rnb_relaisschalten(i , 0)                              'Relais i soll abfallen
Wait 2                                                      'Warte 2 Sekundne
Next I
Goto Wiederhole

'Die Hilfsfunktion erleichtert das ein und Ausschalten bestimmter Relais
'Variable: Relaisnr ( 0 bis 7) steht für ein bestimmtes Relais
'Variable: status (1 oder 0) schaltet Relais ein oder aus
'Bei Status 1 wird die entsprechende Relais anziehen, bei 0 abfallen


Sub Rnb_relaisschalten(byval Relaisnr As Byte , Byval Status As Byte)
Relaisstatus.relaisnr = Status

I2cstart
I2cwbyte Relaisport_adr                                     'Schreibbefehl an PCF schicken
I2cwbyte Relaisstatus                                       'Datenbyte an PCF
I2cstop
End Sub
End

Viele Grüße

Richard

[linux_80]

Also bei mir geht das,
getestet mir einem RN-Control (M32, 16MHz)

Ich hab allerdings nur 4 LEDs dran, aber die laufen schön der Reihe nach durch.
https://www.roboternetz.de/wissen/in...RN-Control.jpg

Edit:
was hast Du an Hardware sonst so zusammengebaut ?