Arduino basado automatizado de Control de iluminación (4 / 6 paso)

Paso 4: Paso #4: programa de Android

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

la idea es, en cada botón de la aplicación que empujará el servidor web los parámetros necesitan para apagar y encender las luces

Este es el programa para la aplicación para android:

' Módulo de actividad
Sub Process_Globals
' Estas variables globales se declarará una vez cuando se inicia la aplicación.
' Estas variables se pueden acceder desde todos los módulos.
Dim URLoff como cadena
URLoff = "http://192.168.1.15/?led1=off"
Dim URLon como cadena
URLon = "http://192.168.1.15/?led1=on"
Dim URLoff2 como cadena
URLoff2 = "http://192.168.1.15/?led2=off"
Dim URLon2 como cadena
URLon2 = "http://192.168.1.15/?led2=on"
Dim HttpClient1 como HttpClient
End Sub

Globales de sub
' Estas variables globales se redeclared cada vez se crea la actividad.
' Estas variables sólo se pueden acceder desde este módulo.

End Sub

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

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed como Boolean)

End Sub
Sub ButtonOn_Click
Solicitud DIM como HttpRequest
solicitud. InitializeGet(URLon)
HttpClient1.Execute(request,1)
ToastMessageShow ("Luz de LED en", False)
End Sub
Sub ButtonOff_Click
Solicitud DIM como HttpRequest
solicitud. InitializeGet(URLoff)
HttpClient1.Execute(request,1)
ToastMessageShow ("LED luz apagada", False)
End Sub

Sub Button2On_Click
Solicitud DIM como HttpRequest
solicitud. InitializeGet(URLon2)
HttpClient1.Execute(request,1)
ToastMessageShow ("Luz de LED en", False)
End Sub
Sub Button2Off_Click
Solicitud DIM como HttpRequest
solicitud. InitializeGet(URLoff2)
HttpClient1.Execute(request,1)
ToastMessageShow ("LED luz apagada", False)
End Sub

Sub HttpClient1_ResponseSuccess (respuesta como HttpResponse, TaskId como Int)
Dim resultString As String
resultString = Response.GetString("UTF8")
' Trabajar con el resultado
End Sub

Sub HttpClient1_ResponseError (respuesta como HttpResponse, razón como cadena, StatusCode como Int TaskId como Int)
Registro ("Error de conexión:" & motivo & "" & StatusCode)
Si <> de respuesta nulo entonces
Log(Response.GetString("UTF8"))
Response.Release
End If
End Sub