Skrivning af en Visual Basic-program til at interface din PC med en integreret AVR microcontroller er ikke så svært, som det kan synes. AVR microcontroller kan konfigureres til at have en seriel port, der kan forbindes til en seriel port på pc'en . En Visual Basic program, der kører på PC'en kan udveksle data med AVR via den serielle port. I sin enkleste form indeholder Visual Basic-kildekode til seriel kommunikation mellem AVR og PC initialisering, sender og modtager . Ting du skal
Visual Basic. NET 2.0 eller højere
Seriel kabel til at forbinde AVR Development Board til PC
AVR Development Board med serielt interface
AVR Compiler /Development Environment
Vis Flere Instruktioner
1
Tilslut en AVR udvikling bord til pc'en via et serielt kabel . Sørg for at du har den AVR bord opstart og kører et program på microcontroller til at håndtere modtage eller sende serielle data .
2
Instantiere en seriel port objekt i VB. Du bliver nødt til at instantiere den serielle port med kommunikations parametre forud for åbningen den og modtager eller sender data . Den følgende kildekode kan bruges til at instantiere en seriel port objekt ved hjælp COM1 og 9600 baud :
Importerer SystemImports System.IO.Ports
Public Class SerialExampleFormDim WithEvents Port Som SerialPort = _Ny SerialPort ( " COM1 " , 9600, Parity.None , 8, StopBits.One )
3
Transmit data til AVR . Følgende subrutine overfører teksten fra en tekstboks med navnet " txtTransmitData ", når en knap med navnet " btnTransmitData " er klikket på. Sørg for at du har placeret tekstfeltet og knappen på din formular .
Private Sub btnTransmitData_Click ( ByVal afsender Som System.Object , _ByVal e Som System.EventArgs ) Handles btnTransmitData.ClickPort.Open () Port.Write ( txtTransmitData.Text ) Port.Close ( ) End Sub
4
modtage data fra AVR i VB. Formularen load subrutine sikrer den serielle port er åben på skemaet belastning. Den DataReceived subrutine tager et tegn læst fra den serielle port og viser det i en tekstboks kaldet " TextBox1 ". Vær sikker på din visuelle grundform indeholder en tekstboks kaldet Texbox1 . Også for at modtage serielle data , så husk , at havnen skal være åben.
Private Sub SerialExampleForm_Load ( ByVal afsender Som Object , ByVal e Som System.EventArgs ) Handles Me.LoadCheckForIllegalCrossThreadCalls = FalseIf Port.IsOpen = False Derefter Port . Open ( ) End Sub
Private Sub Port_DataReceived ( ByVal afsender Som Object , ByVal e AsSystem.IO.Ports.SerialDataReceivedEventArgs ) Håndterer Port.DataReceivedTextBox1.Text = "" TextBox1.Text = Port.ReadChar ( ) End sub