Het lezen van gegevens van een apparaat dat is aangesloten op de seriële poort van de computer is uitgegroeid tot een gemakkelijke taak in Visual Basic . Met behulp van slechts een paar basis commando's in de ingebouwde bibliotheek , kunt u uw eigen VB applicaties te schrijven voor het omgaan met externe randapparaten die u koopt of ontwerp zelf . Wat je nodig hebt Visual Basic 2008 Toon Meer Aanwijzingen 1 Maak een nieuw project . Noem uw project " Serial Port Reading Tutorial " of geef het een andere passende naam . Op enige andere dialoogvensters , kiest u gewoon de standaard opties tot je merkt dat je geconfronteerd met de lege venster van de " Graphical User Interface " ( GUI ) ontwerper . Kopen van 2 Voeg een knop uit de lijst componenten op de linkerkant van het in de vorm slepen . Terwijl de knop is nog steeds geselecteerd , gaat u naar de lijst met eigenschappen en vind de " tekst " eigenschap . Verander deze te lezen " Lees 100 bytes van COM1 " of een andere passende titel die u wilt geven . 3 Dubbelklik op de knop . Dit zal u uit de GUI ontwerper en in de broncode-editor . Het zal ook een gebeurtenis functie te creëren voor te komen wanneer de knop wordt geklikt door de gebruiker 4 Voeg de volgende code toe aan de druk op de knop functie die Visual Basic alleen voor u gemaakt : . Dim com1 Zoals IO.Ports.SerialPortcom1 = My.Computer.Ports.OpenSerialPort ( " COM1 " ) Dim databank ( 100 ) Zoals Byte ( ) com1.read ( data , 0 , 100 ) op Twitter Geoordeeld de leesfunctie betrekking op een array van bytes van de gegevens naar het bedrag ter compensatie voor het lezen en , tenslotte , het bedrag lezen in de haven . In dit geval willen we de gegevens geplaatst in de data byte -array die we hebben verklaard . We willen beginnen bij het begin van de stroom van gegevens van de seriële poort , zodat onze offset nul . En tot slot , we willen hooguit honderd bytes lezen , want dat is hoe groot onze data array is . Je hebt nu gelezen honderd bytes van een seriële poort en kunt ze gebruiken in uw toepassing als u zie fit .
|