Code :

Partial Public Class Program

    'Playing with Cerberus and the Motion Module

    Private WithEvents timer As GT.Timer = New GT.Timer(1000)

    Public Sub ProgramStarted()

        timer.Start()

    End Sub


   
Private onSense As Boolean = False

    Private onSenseSeconds As Integer = 10

    Private Sub motion_Sensor_Motion_Sensed(
               sender
As Motion_Sensor,
               state
As Motion_Sensor.Motion_SensorState

               ) Handles motion_Sensor.Motion_Sensed

        If onSense Then Exit Sub

        onSense = True

        led7r.Animate(100, False, True, False)

        led7r.TurnLightOn(7, True)

    End Sub


   
Private Sub timer_Tick(timer As Gadgeteer.Timer) Handles timer.Tick

        PulseDebugLED()

        If onSense Then

            onSenseSeconds += 1

            If onSenseSeconds > 10 Then

                onSenseSeconds = 0

                onSense = False

                led7r.TurnLightOff(7)

            End If

        End If

    End Sub

End Class

 

:-) PepLluis,

Posted by peplluis | with no comments
Filed under:

After our first start is time to put working your things flying across the cloud. Come with us to get ready to plug devices around the world.

Don't miss this date! 09/05/2013

Where : VIT VIC

C/. Llotja sn, Recinte firal el Sucre - Vic, 08500

When : 18:30h LAB's Room

Regards,
PepLluis,

PD. Los que no hablan en Inglés, realizaran un taller para construir un semáforo... espero que pronto estemos rivalizando con empresas estatales de infraestructuras... LoL!

Posted by peplluis | with no comments
Filed under:

After a soft start and install all sdk, come todevelop your first live show and make ARMsilicon vibrate with your first gadgeteer program!

Where : VIT VIC

C/. Llotja sn, Recinte firal el Sucre - Vic, 08500

When : 18:30h LAB's Room

Regards,
PepLluis,

Posted by peplluis | with no comments
Filed under:

Una vez más y por segunda ocasión... el pasado 5 de Abril Gadgeteer visita el País de los Pirineos.

Y para que conste una muestra de alguna de las conversaciones en las que evidenciamos y pudimos plasmar ese especial interés y curiosidad que se despierta entorno a Microframework y pequeños cacharros electrónicos, sin ninguna duda un escenario único donde la electrónica y la programación se dan la mano.

Carlos, PepLluis y Fernando

Gracias a Luis Franco en representación del grupo de Usuarios AndorraDotNet y su asociación de informáticos, por su amable acogida y esfuerzo para que este tipo de eventos continúen siendo posibles.

Saludos!

Posted by peplluis | with no comments
Filed under:

 

When : 25 D'Abril 2013 a les 16h
Where : Escola Pia Santa Anna - Mataró :
http://goo.gl/maps/NHGnK

Gracias a : Carlos Alonso Martínez

Pep Lluís Bano impartirá un interesante presentación desde una especial perspectiva, entorno a la creatividad a partir del uso de las tecnologias orientada a la conexion e intercambio de datos entre dispositivos y su increible potencial aprovechando las infraestructuras que pone a nuestro alcance internet.

Que es NET MicroFramework? Es el entorno integrado de desarrollo de aplicaciones para pequeños dispositivos con recursos limitados. Ofrece una completa e innovadora plataforma de desarrollo y entorno de ejecución que aportan la productividad de las herramientas informáticas modernas para este tipo de dispositivos, esto significa que ahora se pueden crear aplicaciones que se ejecutan en una variedad de pequeños dispositivos electrónicos con el mismo modelo de programación y herramientas a las que estamos acostumbrados en Visual Studio.

Para los actuales desarrolladores de sistemas integrados, esto significa que ahora pueden aprovechar los beneficios de productividad que se han logrado en las aplicaciones de escritorio y reducir el tiempo de comercialización de sus productos. .NET Micro Framework es una experiencia totalmente integrada a Visual Studio e incorpora un sistema de desarrollo fiable y productivo en sistemas ‘embebidos’.

Con NET Micro Framework podras :
·     Desarrollar fácilmente aplicaciones complejas, eficaces e interactivas.
·     Conectar de forma segura dispositivos a través de interfaces cableadas o inalámbricas.
·     Desarrollar rápidamente soluciones fiables a un menor coste.
·     Desarrollar soluciones completas utilizando. NET, incluyendo dispositivos, servidores locales o en la nube.

No te lo pierdas!!

 

Posted by peplluis | with no comments
Filed under:

Durante un día completo (27/04/2013)  podrás bucear en las profundidades del desarrollo de para Windows Azure a través de una serie de clases complementadas por unos laboratorios conducidos por los principales expertos “del mundo real” donde podrás experimentar todo lo que hayas aprendido.

Para que no te suene a chino! : Windows Azure BootCamp

Que lo "Enjoy's" :-)
PepLluis,

Posted by peplluis | with no comments
Filed under:

Ya esta aqui !

Sin duda una funcionalidad muy mejorada entorno a la planificación ágil, la calidad en el desarrollo de aplicaciones, la mejora en la experiencia del desarrollador, y mucho más.

Visual Studio 2012 - Update 2

No pierdas detalle sobre todo lo que incorpora a nivel de compatibilidad con plantillas del antiguo 2010.
Saludos,
PepLluis,

Posted by peplluis | with no comments
Filed under:

El siguiente ejemplo, demuestra la facilidad para generar pulsos modulados utilizando una de las salidas especializadas del procesador. 

En este ejemplo utilizaremos el Led conectado a la salida de pulsos numero 2...

Private BlueLed As PWM = New PWM(Cpu.PWMChannel.PWM_2, 10, 0.1, False)
Public
Sub
    ProgramStarted()
    BlueLed.Start()
   
Debug.Print("Program Started"
)
End Sub

El resultado: el de siempre... un led parpadeando a una frecuencia de 10hz, no por nada somos los blinking mans! jajajaja.

Saludos,
PepLluis,

Posted by peplluis | with no comments
Filed under:

¡Vuelve el Megathon Windows el 12, 13 y 14 de Abril!

Mas info? Click Aqui!

Posted by peplluis | with no comments
Filed under:

Nuevo KINECT SDK

Ya esta disponible para la descarga SDK 1.7

Que lo disfruteis!

Posted by peplluis | with no comments
Filed under:

Another great resource shared from Lisa Feigenbaum.

SQL Server Data Tools and Office Developer Tools for Visual Studio 2012

Regards!

Posted by peplluis | with no comments
Filed under:

 No comments!

Posted by peplluis | with no comments
Filed under:

Entre todos los usuarios que efectuen su registro en SaveComm y participen en el taller!

 

Crea tus propios gadgets, prototipos y cacharros!

El taller es gratuito y tendrá lugar el día 20 de febrero a las 18:15 h. En Vic Barcelona. Si estáis cerca os podéis inscribir en el taller en el formulario de inscripciones.. si quieres ampliar información:  (leer noticia)

Podeis registraros en :

Os aconsejo que participeis!… Este Netduino puede ser vuestro!
Mucha Suerte!

PepLluis,

  

 

Posted by peplluis | with no comments
Filed under:

Crea tus propios gadgets, prototipos y cacharros!

El taller es gratuito y tendrá lugar el día 20 de febrero a las 18:15 h. En Vic Barcelona.
Si estáis cerca os podéis inscribir en el taller en el formulario de inscripciones.. si quieres ampliar información:  (leer noticia)


Gadgeteer es una plataforma de hardware y software abierto que permite crear prototipos y pequeños cacharros de electrónica de forma fácil y sencilla incluso para personas sin conocimientos de electrónica, no es necesario ensamblar o efectuar soldaduras por lo tanto para realizar nuestros modelos tan solo necesitaremos conectar diferentes módulos, tales como sensores, cámaras, entradas/salidas, pantallas, motores, elementos de comunicación, a una unidad central. El diseño lo llevaremos a cabo en un entorno grafico totalmente asistido.

Si quieres conocer de cerca gadgeteer, apúntate a este taller donde podrás ver ejemplos en directo y conocer una comunidad de usuarios que comparten recursos, tanto de software como de hardware en todo el mundo.


Saludos!
PepLluis,

Posted by peplluis | 4 comment(s)
Filed under:

Un Corto!

En determinadas ocasiones nos interesa que el fondo de nuestro PictureBox sea transparente.... sin olvidar que deberemos fijar un color de fondo homogenio para que termine siendo transparente.

Una vez tengamos la imagen cargada en el PictureBox

        Dim mibmp As Bitmap = PictureBox.Image
        Dim micol As Color = mibmp.GetPixel(1, 1)
        mibmp.MakeTransparent(micol)
        PictureBox.Image = mibmp

Facil no?
Saludos,

Posted by peplluis | 1 comment(s)
Filed under:

Os deseo una agradable cena de noche vieja en compañía de los vuestros.
También espero que a partir de Enero seamos capaces de construir nuevos escenarios que nos permitan volvernos a subir al andamio :-))

Feliz Transición.
Salud, Paz y Amor!!
PepLluis

Posted by peplluis | with no comments
Filed under:

Una buena forma de empezar, es poder disponer un "paso" a "paso". Atendiendo a la consulta de un lector, me complace compartir con vosotros un punto de entrada para leer la temperatura y la humedad con un "Cerbuino Bee"

Una vez lanzado Visual Studio 2010 con los SDK's de netmf QFE2 y el SDK 4.2 de GHI, desde el menú 'Archivo' >

·     Nuevo Projecto>Visual Basic>Gadgeteer>Net gadgeteer Application (NETMF 4.2)>Asignar nombre>Aceptar

Una vez en el diseñador y desde el 'toolbox' pestaña 'Gadgeteer Mainboars' seleccionar : Fez Cerbuino Bee, Luego desde la pestaña "seeed" arrastrar y soltar el modulo 'TemperatureHumidity', según la siguiente imagen :

Copiar/Pegar el siguiente código.

En el editor Seleccionar la pestaña "Program.vb".

Imports GT = Gadgeteer
Imports GTM = Gadgeteer.Modules
Imports Gadgeteer.Modules.Seeed
 
' Ejemplo de lectura de temperatura / humedad 
 
Partial Public Class Program
 
    Private WithEvents timer As GT.Timer = New GT.Timer(1000)
 
    Public Sub ProgramStarted()
        timer.Start()
        Debug.Print("Program Started")
    End Sub
 
    Private blink As Boolean
    Private Sub timer_Tick(timer As Gadgeteer.TimerHandles timer.Tick
        Mainboard.SetDebugLED(blink)
        blink = Not blink
        temperatureHumidity.RequestMeasurement()
    End Sub
 
    Private Sub temperatureHumidity_MeasurementComplete(sender As Gadgeteer.Modules.Seeed.TemperatureHumidity, temperature As Double, relativeHumidity As DoubleHandles temperatureHumidity.MeasurementComplete
        Debug.Print("Temperature :" + temperature.ToString())
        Debug.Print("Humidity : " + relativeHumidity.ToString())
    End Sub
End Class

y en la ventana de 'Debug' podreis visualizar los resultados de la captura :-)

 

Espero que os sea útil,
Feliz Año!
PepLluis,

 

Posted by peplluis | with no comments
Filed under:

Un punto de entrada para probar que todo esta bien después de actualizar a QFE2.

using System.Threading;
using Microsoft.SPOT.Hardware;
using Mountaineer.Netmf.Hardware;
 
public class BlinkingLed
{
    public static void Main()
    {
        var Rojo = new OutputPort(OnboardIO.LedRed, false);
        var Verde = new OutputPort(OnboardIO.LedGreen, false);
        var Azul = new OutputPort(OnboardIO.LedBlue, false);
 
        while (true)
        {
            Rojo.Write(true);
            Thread.Sleep(500);
            Verde.Write(true);
            Thread.Sleep(500);
            Azul.Write(true);
            Thread.Sleep(1000);
            Rojo.Write(false);
            Thread.Sleep(500);
            Verde.Write(false);
            Thread.Sleep(500);
            Azul.Write(false);
            Thread.Sleep(100);
        }
    }
}

Saludos,
PepLluis. 

Posted by peplluis | with no comments
Filed under:

Empezando con Netduino Plus en QFE2 y el SDK para 4.2

  1. Instalar Visual Studio en cualquiera de sus versiones
  2. Descargar / Instalar el SDK 4.2 QFE2 de Microframework
  3. Descargar / Instalar el SDK 4.2 de Netduino
  • Lanzar Visual Studio.
  • Nuevo Proyecto
  • Microframework
  • Netduino Plus
  • Copiar el siguiente código y reemplazar por el existente en modulo1
Imports Microsoft.SPOT
Imports Microsoft.SPOT.Hardware
Imports SecretLabs.NETMF.Hardware
Imports SecretLabs.NETMF.Hardware.NetduinoPlus
 
Module Module1
 
    Private led As New OutputPort(NetduinoPlus.Pins.ONBOARD_LED, False)
    Private tmr1 As New Timer(New TimerCallback(AddressOf tic), Nothing, 1000, 500)
 
    Sub Main()
        Thread.Sleep(System.Threading.Timeout.Infinite)
    End Sub
 
    Private onOff As Boolean
    Sub tic()
        onOff = Not onOff
        led.Write(onOff)
    End Sub
 
End Module

Feliz Navidad!
PepLluis,

 

 

Posted by peplluis | with no comments
Filed under:
Feliz Navidad y Prospero año nuevo!
Con la esperanza de reconciliar a la sociedad para encontrar nuevas formas de recuperar puestos de trabajo y el bienestar de las personas necesitadas.
Sin duda necesitamos caminar juntos para definir nuevos escenarios para que el mundo sea relamente mejor.
Mis mejores deseos para que este 2013 se convierta en el Año de pan con azúcar y vino!
 
Merry Christmas to you and your family as well
Hoping reconcile the society to find new ways to recover jobs and the day to day welfare for the needy people.
With no doubt we need walk together to define a new scenario to make the world better.
My best wishes to make this 2013 becomes the Year of bread with sugar and wine!
:-))
 
Tio
 
Pep Lluis,
Catalonian Claus.
Posted by peplluis | with no comments
Filed under:
More Posts Next page »