AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Sendestring LED-Steuerung per RS232
Thema durchsuchen
Ansicht
Themen-Optionen

Sendestring LED-Steuerung per RS232

Ein Thema von Netblaster · begonnen am 6. Jun 2008 · letzter Beitrag vom 7. Jun 2008
Antwort Antwort
Netblaster

Registriert seit: 6. Jun 2008
Ort: Birkenwerder/Berlin
12 Beiträge
 
#1

Sendestring LED-Steuerung per RS232

  Alt 6. Jun 2008, 22:47
Hallo Allerseits,

ich habe mal eine Frage an die "Experten" hier...
Ich habe eine Mikrocontroller (uC) -gesteuerte LED-Leiste mit 14 LEDs.

Per Signal vom PC sollen die gesteuert werden. Die Hardware funktioniert soweit.
Damit das ganze Funktioniert, git es ein festgelegtes Übertragungsprotokoll für den uC.
Sieht wie folgt aus:

__________________________________________________ _______
|| Kommando(1 Byte) || Parameter(0..n Bytes) || CHK(1 Byte) ||
-----------------------------------------------------------------------------

-Das Kommando für die Funktion LEDs steuern ist 0x04
-Die Parameter für die jeweiligen LEDS sind:
Bit0: 1=LED1 an, 0=LED1 aus
Bit1: 1=LED2 an, 0=LED2 aus
Bit2: 1=LED3 an, 0=LED3 aus
...........bis ..-->
Bit6: 1=LED7 an, 0=LED7 aus
Bit7: nicht belegt

Bit8: 1=LED8 an, 0=LED8 aus
..........bis....-->
Bit14: 1=LED14 an, 0=LED14 aus
Bit15: nicht belegt

Als Antwort gibt der uC 1 Byte aus, mit 0x01=OK oder 0x00= Fehler

Die CHK wird gebildet aus = (Kommando+Parameter) xor 0xFF


Wie nun kann ich mir den zu sendenden String vorstellen? Habe schon einiges probiert, aber nix geht.
Ich habe es z.B. probiert mitTComPort-Komponente)

comport1.writestr(#$4+#$FE+#$FE); //4 ist das Kommando LEDs an, FE entspricht dann 11111110 (jeweils alle 7 LEDs an)


Nur die Cheksumme würde in diesem Beispiel ja deutlich größer als 1 Byte werden ($4FE01)- wo ist mein Denkfehler?
Muss alles zusammen in einem String gesendet werden, oder muss das ganze aufgeteilt werden??
Hat irgendjemand Erfahrung mit ähnlichen Systemen?????
  Mit Zitat antworten Zitat
Benutzerbild von divBy0
divBy0

Registriert seit: 4. Mär 2007
Ort: Sponheim
1.021 Beiträge
 
Delphi XE2 Professional
 
#2

Re: Sendestring LED-Steuerung per RS232

  Alt 6. Jun 2008, 22:52
Hast du mal ein paar Informationen über die Platine oder den µC?
Marc
9 von 10 Stimmen in meinem Kopf sagen ich bin nicht verrückt, die 10. summt die Melodie von Tetris... | Wenn das die Lösung ist, dann hätte ich gerne mein Problem zurück! | engbarth.es
  Mit Zitat antworten Zitat
BullsEye

Registriert seit: 8. Sep 2007
Ort: Werlte
872 Beiträge
 
Delphi 7 Personal
 
#3

Re: Sendestring LED-Steuerung per RS232

  Alt 6. Jun 2008, 22:59
Zitat von Netblaster:

comport1.writestr(#$4+#$FE+#$FE); //4 ist das Kommando LEDs an, FE entspricht dann 11111110 (jeweils alle 7 LEDs an)

Wenn ich das hier richtig sehe, schaltest du die LED's doppelt an... ?! Bzw an und direct wieder aus?
  Mit Zitat antworten Zitat
Netblaster

Registriert seit: 6. Jun 2008
Ort: Birkenwerder/Berlin
12 Beiträge
 
#4

Re: Sendestring LED-Steuerung per RS232

  Alt 6. Jun 2008, 23:12
Der µC ist ein M16C (steht drauf -keine Ahnung sonst , arbeitet aber im big endian Modus)

Zu "#$4+#$FE+#$FE"
das sind 2 Byte mit jeweils FE um die zwei mal 7 LEDs (also 14) anzusteuern....
  Mit Zitat antworten Zitat
Benutzerbild von _frank_
_frank_

Registriert seit: 21. Feb 2003
Ort: Plauen / Bamberg
922 Beiträge
 
Delphi 3 Professional
 
#5

Re: Sendestring LED-Steuerung per RS232

  Alt 6. Jun 2008, 23:22
du weist schon dass bit0 das niederwertigste ist, oder?
sprich du müsstest nicht $FE sondern 7F schicken.
auch wenn du beim chk trotzdem über die 1byte-Grenze kommen wirst, wenn alle LEDS angeschaltet werden...
  Mit Zitat antworten Zitat
Muetze1
(Gast)

n/a Beiträge
 
#6

Re: Sendestring LED-Steuerung per RS232

  Alt 6. Jun 2008, 23:28
Die Checksumme bezieht sich auf Bytes, somit wird bei der Addition mit einem Überlauf gerechnet.

Delphi-Quellcode:
function CheckSum(const AData: array of byte): byte;
var
  lChecksum: byte;
  i: integer;
begin
  lChecksum := 0;

  for i := low(AData) to high(AData) do
    lChecksum := (integer(lChecksum) + AData[i]) mod 256;

  result := lChechsum xor $ff;
end;
/EDIT: Integer-Typecast wohl nicht nötig, aber zur Sicherheit...

Ansonsten erweitert für unendlich viele Daten anstatt nur einem Datenbyte...

Aufruf z.B.: letztesByte := CheckSum([$04, $fe, $ff]); Alternativ könnte man es noch umschreiben auf einen typenlosen Parameter und Größenangabe...
  Mit Zitat antworten Zitat
Netblaster

Registriert seit: 6. Jun 2008
Ort: Birkenwerder/Berlin
12 Beiträge
 
#7

Re: Sendestring LED-Steuerung per RS232

  Alt 6. Jun 2008, 23:34
Zitat von _frank_:
du weist schon dass bit0 das niederwertigste ist, oder?
sprich du müsstest nicht $FE sondern 7F schicken.
Ja danke für den Hinweis... bin schon "Betriebsblind"


@Mütze - Danke auch Dir erst mal, ich werde das ganze Morgen mal ausprobieren !!!!!!!!!!
  Mit Zitat antworten Zitat
Netblaster

Registriert seit: 6. Jun 2008
Ort: Birkenwerder/Berlin
12 Beiträge
 
#8

Re: Sendestring LED-Steuerung per RS232

  Alt 7. Jun 2008, 17:56
Hi Thomas,

was soll ich sagen, es funktioniert wunderbar!
Nochmals vielen Dank Euch für die Hilfe.

Übrigens was ich durch Zufall rausgefunden habe:

Ich kann ein Kommando zum µC schicken, der führt das aus und gibt mir einen Wert zurück.

Also habe ich unmittelbar nach dem Kommando senden den Befehl fürs Auslesen über die Schnittstelle gegeben und -> nur Müll als Rückgabe.
Habe dann eine Message-box als Pause zwischen Senden und Empfangen eingebaut und siehe da, die Werte wurden korrekt ausgelesen.
(Diese Erkenntniss hat mich 2 Stunden gekostet

Gibt es da einen Trick oder Befehl, um den richtigen Zeitpunkt zum Auslesen (bzw. zwischen den einzelnen Kommandos) zu erwischen, oder muss ich da ein Delay für basteln ?

Danke und Ciao - Andrej.
  Mit Zitat antworten Zitat
oki

Registriert seit: 30. Dez 2002
Ort: Brandshagen
1.819 Beiträge
 
Delphi 2007 Professional
 
#9

Re: Sendestring LED-Steuerung per RS232

  Alt 7. Jun 2008, 19:04
hi Netblaster,

warte auf das Ereignis und lese dann erst aus. Irgentwie war mir so, als ob du CPort als Kompo benannt hast. Find das blos grad nicht.
Imho gib es immer ein OnRead-Ereignis (oder ähnlich), dass dich darüber informiert, dass die Schnittstelle was empfängt. Das liest du dann aus und gut ist. Also, gar nichts tun und auf Ereignis warten und alles ist gut.

Gruß oki
42
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:33 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz