I2C Bus - wie funktioniert die Kommunikation

Hallo Roy

Es ist egal, ob du I2C oder TWI nimmst für sowas.
Bei I2C kann man halt beliebige Pins an einem Port nehmen.
I2C geht auch ohne den Systick, falls man den nicht will.

Wie Harry schon geschrieben hat
TWI: Import TWI ,dann z.b. TWIprescC = TWI_BR400;
I2C: I2CPort, dann z.b. I2Cport = PortC;
I2Cclk = 1,19;
I2Cdat = 0; //SDA port C bit 0

Das ist auch gut nachvollziehbar im Treibermanual des Compilers.

zu dem SHT31, probier mal sowas aus:


const
SHT3xI2CAdr : byte = $44; // I2C-Adresse SHT3x
var

SHT30TimeOut: boolean; // 1,2 sec
SHTReadArray: array[0..5] of byte;
SHTTemperaturWert: word;
SHTHumidityWert : word;
TemperaturF: float;
HumidityF: float;

//als Interrupt z.b, falls Du so was so lösen willst, ist aber vom ATXmega

Interrupt TCC4_INTOVF; // counterzeit auf z.b. 1 msec einstellen
begin
TCC4INTFLAGS:= $01;
SHT30TimeOut:= true;
end;

// in der main

//...........................................................
// Timer setzen für 1,2 sec Overflow @16MHz $493E: 1,2 sec

TCC4PERL := $3E; // PERL - Period Register L Bite 7..0
TCC4PERH := $49; // PERH - Period Register H 15..8
TCC4CTRLA := $07; // 3..0 Clock.select Prescaler 07 : clk/1024
TCC4INTCTRLA := $02;
//...........................................
// TCC4CTRLA := $00; // bei $00 ist Timer Off
//............................................
TCC4CTRLA := $00; // Timer setzen für 1,2 sec Overflow @16MHz



// TWIOutC(SHT3xI2CAdr,$2400); // so bei TWI
I2COut(SHT3xI2CAdr,$2400); // no clock streching , high repeatability
I2COut(SHT3xI2CAdr,$2130); // $2130 1 sec, high repeatability

//in der loop

if SHT30TimeOut = true then
SHT30TimeOut:= false;
TCC4CTRLA := $00; //

I2COut(SHT3xI2CAdr,$E000); // $E000: fetch data cmd
I2CInp(SHT3xI2CAdr,SHTReadArray); // array[0..5] of byte; temperatur, crc, humidity,crc

//LCDxy(0,0);
//Write(LCDout, bytetohex(SHTReadArray[0])+ bytetohex(SHTReadArray[1])+ bytetohex(SHTReadArray[3])+bytetohex(SHTReadArray[4]));

copyblockReverse(@SHTReadArray[0],@SHTTemperaturWert,2);
copyblockReverse(@SHTReadArray[3],@SHTHumidityWert,2);
TemperaturF:= ((float(SHTTemperaturWert)/65535.0 ) *175) -45; // T in ° = -45 +175 * Wert/65535
HumidityF:= (float(SHTHumidityWert) /65535) *100; // RH = 100 * Wert/65535


LCDxy(0,1);
Write(LCDout, 'T:'+ floattostr(TemperaturF:2:1) +' H:'+ floattostr(HumidityF:2:1));

I2COut(SHT3xI2CAdr,$2130); // $2130 1 sec, high repeatability neue Messung
TCC4CTRLA := $07; // Timer neu setzen für 1,2 sec Overflow @16MHz
endif;

Alles ohne Gewähr
golf

Hallo Harry / golf,
Vielen Dank für die ausführlichen Hilfestellungen. Dank Euch habe ich das nicht nur hinbekommen, es ist auch viel einfacher geworden. Die ganze Kommunikation mit dem Sensor ist auf 4 (!) Zeilen geschrumpft (siehe Bascom - Beispiel).

und die Ratschläge fürs Array haben die weitere Bearbeitung - ohne MSB und LSB Gedöns - auf weitere 2 Zeilen begrenzt:

- Klasse!

Danke nochmal!

Grüsse
Roy

An Harry: ich weis nicht so recht wo ich das Posten soll, ich habe noch einige Probleme mit der IDE - Sachen, die in Version 6.. funktionieren, in Vers. 7 aber nicht,
- die "Replace" Funktion bringt das Prog. zu Absturz
- die "IDE PED32 Help" und der "Help Sytax" unter "Info" reagieren nicht
- beim Aufruf der PDF-Manuals unter "Info" öffnet sich immer der Explorer zur Dateiauswahl - das Prog merkt sich die Pfade aber nicht.
- die Formatierungshilfe "STRG+D" funktioniert teilweise erst nach einem Neustart des Progs wieder.

Oder die Fehler treten nur bei mir auf - kann auch sein, aber wie gesagt, unter der älteren Version funktioniert all das.

Alles klar, danke Harry.

Grüße
Roy