vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: MSComm1 ... Datenempfang korrekt einstellen 
Autor: Hilde3023
Datum: 14.12.09 13:56
OnComm-Prozedur hat (nur) an die 55 Zeilen.

Als erstes trenne ich den 6-Byte ASCII-String in die Einzeilbytes auf mit Mid() und setzte alle Bruchstücke in einen Array rein. Anschließend werden diese in Dezimal umgewandelt mittels Asc(). 

For x = 1 To 6                                          
  wDatenEingangByteASCII(x) = Mid(wDatenEingangASCII, x, 1) 
  wDatenEingangByteDEZ(x) = Asc(wDatenEingangByteASCII(x)) 
Next x
Dann lasse ich nochmal alle Dezimalbytes nacheiner aufreihen mit Leerzeichen in einer Variable (102 105 106 107 108 109), welche später dann auch zur Auswertung genutzt wird. 

wDatenEingangDEZ = wDatenEingangByteDEZ(1) & " " & wDatenEingangByteDEZ(2) & "" & _
  "" & wDatenEingangByteDEZ(3) & " " & wDatenEingangByteDEZ(4) & " " & _
  wDatenEingangByteDEZ(5) & " " & wDatenEingangByteDEZ(6)
Nun beginnt die Auswertung und ich habe dazu acht IF-Schleifen, in dieser Form: 
If wDatenEingangDEZ = "115 83 12 13 94 0" Then
  sLED_Blaulicht_R (True)
  sLED_Blaulicht_L (True)
End If
Nullen lasse ich vom MSComm1 nicht unterdrücken, manchmal kriege ich Zeilenweise Nullen rein, weiß auch nicht warum der Mikrocontroller mit diese schickt.


Wie sieht denn der obige Code ganz grob geschaut aus? In Ordnung oder macht man sowas ganz anders?
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
MSComm1 ... Datenempfang korrekt einstellen2.561Hilde302311.12.09 21:19
Re: MSComm1 ... Datenempfang korrekt einstellen1.802Hilde302311.12.09 21:23
Re: MSComm1 ... Datenempfang korrekt einstellen1.947Hilde302313.12.09 13:14
Re: MSComm1 ... Datenempfang korrekt einstellen1.799moDiag14.12.09 08:18
Re: MSComm1 ... Datenempfang korrekt einstellen1.759Hilde302314.12.09 13:56
Re: MSComm1 ... Datenempfang korrekt einstellen1.873Dirk14.12.09 14:57
Re: MSComm1 ... Datenempfang korrekt einstellen1.760moDiag14.12.09 18:00
Re: MSComm1 ... Datenempfang korrekt einstellen1.757Hilde302314.12.09 19:00
Re: MSComm1 ... Datenempfang korrekt einstellen1.737Dirk14.12.09 21:00
Re: MSComm1 ... Datenempfang korrekt einstellen1.688Hilde302315.12.09 13:03
Re: MSComm1 ... Datenempfang korrekt einstellen1.727Dirk15.12.09 13:46
Re: MSComm1 ... Datenempfang korrekt einstellen1.711Dirk15.12.09 14:01
Re: MSComm1 ... Datenempfang korrekt einstellen1.734Hilde302316.12.09 22:14
Re: MSComm1 ... Datenempfang korrekt einstellen1.728Dirk17.12.09 09:49
Re: MSComm1 ... Datenempfang korrekt einstellen1.750Dirk17.12.09 10:20

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel