Campbell Scientific CR1000KD CR800 and CR850 Measurement and Control Systems - Page 245

Public, As FLOAT, As Long, As String, As Boolean, Const, StationName, Units, DataTable, DataInterval

Page 245 highlights

Section 7. Installation 'Declare Public (viewable) Variables Public Batt_Volt As FLOAT Public PTemp_C Public AirTemp_C Public AirTemp_F Public AirTemp2_F Public DeltaT_C Public HowMany Public Counter As Long Public SiteName As String * 16 'Declared as Float 'Float by default 'Float by default 'Float by default 'Float by default 'Float by default 'Float by default 'Declared as Long so counter does not have 'rounding error 'Declared as String with 16 chars for a 'site name (optional) 'Declare program control flags & terms. Set the words "High" and "Low" to equal "TRUE" 'and "FALSE" respectively Public Flag(1) As Boolean Const High = True Const Low = False 'Optional - Declare a Station Name into a location in the Status table. StationName(CR1000_on_desk) 'Optional -- Declare units. 'data file header. Units Batt_Volt = Volts Units PTemp = deg C Units AirTemp = deg C Units AirTempF2 = deg F Units DeltaT_C = deg C Units are not used in programming, but only appear in the 'Declare an interval driven output table DataTable(OneMin,True,-1) DataInterval(0,1,Min,0) Average(1,AirTemp_C,IEEE4,0) Maximum(1,AirTemp_C,IEEE4,0,False) Minimum(1,AirTemp_C,FP2,0,False) Minimum(1,Batt_Volt,FP2,0,False) Sample(1,Counter,Long) Sample(1,SiteName,String) Sample(1,HowMany, FP2) EndTable 'Time driven data storage 'Controls the interval 'Stores temperature average in high 'resolution format 'Stores temperature maximum in high 'resolution format 'Stores temperature minimum in low 'resolution format 'Stores battery voltage minimum in low 'resolution format 'Stores counter in integer format 'Stores site name as a string 'Stores how many data events in low 'resolution format 'Declare an event driven data output table DataTable(Event,True,1000) DataInterval(0,5,Sec,10) DataEvent(0,DeltaT_C >= 3,DeltaT_C < 3,0) Maximum(1,AirTemp_C,FP2,0,False) 'Data table - event driven '-AND interval driven '-AND event range driven 'Stores temperature maximum in low 'resolution format 245

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
  • 65
  • 66
  • 67
  • 68
  • 69
  • 70
  • 71
  • 72
  • 73
  • 74
  • 75
  • 76
  • 77
  • 78
  • 79
  • 80
  • 81
  • 82
  • 83
  • 84
  • 85
  • 86
  • 87
  • 88
  • 89
  • 90
  • 91
  • 92
  • 93
  • 94
  • 95
  • 96
  • 97
  • 98
  • 99
  • 100
  • 101
  • 102
  • 103
  • 104
  • 105
  • 106
  • 107
  • 108
  • 109
  • 110
  • 111
  • 112
  • 113
  • 114
  • 115
  • 116
  • 117
  • 118
  • 119
  • 120
  • 121
  • 122
  • 123
  • 124
  • 125
  • 126
  • 127
  • 128
  • 129
  • 130
  • 131
  • 132
  • 133
  • 134
  • 135
  • 136
  • 137
  • 138
  • 139
  • 140
  • 141
  • 142
  • 143
  • 144
  • 145
  • 146
  • 147
  • 148
  • 149
  • 150
  • 151
  • 152
  • 153
  • 154
  • 155
  • 156
  • 157
  • 158
  • 159
  • 160
  • 161
  • 162
  • 163
  • 164
  • 165
  • 166
  • 167
  • 168
  • 169
  • 170
  • 171
  • 172
  • 173
  • 174
  • 175
  • 176
  • 177
  • 178
  • 179
  • 180
  • 181
  • 182
  • 183
  • 184
  • 185
  • 186
  • 187
  • 188
  • 189
  • 190
  • 191
  • 192
  • 193
  • 194
  • 195
  • 196
  • 197
  • 198
  • 199
  • 200
  • 201
  • 202
  • 203
  • 204
  • 205
  • 206
  • 207
  • 208
  • 209
  • 210
  • 211
  • 212
  • 213
  • 214
  • 215
  • 216
  • 217
  • 218
  • 219
  • 220
  • 221
  • 222
  • 223
  • 224
  • 225
  • 226
  • 227
  • 228
  • 229
  • 230
  • 231
  • 232
  • 233
  • 234
  • 235
  • 236
  • 237
  • 238
  • 239
  • 240
  • 241
  • 242
  • 243
  • 244
  • 245
  • 246
  • 247
  • 248
  • 249
  • 250
  • 251
  • 252
  • 253
  • 254
  • 255
  • 256
  • 257
  • 258
  • 259
  • 260
  • 261
  • 262
  • 263
  • 264
  • 265
  • 266
  • 267
  • 268
  • 269
  • 270
  • 271
  • 272
  • 273
  • 274
  • 275
  • 276
  • 277
  • 278
  • 279
  • 280
  • 281
  • 282
  • 283
  • 284
  • 285
  • 286
  • 287
  • 288
  • 289
  • 290
  • 291
  • 292
  • 293
  • 294
  • 295
  • 296
  • 297
  • 298
  • 299
  • 300
  • 301
  • 302
  • 303
  • 304
  • 305
  • 306
  • 307
  • 308
  • 309
  • 310
  • 311
  • 312
  • 313
  • 314
  • 315
  • 316
  • 317
  • 318
  • 319
  • 320
  • 321
  • 322
  • 323
  • 324
  • 325
  • 326
  • 327
  • 328
  • 329
  • 330
  • 331
  • 332
  • 333
  • 334
  • 335
  • 336
  • 337
  • 338
  • 339
  • 340
  • 341
  • 342
  • 343
  • 344
  • 345
  • 346
  • 347
  • 348
  • 349
  • 350
  • 351
  • 352
  • 353
  • 354
  • 355
  • 356
  • 357
  • 358
  • 359
  • 360
  • 361
  • 362
  • 363
  • 364
  • 365
  • 366
  • 367
  • 368
  • 369
  • 370
  • 371
  • 372
  • 373
  • 374
  • 375
  • 376
  • 377
  • 378
  • 379
  • 380
  • 381
  • 382
  • 383
  • 384
  • 385
  • 386
  • 387
  • 388
  • 389
  • 390
  • 391
  • 392
  • 393
  • 394
  • 395
  • 396
  • 397
  • 398
  • 399
  • 400
  • 401
  • 402
  • 403
  • 404
  • 405
  • 406
  • 407
  • 408
  • 409
  • 410
  • 411
  • 412
  • 413
  • 414
  • 415
  • 416
  • 417
  • 418
  • 419
  • 420
  • 421
  • 422
  • 423
  • 424
  • 425
  • 426
  • 427
  • 428
  • 429
  • 430
  • 431
  • 432
  • 433
  • 434
  • 435
  • 436
  • 437
  • 438
  • 439
  • 440
  • 441
  • 442
  • 443
  • 444
  • 445
  • 446
  • 447
  • 448
  • 449
  • 450
  • 451
  • 452
  • 453
  • 454
  • 455
  • 456
  • 457
  • 458
  • 459
  • 460
  • 461
  • 462
  • 463
  • 464
  • 465
  • 466
  • 467
  • 468
  • 469
  • 470
  • 471
  • 472
  • 473
  • 474
  • 475
  • 476
  • 477
  • 478
  • 479
  • 480
  • 481
  • 482
  • 483
  • 484
  • 485
  • 486
  • 487
  • 488
  • 489
  • 490
  • 491
  • 492
  • 493
  • 494
  • 495
  • 496
  • 497
  • 498
  • 499
  • 500
  • 501
  • 502
  • 503
  • 504
  • 505
  • 506
  • 507
  • 508
  • 509
  • 510
  • 511
  • 512
  • 513
  • 514
  • 515
  • 516
  • 517
  • 518
  • 519
  • 520
  • 521
  • 522
  • 523
  • 524
  • 525
  • 526
  • 527
  • 528
  • 529
  • 530
  • 531
  • 532
  • 533
  • 534
  • 535
  • 536
  • 537
  • 538
  • 539
  • 540
  • 541
  • 542
  • 543
  • 544
  • 545
  • 546
  • 547
  • 548
  • 549
  • 550
  • 551
  • 552
  • 553
  • 554
  • 555
  • 556
  • 557
  • 558
  • 559
  • 560
  • 561
  • 562
  • 563
  • 564
  • 565
  • 566

Section 7.
Installation
245
'Declare Public (viewable) Variables
Public
Batt_Volt
As FLOAT
'Declared as Float
Public
PTemp_C
'Float by default
Public
AirTemp_C
'Float by default
Public
AirTemp_F
'Float by default
Public
AirTemp2_F
'Float by default
Public
DeltaT_C
'Float by default
Public
HowMany
'Float by default
Public
Counter
As Long
'Declared as Long so counter does not have
'rounding error
Public
SiteName
As String
* 16
'Declared as String with 16 chars for a
'site name (optional)
'Declare program control flags & terms. Set the words “High” and “Low” to equal “TRUE”
'and “FALSE” respectively
Public
Flag(1)
As Boolean
Const
High = True
Const
Low = False
'Optional – Declare a Station Name into a location in the Status table.
StationName
(CR1000_on_desk)
'Optional -- Declare units.
Units are not used in programming, but only appear in the
'data file header.
Units
Batt_Volt = Volts
Units
PTemp = deg C
Units
AirTemp = deg C
Units
AirTempF2 = deg F
Units
DeltaT_C = deg C
'Declare an interval driven output table
DataTable
(OneMin,True,-1)
'Time driven data storage
DataInterval
(0,1,Min,0)
'Controls the interval
Average
(1,AirTemp_C,IEEE4,0)
'Stores temperature average in high
'resolution format
Maximum
(1,AirTemp_C,IEEE4,0,False)
'Stores temperature maximum in high
'resolution format
Minimum
(1,AirTemp_C,FP2,0,False)
'Stores temperature minimum in low
'resolution format
Minimum
(1,Batt_Volt,FP2,0,False)
'Stores battery voltage minimum in low
'resolution format
Sample
(1,Counter,Long)
'Stores counter in integer format
Sample
(1,SiteName,String)
'Stores site name as a string
Sample
(1,HowMany, FP2)
'Stores how many data events in low
'resolution format
EndTable
'Declare an event driven data output table
DataTable
(Event,True,1000)
'Data table – event driven
DataInterval
(0,5,Sec,10)
'—AND interval driven
DataEvent
(0,DeltaT_C >= 3,DeltaT_C < 3,0)
'—AND event range driven
Maximum
(1,AirTemp_C,FP2,0,False)
'Stores temperature maximum in low
'resolution format