' ESP8266  pinout
' top view
' CH_PD to GND  to activate (Chip powers down (when high))
'
'    _   _   _   ________
'   | |_| |_| |_|                antenna on top
'
'  GND  GPIO2 GPIO0   RX
'   |     |     |     |
'
'   |     |     |     |
'  TX   CH_PD  RST   Vcc
'
'VCC=3.3V !

$regfile = "xm128a3udef.dat"
$crystal = 32000000
$hwstack = 64
$swstack = 40
$framesize = 64



Const Ssid = "Your ssid"
Const Passwort = "your password"
Const Offset_gmt = 3600                 'in seconds. I live in GMT+1




Dim Sec_to_ntp_update As Integer

Config Osc = Enabled , 32mhzosc = Enabled       ' enable 2 MHz and 32 MHz internal oscillators
'Select the oscillator source for the system clock and prescaler (this must match with $crystal = XXXXXX).
'The following configure the internal 32MHz oscillator as system clock without prescaler so the system
'clock is 32MHz which Match With $crystal = 32000000
Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1

$lib "datetime.lbx"
$lib "xmega.lib" : $external _xmegafix_clear : $external _xmegafix_rol_r1014


'First Enable The Osc Of Your Choice , make sure to enable 32 KHz clock or use an external 32 KHz clock
Config Osc = Enabled , 32mhzosc = Enabled , 32khzosc = Enabled
'For the CLOCK we use the RTC so make sure the 32 KHZ osc is enabled!!!

'configure the systemclock
Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1

Config Clock = Soft , Rtc = 1khz_int32khz_ulp , Gosub = Sectic       ' we select the internal 1 KHz clock from the 32KHz internal oscillator
Config Priority = Static , Vector = Application , Lo = Enabled       ' the RTC uses LO priority interrupts so these must be enabled !!!


' COM1 --> Usartc0 --> RX=pc2(pin18)  TX=pc3(pin19)
Config Com1 = 9600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
Open "COM1:" For Random As #1

'pin nummer                    40              41              42              43            39             38
Config Lcdpin = Pin , Db4 = Porte.4 , Db5 = Porte.5 , Db6 = Porte.6 , Db7 = Porte.7 , E = Porte.3 , Rs = Porte.2
Config Lcd = 16 * 2

Config Pina.2 = Output
Led1 Alias Porta.2

Config Date = Dmy , Separator = Minus

Dim Rxstring As String * 100
Dim Check As Bit


' Ntp Stuff
Dim Tt(4) As String * 1
Dim Ss(4) As Byte
Dim L1 As Long At Ss Overlay                                ' Overlay a long variable to receive-string
Dim L2 As Long                          ' with overlay you need no transfer from the byte-array to a long-variable


Declare Sub Init_esp8266
Declare Sub Ntp
Declare Sub Wait_for_string(byval B As String)
Declare Function Read_string() As String

Enable Interrupts
'==================================================================================
'init
Sec_to_ntp_update = 600

Cls
Locate 1 , 1 : Lcd "init ESP"
Init_esp8266

Locate 1 , 1 : Lcd "Getting NTP time"
Ntp                                     ' we don't have the correct time so lets start with that

Cls
Do
   If Sec_to_ntp_update = 0 Then        ' update time every hour. At least when you set the seconds to 3600
      Ntp
      Sec_to_ntp_update = 600
   End If
   Locate 1 , 9 : Lcd Time$
   Locate 2 , 9 : Lcd Date$
   Locate 1 , 1 : Lcd Sec_to_ntp_update
Loop

Sectic:
   Decr Sec_to_ntp_update
Return

'***********************   Ask Time From Timeserver Esp8266:  ******************************************

Sub Ntp
   Print "AT+CIPMUX=1"
   Waitms 100
   Print "AT+CIPSTART=1," ; Chr(34) ; "UDP" ; Chr(34) ; "," ; Chr(34) ; "193.67.79.202" ; Chr(34) ; ",37"
   Waitms 100
   Print "AT+CIPSEND=1,3"
   Waitms 100
   Print "X"                            'send capital X to ntp server and you obtain the time
   Do
     Wait_for_string "+IPD,1,4:"        'behind the : will be the time....  4 bytes
     Reset Check
     Rxstring = Read_string()
     Wait_for_string "OK"               'reply from ESP8266
   Loop Until Check = 1                 'check is set in wait_for string
   Reset Check

   Tt(1) = Mid(rxstring , 4 , 1)        'from big endian to little endian
   Tt(2) = Mid(rxstring , 3 , 1)        'swap the bytes
   Tt(3) = Mid(rxstring , 2 , 1)
   Tt(4) = Mid(rxstring , 1 , 1)
   Ss(1) = Asc(tt(1))                   'this is  L1 split in 4s by overlay
   Ss(2) = Asc(tt(2))
   Ss(3) = Asc(tt(3))
   Ss(4) = Asc(tt(4))
   L2 = L1 + 1139293696
   L2 = L2 + Offset_gmt
   Time$ = Time(l2)                     'set the time
   Date$ = Date(l2)                     'set the date
   Waitms 250
   Print "AT+CIPCLOSE=1"  
End Sub

'*******************************************************************************************************
Sub Init_esp8266
'init the ESP8266
'AT+RST
'AT+CIPMUX=1
'AT+CWMODE=3
'AT+CIPSERVER=1,23
'AT+CWLAP    'we don't do this one because we allready know our wifi network ssid and password
'AT+CWJAP="ssid","password"

   Print "AT+RST"                       'reset the ESP8266
   Do
      Wait_for_string "ready"           'reply from ESP8266
   Loop Until Check = 1
   Reset Check

   Print "AT+CIPMUX=1"
   Waitms 100                           'the answer here is "link is builded" but i don't know if that's changed in another version

   Print "AT+CWMODE=3"
   Waitms 100

   Print "AT+CIPSERVER=1,23"
   Do
      Wait_for_string "OK"              'reply from ESP8266
   Loop Until Check = 1
   Reset Check

   Print "AT+CWJAP=" ; Chr(34) ; Ssid ; Chr(34) ; "," ; Chr(34) ; Passwort ; Chr(34)
   Do
      Wait_for_string "OK"              'reply from ESP8266
   Loop Until Check = 1
   Reset Check
   Waitms 250


End Sub
'*******************************************************************************
Sub Wait_for_string(byval B As String) As String
   Local Ii As Byte
   Local Cc As Byte
      Ii = 1
      M1:
      Cc = Inkey()
      If Cc <> Mid(b , Ii , 1) Then
         Goto M1
      Else
         Incr Ii
         If Ii > Len(b) Then Goto M2
         Goto M1
      End If
   M2:
   Set Check
End Sub
'*******************************************************************************
Function Read_string() As String
   Local Cc As Byte
   Local Sss As String * 100
   Local Stringlen As Integer
      Sss = ""
      While Cc <> Chr(13)
         Cc = Inkey()
         If Cc = Chr(10) Then Cc = " "
         Sss = Sss + Chr(cc)
      Wend
      Stringlen = Len(sss) - 1
      Read_string = Left(sss , Stringlen)
End Function

End
 

$regfile = "xm256a3bdef.dat"
$crystal = 32000000

$hwstack = 64
$swstack = 40
$framesize = 40

$lib "xmega.lib"
$lib "i2c_twi.lbx" '
$external _xmegafix_clear
$external _xmegafix_rol_r1014

Config Osc = Enabled , 32mhzosc = Enabled , 32khzosc = Enabled

Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1

Config Clock = Soft , Rtc = 1KHZ_INT32KHZ_ULP , gosub = sectic

Config Priority = Static , Vector = Application , Lo = Enabled
Enable Interrupts

Dim Sec_to_ntp_update As Integer