NETMF4.2 VB, Empezando con Cerberus

‘Como empezar con “Cerberus” (Como atencion al Sr. Frederick)

‘ Descargar/Instalar el sdk 4.2QFE2 de netmf : http://netmf.codeplex.com/downloads/get/470705
‘ Descargar/Instalar el sdk 4.2RC2 de GHI : (puedes encontrarlo el la pagina de detalles “Cerberus”.

‘ Una vez instalado…
‘ – Ejecutar una instancia de Visual Studio 2010
‘ – Nuevo Proyecto
‘ – Escoger Visual Basic>Gadgeteer>.Net Gadgeteer Aplication (NETMF 4.2)
‘ – Copiar y pegar este codigo… y listo!, el Led verde parpadeara hasta el fin de los tiempos :-)


Imports GT = Gadgeteer
Imports
GTM = Gadgeteer.Modules
Partial Public Class
Program

  Public
Sub ProgramStarted()
      timer.Start()
     
Debug.Print(“Program Started”
)
  End Sub


  Dim WithEvents timer As GT.Timer = New GT.Timer(1000) ‘ un cop per segon (1000ms)
  Dim tic As Boolean = False

  Private
Sub timer_Tick(timer As Gadgeteer.Timer) Handles
timer.Tick
      tic =
Not
tic
      Mainboard.SetDebugLED(tic)
  End
Sub

End
Class


Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>