Office: Waage über RS232 anschließen

Hi,

Ich extrahiere dir heute mal den kompletten Code, mit Beispielformular wie ich das für eine Waage gelöst habe. Du musst dann eigentlich "nur" noch deine Steuercodes einfügen + eine eigene "Splitfunktion" des Rückgabestrings kreiren, aber das sollte kein Prob sein *wink.gif*

Grüssle Urs

 

\@ Jürgen

damit 2 Geräte per serieller Kommunikation "miteinander reden können"
müssen einige Kommunikations-Regeln zwischen den Beteiligten vereinbart
werden. Diese Vereinbarungen werden zum einen "physikalisch" getroffen -
in Form der Verdrahtung/Kabelbelegung und zum anderen per "Steuerzeichen"
die gesendet bzw. empfangen werden und als Kommandos interpretiert werden -
und nicht als "Daten" - kennst Du sicher von der Initalisierung eines Modems -
mit den sogenannten "AT-Befehlen"
So haben alle seriellen Peripheriegeräte ihre speziellen Anforderung
schliesslich geht die Bandbreite von einer seriellen Maus über die serielle Ansteuerung
der heimischen Eisenbahn bishin zur Übertragung von Daten per Telefonleitung


in Deinem Fall

XMComm.Output = Chr(212) ' sendet (0xD4) an die zuvor initialisierte und geöffnete Com ...

ich kenne Dein Serielles Endgerät nicht, würde aber vermuten (SYN /FF)sendest Du so:
XMComm.Output = "SYN"
bzw.
XMComm.Output = "FF"

da ich aus der Anleitung nicht ersehen kann, dass es sich bei FF um ein Steuerzeichen handelt ...bei serieller Kommunikation gilt n.m.E. "Versuch macht klug"


'// falls Dein Steuerelement XMCOMM heisst ....


anbei noch ein Link für die ASCII /Steuerzeichen
http://www.msdevelopment.org/files/p...als_ascii.html


MfG
Paul

 

So hier das Beispiel, soll nicht vollständig sein, aber gibt nen kleinen Anhaltspunkt wie man sowas lösen könnte. Müsste eigentlich einfach erklärt sein im Kommentar. *wink.gif*

Verbesserungsvorschläge und Kritiken sind immer gern willkommen! Bin ja auch nicht DER pro, aber es läuft *grins

Grüssle Urs

PS: Vorher MSCOMM oder die XMCOMM registrieren... Bei XMCOMM musst du den Code bissel anpassen.

 

super Jungs....

ich danke euch schon für eure tolle Hilfe,
sobald ich heute abend zu hause bin werde ich mich sofort ans testen geben. Wird wohl wieder eine kurze Nacht werden ..*gggg
Habe mir auch schon von unserer Computerabteilung ein Gerät geliehen, das ich zwischen den Com-Kabel stecken kann. Da leuchten dann Dioden wenn ein Datentransfer statt findet. so sehe ich dann wenigstens ob sich was tut.

mfg

Jürgen

 

ich muss mich doch nochmal nachhaken, nachdem ich mir Deine Schnittstellenbelegung
angeschaut habe

mit SYN UND FF sind doch einzelne Steuerzeichen gemeint

'//SYN =
XMComm.Output = Chr(22) '(0x16)

'// FF =
XMComm.Output = Chr(12) '(0x0C)

MfG
Paul

 

hallo paul,
sorry das ich schon wieder nachfrage ....

wie hast du die Zeichen umgewandelt ?

ich glaube ich muss alle Steuerzeichen (0x00) usw umwandeln.
ich glaube wenn ich es hinbekomme die zeichen an das Gerät zu senden bin ich am Ziel.
da werde ich die nächsten Tage einiges zu Tüffteln haben.

wenn ich das hinbekomme habe ich eine Menge gelernt.

mfg

Jürgen

 

wenn mich Nachfragen stören würden - wäre ich kaum hier => hör auf Dich dafür zur entschuldigen :-))

(0x00) steht für einen >Hexadezimalen Wert<

Hexadezimalsystem – Wikipedia

in der Ascii-Tabelle
http://www.msdevelopment.org/files/...ials_ascii.html
kannst Du direkt den entsprechenden Dezimalen-Wert aus der Tabelle ablesen

MfG
Paul

 

hallo zusammen,
ich bekomme leider erst das Gerät, mit dem ich sehen kann ob Daten über die Schnittstelle kommen zum WE.
Ich habe auch noch genügend zu tun die blöden Steuerzeichen (0x00) umzuwandeln.
da bin ich bisher auch noch zu blöde zu. *smile aber ich arbeite dran.

Ich teste mich sonst tot. bin mir ja sonst nie sicher, ob überhaupt Daten kommen.
Wenn ich mir die beiden Blätter genau anschaue glaube ich das ich den Datentransport vom PC aus "anstoßen" muss.
ich melde mich auf jeden fall wieder wenn ich was erreicht habe.

#Paul : wäre es unverschämt zu fragen wenn du mir die Steuerzeichen auf auf den Beiden Seiten umwandeln würdest.

ich finde es auch komisch das der PC auch Zeichen wie 0xD3 schickt und das Gerät nur "nul" ; "soh";

mfg

Jürgen

 

Hmm... Also je nach dem kannst du auch reintext schicken! Wenn das Gerät beide Variante unterstützt. Habe erst auch alles in binär umgesetzt und nachher gemerkt, dass es auch via TEXT geht, ist auch wesentlich einfacher zum späteren nachvollziehen. Kann man in den Einstellungen der COMM-Schnittstelle einstellen.

Normalerweise wird ein Record der von so einem Gerät kommt gestartet und terminiert mit einem Steuerzeichen, dann kannst auch ne kontrolle einbauen ob der komplette Satz übertragen wurde.
--> Siehe mein Beispiel

Bei mir war der Start mit < und Ende mit >

Studier mal genau die Anleitung, wenn steht, dass due FFF oder sonstwas senden kannst, dann sollte das auch in Reintext möglich sein. Auf alle fälle würde ich das erst ausprobieren.

Natürlich schwierig den rotz zu testen wenn man nicht mal das anzeigegerät hat *rofl*

Grüssle Urs

 

Hallo zusammen,
ich muss euch leider nochmal belästigen.
Ich habe den Code zum öffnen des Ports beim öffnen des Formulars
das scheint auch zu klappen, denn wie bei der Demoversion leuchtet eine rote Leuchte bei meinem Schnittstellentester

nur ..... spreche ich den Port wie Paul beschrieben mit
'MComm.Output = Chr(22) an ..... erscheint eine Fehlermeldung ...... objekt erforderlich" Laufzeitfehler 424

spreche ich ihn auf diverse andere Methoden an .... passiert rein garnix ..keine Fehlermeldung kein nix ...
Das liegt glaube ich daran das schon das Anmeldezeichen falsch ist.


seit doch noch mal bitte so nett und schaut euch doch noch mal #24 meinen Anhang an Seite 28 (Ohne Titel-2.JPG)

was mich noch interessiert.....

theoretisch brauche ich ja keinen code der ständig den Port nach Daten abfragt (dann müßte der untere ja noch erweitert werden, sondern ich brauche doch dann nur die Steuerzeichen von Seite 28 (#24) einzuarbeiten und fertig.
Leider weiß ich nicht mit welcher Methode.

Code:

mfg

Jürgen

 

Hi,

EDIT: so änderungen massgeschneidert vorgenommen *wink.gif*

"Schiessanlage" musst jeweils durch deinen namen ersetzen! Oder grad ein neues steuerlement mit diesem namen kreiren. dann gehts per CopyPaste

Hier mal ein Form_Load:
Code:

Im Formular das Ereigniss Unload hinzufügen mit folgendem code:
Code:

Jetzt Markierst du das MSCOMM-Steuerelement im Formular und klickst mit rechter MAustaste, Ereignis. Dann sollte das OnComm Ereignis im Editor erscheinen.

Da folgendes einfügen:
Code:

Dann machst du einen neuen Button in deinem Formular.
In den schreibst mal folgendes:
Code:

Wenn dein Gerät etwas sendet, steht nun im Direktfenster die versionsnummer des gerätes...

Nun fügst du nen neuen Button hinzu, Daten anfragen
Code:

Und gleich noch einen Button fürs Bestätigen
Code:

Und noch einen fürs Abmelden *wink.gif*
Code:

Jetzt kannst mal ein bisschen rumspielen und testen *wink.gif* Es sollte jeweils die Antwort des viechs im Direktfenster erscheinen!

Imho ist es das einfachste zum testen ob überhaupt was kommt und bei welcher aktion, wenn jede vorläufig einem eigenen Button zugewiesen ist. Das ganze dann richtig umsetzen sobald alles planmässig funktioniert ist dann das kleinste Problem *wink.gif*

Hoffe das hilft dir weiter... Viel Spass beim pröbeln.

Grüssle Urs

PS: Bei Mcomm hast auch MComm und nich MSCOMM geschrieben *rolleyes.gif* *tongue.gif*

 

\@Jürgen
Dein
'MComm.Output = Chr(22)
sollte eigentlich heissen
'MSComm.Output = Chr(22)
oder ?

BTW: Du arbeitest jetzt doch mit MSCOMM und nicht mit XMCOMM ?

Zu #37

Dezimal Hexadezimal.. Binär....... Zeichen
0........ 0x00............ 00000000..null....................(nul)
1........ 0x01............ 00000001..start of heading...(soh)

MfG
Paul

 

Hallo Ihr beiden,
das Gerät redet einfach nicht mit mir.
bis zur msgbox "Test1" geht er und weiter nicht.
Das ist für mich ein Zeichen das vom Gerät garnix kommt bzw. nicht richtig eingebunden ist.
Code:

Als Verweis habe ich auch das "Microsoft Comm Control 6.0 (SP3) gesetzt.

trotzdem kommt nix.

habe auch schon diverse Sachen mit den Steuerzeichen getestet, aber nix.
vielleicht hat ja noch einer ein Tipp zu dem Verweis bzw. dem Korrekten einbinden des
MSComm.

Ich teste in der Zwischenzeit weiter ..

mfg

Jürgen

 

demnach klappt Dein Initalisieren der Schnitttstelle mittlerweile ...?
nur Geduld das wird schon ...
Jetzt muss eben das Kommunikation und Handshake abgestimmt/eingestellt werden
und wie bereits erwähnt sind hier
1. der PC
2. das serielle Endgerät (Rika)
3. das Kabel
beteiligt

ich gehe davon aus Du testest mittlerweile mit Deiner Rika-Anlage ...

Dass das nicht weitergeht als MsgBox liegt IMHO daran, dass keine Daten
auf Com1 "einlaufen"

Ist denn das Kabel richtig verdrahtet ? laut Deiner Beschreibung aus #24
müssen PIN 4/5 auf beiden Seiten "gebrückt" d.h. kurzgeschlossen sein
das ist Dir klar, PIN 2/3 dürfen nicht gekreuzt sein ......?

ob bzw. das Dein CodePrivate Sub MSComm_OnComm() funktioniert kannst Du IMHO mit einer seriellen Maus testen - falls zur Hand.

Wenn Du mir Deine MDB schicken möchtest überprüfe ich die bisherige Funktionalität ich hab hier einen serielles Prüfgerät das Senden,Empfangen und Analysieren kann.



MfG
Paul

 

Wenn ich mal was in das Zwiegespräch einwerfen darf:
Da die Msgbox erscheint und die in Sub MSComm_OnComm() steht, was ein Ereignis darstellt, kommen ja wohl auch Daten rein. Sonst würde das Ereignis doch nicht auftreten...??
Wie wäre es mit
Msgbox MSComm.CommEvent
statt
Msgbox "Test1" ?
Da sieht man dann, WELCHES Event passiert.

Ciao, Sascha