Arduino baserad automatiserad ljusstyrning (4 / 6 steg)
Steg 4: Steg #4: Android program
http://www.basic4ppc.com/Android/Help/http.html
idén är, för varje knapp i programmet det kommer att driva webbservern parametrar behövs för att stänga av och slå på belysningen
här är programmet för android app:
"Aktivitet modul
Sub Process_Globals
"Dessa globala variabler deklareras en gång när programmet startar.
"Dessa variabler kan nås från alla moduler.
Dim URLoff som sträng
URLoff = "http://192.168.1.15/?led1=off"
Dim URLon som sträng
URLon = "http://192.168.1.15/?led1=on"
Dim URLoff2 som sträng
URLoff2 = "http://192.168.1.15/?led2=off"
Dim URLon2 som sträng
URLon2 = "http://192.168.1.15/?led2=on"
Dim HttpClient1 som HttpClient
End Sub
Sub Globals
"Dessa globala variabler kommer omdeklareras varje tid aktiviteten har skapats.
"Dessa variabler kan endast nås från denna modul.
End Sub
Sub Activity_Create (FirstTime som Boolean)
Activity.LoadLayout("layout1")
HttpClient1.Initialize("HttpClient1")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed som Boolean)
End Sub
Sub ButtonOn_Click
Dim begäran som HttpRequest
begäran. InitializeGet(URLon)
HttpClient1.Execute(request,1)
ToastMessageShow ("LED-ljus på", False)
End Sub
Sub ButtonOff_Click
Dim begäran som HttpRequest
begäran. InitializeGet(URLoff)
HttpClient1.Execute(request,1)
ToastMessageShow ("LED-ljus Off", False)
End Sub
Sub Button2On_Click
Dim begäran som HttpRequest
begäran. InitializeGet(URLon2)
HttpClient1.Execute(request,1)
ToastMessageShow ("LED-ljus på", False)
End Sub
Sub Button2Off_Click
Dim begäran som HttpRequest
begäran. InitializeGet(URLoff2)
HttpClient1.Execute(request,1)
ToastMessageShow ("LED-ljus Off", False)
End Sub
Sub HttpClient1_ResponseSuccess (svar som HttpResponse, TaskId som Int)
Dim resultString As String
resultString = Response.GetString("UTF8")
"Arbeta med resultatet
End Sub
Sub HttpClient1_ResponseError (svar som HttpResponse, anledning som sträng, StatusCode som Int, TaskId som Int)
Log ("fel anslutning:" & anledning & "" & StatusCode)
Om svar <> Null sedan
Log(Response.GetString("utf8"))
Response.Release
Slut om
End Sub