code:
begin
Init;
Start_I2C;
Writeln (SerialPort, 'Start_I2C Completed');
for c:=1 to 1000 do
begin
Writeln (SerialPort, '************TOP LOOP****************');
i:=Receive_I2C_Byte;
Writeln (SerialPort,'afther Receive_I2C_Byte = ',i);
Writeln (SerialPort, '************BOTTOm LOOP****************');
delay(250);
end;
Writeln (SerialPort, 'Stop_I2C');
Stop_I2C;
Writeln (SerialPort, 'Stop_I2C Complete');
Writeln (SerialPort, '****************************');
//Procedure Start_I2C;
//Procedure Stop_I2C;
//Procedure Send_I2C_Byte (Data2Send: Byte);
//Function Receive_I2C_Byte: Byte;
//Procedure Send_I2C_Ack;
//Procedure Send_I2C_ClockPulse;
//Function I2C_AddressPresent (IIC_Adr: Byte): Boolean;
end.
https://github.com/SAmeis/pascalio
http://turbo51.com/
herkent iemand van u dit class-framework? van turbo51.com. Ik zoek een reply van i2c code die overheenkomt met dit stuk turbo51 code. Als ik deze in mijn ATMEL8051 MCU brand dan gaat
code:
i2cdetect -y 1
wel mee in de RPI terminal. Maar ik zie alleen streepjes, geen waardes
Groet, Wouter
Iemand code zodat ik deze om-syn-tax-en kan?