Skrive et Visual Basic program for å grensesnittet PC-en med en innebygd AVR mikrokontroller er ikke så vanskelig som det kan virke. AVR mikrokontroller kan konfigureres til å ha en seriell port som kan kobles til en seriell port på PCen. A Visual Basic program som kjører på PC-en kan utveksle data med AVR via den serielle porten . I sin enkleste form, omfatter Visual Basic kildekoden for seriell kommunikasjon mellom AVR og PC initialisering , overføring og mottak . Du trenger
Visual Basic. NET 2.0 eller høyere
Serial kabel for å koble AVR Development Board til PC
AVR Development Board med Serial Interface
AVR Compiler /Development Environment
Vis flere instruksjoner
en

Koble en AVR utvikling bord til PC via en seriell kabel . Kontroller at du har AVR-kortet drevet opp og kjører et program på mikrokontroller å håndtere mottar eller sender serielle data .
2

Instantiate en seriell port objekt i VB. Du må instantiate seriell port med kommunikasjonsparametre før du åpner den og mottar eller sender data . Følgende kildekoden kan brukes på å bruke en seriell port objekt med COM1 og 9600 baud :

Import SystemImports System.IO.Ports

Public Class SerialExampleFormDim WithEvents Port Som SerialPort = _new SerialPort ( " COM1 " , 9600 , Parity.None , 8, StopBits.One )
3

Overfør data til AVR . Følgende subrutine overfører tekst fra en tekstboks som heter " txtTransmitData " når en knapp som heter " btnTransmitData " klikkes. Kontroller at du har plassert tekstboksen og knappen på skjemaet .

Private Sub btnTransmitData_Click ( ByVal avsenderen som System.Object , _ByVal e Som System.EventArgs ) Håndtak btnTransmitData.ClickPort.Open ( ) Port.Write ( txtTransmitData.Text ) Port.Close ( ) End Sub
4

Motta data fra AVR i VB. Skjemaet belastning subrutine sikrer seriell port er åpen på skjemaet belastning. Den DataReceived subrutine tar en karakter lese fra serieporten og viser det i en tekstboks som heter " TextBox1 . " Vær sikker på at Visual Basic Skjemaet inneholder en tekstboks kontroll som kalles Texbox1 . Også å motta serielle data , husk at porten må være åpen.

Private Sub SerialExampleForm_Load ( ByVal avsenderen som objekt , ByVal e Som System.EventArgs ) Håndtak Me.LoadCheckForIllegalCrossThreadCalls = FalseIf Port.IsOpen = False Deretter Port . Åpen ( ) End Sub

Private Sub Port_DataReceived ( ByVal avsenderen som objekt , ByVal e AsSystem.IO.Ports.SerialDataReceivedEventArgs ) Håndtak Port.DataReceivedTextBox1.Text = "" TextBox1.Text = Port.ReadChar ( ) End sub