Étape 4: Étape #4: programme Android
http://www.Basic4PPC.com/Android/help/http.html
l’idée est, pour chaque bouton dans l’application qu'il faut pousser le serveur Web, les paramètres nécessaires pour éteindre et allumer les lumières
Voici le programme pour l’application android :
« Module d’activité
Void Process_Globals
« Ces variables globales seront déclarés une fois lorsque l’application démarre.
« Ces variables sont accessibles de tous les 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
Void Globals
« Ces variables globales vont être redéclarés chacun temps l’activité est créée.
« Ces variables sont accessibles uniquement à partir de ce module.
End Sub
Void Activity_Create (FirstTime As Boolean)
Activity.LoadLayout("layout1")
HttpClient1.Initialize("HttpClient1")
End Sub
Void Activity_Resume
End Sub
Void Activity_Pause (UserClosed As Boolean)
End Sub
Void ButtonOn_Click
Dim demande comme HttpRequest
demande. InitializeGet(URLon)
HttpClient1.Execute(request,1)
ToastMessageShow (« LED lumière sur », False)
End Sub
Void ButtonOff_Click
Dim demande comme HttpRequest
demande. InitializeGet(URLoff)
HttpClient1.Execute(request,1)
ToastMessageShow (« LED Light Off », False)
End Sub
Void Button2On_Click
Dim demande comme HttpRequest
demande. InitializeGet(URLon2)
HttpClient1.Execute(request,1)
ToastMessageShow (« LED lumière sur », False)
End Sub
Void Button2Off_Click
Dim demande comme HttpRequest
demande. InitializeGet(URLoff2)
HttpClient1.Execute(request,1)
ToastMessageShow (« LED Light Off », False)
End Sub
Void HttpClient1_ResponseSuccess (réponse sous HttpResponse, TaskId en tant que Int)
Dim resultString As String
resultString = Response.GetString("UTF8")
« Travailler avec le résultat
End Sub
Void HttpClient1_ResponseError (réponse sous HttpResponse, raison As String, StatusCode en tant que Int, TaskId en tant que Int)
Journal ("erreur de connexion:" & raison & "" & StatusCode)
Si la réponse <> Null puis
Log(Response.GetString("UTF8"))
Response.Release
End If
End Sub
JAVA3.zip