Leyendo el sensor ultrasónico HC-SR04 con Gadgeteer y Visual Basic

Este programa pretende ser un punto de partida para la lectura del sensor HC-SR04, pero por supuesto usted debe proporcionar las funciones Adicionales necesarias, tales como «tomar valores promediados« para obtener un mínimo de precisión 🙂

Imports GT = Gadgeteer
Imports GTM = Gadgeteer.Modules
Imports GTI = Gadgeteer.Interfaces
 
' This program is intended as a starting point reading the HC-SR04 sensor, 
' but of course you must provide adicional functions like "take values from average" to make a minimum of precission.
 
Namespace GadgeteerApp1
    Partial Public Class Program
        'Define GPIO's
        Private Echo As GTI.DigitalInput
        Private Trig As GTI.DigitalOutput
        Private Ticks As Integer = CInt(TimeSpan.TicksPerMillisecond / 1000)
        'Define socket number
        Private soketNum As Integer = 9
        'Main
        Public Sub ProgramStarted()
            Dim socket = Gadgeteer.Socket.GetSocket(soketNum, True, Nothing, Nothing)
            Echo = New GTI.DigitalInput(socket, Gadgeteer.Socket.Pin.Three, GTI.GlitchFilterMode.Off, GTI.ResistorMode.PullDown, Nothing)
            Trig = New GTI.DigitalOutput(socket, Gadgeteer.Socket.Pin.Four, False, Nothing)
            timer.Start()
            Debug.Print("Program Started")
        End Sub
        ' Just print distance into Debug windows
        Private WithEvents timer As GT.Timer = New GT.Timer(1000)
        Private Sub timer_Tick(timer As Gadgeteer.Timer) Handles timer.Tick
            '
            Debug.Print(readSR04.ToString())
        End Sub
 
        'Define Max/Min for SR04 reading distances 
        Private Const Dist_MIN As Integer = 2       'cm
        Private Const Dist_MAX As Integer = 400     'cm
 
        'Define return values if reading fails (out of range)
        Private Const Flag_MIN As Integer = -999
        Private Const Flag_MAX As Integer = 999
 
        'This function returns distance in cm from SR04
        Function readSR04() As Integer
            Dim start As Double = 0
            Dim Distance As Integer = 0
            Dim Fails As Integer = 0
            'send a 10us TTL pulse
            Trig.Write(True)
            Thread.Sleep(10)
            Trig.Write(False)
            'wait for the echoe
            While Not Echo.Read
                Fails += 1
                If Fails > 500 Then
                    Thread.Sleep(0)
                    Exit While
                End If
                start = System.DateTime.Now.Ticks
            End While
            ' calculating distance
            While Echo.Read
                Thread.Sleep(0)
               Distance = CInt(((System.DateTime.Now.Ticks - start) / Ticks) / 58) + Dist_MIN
            End While
 
            If Distance < Dist_MAX Then
                If Distance >= Dist_MIN Then
                    Return Distance
                Else
                    Return Flag_MIN
                End If
            Else
                Return Flag_MAX
            End If
 
        End Function
 
    End Class
End Namespace
 
Saludos,
PepLluis,
	

 Code :

🙂 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!!

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,

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)

Saludos!
PepLluis,