We are just getting started with Short Cut and CRBasic. CR6, 4W 350 TIM, 350 ohm Vishay strain gage.
Our program was made in ShortCut and was made to be a simple measuring device to measure strain in a test sample.
The test sample is steel plate stock, with a 40 lb weight applied in tension. Our calculated expected strain, by no less than three engineers, is 14-15.5 ustrain. Our program tells us the gage is experiencing 30 ustrain. The funny thing is we were able to record 14 ustrain yesterday, but now today its recording 30 ustrain.
Could anyone help us with what we are doing wrong?
We have also zeroed out the gage when it is unloaded. Still 30 ustrain. If nothing is wrong with the program, maybe a wire could be connected wrong?
Thank you for all/any assistance!
Here is the program:
'CR6 Series
'Created by Short Cut (3.2)
'Declare Variables and Units
Public BattV
Public FCLoaded
Public PTemp_C
Public Strain
Public Vr1000
Public GFRaw
Public GFAdj
Public BrZero
Public CKnown
Public CReps
Public ZMode
Public QBSSMode
Public CIndex
Public CAvg
Units BattV=Volts
Units PTemp_C=Deg C
Units Strain=microstrain
Units Vr1000=mV/V
Units GFRaw=unitless
Units GFAdj=unitless
Units BrZero=mV/V
'Define Data Tables
DataTable(Table1,True,-1)
' DataInterval(0,5,Sec,10) 'line commented out- we want data to save each scan
Sample(1,BattV,FP2)
Sample(1,PTemp_C,FP2)
Sample(1,Strain,IEEE4)
Sample(1,Vr1000,IEEE4)
EndTable
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
'Quarter Bridge Strain, 3-wire 350 ohm with 4WFBS350 TIM measurement 'Vr1000'
CIndex=1 : CAvg=1 : CReps=1 : GFRaw=2.095 : GFAdj=GFRaw
'Load the most recent calibration values from the CalHist table
FCLoaded=LoadFieldCal(True)
'Main Scan
Scan(5,Sec,1,0)
'Default CR6 Datalogger Battery Voltage measurement 'BattV'
Battery(BattV)
'Default CR6 Datalogger Wiring Panel Temperature measurement 'PTemp_C'
PanelTemp(PTemp_C,60)
'Quarter Bridge Strain, 3-wire 350 ohm with 4WFBS350 TIM measurement 'Vr1000'
BrFull(Vr1000,1,mV200,U1,U3,1,2500,True,True,500,60,1,0)
'Calculated strain result 'Strain' for
'Quarter Bridge Strain, 3-wire 350 ohm with 4WFBS350 TIM measurement 'Vr1000'
StrainCalc(Strain,1,Vr1000,BrZero,-1,GFAdj,0)
'Quarter bridge strain shunt calibration for
'Quarter Bridge Strain, 3-wire 350 ohm with 4WFBS350 TIM measurement 'Vr1000'
FieldCalStrain(13,Strain,1,GFAdj,0,QBSSMode,CKnown,CIndex,CAvg,GFRaw,0)
'Zeroing calibration for
'Quarter Bridge Strain, 3-wire 350 ohm with 4WFBS350 TIM measurement 'Vr1000'
FieldCalStrain(10,Vr1000,CReps,0,BrZero,ZMode,0,CIndex,CAvg,0,Strain)
'Call Data Tables and Store Data
CallTable Table1
CallTable Table2
CallTable CalHist
NextScan
EndProg