I2C - Herkend u het class-framework

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?

Delphi WIN10 / www.freepascal.org AVR Pascal / www.freepascal.org RPI /

al eens getest met een andere poort? ik heb ook zo eens aan het sukkelen geweest, bleek dat mijn raspberry op een andere poort werkte (oude rpi's draaien op poort 0, nieuwe poort 1).
beide poorten zijn aanwezig, alleen zit de ene op de gpio connector en de andere ergens anders (dacht op de camera connector). tussen de rpi modellen werden de poorten gewisseld.

code:

sudo i2cdetect -y 0

als ik problemen heb met i2c, dan hang ik er een arduino aan en laat die eens zoeken achter de code

c code:


#include <Wire.h>
#include <i2cdetect.h>

void setup() {
  Wire.begin();
  Serial.begin(9600);
}

void loop() {
  Serial.println("-- i2cdetect --");
  i2cdetect();
  delay(1000);
}

heb zo eens wat onbekende schermpjes gehad waar het adres van de chinees fout was. raspberry vond die niet, arduino wel

ik hou van werken ..., ik kan er uren naar kijken

Thank you, Anybody more code?

Delphi WIN10 / www.freepascal.org AVR Pascal / www.freepascal.org RPI /

PS: Is het ook mogelijk, om een echte Level Shifter te kopen ? Kant en klaar, groter dan een Module? Ter test opstelling, weet iemand waar ik deze krijgen kan? Groet, Wouter

Delphi WIN10 / www.freepascal.org AVR Pascal / www.freepascal.org RPI /

ja, die kan je aanschaffen.
https://www.nodo-shop.nl/128-thickbox_default/i2c-level-shifter-33-naar-5-volt.jpg

ik hou van werken ..., ik kan er uren naar kijken