AVR Visual Basic-broncode Taal Tutorial

instructies

1. 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.

2. 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 = _

   New SerialPort ("COM1", 9600, Parity.None, 8, StopBits.One)

3. 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, _
   ByVal e als System.EventArgs) Handles btnTransmitData.Click
   Port.Open ()
   Port.Write (txtTransmitData.Text)
   Port.Close ()
   End Sub

4. 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
   CheckForIllegalCrossThreadCalls = False
   Als Port.IsOpen = False Dan Port.Open ()
   End Sub

   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