Skriva ett Visual Basic-program att samverka din dator med en inbäddad AVR mikrokontroller är inte så svårt som det kan verka . AVR mikrokontroller kan konfigureras att ha en seriell port som kan anslutas till en seriell port på datorn . En Visual Basic-program som körs på datorn kan utbyta data med AVR via den seriella porten . I sin enklaste form innefattar den Visual Basic källkoden för seriell kommunikation mellan AVR och PC initialisering , sändning och mottagning. Saker du behöver Review, Visual Basic . NET 2.0 eller högre
seriell kabel för att ansluta AVR Development Board till PC Review AVR utvecklingskort med seriellt gränssnitt
AVR Compiler /Development Environment
Visa fler instruktioner
1
Anslut en AVR utvecklingskort till datorn via en seriell kabel . Kontrollera att du har AVR ombord drivs igång ett program för mikrokontroller att hantera att ta emot eller sända seriella data .
2
Instantiera en serieport objekt i VB . Du måste initiera den seriella porten med kommunikations parametrar innan du öppnar den och tar emot eller skickar data . Följande källkod kan användas för att initiera en seriell port objekt med COM1 och 9600 baud :
Imports SystemImports System.IO.Ports
Public Class SerialExampleFormDim WithEvents Port Som SerialPort = _Ny SerialPort ( " COM1 " , 9600 , Parity.None , 8 , StopBits.One )
3
överföra data till receivern . Följande subrutin överför text från en textruta med namnet " txtTransmitData " när en knapp som heter " btnTransmitData " klickas . Kontrollera att du har placerat textrutan och knappen på formuläret .
Private Sub btnTransmitData_Click ( ByVal avsändaren som System.Object , _ByVal e Som System.EventArgs ) Handtag btnTransmitData.ClickPort.Open ( ) Port.Write ( txtTransmitData.Text ) Port.Close ( ) End Sub
4
emot data från AVR i VB . Formuläret belastning subrutin säkerställer den seriella porten är öppen på blanketten belastning . Den DataReceived subrutin tar ett tecken läses från serieporten och visar den i en textruta som heter " TextBox1 . " Var noga med din visuella grundform innefattar en kontroll textruta som heter Texbox1 . Dessutom , för att ta emot seriell data , kom ihåg att porten måste vara öppen .
Private Sub SerialExampleForm_Load ( ByVal avsändare As Object , ByVal e Som System.EventArgs ) Hanterar Me.LoadCheckForIllegalCrossThreadCalls = FalseIf Port.IsOpen = False Då Port . Open ( ) End Sub
Private Sub Port_DataReceived ( ByVal avsändare As Object , ByVal e AsSystem.IO.Ports.SerialDataReceivedEventArgs ) Hanterar Port.DataReceivedTextBox1.Text = " " TextBox1.Text = Port.ReadChar ( ) End sub Addera
