CR1000 Manual - Campbell Scientific

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 CR1000 Datalogger")
HTTPOut("Welcome To the Campbell Scientific CR1000 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 CR1000 Datalogger Tables")
HTTPOut("CR1000 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
170