Campbell Scientific CR6 CR6 Measurement and Control System - Page 187

Public, As String, Const, As Boolean, As Long, DataTable, Sample, EndTable, DataInterval,

Page 187 highlights

Section 7. Installation 'Declarations supporting Enter Notes menu item Public SelectNote As String * 20 'Hold predefined pick list note Const Cal_Done = "Cal Done" 'Word stored when Cal_Don selected Const Offst_Chgd = "Offset Changed" 'Word stored when Offst_Chgd selected Const Blank = "" 'Word stored when blank selected Public EnterNote As String * 30 'Variable to hold free entry note Public CycleNotes As String * 20 'Variable to hold notes control word Const Accept = "Accept" 'Notes control word Const Clear = "Clear" 'Notes control word 'Declarations supporting Control menu item Const On = true Const Off = false Public StartFlag As Boolean Public CountDown As Long Public ToggleLED As Boolean 'Assign "On" as Boolean True 'Assign "Off" as Boolean False 'LED Control Process Variable 'LED Count Down Variable 'LED Control Variable 'Define Note DataTable DataTable(Notes,1,-1) Sample(1,SelectNote,String) Sample(1,EnterNote,String) EndTable 'Set up Notes data table, written 'to when a note is accepted 'Sample Pick List Note 'Sample Free Entry Note 'Define temperature DataTable DataTable(TempC,1,-1) DataInterval(0,60,Sec,10) Sample(1,RefTemp,FP2) Sample(1,TCTemp(1),FP2) Sample(1,TCTemp(2),FP2) EndTable 'Set up temperature data table. 'Written to every 60 seconds with: 'Sample of reference temperature 'Sample of thermocouple 1 'Sample of thermocouple 2 'Custom Menu Declarations DisplayMenu("**CUSTOM MENU DEMO**",-3) 'Create Menu; Upon power up, the custom menu 'is displayed. The system menu is hidden 'from the user. SubMenu("") DisplayValue("",Escape) EndSubMenu 'Dummy Sub menu to write a blank line 'a blank line 'End of dummy submenu SubMenu("View Data ") DisplayValue("Ref Temp C",RefTemp) DisplayValue("TC 1 Temp C",TCTemp(1)) DisplayValue("TC 2 Temp C",TCTemp(2)) EndSubMenu 'Create Submenu named PanelTemps 'Item for Submenu from Public 'Item for Submenu - TCTemps(1) 'Item for Submenu - TCTemps(2) 'End of Submenu SubMenu("Make Notes ") MenuItem("Predefined",SelectNote) MenuPick(Cal_Done,Offset_Changed) MenuItem("Free Entry",EnterNote) MenuItem("Accept/Clear",CycleNotes) MenuPick(Accept,Clear) EndSubMenu 'Create Submenu named PanelTemps 'Choose predefined notes Menu Item 'Create pick list of predefined notes 'User entered notes Menu Item SubMenu("Control ") MenuItem("Count to LED",CountDown) MenuPick(15,30,45,60) MenuItem("Manual LED",toggleLED) MenuPick(On,Off) 'Create Submenu named PanelTemps 'Create menu item CountDown 'Create a pick list for CountDown 'Manual LED control Menu Item 187

  • 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
  • 567
  • 568
  • 569
  • 570
  • 571
  • 572
  • 573
  • 574
  • 575
  • 576
  • 577
  • 578
  • 579
  • 580
  • 581
  • 582
  • 583
  • 584
  • 585
  • 586
  • 587
  • 588
  • 589
  • 590
  • 591
  • 592
  • 593
  • 594
  • 595
  • 596
  • 597
  • 598
  • 599
  • 600
  • 601
  • 602
  • 603
  • 604
  • 605
  • 606
  • 607
  • 608
  • 609
  • 610
  • 611
  • 612
  • 613
  • 614
  • 615
  • 616
  • 617
  • 618
  • 619
  • 620
  • 621
  • 622
  • 623
  • 624
  • 625
  • 626

Section 7.
Installation
'Declarations supporting Enter Notes menu item
Public
SelectNote
As String
* 20
'Hold predefined pick list note
Const
Cal_Done = "Cal Done"
'Word stored when Cal_Don selected
Const
Offst_Chgd = "Offset Changed"
'Word stored when Offst_Chgd selected
Const
Blank = ""
'Word stored when blank selected
Public
EnterNote
As String
* 30
'Variable to hold free entry note
Public
CycleNotes
As String
* 20
'Variable to hold notes control word
Const
Accept = "Accept"
'Notes control word
Const
Clear = "Clear"
'Notes control word
'Declarations supporting Control menu item
Const
On = true
'Assign "On" as Boolean True
Const
Off = false
'Assign "Off" as Boolean False
Public
StartFlag
As Boolean
'LED Control Process Variable
Public
CountDown
As Long
'LED Count Down Variable
Public
ToggleLED
As Boolean
'LED Control Variable
'Define Note DataTable
'Set up Notes data table, written
DataTable
(Notes,1,-1)
'to when a note is accepted
Sample
(1,SelectNote,String)
'Sample Pick List Note
Sample
(1,EnterNote,String)
'Sample Free Entry Note
EndTable
'Define temperature DataTable
'Set up temperature data table.
DataTable
(TempC,1,-1)
'Written to every 60 seconds with:
DataInterval
(0,60,Sec,10)
Sample
(1,RefTemp,FP2)
'Sample of reference temperature
Sample
(1,TCTemp(1),FP2)
'Sample of thermocouple 1
Sample
(1,TCTemp(2),FP2)
'Sample of thermocouple 2
EndTable
'Custom Menu Declarations
DisplayMenu
("**CUSTOM MENU DEMO**",-3)
'Create Menu; Upon power up, the custom menu
'is displayed. The system menu is hidden
'from the user.
SubMenu
("")
'Dummy Sub menu to write a blank line
DisplayValue
("",Escape)
'a blank line
EndSubMenu
'End of dummy submenu
SubMenu
("View Data ")
'Create Submenu named PanelTemps
DisplayValue
("Ref
Temp C",RefTemp)
'Item for Submenu from Public
DisplayValue
("TC 1 Temp C",TCTemp(1))
'Item for Submenu - TCTemps(1)
DisplayValue
("TC 2 Temp C",TCTemp(2))
'Item for Submenu - TCTemps(2)
EndSubMenu
'End of Submenu
SubMenu
("Make Notes ")
'Create Submenu named PanelTemps
MenuItem
("Predefined",SelectNote)
'Choose predefined notes Menu Item
MenuPick
(Cal_Done,Offset_Changed)
'Create pick list of predefined notes
MenuItem
("Free Entry",EnterNote)
'User entered notes Menu Item
MenuItem
("Accept/Clear",CycleNotes)
MenuPick
(Accept,Clear)
EndSubMenu
SubMenu
("Control ")
'Create Submenu named PanelTemps
MenuItem
("Count to LED",CountDown)
'Create menu item CountDown
MenuPick
(15,30,45,60)
'Create a pick list for CountDown
MenuItem
("Manual LED",toggleLED)
'Manual LED control Menu Item
MenuPick
(On,Off)
187