schrijven van een Visual Basic-programma op uw pc te communiceren met een embedded AVR microcontroller is niet zo moeilijk als het lijkt.De AVR microcontroller kan worden geconfigureerd om een seriële poort die kan worden aangesloten op een seriële poort van de PC.Een Visual Basic programma op de pc kunnen gegevens uitwisselen met de AVR via de seriële poort.In zijn eenvoudigste vorm, de Visual Basic broncode voor seriële communicatie tussen de AVR en PC omvat initialisatie zenden en ontvangen.
Sluit een AVR ontwikkeling boord naar de PC viaeen seriële kabel.Zorg ervoor dat u de AVR board ingeschakeld en het uitvoeren van een programma op de microcontroller te behandelen ontvang
en of verzenden van seriële data.Een exemplaar van een seriële poort object in VB.Je nodig hebt om de seriële poort met de communicatie parameters voorafgaand instantiëren te openen en het ontvangen of verzenden van gegevens.De volgende broncode kan worden gebruikt om een seriële poort object met behulp van COM1 en 9600 baud instantiëren:
Imports System Imports
System.IO.Ports
Public Class SerialExampleForm
Dim WithEvents Port Zoals SerialPort = _
Transmit data naar de AVR.De volgende subroutine stuurt de tekst uit een tekstvak genaamd "txtTransmitData" wanneer een knop met de naam "btnTransmitData" wordt geklikt.Zorg ervoor dat u op uw formulier het tekstvak en de knop geplaatst.
Private Sub btnTransmitData_Click (ByVal afzender als System.Object, _Gegevens ontvangen van de AVR in VB.De vorm belasting subprogramma zorgt de seriële poort is geopend op het formulier belasting.De DataReceived subroutine neemt een personage te lezen van de seriële poort en geeft deze weer in een tekstvak genaamd "TextBox1."Zorg ervoor dat uw visuele basisvorm bestaat uit een tekstvak genaamd Texbox1.Ook om seriële data te ontvangen, bedenk dan dat de poort geopend moet zijn.
Private Sub SerialExampleForm_Load (ByVal afzender als Voorwerp, ByVal e als System.EventArgs) Handles Me.Load Private Sub Port_DataReceived (ByVal afzender als Voorwerp, ByVal e als
System.IO.Ports.SerialDataReceivedEventArgs) Handles Port.DataReceived
TextBox1.Text = ""
TextBox1.Text = Port.ReadChar ()
End Sub