Problem beim Abarbeiten einer Schleifenfunktion

Gonzo · 2. Oktober 2004, 17:29

Hallo,

habe folgendes Problem. Ich möchte mit einem externem Gerät über die serielle Schnittstelle
kommunizieren. Dies funktioniert bis zu einem bestimmten Punkt ganz gut. Die Kommunikation
läuft wie folgt ab.
Nach einer Initialisationssequenz sendet das Gerät das Startwort "138". Um eine sicher
Übertragung zu gewährleisten muß der PC mit dem umgekehrten Wort antworten.
Also mit 255 - 138 = 117 antworten. Nachfolgend sendet das Gerät weiter Zeichen, die
nach dem selben Verfahren beantwortet werden müssen.
Hier liegt nun mein Problem. Im Beispiel wartet der PC zwar auf das Wort "138" und antwortet
wie beschrieben, leider habe ich keine Idee wie er alle nachfolgenden Zeichen ebenfalls wandeln
soll.


Private Sub Timer1_timer()

 Do

 dat = READBYTE

 If dat > - 1 Then 'Dateneingang prüfen



 antwort = 255 - dat 'Wert umkehren

 If dat = 138 Then SENDBYTE antwort 'Prüft Eingang von 138 und antwortet mit umgekehrtem Wert



 wert = Hex(Str$(dat)) + " " 'Formatiert Ausgabefenster

 If Len(wert) = 2 Then wert = "0" & wert

 Text1.Text = Text1.Text + wert



 End If

 Loop Until dat = - 1

End Sub



Ich verwende eine DLL um leichter mit der Schnittstelle kommunizieren zu können, deshalb die
Befehle "READ -und SENDBYTE".

Für einen Tipp wäre ich sehr dankbar.

Gruß
GONZO

Agent · 2. Oktober 2004, 18:04

Ich weiß nicht, ob ich dich so richtig verstanden habe.

If dat = 138 Then SENDBYTE antwort

Hier sendest du nur, wenn das Eingangssignal 138 ist. Hat dieses IF einen bestimmten Zweck? Sonst lass es einfach weg und er sendet auch alle weiteren Signale in umgekehrter Form (255-dat) und nicht nur 138

Gonzo · 2. Oktober 2004, 18:35

Hi,
Es ist schon so gemeint, das er erst die 138 abwarten soll, diese dannwandelt und alle darauf folgende Zeichen, abwechselnd umwandelt.
Sicherlich nicht schwierig, mir fehlt leider der "zündende" Funken

Gruß
GONZO

Agent · 2. Oktober 2004, 18:46

Dann manch dir eine boolsche Variable, die false ist. Sobald die 138 kommt, machst du sie true und ließt alle eingehenden SIgnale ein!?
<pre>Private Sub Timer1_timer()
Dim bRead As Boolean
Do
dat = READBYTE
If dat > - 1 Then 'Dateneingang prüfen

antwort = 255 - dat 'Wert umkehren
If dat = 138 Then bRead=true
if bRead then SENDBYTE antwort

wert = Hex(Str$(dat)) + " " 'Formatiert Ausgabefenster
If Len(wert) = 2 Then wert = "0" & wert
Text1.Text = Text1.Text + wert

End If
Loop Until dat = - 1
End Sub
</pre>

Gonzo · 2. Oktober 2004, 21:12

Danke für den Tipp, kann auch die Funktion nachvollziehen, doch leider funzt es nicht. Es werden immer wieder zwei und die selben Zeichen abwechselnd dargestellt, vielleicht ist es auch ein timing-Problem.
Wenn ich wie im ersten Fall die Prüfung über mehere If..then Abfragen mache..

z.B.
If dat = 138 then...
If Dat = 15 then..
If Dat = 1 Then.. usw.

klappts einwandfrei.
Gibt es evtl. nicht eine Möglichkeit über eine verschachtelte Schleife ???

Gruß
GONZO

Unknown · 3. Oktober 2004, 13:55

Ich würde gerne helfen, ehrlich gesagt versteh ich dein
Problem aber nicht. Du empfängst Daten. Diese Daten
muss der PC mit dem umgekehrten Wert bestätigen.
Im 1. Posting schreibst du, dass alle danachfolgenden
Daten ebenfalls nach diesem Schema behandelt werden
müssen, also immer den umgekehrten Wert zur Bestätigung
senden. Agent hat ja schon richtig angemerkt, dass
du dann einfach die If-Abfrage weglassen müsstest,
dann würde immer auf die Anweisung der Schnittstelle
mit dem umgekehrten Wert geantwortet.
Dann sagst du aber:

Hi,
Es ist schon so gemeint, das er erst die 138 abwarten
soll, diese dannwandelt und alle darauf folgende
Zeichen, abwechselnd umwandelt.

Besonders dieses abwechselnd macht mir Probleme,
soll nur jede 2. Wert umgewandelt werden ?
Das müsstest du mir nochmal erklären ...

Agent · 3. Oktober 2004, 14:17

Es werden immer wieder zwei und die selben Zeichen abwechselnd dargestellt

Könntest du vielleicht mal die Werte aus deiner Textbox posten? Heißt das, dass die Werte manchmal doppelt angezeigt werden? Wenn ja, kannst du das folgendermaßen abfangen:

Private Sub Timer1_timer()

Dim lastSignal As Byte, bRead As Boolean

Do

dat = READBYTE

If dat > - 1 Then 'Dateneingang prüfen



antwort = 255 - dat 'Wert umkehren

If dat = 138 Then bRead = true

If bRead And Not dat = lastSignal Then SENDBYTE antwort: lastSignal = dat



wert = Hex(Str$(dat)) + " " 'Formatiert Ausgabefenster

If Len(wert) = 2 Then wert = "0" & wert

Text1.Text = Text1.Text + wert



End If

Loop Until dat = - 1

End Sub

Gonzo · 3. Oktober 2004, 16:55

Hi, erstmal Danke für die Hilfe..... :))
leider bleibt alles ohne Erfolg

Ich versuch nochmal den Ablauf zu erklären:
Als erstes sende ich eine Startsequenz zum Endgerät. Dieses Antwortet mit 3 Zeichen hex 55, 01, 8A
Der PC erkennt das letzte Zeichen hex 8A (oder dez 138) und muß zur Datenaufrechterhaltung mit dem umgekehrten Zeichen 138(h8A) -> 117(h75) antworten. Das Entgerät startet nun mit der Datenübertragung und sendet 15(h0F), der PC kehrt dieses Zeichen erneut um und antwortet mit 240(hF0), Endgerät sendet 01(h01) - PC antwortet 254(hFE) usw. usw. bis das letzte Zeichen übertragen wurde. Zur besseren Übersicht wandel ich die dezimale in eine hexadezimale Anzeige um. Wenn die Datenübertragung richtig abläuft, sollte ich folgendes in meiner Textbox haben:

55 01 8A 75 0F F0 01 FE F6 09 38 C7 44 BB 30 CF
39 C6 31 CE 39 C6 30 CF 33 CC 34 CB 42 BD 20 DF
20 DF 03 .........

stattdessen erhalte ich:

55 01 8A 75 8A 75 8A 75 8A 75 8A 75 8A 75 55 8A
01 AA 8A 75 FE 55 0F 75 8A 01 AA F0 8A 75 FE 55
0F 75 8A ..........

Ich vermute schon das der Fehler evtl. woander liegt.

Danke nocheinmal für die Hilfe :))

Gruß
GONZO

Agent · 3. Oktober 2004, 18:22

Ich schätze mal, der Fehler liegt bei deiner READBYTE-Funktion. Entweder ist das timing zu langsam/schnell oder du musst nochmal etwas Quelltext davon posten.

Gonzo · 3. Oktober 2004, 19:48

So, hier der Code. Sicher verbesserungsbedürftig... :rolleyes:

Option Explicit

Dim x As Integer

Dim dat As Integer

Dim wert As String

Dim antwort As Integer

Dim n

Private Sub Command1_Click()

 CLOSECOM

 OPENCOM Text1.Text 'Port mit Parametern von Text1 öffnen

End Sub

<hr width="100%">
Private Sub Command2_Click()

 Text3.Text = "" 'Textfeld löschen

 Label2.Caption = ""

 Label3.Caption = ""

 x = 0



End Sub

<hr width="100%">
Private Sub Command3_Click()

 OPENCOM "COM1:1200,N,8,1"

 REALTIME True 'Initialisierung 5 Baud Adresse 17

 TXD 1

 DELAYUS 200000

 TXD 0

 DELAYUS 600000

 TXD 1

 DELAYUS 200000

 TXD 0

 DELAYUS 200000

 TXD 1

 DELAYUS 400000

 TXD 0

 REALTIME False

 CLOSECOM

 OPENCOM Text1.Text

End Sub

<hr width="100%">
Private Sub Command4_Click()

 End

End Sub

<hr width="100%">
Private Sub Form_Unload(Cancel As Integer)

 CLOSECOM 'Port nach Verlassen schließen



End Sub

<hr width="100%">
Private Sub Timer1_timer() 'Daten empfangen

 Do

 dat = READBYTE

 If dat > - 1 Then

 x = x + 1 'Anzahl Zeichen

 antwort = 255 - dat

 If dat = 138 Then SENDBYTE antwort

 Label3.Caption = x

 Label2.Caption = dat

 wert = Hex(Str$(dat)) + " "

 If Len(wert) = 2 Then wert = "0" & wert

 Text3.Text = Text3.Text + wert

 n = n + 1 'Zeilensprung nach 16 Zeichen

 If n = 16 Then n = 0: Text3.Text = Text3.Text + Chr(13) + Chr(10)

 Text3.Refresh

 End If

 Loop Until dat = - 1

End Sub



Gruß
GONZO

Problem beim Abarbeiten einer Schleifenfunktion

Problem beim Abarbeiten einer Schleifenfunktion

Ähnliche Themen

2 Benutzer haben hier geschrieben