closed

Loginbox

Please enter your username and password into the following fields to log in.


  • Username:
  • Password:
  •  
  • Auto log in on every visit.


  •  

ADS 1115

+- 15 bit A-D Wandler 1-4 Inp...... von TI

tbegle offline
Benutzer
Avatar
Gender: n/a
Location: n/a 
Age: 62
Posts: 143
Registered: 01 / 2018
Private message
Subject: ADS 1115  -  Posted: 29.12.2022 - 09:12   -  
Ein Hallo an den Rest der User,

hat schon jemand einen Treiber für den ADS 1115 geschrieben?

Ich komme nicht klar - viele Variationen mit dem TWI ausprobiert, ich bekomme
einfach die Werte nicht ins Config Register! dadurch auch keine vernüftigen Werte

// 15-14-13-12 - 11-10-09-08 - 07-06-05-04 - 03-02-01-00 Conversion Reg
// 1 1 0 0 0 0 1 1 0 0 0 0 0 0 1 1 AIN 1 - 4,096(Ref) - single - 8SPS ...

procedure ADC_1115; // ADs-1115 Test +-15 bit 4 Inputs
begin
if TWIstat(ADC_) = true then // ADC TWI ok
writeln(Serout,'ADS-1115 Adr $48 ok!');
// ------------------------------------------------------------------------
TWIout(ADC_,0,1); // Conifg Reg.(adr 1) ?????
TWIout(ADC_,0,$C3);TWIout(ADC_,1,$03); // HB+LB single AIN 1 - 4,095V Ref - 8SPS -dis Comp
// TWIout(ADC_,1,$C3);TWIout(ADC_,2,$85);
TWIinp(ADC_,ADC_H);TWIinp(ADC_,ADC_L); // 133 133 ????
Writeln(serout,'ADC_01 HB+LB : '+bytetostr(ADC_H)+bytetostr(ADC_L)); // rea dHB+LB ?? 133133

TWIout(ADC_,0);mdelay(100); // Start Conversion Reg.
//TWIout(ADC_,1);
TWIinp(ADC_,ADC_H);TWIinp(ADC_,ADC_L); // HB + LB ?? 133133
Writeln(serout,'ADC 01 HB+LB: '+bytetostr(ADC_H)+bytetostr(ADC_L));
// ----------------------------------------------------------
else
writeln(Serout,'ADS 1115 F!');
endif;
end;

Ein guten Rutsch ins Jahr 2023

Toni
go down go up
Harry offline
PowerUser
Avatar
Gender: male
Location: GERMANY  zwischen Augsburg und Ulm
Age: 57
Posts: 2020
Registered: 03 / 2003
Private message
Subject: Re: ADS 1115  -  Posted: 29.12.2022 - 09:49   -  
Nein hab ich nicht, aber laut DB wird die Config in einem Rutsch geschrieben.
You must be logged in or your permissions are to low to see this Attachment(s).
Elektronik arbeitet mit Rauch - wenn man den Rauch raus läßt, funktioniert es nicht mehr.
Electronics works with smoke - if you let the smoke out, it works no longer.
go down go up
 


Registered users in this topic
Currently no registered users in this section

Delete cookies of this forum  •  FAQ / Help  •  Team page  •  Imprint   |  Local time: 06.02.2023 - 19:54