Skriva ett Visual Basic- program för att kommunicera din PC med en inbäddad AVR mikrokontroller är inte så svårt som det kan tyckas . AVR mikrokontroller kan konfigureras för att ha en serieport som kan anslutas till en seriell port på datorn . Ett Visual Basic-program som körs på datorn kan utbyta data med AVR via serieporten . I sin enklaste form innehåller Visual Basic källkoden för seriell kommunikation mellan AVR och datorn initiering , sändning och mottagning
1 .
Anslut en AVR utveckling ombord till datorn via en seriell kabel. Kontrollera att du har AVR styrelsen drivs upp och köra ett program på mikrokontroller för att hantera ta emot eller sända seriell data .
2 .
Instantiera en serieport objekt i VB . Du måste instansiera den seriella porten med kommunikation parametrar innan det öppnas och ta emot eller överför data. Följande källkod kan användas för att exemplifiera en seriell port objekt med hjälp av COM1 och 9600 baud :
Import System
Import System. IO. Ports
public class SerialExampleForm
Dim WithEvents hamn SerialPort=_
New SerialPort ( " COM1 " , 9600 , Parity. None , 8 , StopBits. One )
3 .
Överför 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 i formuläret .
Private Sub btnTransmitData_Click ( ByVal avsändaren som System. Object , _
ByVal e Som System. EventArgs ) hanterar btnTransmitData. Click
Port. Open ( )
Port . Skriv ( txtTransmitData. Text )
Port. Close ( )
End Sub
4 .
ta emot data från AVR i VB . Formuläret belastning Subrutinen säkerställer den seriella porten är öppen på blanketten last . Den DataReceived subrutin tar en karaktär läsa från den seriella porten och visar den i en textruta som heter " TextBox1 . "Försäkra dig Visual Basic-formulär innehåller en textrutekontroll kallas 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. Load
CheckForIllegalCrossThreadCalls=False
Om Port. IsOpen=False Då Port. Open ( )
End Sub
Private Sub Port_DataReceived ( ByVal avsändare As Object , ByVal e Som
System. IO. Ports. SerialDataReceivedEventArgs ) hanterar Port . DataReceived
TextBox1. Text=" "
TextBox1. Text=Port. ReadChar ( )
End Sub
Previous:nothing Next:Java-applet metoder