Si te apetece jugar con Microframework y la Discovery board de STMicroelectronics, te dejo un corto con el que estuve jugando el verano pasado. Te aventuro mucho entretenimiento por apenas 10€. 🙂

STM32F4DISCOVERY

y aquí tienes el código para empezar :

GITHUB – STM32F4SerialPort Test

Empezamos vacas!!

Hablando con un amigo, salió el tema de que tenia un netduino de los antiguos y recordaba un ejemplo que les dieron en un taller donde lo compraron, pero argumentaba que era un poco precario pues en la demo encendían/apagaban el led de la placa con «thread.Sleep»… rápidamente me puse a reír y le explique que como en sus hermanos mayores también dispone de timers!

Tengo un ejemplo posteado en VB, pero tal y como me comprometí en la conversación lo posteo en C# aunque estoy seguro que existen 101 ejemplos que explican lo mismo, pues este es solo un «hola mundo» para microframework.

using System;
using System.Threading;
using Microsoft.SPOT;
using Microsoft.SPOT.Hardware;
using SecretLabs.NETMF.Hardware;
using SecretLabs.NETMF.Hardware.Netduino;
 
namespace NetduinoApplication1
{
    public class Program
    {
        static OutputPort onboardLed = new OutputPort(Pins.ONBOARD_LED, false);
        static Timer firstTimer = new Timer(new TimerCallback(tictac), null, 250, 250);
 
        public static void Main()
        {
            Thread.Sleep(Timeout.Infinite);
        }
 
        static Boolean onOff;
        public static void tictac(object status)
        {
            onboardLed.Write(onOff);
            onOff = !onOff;
        }
    }
}

Aunque es de lo mas básico, espero que ayude algún que otro rezagado.
Saludos,
PepLluis,

Si estas intentando obtener una IP de un DHCP de tu router y no lo estas consiguiendo… existe un “gapo conocido” con el lwip compilado en la versión de GHI 4.2.6.2, asi que no pierdas el tiempo pues no podrás obtener ninguna IP del DHCP de algunos routers.

Solo te queda la opción de configurar una IP estática.

Por otra parte debes tener en cuenta que el evento “networkAddressChanged” solo se levanta una vez al iniciarse el procesador, por lo que si se cambia la IP de “forma manual” deberás seguirlo de “forma manual”.

Os dejo un pequeño ejemplo como punto de entrada para experimentar reacciones.

Como ya sabéis el firmware del Cerbuino es de comunidad i la parte del ENC28 está basada en la aportación de comunidad, espero que entre todos podamos pulir la próxima liberación.

No dudéis pedirlo en VB si lo necesitais 🙂

Saludos,

using System;
using Microsoft.SPOT;
 
using Microsoft.SPOT.Net.NetworkInformation;
using GT = Gadgeteer;
 
Namespace GadgeteerApp1
{
 
    Partial Public Class Program
    {
        NetworkInterface miEth;
        GT.Timer tmr = new GT.Timer(30000);
 
        void ProgramStarted()
        {
            miEth = NetworkInterface.GetAllNetworkInterfaces()[0];
            miEth.PhysicalAddress = miMac;            
            Debug.Print("Program Started... wait for an IP");
            NetworkChange.NetworkAddressChanged += NetworkChange_NetworkAddressChanged;            
            tmr.Tick += tmr_Tick;
            tmr.Start();
        }
 
        Boolean tictac;
        string lastIP;
        void tmr_Tick(GT.Timer timer)
        {
            if (lastIP != miEth.IPAddress.ToString())
            {
                lastIP = miEth.IPAddress.ToString();
                Debug.Print("Current Ip : " + lastIP);
            }
 
            if (miEth.IPAddress == "0.0.0.0")
            {
                Mainboard.SetDebugLED(true);
                Debug.Print("No DHCP server response :-(");
                miEth.EnableStaticIP("192.168.1.50", "x.x.x.x", "y.y.y.y");
            }
            else
            {
                Mainboard.SetDebugLED(tictac);
                tictac = !tictac;
                if (tmr.Interval.Milliseconds > 1000) tmr.Interval = new TimeSpan(0, 0, 1);
            }
        }
 
        void NetworkChange_NetworkAddressChanged(object sender, EventArgs e)
        {
            Debug.Print("Nueva IP : " + miEth.IPAddress.ToString());
        }
    }
}

Tal y como os contábamos en noviembre, la BCNCONDEV fue un buen escenario para sacar ese tiempo extra que nos hace falta para juguetear con alguno de esos artilugios que nos chiflan.

Tuvimos la suerte de compartir cancha con Pablo, para darnos la suficiente cuerda y retarnos a mover el Magic Robot con los sensores de la Surface… para los incrédulos hemos recuperado este video como muestra de nuestra gesta!

Gracias Pablo! por tu aportación.

Enlaces relacionados:

http://msmvps.com/blogs/peplluis/archive/2013/11/20/pete-brown-s-gadgeteer-robot-from-a-windows-form.aspx

http://msmvps.com/blogs/peplluis/archive/2013/11/09/the-barcelona-developers-conference-is-back.aspx

http://msmvps.com/blogs/peplluis/archive/2013/11/12/barcelona-developers-con-retro-makers-y-robotics.aspx

Talking about the Pete Brown’s Gadgeteer robot, several people ask me how to do a simple winform listener because they have the limit of express versions or simply don’t have developer licence to test app’s for the store.

Just in five minuts… everybody can jump driving a winform app and the Magic Robot using the Gadgeteer!

using System.Net;
using System.Net.Sockets;

namespace RobotServiceSample
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
            StartListener();
 
            button1.MouseLeave += MouseLeave;
            button2.MouseLeave += MouseLeave;
            button3.MouseLeave += MouseLeave;
            button4.MouseLeave += MouseLeave;
            button5.MouseLeave += MouseLeave;

            button1.MouseEnter += Move_right;
            button2.MouseEnter += Move_left;
            button3.MouseEnter += Send_Stop;
            button4.MouseEnter += Move_backward;
            button5.MouseEnter += Move_forward;
        }

        private TcpListener _listener;
        private Thread _listenerThread;
        private void StartListener()
        {
            _listenerThread = new Thread(RunListener);
            _listenerThread.Start();
        } 

        TcpClient client;
        private void RunListener()
        {
            _listener = new TcpListener(new IPAddress(new byte[] {192,168,1,101}), 5150);
            _listener.Start();

            textBoxLog.Text += «listening at : « + _listener.LocalEndpoint.ToString()+«\n\r»;
            while (true)
            {
                client = _listener.AcceptTcpClient();
                this.Invoke(
                    new Action(
                        () =>
                        {
                            textBoxLog.Text = «»;
                            textBoxLog.Text += string.Format(«New robot from {0} \n\r», client.Client.RemoteEndPoint);
                        }
                    )); ;
                ThreadPool.QueueUserWorkItem(ProcessClient, client);
            }
        }

        private void ProcessClient(object state)
        {
            TcpClient client = state as TcpClient;
        }

        void MouseLeave(object sender, EventArgs e)
        {
            sendStream(Encoding.ASCII.GetBytes(«/panic»));
        }

        private void Move_right(object sender, EventArgs e)
        {
            sendStream(Encoding.ASCII.GetBytes(«/right»));
        } 

        private void Move_left(object sender, EventArgs e)
        {
            sendStream(Encoding.ASCII.GetBytes(«/left»));
        }

        private void Send_Stop(object sender, EventArgs e)
        {
            sendStream(Encoding.ASCII.GetBytes(«/stop»));
        }

        private void Move_backward(object sender, EventArgs e)
        {
            sendStream(Encoding.ASCII.GetBytes(«/backward»));
        }

        private void Move_forward(object sender, EventArgs e)
        {
            sendStream(Encoding.ASCII.GetBytes(«/forward»));
        }

         void sendStream(byte[] bytes)
        {
            NetworkStream stream = client.GetStream();
            stream.Write(bytes, 0, bytes.Length);
        }

    }
}

You can find the complete post in 10Rem at : http://10rem.net/blog/2012/09/10/controlling-a-netmf-gadgeteer-robot-from-a-windows-8-app

Enjoy!!
PepLluis,

PS: No doubt in ask if you need the same code for VB