MicroFramework, Gadgeteer… Alguien dijo WebServer?

Hace aproximadamente diez años me empeñe en introducirme al desarrollo de una pila TCP/IP para micro-controladores de recursos limitados. Constaba mas de trescientas paginas repletas de código C, ciertamente desistí de implementar mi propio “MicroWebServer” incrustado en un solo chip.

El tiempo pasa y es un verdadero lujo constatar como los sistemas embebidos toman el pulso a una nueva etapa donde ofrecer servicios integrados en micro dispositivos deja suelta a nuestra creatividad.

Fijaros en este código:

Imports GT = Gadgeteer

 

Partial Public Class Program

 

    Private WithEvents adapter As New Ethernet(7)

    Private WithEvents myweb As WebEvent

 

    Private Sub ProgramStarted()

        Debug.Print(«Program Started»)
        adapter.UseStaticIP(«192.168.1.1», «255.255.255.0», «192.168.1.1»

    End Sub

 

    Private Sub myweb_WebEventReceived(path As String,

                                       method As Gadgeteer.Networking.WebServer.HttpMethod,

                                       responder As Gadgeteer.Networking.Responder) Handles myweb.WebEventReceived

        If path = «Ping» Then

            Dim pag = «<html>» +

                          «<body>» +

                              «<h1>» +

                                  «Response from « + adapter.NetworkSettings.IPAddress.ToString +

                              «</h1>» +

                          «</body>» +

                      «</html>»

            Dim bte As Byte() = New System.Text.UTF8Encoding().GetBytes(pag)

            responder.Respond(bte, «text/html»)

        End If

    End Sub

 

    Private Sub adapter_NetworkDown(sender As Gadgeteer.Modules.Module.NetworkModule,

                                    state As Gadgeteer.Modules.Module.NetworkModule.NetworkState) Handles adapter.NetworkDown

        Mainboard.SetDebugLED(False)

        WebServer.StopLocalServer()

    End Sub

 

    Private Sub adapter_NetworkUp(sender As Gadgeteer.Modules.Module.NetworkModule,

                                  state As Gadgeteer.Modules.Module.NetworkModule.NetworkState) Handles adapter.NetworkUp

        Mainboard.SetDebugLED(True)

        WebServer.StartLocalServer(adapter.NetworkSettings.IPAddress, 80)

        Debug.Print(adapter.NetworkSettings.IPAddress)

    End Sub

End Class

 

Me gustaría recibir vuestros comentarios,
PepLluis,

2 pensamientos en “MicroFramework, Gadgeteer… Alguien dijo WebServer?”

  1. PEPLLUIS.

    Me gustaria conocer mas de este tema.
    Me gusta la programacion demicricontroladores.
    Y quisiera saber si .NET podr ser usado para compilar algo en un microcontrolador.

Responder a peplluis Cancelar la respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *