Campbell-scientific CR800 and CR850 Measurement and Control Systems Manual de usuario Pagina 249

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 566
  • Tabla de contenidos
  • SOLUCIÓN DE PROBLEMAS
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 248
Section 7. Installation
249
'Declare Variables
Public PTemp, Batt_Volt, Level, TimeIntoTest
Public Counter(10)
Public Flag(8) As Boolean
'Define Data Tables
DataTable(LogTable,1,-1)
Minimum(1,Batt_Volt,FP2,0,False)
Sample(1,PTemp,FP2)
Sample(1,Level,FP2)
Sample(1,TimeIntoTest, FP2)
EndTable
'Main Program
BeginProg
Scan(1,Sec,0,0)
If TimeIntoInterval(0,1,Min) Then Flag(1) = True
If Flag(1) = True Then ExitScan
NextScan
'10 Second Data Interval
If Flag(1) = True Then
Scan(10,Sec,0,60)
Counter(2) = Counter(2) + 1
Battery(Batt_volt)
PanelTemp(PTemp,250)
TCDiff(Level,1,mV2_5,1,TypeT,PTemp,True ,0,250,1.0,0)
If TimeIntoInterval(0,1,Min) Then
TimeIntoTest = TimeIntoTest + 1
EndIf
'Call Output Tables
CallTable LogTable
NextScan
'30 Second Data Interval
Scan(30,Sec,0,40)
counter(3) = counter(3) + 1
Battery(Batt_volt)
PanelTemp(PTemp,250)
TCDiff(Level,1,mV2_5,1,TypeT,PTemp,True ,0,250,1.0,0)
If TimeIntoInterval(0,1,Min) Then
TimeIntoTest = TimeIntoTest + 1
EndIf
'Call Output Tables
CallTable LogTable
NextScan
Vista de pagina 248
1 2 ... 244 245 246 247 248 249 250 251 252 253 254 ... 565 566

Comentarios a estos manuales

Sin comentarios