//***************** WVW I2C ********************************
SystemCore:= TFastSystemCore.Create;
GPIO:= TFastGPIO.Create(SystemCore);
PortI2C:= TFastI2C.Create(GPIO);
AddrI2c:= $1E; // Address of my test component
PortI2C.SetAddress(AddrI2C);
//*************************************************
//******************* WVW I2C ****************************
RegE:= Hex2Dec('78'); // I use a TEdit to load the register
Val := random(255);
if (val>ord('a')) and (val<ord('z')) then
begin
Writeln('VAL = '+IntToStr(Val)+' - '+chr(val));
PortI2C.WriteByteData(RegE, val);
end;
//*******************************************************
Jow FPC engineers!
Can anybody help with trying the right memory adresses for:
AddrI2c:= $1E;
RegE:= Hex2Dec('78');
I am trying to I2C and i need
ultra simple replies to get it to work
Greetz Wouter!
PS aftherwards i need to work on my FPC-AVR code, to also set up the right addresses there also.