Campbell-scientific CR9000X Measurement and Control System Manual de usuario Pagina 145

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 442
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 144
Section 4. CRBasic – Native Language Programming
EXAMPLE 4.2.4-6 CRBASIC Code: Using NSEC data type on a 2 element array.
'Because the variable is dimensioned to 2, NSEC assumes TimeOfMaxVar(1) = seconds since
00:00:00 1 'January 1990, and TimeOfMaxVar(2) = μsec into a second.
Public PtempC, MaxVar, TimeOfMaxVar(2) As Long
DataTable (FirstTable,True,-1)
DataInterval (0,1,Min,10)
Maximum (1,PTempC,FP2,False,True)
EndTable
DataTable (SecondTable,True,-1)
DataInterval (0,5,Min,10)
Sample (1,MaxVar,FP2)
Sample (1,TimeOfMaxVar,Nsec)
EndTable
BeginProg
Scan (1,Sec,0,0)
PanelTemp (PTempC,250)
MaxVar = FirstTable.PTempC_Max
TimeOfMaxVar = FirstTable.PTempC_TMx
CallTable FirstTable
CallTable SecondTable
NextScan
EndProg
EXAMPLE 4.2.4-6 CRBASIC Code: Using NSEC data type with a 7 element time array.
A timestamp is retrieved into variable rTime(1) through rTime(9) as year, month, day, hour, minutes,
seconds, and microseconds using the RealTime () instruction. The first seven time values are copied
to variable rTime2(1) through rTime2(7).
Public rTime(9) As Long '(or Float)
Public rTime2(7) As Long '(or Float)
Dim x
DataTable (SecondTable,True,-1)
DataInterval (0,5,Sec,10)
Sample (1,rTime,Nsec)
Sample (1,rTime2,Nsec)
EndTable
BeginProg
Scan (1,Sec,0,0)
RealTime (rTime)
For x = 1 To 7
rTime2(x) = rTime(x)
Next
CallTable SecondTable
NextScan
EndProg
4-17
Vista de pagina 144
1 2 ... 140 141 142 143 144 145 146 147 148 149 150 ... 441 442

Comentarios a estos manuales

Sin comentarios