
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,
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!
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,
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.

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!
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!!
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,
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,
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,
¡Vuelve el Megathon Windows el 12, 13 y 14 de Abril!
Mas info? Click Aqui!
Nuevo KINECT SDK
Ya esta disponible para la descarga SDK 1.7
Que lo disfruteis!
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,
|

|
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,
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,
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
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.Timer) Handles 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 Double) Handles 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,
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.
Empezando con Netduino Plus en QFE2 y el SDK para 4.2
- Instalar Visual Studio en cualquiera de sus versiones
- Descargar / Instalar el SDK 4.2 QFE2 de Microframework
- 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,
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!
:-))
Catalonian Claus.
More Posts
Next page »