' Configuration constants
TimeZone = 12.0 ' hours from GMT (+ or -)

UseDST = 1 ' set to 1 to enable daylight saving time (DST) adjust
dms = 10 ' the month that DST starts
dhs = 3 ' the hour that DST starts
dme = 4 ' the month that DST ends
dhe = 2 ' the hour that DST ends
UPDateTime = 15 ' Update Frequency in Minutes
IntUpper = 25 ' Internal Temp Upper Alarm
IntLower = 15 ' Internal Temp Lower Alarm
ExtUpper = 22 ' External Temp Upper Alarm
ExtLower = 10 ' External Temp Lower Alarm
Lcount=11
BodyLines=2

'arrays
Dim Line$(LCount)
Dim Body$(BodyLines)
Dim md(12), Months$(12)
Data 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334
Data Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec
For i = 1 To 12: Read md(i): Next i
For I = 1 To 12: Read Months$(I) : Next I

Line$(1)="helo aol.com" 'Use what you like here
Line$(2)="mail from: Monitor@aol.com" 'Sending address
Line$(3)="rcpt to: youremail@email.com" 'To Adress
Line$(4)="data" 'Start the data content
Line$(5)="from:Monitor@aol.com" 'The next 3 Lines are to avoid a Bad header
Line$(6)="to:youremail@email.com" 'To Adress
Line$(7)="Subject:Temperature Monitor"+Chr$(13)+Chr$(10)
Line$(8)="Server Room Temperature Status" 'Body
Body$(1)="Rack Temperature="
Body$(2)="Room Temperature="
Line$(11)=Chr$(13)+Chr$(10)+"." 'End of Data

SetPin 14,DOUT 'WifI Reset pin

PWM 2, 1800, 5, 20 'Adjust Freqency for contrast adjustment
LCD Init 2, 3, 4, 5, 6, 7 'Setup the LCD for display


SSID$ = "SSID HERE" 'name of wireless access point To connect To
PASS$ = "Wireless KEY" 'wifi password
Port$ = "80"
DST$ = "184.106.153.149" 'api.thingspeak.com
HST$ = "/HOST:api.thingspeak.com HTTP/1.1" 'api.thingspeak.com
GET$ = "GET /update?api_key=XXXXXXXXXXXXXXXX&field1=" 'Put your own key here
GET2$ = "&field2="
ESR$ = "192.168.0.2" 'Mail servers IP

Memory
Reset

Open "COM1:115200, 1024" As #1 'ESP module must be set to same rate

Print #1, "AT+CWMODE=1"
Pause 1000

Print #1, "AT+CIPMUX=0" ' Set Single connection
Pause 2000

ConnectToWiFi:
Print #1,"AT+CWJAP="+Chr$(34)+SSID$+Chr$(34)+","+Chr$(34)+PASS$+Ch r$(34)
LCD 1, 1, "Connecting to "
LCD 2, 1, SSID$
Pause 8000 'give it time to connect
Getstringlong
Flushbuf

Print #1, "AT+CIFSR"
Pause 1000
Line Input #1,IP$ ' Ignore this one
Line Input #1,IP$ ' Ignore this one
Line Input #1,IP$
LCD CLEAR
LCD 4, 1, IP$
Print IP$


PushTemp:
Flushbuf
Print #1, "AT+CIPSTART="+Chr$(34)+"TCP"+Chr$(34)+","+Chr$(34)+DST$+Chr $(34)+","+"80"
Pause 2000

For I = 0 To 4
Line Input #1,TD$
Print "Line Number ";I,TD$
Next I

If TD$<>"Linked" Then
LCD 3, 1, "HTTP Post Error "
GoTo ConnectToWiFi
EndIf

I=1000 'Ensure 1st Read
GoSub Readtemp 'Read Temperature

HTTP Get$+T1$+Get2$+T2$+HST$ 'Send Data to thingspeak.com
Pause 1000

For I = 0 To 9
Line Input #1,TD$
Next I

Print #1,"AT+CIPCLOSE"
Pause 1000

GoSub TimeDate
LCD 3, 1,"Last Update "+Time$

Test ' Check alarm

Timer=0
Do While Timer < ((UPDateTime*1000)*60)
LCD 1, 1,"Ext "+T1$+Chr$(223)+"C"
LCD 2, 1,"Int "+T2$+Chr$(223)+"C"
LCD 1, 12, Time$
LCD 2, 12, Left$(Date$,3)+Mnth$+"-"+Right$(Date$,2)
Loop

LCD 1, 12, "Updating"
GoSub ReadTemp 'Read the Temp Sensors

GoTo PushTemp

Sub Test
If Val(T1$) > ExtUpper Then Alarm=1 'If T1 greater than set
If Val(T1$) < ExtLower Then Alarm=1 'If T1 less than set
If Val(T2$) > IntUpper Then Alarm=1 'If T2 greater than set
If Val(T2$) < IntLower Then Alarm=1 'If T2 less than set

If Alarm <> 1 Then Exit Sub 'No Alarm Exit

If Mailcount < 1 Then SendEmail
If Mailcount > 3 Then SendEmail

Mailcount=Mailcount+1
If MailCount > 3 Then Mailcount=0

End Sub

Sub HTTP output$
Print #1,"AT+CIPSEND="+Str$(Len(output$)+4)
Delay
Print #1,output$;
Delay
Print #1,Chr$(13)+Chr$(10);
Delay
Print #1,Chr$(13)+Chr$(10);
Delay
End Sub

Sub Reset
Pin(14)=0 ' Reset Module Disabled
Pause 500
Pin(14)=1 ' Reset Module Enabled
Pause 1500
End Sub

Sub FLUSHBUF
Do:A$=Input$(1,#1):Loop While Loc(#1) <> 0
End Sub

Sub SendEmail
Print "SendEmail"
Flushbuf
Print #1, "AT+CIPSTART="+Chr$(34)+"TCP"+Chr$(34)+","+Chr$(34)+ESR$+Chr $(34)+",25" '
Pause 2000

For I = 0 To 4
Line Input #1,TD$
Print "Line Number ";I,TD$
Next I

If TD$<>"Linked" Then
LCD 3, 1, "Email Send Error "
GoTo ConnectToWiFi
EndIf

Line$(9)=Body$(1)+T1$+" C"
Line$(10)=Body$(2)+T2$+" C"

For I = 1 To LCount
Print #1,"AT+CIPSEND="+Str$(Len(Line$(I))+2)
Delay
Print #1,Line$(I)+Chr$(13)+Chr$(10);
Delay
Getstringlong
Next I
Print #1, "AT+CIPCLOSE"
Emailcount=Emailcount+1 'Increment Email sent counter
End Sub

Sub Delay
Pause 500
End Sub

'**********GETSTRINGLONG************
Sub GETSTRINGLONG
'Pause 200
C$=""
Do
C$=Input$(1,#1)
char = Asc(C$)
If char >31 Then Print C$; 'printable characters
If char =10 Then Print " " 'linefeed
EndIf
Loop While Loc(#1)<>0
End Sub


TimeDate:
' first extract the date/time from the returned html
year = Val(Mid$(TD$, 21, 2))
Mnth$ = Mid$(TD$, 15, 3)
day = Val(Mid$(TD$, 12, 2))
hour = Val(Mid$(TD$, 24, 2))
min = Val(Mid$(TD$, 27, 2))
sec = Val(Mid$(TD$, 30, 2))


'Lookup Month
I=1
Do While Mnth$<>Months$(I)
I=I+1
If I >12 Then Return
Loop
month=I


mins = GetMins(year, month, day, hour, min)
mins = mins + TimeZone * 60 ' adjust for the timezone
If UseDST Then ' if we observe daylight saving
If mins < GetDST(year, dme, dhe) Or mins > GetDST(year, dms, dhs) Then
mins = mins + 60 ' adjust for AWST DST
EndIf
EndIf


' finally convert the minutes back into the current date/time
Line1$ = GetDate$(mins)
Line2$ = GetTime$(mins)

' display the date and time for this second
Print "Date ";Line1$
Print "Time ";Line2$

Time$=Line2$
Date$=Mid$(Line1$,6,2)+"-"+Str$(I)+"-"+Right$(Line1$,2)

Return

ReadTemp:
I=I+1
If I < 1000 Then Return
EndIf
Tmp= DS18B20(18) 'DS18B20 on pin 18
T1$ = Str$(Tmp) 'Str$(DS18B20(14)
If Int(Val(T1$)) < 10 Then T1$ = " " + T1$
T1$=Left$(T1$,2)+"."+ Str$(Int((Tmp-Int(Tmp))*10))
Print T1$

Tmp= DS18B20(17) 'DS18B20 on pin 17
T2$ = Str$(Tmp) 'Str$(DS18B20(14)
If Int(Val(T2$)) < 10 Then T2$ = " " + T2$
T2$=Left$(T2$,2)+"."+ Str$(Int((Tmp-Int(Tmp))*10))
Print T2$

I=0
Return
' Below code from Geoff Graham's GPS Clock
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''
' calculate the minutes since midnight 1st Jan 2014
Function GetMins(yr, mth, day, hr, min)
GetMins = (yr - 14) * (365 * 24 * 60) + ((yr - 13) \ 4) * (24 * 60)
GetMins = GetMins + (md(mth) * (24 * 60))
GetMins = GetMins + ((day - 1) * (24 * 60))
GetMins = GetMins + (hr * 60)
GetMins = GetMins + min
If (yr - 16) Mod 4 = 0 And mth > 2 Then GetMins = GetMins + (24 * 60)
End Function


' convert minutes back into the time (as a string)
Function GetTime$(minutes)
Local hr, min, am$
am$ = "AM"
hr = (minutes \ 60) Mod 24
'If hr > 12 Then am$ = "PM" : hr = hr - 12
'If hr = 0 Then hr = 12
min = minutes Mod 60
GetTime$ = Str$(hr) + ":"
GetTime$ = GetTime$ + Right$("0" + Str$(min), 2) + ":"
GetTime$ = GetTime$ + Right$("0" + Str$(sec), 2) + " " ' + am$
GetTime$=" " + GetTime$
End Function


' convert minutes back into the date (as a string)
Function GetDate$(minutes)
Local yr, mth, day, mths$, days$
mths$ = " JanFebMarAprMayJunJulAugSepOctNovDec"
days$ = "SunMonTueWedThuFriSat"
For yr = 14 To 99
If minutes < GetMins(yr + 1, 1, 1, 0, 0) Then Exit For
Next yr
For mth = 1 To 12
If minutes < GetMins(yr, mth, 1, 0, 0) Then Exit For
Next mth
mth = mth - 1
day = ((minutes - GetMins(yr, mth, 1, 0, 0)) \ (24 * 60)) + 1
GetDate$ = Mid$(days$, ((((minutes \ (24 * 60)) + 3) Mod 7) * 3) + 1,3)+" "
GetDate$ = GetDate$ + Right$(" " + Str$(day), 2)
GetDate$ = GetDate$ + "-" + Mid$(mths$,mth*3,3) + "-" + Str$(yr + 2000)
End Function


' get the minutes that DST will start or end in a month
Function GetDST(yr, mth, hr)
Local d, m
m = GetMins(yr, mth, 1, hr, 0)
d = ((m \ (24 * 60)) + 3) Mod 7
GetDST = m + (((7 - d) Mod 7) * 24 * 60)
End Function

Lcount=13

Dim Line$(LCount)

Line$(1) = "helo smtpout.secureserver.net" 'GODADDY WEBMAIL SERVER"
LINE$(2) = "AUTH LOGIN" 'LOG IN
Line$(3) = "XXXXXXXXXXXXXXXXXXXXXXX" 'BASE64 YOU@YOURMAIL.COM
Line$(4) = "XXXXXXXXX" 'BASE64 YOURPASSWORD
Line$(5) = "MAIL FROM: YOU@YOURMAIL.COM"
Line$(6) = "RCPT TO: HIM@HISMAIL.COM" 'To Adress
Line$(7) = "DATA" 'WANT TO SEND DATA
Line$(8) = "TO: HIM@HISMAIL.COM" 'TO EMAIL ADDRESS
LINE$(9) = "FROM: YOU@YOURMAIL.COM" 'FROM YOU
LINE$(10) = "SUBJECT: MESSAGE FROM JIM'S uMITE" 'SUBJECT LINE
LINE$(11) = "THIS IS A TEST FROM UMITE" 'BODY LINE 1
LINE$(12) = "HAVE A NICE DAY" 'BODY LINE 2
Line$(13) = "." 'End of Data

SSID$ = "jim's Wi-Fi Network" 'name of wireless access point To connect To
PASS$ = "Zak12341" 'wifi password 'Mail servers IP
ESR$ = "SMTPOUT.SECURESERVER.NET"

Open "COM1:230400, 1024" As #1 'ESP module must be set to same rate
FLUSHBUF

Print #1, "AT+CWMODE=1" 'SET ESP8266 AS STATION
Pause 1000
GETSTRINGLONG

Print #1, "AT+CIPMUX=0" ' Set Single connection
Pause 2000
GETSTRINGLONG

ConnectToWiFi:
Print #1,"AT+CWJAP="+Chr$(34)+SSID$+Chr$(34)+","+Chr$(34)+PASS$+Ch r$(34)
PRINT "Connecting to ";SSID$
Pause 8000 'give it time to connect
GETSTRINGLONG
FLUSHBUF

Print #1, "AT+CIFSR" 'GET IP ADDRESS
Pause 2000
Line Input #1,IP$:PRINT"CIFSR 1 = ";IP$ ' Ignore this one
Line Input #1,IP$:PRINT"CIFSR 2 = ";IP$ ' Ignore this one
Line Input #1,IP$:PRINT"CIFSR 3 = ";IP$
Print "CONNECTED TO "+SSID$+" AT IP ADDRESS: ";IP$
SENDEMAIL
END

'**********GETSTRINGLONG************
Sub GETSTRINGLONG
C$=""
Do
C$=Input$(1,#1)
char = Asc(C$)
If char >31 Then Print C$; 'printable characters
If char =10 Then Print " " 'linefeed
EndIf
Loop While Loc(#1)<>0
End Sub

'**********FLUSHBUFFER************
Sub FLUSHBUF
Do:A$=Input$(1,#1):Loop While Loc(#1) <> 0
End Sub

'**********SEND EMAIL************
Sub SENDEMAIL
Print "SendEmail"
Flushbuf
PRINT "DOING CIPSTART NOW"
Print #1, "AT+CIPSTART="+Chr$(34)+"TCP"+Chr$(34)+","+Chr$(34)+ESR$+Chr $(34)+",80"
Pause 2000
For I = 0 To 4
Line Input #1,TD$
Print "Line Number ";I,TD$
Next I
If TD$<>"Linked" Then
PRINT "UNIT DID NOT LINK"
GOTO CONNECTTOWIFI
ENDIF
PRINT "UNIT LINKED TO ";ESR$
PAUSE 500
FLUSHBUF
For I = 1 To LCount
Print #1,"AT+CIPSEND="+Str$(Len(Line$(I))+2)
Delay
Print #1,Line$(I)+Chr$(13)+Chr$(10);
Delay
Getstringlong
Next I
DELAY
GETSTRINGLONG
Print #1, "AT+CIPCLOSE"
DELAY
GETSTRINGLONG
END SUB

SUB DELAY
PAUSE 1000
END SUB

'**********GETSTRINGLONG************
Sub GETSTRINGLONG
C$=""
Do
C$=Input$(1,#1)
char = Asc(C$)
If char >31 Then Print C$; 'printable characters
If char =10 Then Print " " 'linefeed
EndIf '!!!!! this shouldn't be here
Loop While Loc(#1)<>0
End Sub

Sub SetBrightness ' Sub To Brightness
PWM 2, 1000, (100-Brightness)
End Sub