Bascom ---gt; Pascal

1
2
3
4
5
6
Seite 2 von 6

Merlin

Administrator

Geschlecht:
Alter: 25
Beiträge: 1474
Dabei seit: 03 / 2005

Betreff:

Re: Bascom ---> Pascal

· Gepostet: 04.08.2022 - 16:13 Uhr · #9

Hi All.

This is already implemented for I2COut.

There is an optional parameter "NOSTOP".

so

Code

bool:= I2Cout(device_adres,Reg_adres, NOSTOP);

Regards

Merlin

miparo

Schreiberling

Geschlecht:
Herkunft: Germany
Alter: 59
Beiträge: 988
Dabei seit: 09 / 2007

Betreff:

Re: Bascom ---> Pascal

· Gepostet: 04.08.2022 - 16:14 Uhr · #10

Hi Merlin,
that's exactly how it is.
Just described it a bit different, but we mean the same thing

Code

procedure DisableI2CAutoAck( value : boolean );
begin
SetBit( Flags2, 7, value );
end;

This is just a quick & dirty solution.

bool:= I2Cout(device_adres,Reg_adres, NOSTOP);
Oh never seen that, that simplifies it yes.

miparo

Merlin

Administrator

Geschlecht:
Alter: 25
Beiträge: 1474
Dabei seit: 03 / 2005

Betreff:

Re: Bascom ---> Pascal

· Gepostet: 04.08.2022 - 16:18 Uhr · #11

Hi Miparo

I deleted my post - it was wrong

miparo

Schreiberling

Geschlecht:
Herkunft: Germany
Alter: 59
Beiträge: 988
Dabei seit: 09 / 2007

Betreff:

Re: Bascom ---> Pascal

· Gepostet: 04.08.2022 - 16:19 Uhr · #12

yes i see.
Compiler Error

Mathias

Benutzer

Geschlecht: keine Angabe
Herkunft: Weingarten - Baden
Beiträge: 315
Dabei seit: 07 / 2003

Betreff:

Re: Bascom ---> Pascal

· Gepostet: 04.08.2022 - 23:11 Uhr · #13

bool:= I2Cout(device_adres,Reg_adres, NoStop);

so würde es dann gehen ...
Wäre gut.
Bin gespannt.

Merlin

Administrator

Geschlecht:
Alter: 25
Beiträge: 1474
Dabei seit: 03 / 2005

Betreff:

Re: Bascom ---> Pascal

· Gepostet: 04.08.2022 - 23:33 Uhr · #14

Hi Mathias

This is not a proposal. It is already there. But not documented it seems.

=======================================================

Hallo Mathias

dies ist kein Vorschlag. Es ist bereits vorhanden. Aber nicht dokumentiert, wie es scheint.

miparo

Schreiberling

Geschlecht:
Herkunft: Germany
Alter: 59
Beiträge: 988
Dabei seit: 09 / 2007

Betreff:

Re: Bascom ---> Pascal

· Gepostet: 05.08.2022 - 01:26 Uhr · #15

Hi Merlin ,
that's right but there is still two bug here ?

Code

type
TArr20 = Array[0..19] of byte;
const
     BME280         : byte = $76;
var
  Arr20 : TArr20;

procedure I2CwriteBuffer(Reg,Count: byte; const Data: TArr20 );
var idx : byte;
begin
  for idx := 0 to Count-1 do   // with Data as const : Error Left side cannot be assigned to !!!!
    I2Cout(BME280, Reg, data[idx], NOSTOP);  // Error: identifier or factor expected
    I2Cout(BME280, Reg, 12, NOSTOP);  // that's OK
  endfor;
end;

Compiler version 5.11.15.2

miparo

Merlin

Administrator

Geschlecht:
Alter: 25
Beiträge: 1474
Dabei seit: 03 / 2005

Betreff:

Re: Bascom ---> Pascal

· Gepostet: 05.08.2022 - 11:10 Uhr · #16

Thanks for your diligence Miparo.

I will sort it.

1
2
3
4
5
6
Seite 2 von 6

Bascom ---> Pascal

Registrierte in diesem Topic