Codigo Para Encender Led Desde Visual Basic 2008
fabysk187 de Abril de 2012
323 Palabras (2 Páginas)5.884 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.
...