CCFC Field Camera
80
If TimeIntoInterval (0,5,Min) Then
SendVariables(SendVarResult,Com1,0,55,0000,400,"Public","CCFCStillBanner2",BannerString,1)
EndIf
If TurnDefrosterOn = true Then
TurnDefrosterVal = 1
SendVariables(SendVarResult,Com1,0,55,0000,200,"Public","CCFCDefroster",TurnDefrosterVal,1)
TurnDefrosterOn = false
EndIf
CallTable Test
NextScan
EndProg
15.3.4 Example Program
–
Adding GPS Coordinates to the Photo Banner
–
CR1000
The following example illustrates the use of the
CCFCGPSLatitude
and
CCFCGPSLongitude
instructions, which can be used with CR800 series,
CR1000, or CR3000 dataloggers.
Please download the program directly from:
http://www.campbellsci.ca/ccfc
.
'CR1000 Series Datalogger
'Declare Public Variables
Public sendGps As Boolean
Public gpsLat, gpsLong As Float
Public sendVarResult
'Main Program
BeginProg
sendGps = false
gpsLat = 50.0
gpsLong = -139.0
SerialOpen (Com1,115200,4,0,2000)
Scan (1,Sec,0,0)
If sendGps Then
sendGps = false
SendVariables(sendVarResult,Com1,0,55,0000,0,"Public","CCFCGPSLatitude",gpsLat,1)
SendVariables (sendVarResult,Com1,0,55,0000,0,"Public","CCFCGPSLongitude",gpsLong,1)
EndIf
NextScan
EndProg
Note
