Campbell Scientific CR3000 CR3000 Micrologger - Page 175

CRBasic Example 32.

Page 175 highlights

Section 7. Installation CRBasic Example 32. HTML 'NOTE: Lines ending with "+" are wrapped to the next line to fit on the printed page 'NOTE Continued: Do not wrap lines when entering program into CRBasic Editor. Dim Commands As String * 200 Public Time(9), RefTemp, Public Minutes As String, Seconds As String, Temperature As String DataTable(CRTemp,True,-1) DataInterval(0,1,Min,10) Sample(1,RefTemp,FP2) Average(1,RefTemp,FP2,False) EndTable 'Default HTML Page WebPageBegin("default.html",Commands) HTTPOut("") HTTPOut("body {background-color: oldlace}") HTTPOut("Campbell Scientific CR3000 Datalogger") HTTPOut("Welcome To the Campbell Scientific CR3000 Web Site!") HTTPOut("") HTTPOut("") HTTPOut("") HTTPOut(" Current Data:") HTTPOut("Time: " + time(4) + ":" + minutes + ":" + seconds + "") HTTPOut("Temperature: " + Temperature + "") HTTPOut(" Links:") HTTPOut("Monitor") HTTPOut("") HTTPOut("") WebPageEnd 'Monitor Web Page WebPageBegin("monitor.html",Commands) HTTPOut("") HTTPOut("body {background-color: oldlace}") HTTPOut("") HTTPOut("Monitor CR3000 Datalogger Tables") HTTPOut("CR3000 Data Table Links") HTTPOut("Display Last 10 Records from DataTable CR1Temp") HTTPOut("Current Record from CRTemp Table") HTTPOut("Current Record from Public Table") HTTPOut("Current Record from Status Table") HTTPOut("Back to the Home Page _ ") HTTPOut("") HTTPOut("") WebPageEnd 175

  • 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

Section 7.
Installation
175
CRBasic Example 32.
HTML
'NOTE: Lines ending with "+" are wrapped to the next line to fit on the printed page
'NOTE Continued: Do not wrap lines when entering program into CRBasic Editor.
Dim
Commands
As String
* 200
Public
Time(9), RefTemp,
Public
Minutes
As String
, Seconds
As String
, Temperature
As String
DataTable
(CRTemp,True,-1)
DataInterval
(0,1,Min,10)
Sample
(1,RefTemp,FP2)
Average
(1,RefTemp,FP2,False)
EndTable
'Default HTML Page
WebPageBegin
("default.html",Commands)
HTTPOut
("<html>")
HTTPOut
("<style>body {background-color: oldlace}</style>")
HTTPOut
("<body><title>Campbell Scientific CR3000 Datalogger</title>")
HTTPOut
("<h2>Welcome To the Campbell Scientific CR3000 Web Site!</h2>")
HTTPOut
("<tr><td style=" + CHR(34) +"width: 290px" + CHR(34) + ">")
HTTPOut
("<a href=" + CHR(34) + "http://www.campbellsci.com" + _
CHR(34) + ">")
HTTPOut
("<img src="+
CHR
(34) +"/CPU/SHIELDWEB2.jpg"+
CHR
(34) + "width=" + _
CHR
(34) +"128"+
CHR
(34)+"height="+
CHR
(34)+"155"+
CHR
(34) + "class=" + _
CHR
(34) +"style1"+
CHR
(34) +"/></a></td>")
HTTPOut
("<p><h2> Current Data:</h2></p>")
HTTPOut
("<p>Time: " + time(4) + ":" + minutes + ":" + seconds + "</p>")
HTTPOut
("<p>Temperature: " + Temperature + "</p>")
HTTPOut
("<p><h2> Links:</h2></p>")
HTTPOut
("<p><a href="+
CHR
(34) +"monitor.html"+
CHR
(34)+">Monitor</a></p>")
HTTPOut
("</body>")
HTTPOut
("</html>")
WebPageEnd
'Monitor Web Page
WebPageBegin
("monitor.html",Commands)
HTTPOut
("<html>")
HTTPOut
("<style>body {background-color: oldlace}</style>")
HTTPOut
("<body>")
HTTPOut
("<title>Monitor CR3000 Datalogger Tables</title>")
HTTPOut
("<p><h2>CR3000 Data Table Links</h2></p>")
HTTPOut
("<p><a href="+
CHR
(34) + "command=TableDisplay&table=CRTemp&records=10" + _
CHR
(34)+">Display Last 10 Records from DataTable CR1Temp</a></p>")
HTTPOut
("<p><a href="+
CHR
(34) + "command=NewestRecord&table=CRTemp"+
CHR
(34) + _
">Current Record from CRTemp Table</a></p>")
HTTPOut
("<p><a href="+
CHR
(34) + "command=NewestRecord&table=Public"+
CHR
(34) + _
">Current Record from Public Table</a></p>")
HTTPOut
("<p><a href="+
CHR
(34) + "command=NewestRecord&table=Status" +
CHR
(34) + _
">Current Record from Status Table</a></p>")
HTTPOut
("<br><p><a href="+
CHR
(34) +"default.html"+
CHR
(34) + ">Back to the Home Page _
</a></p>")
HTTPOut
("</body>")
HTTPOut
("</html>")
WebPageEnd