'***code is in BASCOM AVR*************
'****designed by Engr:Tarique R. Memon
'********Arduino UNo & ESP8266 Interface
'***********developed date Nov 28, 2017, time 11:51PM
'********tested on iot.electronixforu.com*************
$regfile = "m328pdef.dat"                                 
$crystal = 16000000                                        
$baud = 9600

'assign variable
Dim Host As String * 24
Dim Port As String * 2
Dim Get_req As String * 24
Dim Api_key As String * 20
Dim Field1 As String * 8
Dim Field2 As String * 8
Dim Field3 As String * 8
Dim Field4 As String * 8
Dim Field1_val As String * 5
Dim Field2_val As String * 5
Dim Field3_val As String * 5
Dim Field4_val As String * 5
Dim Http As String * 9
Dim Host1 As String * 30
Dim Connection As String * 30

'ADC_get variables
Dim V As Word
Dim A As Word
Dim V_sin As Single
Dim A_sin As Single
Dim V_str As String * 4
Dim A_str As String * 4
Dim Query As Word
Dim Powr As Single
Dim Powr_str As String * 6
Dim Length As Byte
Dim Query_str As String * 10
'****strings
Host = "iot.electronixforu.com"
Port = "80"
Get_req = "GET /post.php?api_key="
Api_key = "5a22f591bd197"                                   'replace this key
Field1 = "&field1="
Field2 = "&field2="
Field3 = "&field3="
Field4 = "&field4="
Http = " HTTP/1.1"
Host1 = "Host: "
Connection = "Connection: close"
Open "comd.6:9600,8,n,1" For Output As #1
Open "comd.5:9600,8,n,1" For Input As #2

Print#1 , "AT+CIPMUX=0"

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Do
Print#1 , "AT+CIPSTART=" ; Chr(34) ; "TCP" ; Chr(34) ; "," ; Chr(34) ; Host ; Chr(34) ; "," ; Port
Gosub Adc_get
Wait 2
Print#1 , "AT+CIPSEND=" ; Length
Waitms 400
Print#1 , Get_req ; Api_key ; Field1 ; V_str ; Field2 ; A_str ; Field3 ; Powr_str ; Field4 ; Query_str ; Http
Print#1 , Host1 ; Host
Print#1 , Connection ; Chr(13) ; Chr(10)
Wait 3
Print Get_req ; Api_key ; Field1 ; V_str ; Field2 ; A_str ; Field3 ; Powr_str ; Field4 ; Query_str ; Http
Print Host1 ; Host
Print Connection
Print "V_str=" ; V_str ; "A_str=" ; A_str ; "power=" ; Powr_str ; "querry" ; Query
Print Length ; "length"
Loop


Adc_get:
V = Getadc(0)
A = Getadc(1)
Incr Query
Query_str = Str(query)
V_sin = V / 204.8
A_sin = A / 204.8
V_str = Fusing(v_sin , "##.#")
A_str = Fusing(a_sin , "##.#")
Powr = V_sin * A_sin
Powr_str = Fusing(powr , "####.#")
Length = Len(v_str) + Len(a_str)
Length = Length + Len(query_str)
Length = Length + Len(powr_str)
Length = Length + Len(get_req)
Length = Length + Len(api_key)
Length = Length + Len(field1)
Length = Length + Len(field2)
Length = Length + Len(field3)
Length = Length + Len(field4)
Length = Length + Len(http)
Length = Length + Len(host1)
Length = Length + Len(host)
Length = Length + Len(connection)
Length = Length + 8
Return