Het schrijven van een Visual Basic- programma om uw pc interface 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 hebben . Een Visual Basic- programma dat draait op de pc kan 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 de PC bevat initialisatie , zenden en ontvangen . Wat je nodig hebt Visual Basic . NET 2.0 of hoger seriële kabel aan AVR Development Board sluiten op PC AVR Development Board met seriële interface AVR Compiler /Development Environment Toon Meer Aanwijzingen 1 Sluit een AVR Development Board op de pc via een seriële kabel . Zorg ervoor dat u de AVR board ingeschakeld en uitvoeren van een programma op de microcontroller te hanteren ontvangen of verzenden van seriële data . Kopen van 2 Instantiëren een seriële poort object in VB . Je nodig hebt om de seriële poort instantiëren met de communicatie parameters voorafgaand aan het 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 SystemImports System.IO.Ports Public Class SerialExampleFormDim WithEvents Port of als SerialPort = _Nieuw SerialPort ( " COM1 " , 9600 , Parity.None , 8 , StopBits.One ) 3 gegevens verzenden naar de AVR . De volgende subroutine zendt de tekst uit een tekstvak met de naam " txtTransmitData " wanneer een knop genaamd " btnTransmitData " wordt geklikt . Zorg ervoor dat u het tekstvak en de knop hebben geplaatst op uw formulier . Private Sub btnTransmitData_Click ( ByVal afzender als System.Object , _ByVal e als System.EventArgs ) Handles btnTransmitData.ClickPort.Open ( ) Port.Write ( txtTransmitData.Text ) Port.Close ( ) End Sub 4 gegevens ontvangen van de AVR in VB . Het formulier belasting subroutine zorgt de seriële poort is geopend op het formulier belasting . De DataReceived subroutine neemt een teken 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 naar seriële data te ontvangen , vergeet niet dat de poort moet open . Private Sub SerialExampleForm_Load ( ByVal afzender als Voorwerp , ByVal e als System.EventArgs ) Handles Me.LoadCheckForIllegalCrossThreadCalls = FalseIf Port.IsOpen = False Dan Port of . Open ( ) End Sub Private Sub Port_DataReceived ( ByVal afzender als Voorwerp , ByVal e AsSystem.IO.Ports.SerialDataReceivedEventArgs ) op Twitter Handles Port.DataReceivedTextBox1.Text = " " TextBox1.Text = Port.ReadChar ( ) End sub
|