'****************************************************************
'*  UPDATING THINGSPEAK FIELD WITH ESP8266 AND XMEGA            *
'*       ESP8266 AT COMMANDS V.051 SDK 1.5.0                    *
'*            BARTek niveasoft(at)tlen.pl                       *
'****************************************************************

$regfile = "xm128a3udef.dat"
$crystal = 32000000                                         '32MHz
$hwstack = 80                                               'this is for my other tasks so
$swstack = 100                                              'you can modify values to your needs
$framesize = 100

 Config Submode = New

  Const Api_key = "ABCDEFGHIJKLMNOP"                        '' <<<<< YOUR API WRITE KEY

  Const Debuging = 1

' ***************** SYSTEM CLOCK CONFIG **************************
'                INTERNAL 32MHz NO PRESCALE
'
Config Osc = Disabled , 32mhzosc = Enabled , 32khzosc = Enabled
Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1
'
' ENABLING AUTOMATIC OSCILLATOR CALIBRATION
    Osc_dfllctrl.0 = 1
     Dfllrc32m_ctrl.0 = 1
'
'*****************************************************************


'************ CONFIGURATION FOR COM1 ON PORTC ********************
'                   ESP8266 ON COM1
Config Com1 = 115200 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8       'Tx-PC3  Rx-PC2
 Open "COM1:" For Binary As #1
  Config Serialin0 = Buffered , Size = 100                  'for COM1
   Config Input1 = Crlf , Echo = Crlf
'
 Const Max_str_len = 150 : Dim Com1_str As String * Max_str_len
'*****************************************************************

#if Debuging = 1
'*********** CONFIGURATION FOR COM2 ON PORTC *********************
'                COM2 IS FOR DEBUG SO SEPARATE CONFIG
Config Com2 = 115200 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8       'Tx-PC7  Rx-PC6
 Open "COM2:" For Binary As #2
  Config Serialin1 = Buffered , Size = 50                   'for COM2
   Config Input2 = Cr , Echo = Cr
'
    Dim Com2_str As String * 50
'*****************************************************************
#endif

Dim Char As Byte , Mark As Byte , Count As Byte
Dim Cmd As String * 100 , Cmd_len As String * 15
Dim Field1 As String * 5 , Lenght As Byte

Dim State As Byte , Old_state As Byte , Mem_state As Byte

 Const Startup = 0
 Const Waiting = 1
 Const Send_len = 2
 Const Sending = 3


Led Alias Portf.0 : Config Led = Output

 '*** SUB FOR USART HANDLING ***
 Sub Get_reply

    Com1_str = ""
     Count = 0

       Do
         Char = Inkey(#1)

         If Char > 0 Then
          Select Case Char
           Case 13 : If Com1_str <> "" Then Exit Do
           Case 10 : If Com1_str <> "" Then Exit Do
           Case Else
             Com1_str = Com1_str + Chr(char)
          End Select

          Incr Count
          If Count >= Max_str_len Then
           Com1_str = ""
            Count = 0
          End If

         End If

       Loop

      If Com1_str <> "" Then Mark = 1

 End Sub

 '*** SUB FOR DEBUG ON COM2 ***
 Sub Show_state
  Local St_str As String * 10

    Select Case State
     Case 0 : St_str = "Startup"
     Case 1 : St_str = "Waiting"
     Case 2 : St_str = "Send_len"
     Case 3 : St_str = "Sending"
    End Select

   Old_state = State
       Print #2 , "Now State=" ; St_str
End Sub

 '***    SUB FOR ESP8266    ***
 Sub Esp8266

    Select Case State

      Case Startup

       If Mark = 1 Then
           Mark = 0

           Select Case Com1_str

            Case "WIFI GOT IP"

                      'AT+CIPSTART="TCP","184.106.153.149",80
                Cmd = "AT+CIPSTART={034}TCP{034},{034}184.106.153.149{034},80"
                 Print #1 , Cmd

                Field1 = Str(rnd(100))                      ' <<<<<<  random value for Testing

                #if Debuging = 1
                  Print #2 , "Field value=" ; Field1
                #endif

                Cmd = "GET https://api.thingspeak.com/update?api_key="
                Cmd = Cmd + Api_key
                Cmd = Cmd + "&field1="
                Cmd = Cmd + Field1
                Cmd = Cmd + "{010}{010}"

                 Mem_state = State                          'memorize that we starting
                  State = Waiting

            Case Else

              #if Debuging = 1
               Print #2 , Com1_str
              #endif

           End Select

       End If

      Case Waiting                                          ' if we waiting for answear

       If Mark = 1 Then
           Mark = 0

            Select Case Com1_str

             'Case "CONNECT"

             Case "OK"                                      ' if we see OK

              Select Case Mem_state

                Case Startup                                'previous was Startup so this is first "OK"
                 Mem_state = Send_len

                   Lenght = Len(cmd) : Cmd_len = Str(lenght)
                   Cmd_len = "AT+CIPSEND=" + Cmd_len
                    Print #1 , Cmd_len

                Case Send_len                               'second "OK" so we send Len of data we want send

                  Print #1 , Cmd

                   State = Sending
                    Mem_state = Sending                     'memorize that we send data to server
                                                            '    ( for Error handling )
              End Select

               #if Debuging = 1
                Print #2 , Com1_str
               #endif

             Case "ERROR"

               #if Debuging = 1
                Print #2 , Com1_str
               #endif
                 State = Startup

             Case "CLOSED"

               #if Debuging = 1
                Print #2 , Com1_str
               #endif
                 State = Startup

             Case Else

               #if Debuging = 1
                Print #2 , Com1_str
               #endif

            End Select

       End If

      Case Sending

       If Mark = 1 Then
           Mark = 0

           Select Case Com1_str

             Case "SEND OK"

              State = Startup

           End Select

         #if Debuging = 1
          Print #2 , Com1_str
         #endif
       End If

    End Select

 End Sub


  Enable Interrupts

' *** MAIN LOOP START HERE ****

Do

  Call Esp8266

  #if Debuging = 1
   If Old_state <> State Then Call Show_state
  #endif

  If Ischarwaiting(#1) > 0 Then Call Get_reply

Loop
End