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.)
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
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
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?
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,
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 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
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 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
