Hi there,
I am using CR6 dataloggers, 12 strain gauge vibrating wire (Geokon Model 4100), and AM 16/32B Multiplexer.
I have created a program using the shortcut method using Loggernet software.this program doesn't work for me
Here is the program
'CR6 Series
'Created by Short Cut (4.0)
'Declare Variables and Units
Dim Count
Public BattV
Public FCLoaded
Public PTemp_C
Public VW(6)
Public ZMode
Public CIndex
Public CAvg
Public Freq(12)
Public Amp(12)
Public SNRat(12)
Public NFreq(12)
Public DRat(12)
Public TT(12)
Public TT0(12)
Public Digits(12)
Public Digits0(12)
Public Strain(12)
Units BattV=Volts
Units PTemp_C=Deg C
Units Freq=Hz
Units Amp=mV RMS
Units NFreq=Hz
Units TT=deg C
Units TT0=deg C
Units Digits=digits
Units Digits0=digits
Units Strain=microstrain
'Define Data Tables
DataTable(Table2,True,-1)
DataInterval(0,1440,Min,10)
Minimum(1,BattV,FP2,False,False)
EndTable
'Calibration history table
DataTable(CalHist,NewFieldCal,10)
SampleFieldCal
EndTable
'Main Program
BeginProg
'Initialize calibration variables for
'Geokon 4100 Series & 4202 Vibrating Wire Strain Gage calculation 'Strain()'
CIndex=1 : CAvg=1
'Load the most recent calibration values from the CalHist table
FCLoaded=LoadFieldCal(True)
'Main Scan
Scan(5,Min,1,0)
'Default CR6 Datalogger Battery Voltage measurement 'BattV'
Battery(BattV)
'Default CR6 Datalogger Wiring Panel Temperature measurement 'PTemp_C'
PanelTemp(PTemp_C,60)
'Turn AM16/32 Multiplexer On
PortSet(U2,1)
Delay(0,150,mSec)
Count=1
SubScan(0,uSec,12)
'Switch to next AM16/32 Multiplexer channel
PulsePort(U1,10000)
'Geokon 4100 Series & 4202 Vibrating Wire Strain Gage measurement 'Freq()'
VibratingWire(VW(1),1,U3,1400,3500,1,0.01,"",60,1.4051E-3,2.369E-4,1.019E-7)
Freq(Count)=VW(1)
Amp(Count)=VW(2)
SNRat(Count)=VW(3)
NFreq(Count)=VW(4)
DRat(Count)=VW(5)
TT(Count)=VW(6)
'Calculate digits 'Digits()'
Digits(Count)=Freq(Count)^2/1000
'Calculate strain 'Strain()'
Strain(Count)=(Digits(Count)-Digits0(Count))*0.391*1
Count=Count+1
NextSubScan
'Zeroing calibration for
'Geokon 4100 Series & 4202 Vibrating Wire Strain Gage calculations 'Digits()' and 'TT()'
FieldCal(4,Digits(),12,0,Digits0(),ZMode,0,CIndex,CAvg)
FieldCal(4,TT(),12,0,TT0(),ZMode,0,CIndex,CAvg)
'Turn AM16/32 Multiplexer Off
PortSet(U2,0)
Delay(0,150,mSec)
'Call Data Tables and Store Data
CallTable Table2
CallTable CalHist
NextScan
EndProg
Can anyone help me, Any Quick and easy solution for the program?
how to modify the above program in CRBasic Editor?
Thanks.