'RTC and  ADS1115 modules on I2C pins 18,17, pin 16 DS18B20 temperature sensor
'A0 & A1 PH input, A2 temp from probe, A3 0 to 5 volt raw inputs

Option explicit

Dim float adc01,adc23,adc0,adc1,adc2,adc3,getvolts,tmp,ofs=-2.67,wait=100
Dim startime$
RTC gettime
'RTC SETREG &h07,&h92
startime$=Time$
Dim fs=2,p=0
I2C open 100,5000

Box 0, 0, MM.HRes-1, MM.VRes-1, 8, , RGB(yellow)

PWM 2,1000,50
'

'SetTick 3600000,settime,1 'update time from RTC hourly

SetTick 7*wait,ADC,4 'periodical reading

clr

Do

locate 5,1
Print startime$;"   ";Time$;"   "
Print "Volts A01 is "; Str$(adc01,0,3),Str$((adc01+.414.12)/.05916,0,3);" pH"
Print "Volts A23 is "; Str$(adc23,0,3)
Print "----------------------"
Print "Volts A0  is "; Str$(adc0,0,3)
Print
Print "Volts A1  is "; Str$(adc1,0,3)
Print
Print "Volts A2  is "; Str$(adc2,0,3)
Print
Print "Volts A3  is "; Str$(adc3,0,3)
Print
Print "Temp  ";Str$((adc2-2.7315)*100,0,3);" C   "
Print "Temp  ";Str$((adc2-2.7315)*100*(9/5)+32,0,3);" F   "
Print "Temp  ";Str$((adc2-2.7315)*100*(9/5)+32+ofs,0,3);" F "

Print "--------------------"
tmp=TEMPR(16)
Print "The temp  ";Str$(tmp,0,3);" C ",Str$(tmp*1.8+32,0,3);" F "
'Print "24.8 C is ";Str$(24.8*(9/5)+32,0,3);" F  "

Text MM.HRes/2,30,Date$+" "+Time$,cm,1,fs,RGB(red),RGB(yellow)
Text 10,40,"A01 is "+Str$(adc01,2,3),,1,fs,RGB(blue),RGB(yellow)
Text 10,65,"A23 is "+Str$(adc23,2,3),,1,fs,RGB(blue),RGB(yellow)
Text 10,90,"A0  is "+Str$(adc0,2,3),,1,fs,RGB(blue),RGB(yellow)
Text 10,115,"A1  is "+Str$(adc1,2,3),,1,fs,RGB(blue),RGB(yellow)
Text 10,140,"A2  is "+Str$(adc2,2,3),,1,fs,RGB(blue),RGB(yellow)
Text 10,165,"A3  is "+Str$(adc3,2,3),,1,fs,RGB(blue),RGB(yellow)
Text 10,190,"Tmp is  "+Str$(tmp*1.8+32),,1,fs,RGB(blue),RGB(yellow)
Loop

Sub ADC ' ADC reading
Local cfreg,cnv,cfhi,cflo

cfreg = &h01: cnv =&h00   ' rate 128 sps no comp operations

cfhi = &h83 : cflo= &h81 'reading Dif Ain0 , Ain1,FS= +/- 4.096 , 128 sps
I2C write &H48,0,3,cfreg,cfhi,cflo 'adr 48 point to config reg
I2C write &h48,0,1,cnv ' adr 48 point to conversion reg
getadc
adc01 = (getvolts+adc01)/2
'
cfhi = &hB3 : cflo= &h81 ' reading Dif Ain2 , Ain3,FS= +/- 4.096 , 128 sps
I2C write &H48,0,3,cfreg,cfhi,cflo 'adr 48 point to config reg
I2C write &h48,0,1,cnv ' adr 48 point to conversion reg
getadc
adc23 = (getvolts+adc23)/2
'
cfhi = &hC3 : cflo= &h81 ' reading single Ain0,FS= +/- 4.096 , 128 sps
I2C write &H48,0,3,cfreg,cfhi,cflo 'adr 48 point to config reg
I2C write &h48,0,1,cnv ' adr 48 point to conversion reg
getadc
adc0 = (getvolts+adc0)/2
'
cfhi = &hD3 : cflo= &h81 ' reading single Ain1,FS= +/- 4.096 , 128 sps
I2C write &H48,0,3,cfreg,cfhi,cflo 'adr 48 point to config reg
I2C write &h48,0,1,cnv ' adr 48 point to conversion reg
getadc
adc1 = (getvolts+adc1)/2
'
cfhi = &hE3 : cflo= &h81 ' reading single Ain2,FS= +/- 4.096 , 128 sps
I2C write &H48,0,3,cfreg,cfhi,cflo 'adr 48 point to config reg
I2C write &h48,0,1,cnv ' adr 48 point to conversion reg
getadc
adc2 = (getvolts+adc2)/2
'
cfhi = &hf3 : cflo= &h81 ' reading single Ain1,FS= +/- 4.096 , 128 sps
I2C write &H48,0,3,cfreg,cfhi,cflo 'adr 48 point to config reg
I2C write &h48,0,1,cnv ' adr 48 point to conversion reg
getadc
adc3 = (getvolts+adc3)/2

End Sub

Sub  getadc
Local adcv
Local integer adcrd(2) 'to receive 2 bytes

Pause wait/2
I2C read &h48,0,2,adcrd()

adcv= (adcrd(0)<<8) Or adcrd(1)
 If adcv > &H7fff Then adcv = adcv - &HFFFF
getvolts = adcv *(4.096/32768.0)

End Sub

Sub settime
 RTC gettime
Pause 50
End Sub

Sub I2Cscan
Local found, i,h$, temp
found=0
 Print
 Print "I2C-Scanner from Adr. 8-119":Print
 For i = &h08 To &h77 ' gueltige I2C-Adressen von 8-119
  I2C open 100, 1000  ' i2c enable 100kHz, 1000ms timeout
  I2C read i, 0, 1, temp
  If MM.I2C = 0 Then
   Print "Found I2C-Address at ";  i; " (&H";Hex$(i);")"
   found=1
  EndIf
I2C close            ' i2c disable
Next i
If found = 0 Then Print "NO I2C-Address found!"
End Sub

Sub clr
 Print Chr$(27)+"[f" : Print Chr$(27)+"[2J"
End Sub

Sub locate x,y
Print Chr$(27)+"["+Str$(X)+";"+Str$(Y)+"f";
End Sub