Codigo Para Encender Led Desde Visual Basic 2008
Enviado por fabysk18 • 7 de Abril de 2012 • 323 Palabras (2 Páginas) • 5.817 Visitas
Iniciar programa visual studio 2008
Abrir un nuevo proyecto
Seleccionar aplicación de Windows Form
Cambiar el nombre a LEdOnOff
Agregar cuatro botones:
En botón1 cambiarle las propiedades de Name: btnConectar y en Text: Conectar,
En boton2 en Name: btnEncender y el Text: Encender Led,
En boton3 en Name: btnApagarLed y en Text: Apagar Led
Y botón4 Name: btnDesconectar y en Text Desconectar.
En la pestaña proyecto seleccionar Agregar referencia
En la pestaña examinar: buscar en carpeta System32 la aplicación ADQ_datos_V3.dll y aceptar
Dentro del botón Conectar ingresar el siguiente código:
Imports ADQ_Datos_V3
Public Class Form1
Dim Daq As ADQ_de_Datos_V3, dato as Byte
Private Sub btnConectar_Click (ByVal sender As System.Object )…..
Daq = New ADQ_de_Datos_V3
Daq.Conectar_USB ()
End Sub
Dentro del botón Enceder led el código siguiente:
Dato =1
Daq.Escribir_Digital (“B”, Dato)
End Sub
En el botón Apagar Led:
Dato = 0
Daq.Escribir_Digital (“B”, Dato)
End Sub
En el botón Desconectar:
Daq.Desconectar_USB ()
Daq = Nothing
End Sub
Después de ingresar todo el código nos vamos a la pestaña Proyecto y seleccionamos la opción: Propiedades de LedOnOff , en la ventana emergente seleccionar la opción Compilar
Después clic en el botón Opciones de Compilacion avanzadas cambiar en CPU de destino a: x86 y aceptar.
Despues de esto ejecutar el programa para observar la siguiente vista del programa:
En el boton Conectar ingresar el siguiente codigo:
Imports ADQ_Datos_V3
Public Class Form1
Dim Daq As ADQ_de_Datos_V3, Dato as Byte
Private Sub btnConectar_Click (ByVal sender As System.Object )…..
Daq = New ADQ_de_Datos_V3
Daq.Conectar_USB ()
End Sub
Dentro del botón Enceder led el código siguiente:
Dato =1
Daq.Escribir_Digital (“B”, Dato)
End Sub
En el botón Apagar Led:
Dato = 0
Daq.Escribir_Digital (“B”, Dato)
End Sub
En el botón Desconectar:
Daq.Desconectar_USB ()
Daq = Nothing
End Sub
Después conectar el conector USB del circuito en la computadora y ejecutar el programa, probar los botones con el circuito conectado; si no funciona reiniciar el programa o la computadora y ejecutar de nuevo el programa.
...