Campbell-scientific CR1000 Measurement and Control System Manual do Utilizador Página 182

  • Descarregar
  • Adicionar aos meus manuais
  • Imprimir
Vista de página 181
Section 7. Installation
182
Else 'C!/C command sequence complete
Move(Temp_Meas(X),1,Temp_Tmp(X),1) 'Copy measurements to SDI_Val(10)
cmd(X) = "C!" 'Start next measurement with "C!"
IndDone(X) = -1
EndIf
Next X
'Summarize Measurement Event Success
For X = 1 To 4
GroupDone = GroupDone + IndDone(X)
Next X
'Stop current measurement event, reset controls
If GroupDone = -4 Then
RunSDI12 = False
GroupDone = 0
For X = 1 To 4
IndDone(X) = 0
Retry(X) = 0
Next X
Else
GroupDone = 0
EndIf
EndIf 'End of measurement sequence
NextScan
EndProg
CRBasicExample34. UsingSDI12Sensor()Command
'Program to simulate 4 SDI-12 sensors. Can be used to produce measurements to test
'CRBasic example Using Alternate Concurrent Command (aC)
(p. 181).
Public Temp(4)
DataTable(Temp,True,0)
DataInterval(0,5,Min,10)
Sample(4,Temp(),FP2)
EndTable
BeginProg
Scan(5,Sec,0,0)
PanelTemp(Temp(1),250)
Temp(2) = Temp(1) + 5
Temp(3) = Temp(1) + 10
Temp(4) = Temp(1) + 15
CallTable Temp
NextScan
Vista de página 181
1 2 ... 177 178 179 180 181 182 183 184 185 186 187 ... 587 588

Comentários a estes Manuais

Sem comentários