Arduino Based geautomatiseerde verlichting Control (4 / 6 stap)

Stap 4: Stap #4: Android programma

http://www.Basic4ppc.com/Android/Help/http.html

het idee is, voor elke knop in de toepassing die zal duwen de webserver de parameters nodig uitschakelen en inschakelen van de lichten

Hier is het programma voor de android app:

' Activiteit module
Sub Process_Globals
' Deze globale variabelen zal worden gedeclareerd zodra wanneer de toepassing wordt gestart.
' Deze variabelen kunnen worden geopend vanuit alle modules.
Dim URLoff As String
URLoff = "http://192.168.1.15/?led1=off"
Dim URLon As String
URLon = "http://192.168.1.15/?led1=on"
Dim URLoff2 As String
URLoff2 = "http://192.168.1.15/?led2=off"
Dim URLon2 As String
URLon2 = "http://192.168.1.15/?led2=on"
Dim HttpClient1 As HttpClient
End Sub

Sub Globals
' Deze globale variabelen zullen worden redeclared elk moment dat de activiteit wordt gemaakt.
' Deze variabelen alleen kunnen worden geopend vanuit deze module.

End Sub

Sub Activity_Create (FirstTime As Boolean)
Activity.LoadLayout("layout1")
HttpClient1.Initialize("HttpClient1")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub ButtonOn_Click
Dim verzoek als HttpRequest
verzoek. InitializeGet(URLon)
HttpClient1.Execute(request,1)
ToastMessageShow ("LED licht op", False)
End Sub
Sub ButtonOff_Click
Dim verzoek als HttpRequest
verzoek. InitializeGet(URLoff)
HttpClient1.Execute(request,1)
ToastMessageShow ("LED licht af", False)
End Sub

Sub Button2On_Click
Dim verzoek als HttpRequest
verzoek. InitializeGet(URLon2)
HttpClient1.Execute(request,1)
ToastMessageShow ("LED licht op", False)
End Sub
Sub Button2Off_Click
Dim verzoek als HttpRequest
verzoek. InitializeGet(URLoff2)
HttpClient1.Execute(request,1)
ToastMessageShow ("LED licht af", False)
End Sub

Sub HttpClient1_ResponseSuccess (reactie als HttpResponse, TaskId als Int)
Dim resultString As String
resultString = Response.GetString("UTF8")
' Werken met het resultaat
End Sub

Sub HttpClient1_ResponseError (reactie als HttpResponse, reden als tekenreeks, StatusCode als Int, TaskId als Int)
Log ("het aansluiten van de fout:" & reden & "" & StatusCode)
Als reactie <> Null vervolgens
Log(Response.getString("utf8"))
Response.Release
End If
End Sub