#!/usr/sbin/blassic '/var/www/solar_webpage_builder/read_from_file.bas 'read data values to plot from a text file 'programarg$(1) carries string1 which is the name of the data text file to plot DIM total_minutes$(720),pump$(720),heater$(720),AtoD$(720),T72$(720),T74$(720),T75$(720),T76$(720),T77$(720),bee_count$(720) ' clear all variables FOR i = 0 TO 720 total_minutes$(i)="1":pump$(i)="1":heater$(i)="1":AtoD$(i)="1" T72$(i)="1":T74$(i)="1":T75$(i)="1":T76$(i)="1":T77$(i)="1":bee_count$(i)="1" NEXT i 'DATE$ is mm-dd-yyyy mydate$ = DATE$ month$ = LEFT$(mydate$, 2): day$ = MID$(mydate$, 4, 2): year$ = RIGHT$(mydate$, 4) datafile$ = year$+month$+day$+"solar" ' fill the variable arrays as far as possible from the stored data path$ = "/var/www/solar_data/"+datafile$ OPEN path$ FOR INPUT AS #1 FOR i = 1 TO 720 INPUT #1,total_minutes$(i),pump$(i),heater$(i),AtoD$(i),T72$(i),T74$(i),T75$(i),T76$(i),T77$(i),bee_count$(i) IF EOF(#1) THEN LineEnd = i-1 :GOTO DataCaptured NEXT i LABEL DataCaptured CLOSE #1 ' write to the web page ' add the date 'date_number$ = year$+month$+day$ display_date$ = day$ + ":" + month$ + ":" + year$ PRINT" top.setColor('red');" PRINT" top.drawString( "; PRINT "'",display_date$, "'" ; PRINT" ,770,5); " ' solar panel PRINT" top.setStroke(2);": PRINT" top.setColor('blue');": PRINT" top.drawPolyline(new Array(" FOR i = 1 TO LineEnd: PRINT " ", total_minutes$(i),",":NEXT i: PRINT " ", total_minutes$(LineEnd+1) PRINT" ), new Array(" FOR i = 1 TO LineEnd: PRINT " ", T72$(i),",": NEXT i: PRINT " ", T72$(LineEnd+1) PRINT" ));" 'feeder tank bottom PRINT" top.setStroke(2);": PRINT" top.setColor('maroon');": PRINT" top.drawPolyline(new Array(" FOR i = 1 TO LineEnd: PRINT " ", total_minutes$(i),",":NEXT i: PRINT " ", total_minutes$(LineEnd+1) PRINT" ), new Array(" FOR i = 1 TO LineEnd: PRINT " ", T74$(i),",": NEXT i: PRINT " ", T74$(LineEnd+1) PRINT" ));" 'main tank bottom PRINT" top.setStroke(2);": PRINT" top.setColor('green');": PRINT" top.drawPolyline(new Array(" FOR i = 1 TO LineEnd: PRINT " ", total_minutes$(i),",":NEXT i: PRINT " ", total_minutes$(LineEnd+1) PRINT" ), new Array(" FOR i = 1 TO LineEnd: PRINT " ", T75$(i),",": NEXT i: PRINT " ", T75$(LineEnd+1) PRINT" ));" 'feeder tank top PRINT" top.setStroke(2);": PRINT" top.setColor('black');": PRINT" top.drawPolyline(new Array(" FOR i = 1 TO LineEnd: PRINT " ", total_minutes$(i),",":NEXT i: PRINT " ", total_minutes$(LineEnd+1) PRINT" ), new Array(" FOR i = 1 TO LineEnd: PRINT " ", T76$(i),",": NEXT i: PRINT " ", T76$(LineEnd+1) PRINT" ));" ' main tank top PRINT" top.setStroke(2);": PRINT" top.setColor('red');": PRINT" top.drawPolyline(new Array(" FOR i = 1 TO LineEnd: PRINT " ", total_minutes$(i),",":NEXT i: PRINT " ", total_minutes$(LineEnd+1) PRINT" ), new Array(" FOR i = 1 TO LineEnd: PRINT " ", T77$(i),",": NEXT i: PRINT " ", T77$(LineEnd+1) PRINT" ));" 'light level PRINT" top.setStroke(2);": PRINT" top.setColor('grey');": PRINT" top.drawPolyline(new Array(" FOR i = 1 TO LineEnd: PRINT " ", total_minutes$(i),",":NEXT i: PRINT " ", total_minutes$(LineEnd+1) PRINT" ), new Array(" FOR i = 1 TO LineEnd: PRINT " ", AtoD$(i),",": NEXT i: PRINT " ", AtoD$(LineEnd+1) PRINT" ));" 'heater PRINT" top.setStroke(2);": PRINT" top.setColor('red');": PRINT" top.drawPolyline(new Array(" FOR i = 1 TO LineEnd: PRINT " ", total_minutes$(i),",":NEXT i: PRINT " ", total_minutes$(LineEnd+1) PRINT" ), new Array(" FOR i = 1 TO LineEnd: PRINT " ", heater$(i),",": NEXT i: PRINT " ", heater$(LineEnd+1) PRINT" ));" 'pump PRINT" top.setStroke(2);": PRINT" top.setColor('blue');": PRINT" top.drawPolyline(new Array(" FOR i = 1 TO LineEnd: PRINT " ", total_minutes$(i),",":NEXT i: PRINT " ", total_minutes$(LineEnd+1) PRINT" ), new Array(" FOR i = 1 TO LineEnd: PRINT " ", pump$(i),",": NEXT i: PRINT " ", pump$(LineEnd+1) PRINT" ));" 'bee_count PRINT" top.setStroke(3);": PRINT" top.setColor('black');": PRINT" top.drawPolyline(new Array(" FOR i = 1 TO LineEnd: PRINT " ", total_minutes$(i),",":NEXT i: PRINT " ", total_minutes$(LineEnd+1) PRINT" ), new Array(" FOR i = 1 TO LineEnd: PRINT " ", bee_count$(i),",": NEXT i: PRINT " ", bee_count$(LineEnd+1) PRINT" ));" SYSTEM