- CRBasic Code Editor

crbasic
'CRBasic Program for Geokon 4500s Piezometers and Inclinometer

'Declare Constants
Const NumPZs = 5
Const NumInclinometerNodes = 12
Const InclinometerNodeSpacing = 3 ' 3 feet spacing

'Declare Variables
Public PZFrequency(NumPZs)
Public InclinometerNodesX(NumInclinometerNodes)
Public InclinometerNodesY(NumInclinometerNodes)

'Declare DataTable for storing data
DataTable(PZData, True, -1)
  DataInterval(0, 10, Min, 10)
  Sample(NumPZs, PZFrequency, FP2)
EndTable

DataTable(InclinometerData, True, -1)
  DataInterval(0, 10, Min, 10)
  Sample(NumInclinometerNodes, InclinometerNodesX, FP2)
  Sample(NumInclinometerNodes, InclinometerNodesY, FP2)
EndTable

'Main Program
BeginProg
  Scan(1, Min, 0, 0)

'Read vibrating wire piezometers
    For i = 1 To NumPZs
      ' Use VibratingWire() or a similar function tailored for Geokon 4500s
      VibratingWire(PZFrequency(i), 1, i)
      ' Arguments: Destination Var, Excitation Channel, Measurement Index
    Next i

'Read inclinometer nodes
    'Assume an example function InclinometerRead for the inclinometer
    For j = 1 To NumInclinometerNodes
      InclinometerRead(InclinometerNodesX(j), InclinometerNodesY(j), j)
      ' Arguments: X Data, Y Data, Node Index
    Next j

'Store data in tables
    CallTable PZData
    CallTable InclinometerData

NextScan
EndProg

Make snippet public

Use mock deployment

Versions