Our full technical support staff does not monitor this forum. If you need assistance from a member of our staff, please submit your question from the Ask a Question page.


Log in or register to post/reply in the forum.

95/4/30-g turbidity sensors


dab11 Jan 16, 2023 01:45 PM

Hello,
I have two old analite 95/4/30-g turbidity sensors with RS-232 connectors. Wondering if anyone has any code they could share to help me connect them to my CR350 as I'm very new to this and struggling?
Currently I have some code from an OBS3+ but to be honest I don't understand what a lot of it is doing and how to adapt it to my sensors. My sensors have a wiper as well so assume I would need to add a trigger for this as well? Any help would be really appreciated. 

 

'Declare Variables and Units
Public NTUArray(21) 

Units TurbNTU=NTU

'Define Data Tables
DataTable(Table1,True,-1)
Average(1,TurbNTU,FP2,False)  
EndTable

'Set the sample port high 
PortSet(4,1)

		'OBS-3+ Turbidity Sensor measurement TurbNTU
		SW12(1)
		Delay(0,2,Sec)
		For Count_7 = 1 To 21
			VoltSE(NTUArray(Count_7),1,mV2500,3,1,0,_50Hz,0.001,0)
			NTUArray(Count_7)=0.2661+(393.4*NTUArray(Count_7))+(36.59*NTUArray(Count_7)^2)
		Next
		SortSpa(NTUArray(),21,NTUArray())
		TurbNTU=NTUArray(11)
		If TurbNTU<250 Then
			For Count_7 = 1 To 21
				VoltSE(NTUArray(Count_7),1,mV2500,4,1,0,_50Hz,0.001,0)
				NTUArray(Count_7)=0.3161+(104.4*NTUArray(Count_7))+(0.3169*NTUArray(Count_7)^2)
			Next
			SortSpa(NTUArray(),21,NTUArray())
			TurbNTU=NTUArray(11)
		EndIf
		SW12(0)

 

Log in or register to post/reply in the forum.