Visual Basic . NET 2.0 o superior Cable serie
conectar Junta de Desarrollo AVR al PC
Junta de Desarrollo AVR con la interfaz en serie
AVR Compiler /Development Environment
Mostrar más instrucciones
1
Conecte una placa de desarrollo AVR al PC mediante un cable serie. Asegúrese de que tiene el tablero AVR encendido y ejecutar un programa en el microcontrolador para manejar recepción o transmisión de datos en serie .
2
ejecutar un objeto puerto serie en VB . Tendrá que crear una instancia del puerto serie con los parámetros de comunicación antes de abrirlo y recibir o transmitir datos. El siguiente código fuente se puede utilizar para crear instancias de un objeto puerto serie utilizando COM1 y 9600 :
Importaciones SystemImports System.IO.Ports
Public Class SerialExampleFormDim WithEvents puerto como SerialPort = _New SerialPort ( " COM1 " , 9600, Parity.None , 8 , StopBits.One )
3
transmitir datos a la AVR . La siguiente subrutina transmite el texto de un cuadro de texto denominado " txtTransmitData " cuando se hace clic en un botón denominado " btnTransmitData " . Asegúrese de que ha colocado la caja de texto y el botón en el formulario.
Private Sub btnTransmitData_Click ( ByVal remitente como System.Object , _ByVal e como System.EventArgs ) Handles btnTransmitData.ClickPort.Open () Port.Write ( txtTransmitData.Text ) Port.Close () End Sub
4
recibir datos del AVR en VB . El subprograma de carga del formulario garantiza el puerto serie está abierta en la carga del formulario . La subrutina DataReceived toma un carácter leer desde el puerto serie y lo muestra en un cuadro de texto llamado " TextBox1 ". Asegúrese de que su forma básica visual incluye un control de cuadro de texto llamado Texbox1 . Además, para recibir datos en serie , recuerda que el puerto debe estar abierto .
Private Sub SerialExampleForm_Load (remitente de ByVal como objeto , ByVal e como System.EventArgs ) Handles Me.LoadCheckForIllegalCrossThreadCalls = FalseIf Port.IsOpen = False Then Puerto . Open () End Sub Private Sub
Port_DataReceived (remitente de ByVal como objeto , ByVal e AsSystem.IO.Ports.SerialDataReceivedEventArgs ) Maneja Port.DataReceivedTextBox1.Text = "" TextBox1.Text = Port.ReadChar () End Sub