Hallo. Ich habe folgendes Problem. In Temp ist eine Zahl die auf High und Low Byte aufgeteilt wird. Diese wird in einem Array gespeichert. Dim Zahl(8) As Integer Dim Temp as Integer Zahl(0) = Int(Temp / 256) Zahl(1) = Temp Mod 256 zB steht in Zzahl(0) eine 1 und in Zahl(1) eine 144. Nun will ich diese Seriell an meinen µC übertragen. Zahl(0) als ein Byte und Zahl(1) als zweites Byte. Wenn ich dies zB it einer Schleife erledige: While i <= 7 SerialPort1.Write(Zahl(i)) i = i + 1 End While empfange ich 0x31 0x31 0x34 0x34, als den ASCII Wert der jeweiligen Zahl. Ich will aber den reinen Zahlenwert senden. Also für die 1 eine 0x01 und für die 144 eine 0x90. Wie kann ich dies erreichen? Gruß Matthias
Hi Matthias, arbeite mit Byte-Array. Bitte beachte, das bei VB2005 Express ein int 32 bit und nicht 16 breit ist. Du könntest wie folgt vorgehen: Dim Zahl(8) As Byte Dim Temp as short Zahl(0) = Int(Temp \ 256) ' Temp / 256 ist nicht korrekt ' Dim a As Byte = CByte(1000 / 256) liefert 4 ' Dim b As Byte = CByte(1000 \ 256) liefert 3 Zahl(1) = Temp Mod 256 ... SerialPort1.Write(Zahl, 0, Zahl.Length) ' sende das Array Zahl Bye Klaus
OK. Danke so fnktionierts einwandfrei. Ich hätte noch eine Frage. Vom µC sende ich in bestimmten Intervallen einen String zurück. Wie muss ich vorgehen damit VB den String empfängt sobald er ankommt. Ich will also Werte empfangen und in einem Label darstellen sobald etwas angekommen ist. Guß Matthias
Hi! ''Vom µC sende ich in bestimmten Intervallen einen String zurück. Ich gehe davon aus, das Dein µC aktive und nicht auf Grund einer Anfrage Deiner VB-Anwendung sendet. Das heißt aber auch, das Du für die Empfangsbereitschaften von VB sorgen musst. Ist dieses gewährleistet ? ''Wie muss ich vorgehen damit VB den String empfängt sobald er ankommt. 1. VB muss wissen, wann der String komplett angekommen ist. Beispiele: - Der String hat IMMER ein bestimmt Länge von n Zeichen - Das String-Ende ist IMMER ein bestimmtes Zeichen(z.B ETX = 0x03) 2. VB überprüft im DataReceived-Event, ob der komplette String angekommen ist. Ist das der Fall, dann gibt es mehrere Möglichkeiten: - Direkte Verwendung/Bearbeitung im DataReceived-Event Bearbeite den String direkt im DataReceived-Event (z.B in eine Textbox schreiben, in Stücke hacken, ... ) - Trennen von Daten-Empfang und Daten-Verarbeitung Es wird ein Event (z.B. StringIstDa) ausgelöst und der String als Parameter mitgegeben. StringIstDa liefert Dir automatisch den neuen String. 3. Fehlerhafte Datenübertragung, Verbindungsabbrüche, .. Ein großes weites und gemeines Thema ... Wie du bei Punkt 2 vorgeht willst, ist reine Geschmacksache. Kläre vor allem Punkt 1. Ohne den geht es nicht. Bye Klaus
Hi Genau, der µC ist bei mir der Master, da hab ich mehr Erfahrung. Er sendet im 2s Rythmus Daten zum PC. Die Daten haben dabei immer eine feste Länge von 12 Byte. Am PC angekommen muss der empfanene String aufgeteilt und mit nem faktor multipliziert werden bevor er angezeigt werden kann. Gruß Matthias
Hi, kann ich davon ausgehen, das die VB-Anwendung nur Daten empfangen aber niemals Daten senden kann ? (Sonst müssest Du Kollision- und Deadlock-Probleme beim gleichzeitigen Senden von VB und µC rechnen ) Bye Klaus
Hm, naja dann scheint es ja doch nicht ganz so einfach zu sein wie ich mir das dachte. VB muss Daten senden sowie empfangen können, mein µC misst die IST - Temperaturen die ich in VB visualisieren will und bekommt vom PC die SOLL - Temperaturen auf die er regeln soll. Allerdings will ich nur senden nachdem ich eine Taste drücke. Kann ich mich da vielleicht mit etwas wie: 1) Wenn Taste gedrückt und gerade nichts empfangen wird, dann senden, sonst warten bis Daten fertig übertragen. 2) Oder ich warte, wenn Daten gesendet werden sollen, bis ich vom µC was empfange und sende danach die Daten. Dann hab ich ja genug Zeit zum senden. behelfen? Gruß Matthias
Hi, beide Vorschläge ist zwar machbar, ich würde Sie aber nicht empfehlen. Für so eine Anwendung würde ich die VB-Anwendung als Master aufbauen und Deinen µC als Slave. Der Aufbau könnte wie folgt sein: - Temperaturabfrage wird durch einen Timer gesteuert - Protokollvorschlag Read: Anfrage von VB: EOT <Code des oder der Parameter> ENQ Antwort des µC: NAK für kenne ich nicht oder Fehler EOT <Code des oder der Parameter><Datenlänge>STX<DATEN>ETX Write: Daten von VB : EOT <Code des oder der Parameter><Datenlänge>STX<DATEN>ETX Antwort des µC: NAK für kenne ich nicht oder Fehler ACK für Wert übernommen. Der Ablauf erfolgt immer im Handshake. Vb sende eine etwas und wartet eine gewisse Zeit die Antwort ab. Sobald der timeout zu schlägt, geht vb von einer Leitungsunterbrechung aus. Der µC antwortet nur auf korrekte Read/Write Pakete. Alles andere ignoriert er. Der Noch eine Frage. Hast Du schon mal in VB6 oder VB 2005 programmiert ? Bye Klaus
Hi Klaus. Danke für deine Antwort, hört sich sehr solide und logisch an, dein Vorschlag. Ich mache gerade meine ersten Schritte in VB. Ich hab ein µC System entworfen und wollte eigentlich nur kurz noch eine einfache Oberfläche für den PC machen. Das ganze im µC zu realisieren wäre für mich auch kein Problem, allerdings sieht es in VB ganz anders aus. Da kämpfe ich gerde noch damit meine gesendeten Daten überhaupt empfangen zu können. Gruß Matthias
Hi Matthias, dann empfehle ich Dir das folgende Buch: Michael Kofler, Visual Basic 2005, Addison-Wesley Die Denkweise ist in VB komplett anders als bei einem µC. Daran musst Du Dich (leider) gewöhnen. Ein Beispiel: Wenn Du bei Deinem µC ein Integer definierst
1 | int Zahl; |
dann sind das einfach 16 auf einander folgende Bits, die irgendwo im Speicher abgelegt sind. Wenn Du bei Vb ein Integer definierst
1 | Dim Zahl as Integer |
dann ist das etwas, was - eine maximale Obergrenze hat: Zahl.MaxValue(), - eine minimale Untergrenze hat: Zahl.MinValue(), - in einem String umgewandelt werden kann: Zahl.ToString(), - mit einer anderen Zahl (Zahl1) verglichen werden kann: Zahl.CompareTo(Zahl1) - usw. Wenn man sich einmal daran gewöhnt hat, dann ..... :-)) Bye Klaus
Hallo Klaus. Das werd ich mir dann mal anschauen. Allerdings brauche ich jetzt eine Lösung, die wenigstens funktioniert, damit ich das Projekt zumindest vorerst schließen kann. Ich denke ich versuche mir das so wie schon angedacht zu realisieren. Ich warte in VB bis ich etwas empfange: Dim value As String While value = 0 value = SerialPort1.BytesToRead End While Mein µC sendet mit reine Zahlenwerte, immer 12 Byte, 2 aueinanderfolgende werden zur Temperatur verrechnet. Allerdings empfange ich mit: value = SerialPort1.ReadExisting nur wirre Zeichen, da VB wahrsceinlich diese als ASCII zeichen interpretiert. Was mich jedoch nicht weiterbringt, da ich den Zahlenwert von jedem Byte brauche. Wie kann ich den Zahlenwert der einzelnen Bytes erhalten? Zudem wäre es mir lieber jedes empfangene Byte in einem Array zu speichern, damit ich zur Berechnung besser darauf zugreifen kann. Kannst du mir da bitte noch mal weiterhelfen. Danach will ich dann den eingegebenen Wert von VB zum µC senden. Ist zwar nicht so elegant wie deine Lösung, aber mir fehlt einfach die Zeit dazu. Wenn ich diese Variante hinbekommen könnte wär ich schon mal glücklich.
SerialPort hat eine Read-Methode der man Byte-Arrays übergeben kann... Wenn doch noch mit Events gearbeitet werden soll, daran denken das der Event in einem separaten Thread ausgeführt wird...
ok, danke. Ich hab die Funktion gefunden. Ist ja eigentlich echt sehr einfach, wenn man sich auskennt. Mittlerweile funktioniert alles so ich wie ich es geplant hatte. Danke. Gruß Matthias
Hi Matthias hier ist eine quick and dirty Lösung: SerialPort1_DataReceived(): daten vom seriellen Port lesen Send(): Daten versenden Open(): Öffenen des Ports Init_SerialPort(): Init des serielen Ports Close erfolgt durch SerialPort1.Close()
1 | Private Sub SerialPort1_DataReceived(ByVal sender As Object, _ |
2 | ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles mRs232.DataReceived |
3 | |
4 | Dim aIData() As Byte ' Buffer für ankommende Daten |
5 | Dim enc As System.Text.Encoding = System.Text.Encoding.UTF8 ' 8-Bit encoding einastellen |
6 | |
7 | Static Dim IncommingData as String ' IncommingBuffer |
8 | IncommingData += mRs232.ReadExisting ' Alle angekommenen Daten einlesen |
9 | |
10 | Try |
11 | if IncommingData.Length >= 12 |
12 | aIData = enc.GetBytes(IncommingData) ' ByteArray herstellen |
13 | IncommingData = "" ' IncommingBuffer leeren |
14 | |
15 | Deine_Verarbeitungs_Function(aIData) ' Dein Job |
16 | end if |
17 | |
18 | Catch ex As Exception |
19 | 'todo: Errorhandling |
20 | End Try |
21 | End Sub |
22 | |
23 | Private Sub Init_SerialPort() |
24 | |
25 | with SerialPort1 |
26 | .Close() |
27 | '.BaudRate = Deine Baud Rate |
28 | '.Parity = Deine Parity |
29 | '.StopBits = Deine StopBits |
30 | '.DataBits = Deine DataBits |
31 | |
32 | .DiscardNull = False |
33 | .Handshake = Handshake.None |
34 | .ParityReplace = 63 ' "?" |
35 | |
36 | .ReceivedBytesThreshold = 1 ' jedes ankommende Zeichen wird sofort eingelesen |
37 | .Encoding = Encoding.UTF8 |
38 | |
39 | |
40 | .DtrEnable = False |
41 | .ReadBufferSize = 4096 |
42 | .WriteBufferSize = 4096 |
43 | |
44 | .DiscardInBuffer() |
45 | .DiscardOutBuffer() |
46 | |
47 | |
48 | end with |
49 | |
50 | End Sub |
51 | |
52 | Public Sub Open() |
53 | If SerialPort1.IsOpen = False Then |
54 | Try |
55 | SerialPort1.Open() |
56 | SerialPort1.DiscardInBuffer() |
57 | SerialPort1.DiscardOutBuffer() |
58 | |
59 | Catch ex As Exception |
60 | ' Fehlermöglichkeiten: |
61 | ' 1. ComPort nicht vorhanden |
62 | ' 2. ComPort vorhanden, aber Zugriff verweigert (Jemand anderes verwendet ihn gerade.) |
63 | ' 3. sonstige Fehler |
64 | End Try |
65 | End If |
66 | |
67 | End Sub |
68 | |
69 | Private Sub Send(Byval vData as integer) |
70 | Dim aSendData(4) as byte |
71 | Try |
72 | |
73 | with SerialPort1 |
74 | |
75 | aSendData(3) = vData mod 256 |
76 | vData = vData \ 256 |
77 | |
78 | aSendData(2) = vData mod 256 |
79 | vData = vData \ 256 |
80 | |
81 | aSendData(1) = vData mod 256 |
82 | vData = vData \ 256 |
83 | |
84 | aSendData (0) = vData |
85 | |
86 | .DiscardInBuffer() ' Löschen der Buffer |
87 | .DiscardOutBuffer() ' |
88 | |
89 | .Write(aSendData, 0, aSendData.Length) ' versenden |
90 | End with |
91 | |
92 | Catch ex As Exception |
93 | ' Todo: Error |
94 | End Try |
95 | |
96 | End Sub |
Ich habe nicht mit vb getestet. Vielleicht hilft sie Dir. Bye Klaus
Hi, da gab es wohl gerade ne Überschneidung :-)) Klaus
Hallo Klaus. Danke für deine ausführliche Hilfe. Sie hat mir ach noch weitergeholfen, denn: Ich warte solange bis alle 12 Byte empfangen wurden, lese dann alle ein, verarbeite sie und stell sie dar, dann sende ich. Das ganze mache ich praktisch in einer Endlosschleife. Das heißt, sobald etwas empfangen wurde wird das ganze angestoßen. Nur hat das bisher nicht funktioniert, dank deinem Vorschlag von oben, weiß ich jetzt auch warum. Ich dachte der Eingangspuffer wird automatisch gelöscht, wenn ich ihn einlese! Da ich ihn nicht gelöscht habe, war er ja praktisch immer voll und VB ist mit voller Geschwindigkeit wieder und wieder durch s Programm gegangen. Danke für deine hilfe Gruß Matze
Hi Matze, das kenne ich doch irgend woher ... ! Damals, im Jahre 1836, als ich mit VB anfing, .... :-)) Klaus
Hallo. Ich hab doch noch mal eine Frage: Ich hab bei dem obigen Thema nun die Buffer gelöscht, jedoch funktioniert es immer noch nicht, dass VB wartet bis ich etwas neues empfange. Meine Vorgehensweise: Buttom aktiviert das ganze do While SerialPort1.BytesToRead <= 12 End While 'soll hier solange verweilen bis 12 Bytes empfangen wurden ' dann kommt empfangsroutine ' Verarbeitunng ' Einlesen der Felder ' umrechnen ' senden der Daten SerialPort1.DiscardInBuffer() SerialPort1.DiscardOutBuffer() 'löschen der Puffer loop VB soll warten bis es etwas empfängt, dann alles abarbeiten und dann wieder warten bis was neues empfangen wurde. Kann mir jemand weiterhefen? Gruß Matze
> do >> While SerialPort1.BytesToRead <= 12 Du wartest also bis 13 Zeichen da sind...
nein eigentlich will ich nur 12 Zeichen empfangen. Aber acuh wenn ich do While SerialPort1.BytesToRead <= 11 daraus mache, funktioniert es nicht. Wartet VB an der Stelle nicht, oder was passiert da?
Bin nicht so der VB-Experte, aber: Während der Warterei werden die Events nicht ausgewertet. Also kann sich auch der abgefragte Wert nicht ändern.
HASt du vieleicht einen Vorschlag wie ich dann warten kann bis etwas empfangen wurde? Gruß Matze
Hi, setze SerialPort1.ReceivedBytesThreshold = 12, dann meldet sich der DataReceived Event, wenn 12 Zeichen da sind. Nachteil: wenn nach dem 11 Zeichen eine Leitungs- oder Sende-Unterbrechung erfolgt, dann wartest Du bis .... (DeadLock). Lösungsmöglichkeit: baue einen Timer ein, der mit dem Empfang des 1.Zeichen startet. Das TimeOut musst Du geeignet wählen (z.B 100ms) Fall 1.: Die 12 Zeichen sind vor dem Ablauf des TimeOuts angekommen. Dann Timer stoppen, Daten auswerten, usw. Fall 2.: Der Timer Event schlag zu, bevor die 12 Zeichen angekommen sich. Dann geeignet auf diesen ERROR reagierten, z.B. evtl. angekommene Daten verwerfen, ... Bitte beachte noch etwas: Arbeite nicht mit Konstrukten wie While SerialPort1.BytesToRead <= 12 .... End While um die ankommenden Daten abzufangen. Die ankommenden Daten liefert Dir der DataReceived Event.(Dazu ist er da !!) Ändere ggf. .ReceivedBytesThreshold. Wenn Du es z.B auf 1 setzt, dann feuert DataReceived bei jedem Zeichen. Diese einzelnen Zeichen musst Du nur noch geeignet übernehmen. Bye Klaus
Hi Klaus. Könntest du mir bitte etwas genauer schreiben, wie ich den DataRecieveEvent imlementieren kann! Wäre dir echt sehr dankbar. Gruß Matze
Hi, den DataReceived findest Du oben im Beispiel: Private Sub SerialPort1_DataReceived(....) Handles mRs232.DataReceived Stelle .ReceivedBytesThreshold auf 1 und schaue Dir das ganze im Debug-Mode an. Bye Klaus
Dabei bekomme flogenden Fehler: Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mRs232.DataReceived -->Fehler 1: Die Handles-Klausel erfordert eine WithEvents-Variable, die im enthaltenden Typ oder einem seiner Basistypen definiert wird.
Public Class Form1 Dim Temperatur1 As Short Dim Temperatur2 As Short Dim Temperatur3 As Short Dim Temperatur4 As Short Dim Zeichenkette(8) As Byte Dim empfangen(13) As Byte Dim i As Integer = 0 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load SerialPort1.Open() 'serielle Schnittstelle öffnen ' ************************************************ ' Empfänger ' ************************************************ if i == 11 then 'rechnet die Ist - Temperaturen aus und stellt in Label dar Label13.Text = ((empfangen(1) * 256) + (empfangen(0))) * 0.0625 Label14.Text = ((empfangen(3) * 256) + (empfangen(2))) * 0.0625 Label15.Text = ((empfangen(5) * 256) + (empfangen(4))) * 0.0625 Label16.Text = ((empfangen(7) * 256) + (empfangen(6))) * 0.0625 Label11.Text = ((empfangen(9) * 256) + (empfangen(8))) * 0.0625 Label12.Text = ((empfangen(11) * 256) + (empfangen(10))) * 0.0625 ' ************************************************ ' Sender ' ************************************************ ' gewünschte Werte auslesen und mit Faktor multiplizieren Temperatur1 = ((Val(TextBox1.Text)) / 0.0625) Temperatur2 = ((Val(TextBox2.Text)) / 0.0625) Temperatur3 = ((Val(TextBox3.Text)) / 0.0625) Temperatur4 = ((Val(TextBox4.Text)) / 0.0625) 'teilt die Temperaturen in 2 Byte auf Zeichenkette(1) = Int(Temperatur1 \ 256) Zeichenkette(0) = Temperatur1 Mod 256 Zeichenkette(3) = Int(Temperatur2 \ 256) Zeichenkette(2) = Temperatur2 Mod 256 Zeichenkette(5) = Int(Temperatur3 \ 256) Zeichenkette(4) = Temperatur3 Mod 256 Zeichenkette(7) = Int(Temperatur4 \ 256) Zeichenkette(6) = Temperatur4 Mod 256 ' sende das Array Zeichenkette SerialPort1.Write(Zeichenkette, 0, Zeichenkette.Length) ' löschender Ein- und Ausgangspuffer SerialPort1.DiscardInBuffer() SerialPort1.DiscardOutBuffer() else 'noch keine 12 Bytes empfangen End if End Sub 'Das Stück Code dass diesen Fehler verursacht Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mRs232.DataReceived empfangen(i) = SerialPort1.ReadByte() i = i + 1 End Sub End Class End Sub End Class
Hallo Zusammen! Ich möcht das mein VB Programm, mir immer den Status von XOFF und XON anzeigt. Wie muss ich das realisieren? Hoffe das mir jemand weiter helfen kann. Grüße Vedi
Hi Matthias, ich komme erst jetzt dazu, Dir zu antworten. Schau dir mal den beiliegen Code an. Ich konnte Ihn leider nicht austesten. Mir fehlt Deine Anwendung. Bye Klaus
Hi Vedi, was bezeichnet Du als Status von XOFF und XON ? Arbeitest Du mit VB6 oder VB2005 ? Bye Klaus
Hi Klaus, ich arbeite mit VB6. Ich habe bei mir auf meiner Oberfläche unteranderen Zwei Label mit XOFF und XON falls jetzt XON aktiv ist soll es rot aufleuchten wenn XOFF aktiv ist wird XON wieder schwarz und XOFF rot. Ich weis nicht wie ich den Zustand von beiden abfragen soll. Für CTS und DSR gibt es den Befehl DSRHolding und CTSHolding und das ist kein Problem aber für XON und XOFF komm ich einfach nicht weiter. Vielen Dank Klaus für dein Interesse. Grüße Vedi
Hi Vedi, Du kannst die Property PortOpen verwenden. Etwa in der folgenden Art:
1 | If MSComm1.PortOpen = True Then |
2 | Label_XON.BackColor = vbRed |
3 | Label_XOFF.BackColor = vbBlack |
4 | Else
|
5 | Label_XON.BackColor = vbBlack |
6 | Label_XOFF.BackColor = vbRed |
7 | End If |
Bye Klaus
Vielen Dank Klaus. Hab es gerade ausprobiert. Wenn XON aktiv ist also am Start des Programms den funktioniert es mit XON rot einblenden. Aber das XOFF funktioniert nicht. Habe heute morgen die funktion aus einer vbcom32.DLL gefunden: If modDLL.ComGetXOutFlow(1) = True Then lblXOFF.ForeColor = vbRed lblXON.ForeColor = vbBlack Else lblXON.ForeColor = vbRed lblXOFF.ForeColor = vbBlack End If Aber genau das gleiche Problem wie bei PortOpen erkennt den wechsel nicht. Vielen vielen Dank das du mir Hilfst!!! Grüße Vedi
Hi Vedi, diese dll kenne ich leider nicht. Wo hast Du die denn her ? Bye Klaus
Hi Klaus Ich weis nicht ob der Befehl mir der (1) If modDLL.ComGetXOutFlow(1) = True Then überhaupt richtig ist. Ich weis nicht was für ein Parameter für (BYVAL hCOM AS LONG) rein muss. Private Declare Function ComGetXOutFlow Lib "vbcom32" _ (BYVAL hCOM AS LONG) AS LONG Grüße Vedi
Hi Vedi, nach der Beschreibung von der vbcom32.DLL habe ich folgendes herausgefunden: - Der Com-Port wird IMMER mittels eines s.g. Handles angesprochen. - Diesen Handle bekommst Du durch die Funktion "ComOpen" geliefert (siehe Beschreibung vbcom32). - Der Handle muss bei jeder Funktion angegeben werden (ohne Handle keine Kommunikation). Beispiel: hCOM = ComOpen("1;9600;7;1;1") - Die Abfrage nach der XOFF - Flow Control ist dann : If modDLL.ComGetXOutFlow(hCOM) = True Then .... end if Wie die Flusskontrolle dll-intern behandelt wird, weis ich nicht. Mehr findest Du in der Beschreibung der dll. Bye Klaus
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.