Avr visuelle code source de base langue tutoriel

Connectez un conseil de développement de l`AVR au PC via un câble série. Assurez-vous que vous avez la carte AVR sous tension et l`exécution d`un programme sur le microcontrôleur pour gérer la réception ou la transmission de données en série.

Instancier un objet de port série en VB. Vous aurez besoin d`instancier le port série avec des paramètres de communication avant de l`ouvrir et de recevoir ou de transmettre des données. Le code source suivant peut être utilisé pour instancier un objet de port série en utilisant COM1 et 9600 bauds:

Imports System
Importations System.IO.Ports

Public Class SerialExampleForm
Dim WithEvents Port Comme SerialPort = _

New SerialPort ("COM1", 9600, Parity.None, 8, StopBits.One)

Transmettre les données à l`AVR. La sous-routine suivante transmet le texte à partir d`une zone de texte nommée "txtTransmitData" quand un bouton nommé "btnTransmitData" est cliqué. Assurez-vous que vous avez placé la zone de texte et le bouton sur votre formulaire.

Private Sub btnTransmitData_Click (expéditeur de ByVal comme System.Object, _
ByVal e comme System.EventArgs) Poignées btnTransmitData.Click
Port.Open ()
Port.Write (txtTransmitData.Text)
Port.Close ()
End Sub

Recevoir des données de l`AVR en VB. Le sous-programme sous forme de charge assure le port série est ouvert sur la forme de charge. Le sous-programme DataReceived prend un caractère lu à partir du port série et l`affiche dans une zone de texte appelé "TextBox1." Soyez sûr que votre forme de base visuelle comprend un contrôle de zone de texte appelé Texbox1. En outre, pour recevoir des données série, rappelez-vous que le port doit être ouvert.

Private Sub SerialExampleForm_Load (expéditeur de ByVal comme objet, ByVal e comme System.EventArgs) Poignées Me.Load
CheckForIllegalCrossThreadCalls = False
Si Port.IsOpen = False Then Port.Open ()
End Sub
Private Sub Port_DataReceived (expéditeur de ByVal comme objet, ByVal e As
System.IO.Ports.SerialDataReceivedEventArgs) Poignées Port.DataReceived
TextBox1.Text = ""
TextBox1.Text = Port.ReadChar ()
End Sub