Gerät über RS232 ansprechen

Hallo,
ich habe eine Art von messgerät, das ich über die serielle schnittstelle ansprechen kann um werte zu erhalten.
dazu benutze ich einen mega 8 und einen max232 die bautrate muss bei 19200 liegen.

jetzt muss ich mit bascom ein prog schreiben, das mir ein packet mit insegsamt 10 bytes sendet:

byte1,2,3,4,5,6,7,8,9,10:

002 050 000 032 032 032 032 032 037 135

und ein packet von 8 bytes wieder empfangt:
byte1,2,3,4,5,6,7,8:

000 006 002 002 002 000 105 115

dabei soll jedes empfangene byte in einer variablen hinterlegt werden, um sie danach zu auszuwerten.



wenn z.b. das 2. empfangene byte 002 enthält, soll auf dem lcd 'ok' angezeigt werden.


ich hoffe sehr, das mir jemand dabei helfen kann. alle meine versuche sind bis jetzt gescheitert.

gruß

xeus

Du solltest schon etwas genauer sagen, WAS nicht geht, bzw. wieweit du gekommen bist.
Ev. Code posten

mein erstes prob ist, das ich nicht weis in welchem still ich das ganze senden soll. bis jetzt hab ich immer nur zeichen und keine bytes wie oben beschrieben gesendet.

hier der bisherige code

Code:

---


do
print "002 050 000 032 032 032 032 032 037 135"
loop

---

so bekomm ich halt nur einen string hin und nicht die bytes.


angenommen ich würd es schaffen es als bytes zu senden:

bytes gesendet
mc soll auf antwort warten

Code:

---

do
if usr.rxc=1
I=udr
select case
case ' was jetzt empfangen wird, soll auf dem lcd erscheinen???
lcd ???
end select
end if
loop

---

ich hab echt keinen plan

Man kann das folgendermaßen senden
do
print chr(32); chr(32); chr(32); chr(37); chr(135) ;
print chr(32); chr(32); chr(32); chr(37); chr(135) ;
loop
(auf zwei Zeilen aufgeteilt, damit übersichtlich bleibt)
Es werden so bei jedem Loop zehn Byte gesendet
ABER: das ist weder elegant noch gut brauchbar.
Mach lieber ein Array

Code:

---

DIM Sendepaket(10) as byte
'erstmal die Daten ins Paket reinschreiben
  Sendepaket(1) = 2
  Sendepaket(2) = 50
  Sendepaket(3) = 0
  Sendepaket(4) = 32
  Sendepaket(5) = 32
  Sendepaket(6) = 32
  Sendepaket(7) = 32
  Sendepaket(8) = 32
  Sendepaket(9) = 37
  Sendepaket(10) = 135

'und jetz komplett alle 10 Byte senden
Do
 PRINTBIN Sendepaket(1); 10
Loop

---

Beim empfang geht's umgekehrt:

Code:

---

DIM Sendepaket(10) as byte

DO
' zehn byte empfangen
 INPUTBIN Sendepaket(1), 10 
  if Sendepaket(2) = 2 then LCD "OK"
LOOP

---

Schau mal

super, das senden funzt schon, allerdings nur mit einer baudrate von 4800.
um das gerät aber ansprechen zukönnen benötige ich unbedingt 19200.

was kann ich in diesem fall tun?

und nochmals danke für die rasche hilfe!

ganz einfach:

$BAUD = 19200

Gruß
Christopher

ha, ha, ha

das hab ich doch gemacht. nur an der empfangsseite kommt es verfälscht an.

ja, ich hab auch am empfangsterminal 19200 eingestellt

Ja, das ist wahr, das hilft enorm ](*,)

Mein Problem, hab ich aber damit noch nicht gelöst

Hallo

Waher bekommt der AVR den seinen Takt:?

Intern oder extern ?

Wie hoch ?

MFG
Dieter

ich habe ihn derzeit mit dem internen 1mhz getaktet.

1. muss ich die taktrate ändern, damit ich mit 19200 baudrate arbeiten kann?

2. wenn ja, auf wieviel mhz?

3. wie stell ich das an?

danke,

xeus

Hallo,

wie sollte man denn die Serielle Schnittstelle einstellen damit das Gerät auch so empfängt wir der AVR sendet,
also ich mein jetzt nicht nur wieviel Baud, sondern auch den Rest wie Stoppbit, Parität, anzahl Bits usw. ?!

guten abend zusammen,

also lass deinen Takt mal von einem externen Quarz machen. Saubere Taktraten lassen sich unter anderem aus folgenden Quarzfrequenzen generieren:

3,6863Mhz
14,7456MHz

zum erstgenannten noch 33p Bürdekapazitäten und dann müsste das funktionieren. Tut es auf jeden Fall bei mir ;)

greetzle brat

und ach ja

serielle schnittstelle 8N1 also 8 bits, keine parität, und 1 stopbit

Zitat:

---

ha, ha, ha
das hab ich doch gemacht. nur an der empfangsseite kommt es verfälscht an.

---

Das war aber aus deinem Code nicht zu ersehen.
Also wenn du die Zeilen:

$crystal=1000000 und
$baud=19200
und der Taktgenerator auf 1MHz steht (fusebits einstellen !, wobei ich nicht weiß, welche Settings der Mega 8 kann.)
dann sollte es funktionieren.

Du kannst Bascom auch eine andere Baudrate vorgaukeln...
mach' crystal = geteilt durch 4, dann kommst du auch auf 19200,
wenn du vorher 4800 hattest. ;)
Funzt zwar, ist aber Quatsch, denn entweder ist dein Takt falsch in den Fusebits eingestellt, oder die Taktfrequenz falsch in Bascom eingegeben.

Gruß
Christopher

Also ich habs ets hinbekommen, das mein m16 mit 16Mhz läuft. und bei einer baudrate von 19200 mit dem gerät kommuniziert.

ich hab die kommunikation wie oben beschrieben realisiert, nun will ich das er das 2.empfangene Byte mit der Zahl 6 vergleicht, und mir 'fehler' bzw. 'kein fehler' über das uart ausgibt.

Code:

---

Sub Status
 if Packete(2)= 6 then
  print  'kein Fehler'
  else
    print 'Fehler'
return
end sub

---

wenn ich im nun als 2.Byte eine 6 sende, gibt er kein fehler aus, und bei einer zahl ungleich 6 fehler. was so weit je schon mal gut ist. aber wiederhole ich diesen vorgang gibt er immer fehler aus.
woran kann das liegen?

mfg

xeus

Kannst du den aktuellen Code reinstellen ?

Hier der code, wie gesagt ich empfange ein packet mit 8 bytes, davon soll er das 2. mit '006' vergleichen.

desweiteren hab ich noch ein Problem mit der Checksummen berechnung, er läst mich bei einer bitverschiebung das ergebnis nicht in eine seperate variable schreiben.

Code:

---


  $regfile = "m16def.dat"

$crystal = 20000000                                        'Quarz: 3.6864 MHz
$baud = 19200

Dim I As Byte
Config Lcdpin = Pin , Db4 = Porta.6 , Db5 = Porta.5 , Db6 = Porta.4 , Db7 = Porta.3 , E = Porta.7 , Rs = Porta.2      ' Natürlich so wie es wirklich angeschlossen ist (4-Bit-Modus)
Dim A As Byte
Config Lcd = 20 * 4                                        'Baudrate der UART: 9600 Baud

Config Pind.1 = Input
Config Pind.0 = Output


Config Pind.5 = Output
Config Pind.2 = Input


Dim Clc_l As Byte
Dim Clc_h As Byte
Dim New , New1 , New2 , New3 As Byte
Dim Tmp As Byte
Dim Bcclo As Byte
Dim Bcchi As Byte
Dim X As Byte

Dim Packets(10) As Byte
Dim Packete(8) As Byte
Declare Sub Sendewr
Declare Sub Empfangewr
Declare Sub Clc
Declare Sub Lcdout
Declare Sub Status
Dim Line1 As String * 20
Dim Line2 As String * 20
Dim Line3 As String * 20
Dim Line4 As String * 20

'PowerLED
Portd.5 = 1


'Init Packets
Packets(1) = 002
Packets(2) = 050
Packets(3) = 000
Packets(4) = 032
Packets(5) = 032
Packets(6) = 032
Packets(7) = 032
Packets(8) = 032
Packets(9) = 9
Packets(10) = 10



'LCD init
Initlcd
  Line1 = "test"
  Line2 = "    S T A R T!"
  Line3 = " com"
  Line4 = "www.ich.de"
Gosub Lcdout

Do

  'Taster 1
  If Pind.2 = 1 Then
      Line2 = "      reset"
      Line3 = " com"
      Print "reset"
    Gosub Lcdout
  End If

  'Taster 2
  If Pind.4 = 1 Then
      Gosub Sendewr
      Gosub Empfangewr
      'Gosub Status

  End If
Loop

'SUBs

'Anfrage an WR stellen
Sub Sendewr
  Line2 = "  sende Anfrage"
  Line3 = " com"
  Printbin Packets(1) ; 10
  Gosub Lcdout
  'Gosub Clc

Return
End Sub Sendewr

'Status vom WR empfangen
Sub Empfangewr
  Line2 = "  warte auf Daten"
  Gosub Lcdout
  Inputbin Packete(1) , 8

  Gosub Status
Return
End Sub Empfangewr


'Checksumme berechnen
Sub Clc
  'Init
  Bcclo = &H0XFF                                          'setze high
  Bcchi = &H0XFF                                          'setze high
  New = &B11011001                                        'lade byte

  New = New Xor Bcclo
  Tmp = Shift New , Left , 4                              'Fehlermeldung
  New = Tmp Xor New
  Tmp = Shift New , Right , 5                            'Fehlermeldung
  Bcclo = Bcchi                                            'setze gleich
  Bcchi = New Xor Tmp
  Tmp = Shift New , Left , 3                              'Fehlermeldung
  Bcclo = Bcclo Xor Tmp
  Tmp = Shift New , Right , 4                          'Fehlermeldung
  Bcclo = Bcclo Xor Tmp
'Gosub Lcdout

  Return
End Sub Clc


'LCD Ausgabe
Sub Lcdout
  Cls
  Locate 1 , 1                                            '1. Zeile
  Lcd Line1
  Locate 2 , 1                                            '2. Zeile
  Lcd Line2
  Locate 3 , 1                                            '3. Zeile
  Lcd Line3
  Locate 4 , 3                                            '4. Zeile
  Lcd Line4
  Return
End Sub


'Status Auswertung
Sub Status
    If Packete(2) = 006 Then      'Vergleich ob das 2.Byte den wert 6 trägt
        Line3 = "kein Fehler"
        Print "kein fehler"
      Else
        Line3 = "  Fehler"
        Print "fehler"
      End If
Gosub Lcdout
Return
End Sub Status


End                                                        'end program

---

wär nett wenn mir jemand helfen könnte das mit dem vergleich und der checksumme hintzkriegen.

mfg

xeus


Moddy: Code-Tags ausgebessert

mein Bascom ist aus mehreren Gründen stinkesauer mit deiner source

dim new, new1, .. as byte nimmt er nicht, das braucht er einzeln

SHIFT hat keinen output-parameter. das Feld wird geshiftet, bleibt aber, wo es ist.
wenn du sowas willst wie
Tmp = Shift New , Left , 4
muttu schreiben:
Tmp = New
Shift Tmp, Left , 4
Welche Art Checksum ist das ? (nur informativ)

Fehler Pakete(2)
Schau mal, ob der Sender nicht vielleicht <CR><LF> nach den 8 byte dazusendet.
Egal, überprüfe den input:
nach
inputbin pakete(1), 8
machst du
Print str(pakete(1)) ;str(pakete(2)) ;...str(pakete(8))
dann siehst du, was effektiv drinsteht und kannst dir vielleicht einen Reim drauf machen

erstmal danke, für deine hilfe.

bei der CRC handelt es sich um ein CCITT standrisiertes CRC Polynom:
mit 2Bytes BccLo & Bcchi

Zitat:

---

Bn=N^16+N^12+N^5+Bn-1

A. Init BccLo=0xFF, BccHi=0xFF

B. Für jedes Byte das gesendet und empfangen wird

new=new XOR BccLo
tmp=new<<4
new=tmp XOR new
tmp=new>>5
BccLo=BccHi
BccHi=new XOR tmp
tmp=new<<3
BccLo=BccLo XOR tmp
tmp=new>>4
BccLo=BccLo XOR tmp
C. Negieren Bit by Bit BccLo & BccHi: CLC_L=~BccLo CLC_H=~BccHi

---

also, das mit XOR ist schon mal kein Problem.
das mit dem bitverschieben müsste eigentlich auch möglich sein. das problem ist nur den wert in die entsprechende variable zu übertragen.

Also mein sender hängt defenetiv keine bytes oder bits dran, denn bei dem sender handelt es sich um ein selbstgeschriebenes programm, sendet genau 6 bytes + 2bytes CLC_L,CLC_H

Noch eine zusätzliche Fragen:

wenn ích die bytes empfange (input packet(1)...)
muss es doch möglich sein z.b. das 2. byte mit einem vorgegebenen wert zu vergleichen, und daraufhin eine reaktion auszuführen.

gruß

xeus

Wegen dem 2. Byte: Ich hab ja gesagt, mach nach dem Empfang der 8 Byte ein print mit allen Zeichen.
Da werden irgendwelche verschiebungen stattfinden. da du ja weißt, was du schickst, kannst du daraus dann das Problem einkreisen

ok, werd ich mal austesten, aber ist es prinzipiell so richtig im meinem program, oder muss ich die zu vergleichende zahl irgendwie in ein byte umwandeln?

danke

xeus

Nö. inputbin gibt 1:1 das abgesendete Zeichen

Also stimmt der vergleich so:

Zitat:

---

Sub Status
If Packete(2) = 006 Then 'Vergleich ob das 2.empfangsbyte = 6
Line3 = "kein Fehler"
Print "kein fehler"
Else
Line3 = " Fehler"
Print "fehler"
End If
return
end sub

---

stimmt das so?

ich hab ets mal nach

inputbin Packete(1),8

folgendes geschrieben:

printbin packete(1);8

kommt alles etwas durcheinander an, stimmt das so?

Das stimmt schon so, auch die Reihenfolge. alles ok.
Irgendwie nach dem inputbin kontrollieren, dann fällt es dir wie Schuppen aus den Haaren

also hab deinen vorschlag mal so eingefügt, und getestet.
mir ist aufgefallen, das er die reihenfolge irgendwie durcheinander haut.

weisst du was ich dagegen machen kann?

Er haut sie eben nicht "irgendwie" durcheinander, das hat sicher Methode.
schreib dir untereinander
SENT..Byte1, Byte2,...., Byte8 (soll)
RECV..Byte1, Byte2,...., Byte8 (ist)
Irgendwas ist zuviel oder zuwenig

wie meinst du das?

mir ist aufgefallen, das er immer die 3 letzten bytes vorne anhängt:
z.b.

6
7
8
1
2
3
4
5

was kann ich da machen?

Könnte sein, daß dein PC-Programm früher zu senden beginnt, als der Controller bereit ist.

Laß' den BasCom buffern
Schreib vorne irgendwo

CONFIG SERIALIN = buffered, SIZE = 24

Dann ist er immer empfangsbereit.

juihu, ich habs geschaft, wenn jetzt das 2.byte 6 ist schreibt er mir 'kein fehler'

danke, danke, danke.

kannst du mir vielleicht helfen, das problem mit der checksumme zu lösen?

Puh, ich hab das einfach nur abgeschrieben bzw. angepaßt

Code:

---

'Checksumme berechnen
Clc:                                                        'Init
'A. Init BccLo=0xFF, BccHi=0xFF

  Bcclo = &HFF                                            'setze high
  Bcchi = &HFF                                            'setze high

'B  Für jedes Byte das gesendet und empfangen wird

  New = &B11011001                                        'lade byte


  New = New Xor Bcclo                                      'new=new XOR BccLo
  Tmp = New
  Shift Tmp , Left , 4                                    'Tmp = New << 4
  New = Tmp Xor New                                        'New = Tmp Xor New
  Tmp = New
  Shift Tmp , Right , 5                                    'Tmp = New >> 5
  Bcclo = Bcchi                                            'Bcclo = Bcchi
  Bcchi = New Xor Tmp                                      'Bcchi = New Xor Tmp
  Tmp = New
  Shift Tmp , Left , 3                                    'Tmp = New << 3
  Bcclo = Bcclo Xor Tmp                                    'Bcclo = Bcclo Xor Tmp
  Tmp = New
  Shift Tmp , Right , 4                                    'Tmp = New >> 4
  Bcclo = Bcclo Xor Tmp                                    'Bcclo = Bcclo Xor Tmp


'C. Negieren Bit by Bit BccLo & BccHi: CLC_L=~BccLo CLC_H=~BccHi
  Clc_l = Bcclo Xor &HFF
  Clc_h = Bcchi Xor &HFF

---

Wenn du mehrere Byte checkst, mußt du zuerst A) initialisieren,
dann für jedes Byte einmal B)
und am Schluß einmal C)

wenn ich das richtig verstehe

super danke, aber was ich noch nicht verstehe ist:

ich habe ein sende paket von 8 bytes + 2 bytes checksum,
und

ein empfangs paket von 6 bytes + 2 bytes cheksum

wenn ich z.b beim senden jedes zu sendende byte dieses packets durch diese routine laufen lasse, habe ich doch am ende 16 bytes für die checksumme und nicht zwei. oder verstehe ich da was falsch?

hier der dazugehörige orginaltext:

aufbau vom protokoll des anzusprächenden gerätes, und angaben zur checksum

Checksum calculation

Zitat:

---

The algorithm to compute the checksum to validate the RS485 transmission is the CRC polynomial
standardized by CCITT:

Bn=N^16+N^12+N^5+Bn-1

Where N^16 means that N is elevated to the sixteenth power of 2 (i.e. it is shifted left of 16 bit)
and where the symbol ‘+’ represents the XOR bit by bit.
Practically, if New is the byte to process , Tmp is a swap byte and BccLo and BccHi are the low
and high parts of the validation word, the following algorithm must be followed:

A. Initialize BccLo=0xFF, BccHi=0xFF

B. For each byte to transmit or receive repeat the following steps:
1. New = New XOR BccLo
2. Tmp=New << 4
3. New=Tmp XOR New
4. Tmp=New >> 5
5. BccLo=BccHi
6. BccHi= New XOR Tmp
7. Tmp= New << 3
8. BccLo= BccLo XOR Tmp
9. Tmp= New >> 4
10. BccLo= BccLo Xor Tmp

C. Negate bit by bit BccLo e BccHi : CRC_L=~BccLo CRC_H=~BccHi

---

Aufbau des Protokols

Zitat:

---

The communication protocol uses commands of fixed length (8Byte + 2Byte for Checksum)
structured as follows:

Address Command Par.1 Par.2 Par.3 Par.4 Par.5 Par.6 CRC_L CRC_H

The structure of the answer is also with fixed length (6 Byte + 2 Byte for Checksum) :

Transmission State Module State Par.1 Par.2 Par.3 Par.4 CRC_L CRC_H

---

schon mal danke, für deine mühe

Die CRC-Rechnung erfolgt immer in die selben zwei Byte rein, also auch bei 100 Byte-Messages hast du nur 2 Byte CRC.
BccLo u. Hi werden am Anfang gesetzt, und dann einfach weitergerechnet

EDIT: MUSST du einen Crc-16 nehmen, für diese kleinen Messages reicht doch ein BCC mit 8 Bit genauso ?

leider kann ich mir das nicht aussuchen.
Was in meinem progrmm jetzt noch alles ansteht:

1.da ich mehrer geräte auf dem rs232 bus ansteuern will, muss ich mein Programm noch so umbauen, dass ich für jedes gerät eine eigene abfragesequenz habe (1.byte ist die Adresse). So das ich z.b. sende: an adresse 12

2.desweiteren gibt es verschiedene parameter, die ich abfragen will.(2.byte Commando)

3.weiter muss ich eine art tabelle in meinem prog hinterlegen, so dass der mc auch weiss, was der empfangene Status (2. byte status) bedeutet

4. werde ich versuchen die über die abfrage gesammelten daten, auf einem eeprom tabellarisch abzulegen

5. will ich ein schönes benutzer lcd menü erstellen

6.muss ich versuchen eine software uart zu realisieren, damit ich die gesammelten daten aus dem eeprom über den pc in einem delphi prog auszuwerten, und eine statistik zu führen

7.schluss endlich, soll der mc bei einem bestimmten empfangenem status byte eine modem, bzw. gsm-modems verbindung zu einem fax, oder dem internet aufbauen und den status übermitteln.

so, wie du siehst, habe ich noch einiges an arbeit vor mir.
nochmals vielen dank für deine hilfe, wär schö wenn mehr benutzer so hilfsbereit wären.

gruß

xeus

ah, noch was in bscom gibt es doch einen befehl crc16 weist du was genaueres darüber.arbeitet der genauso wie meiner?

Komischerweise gibt BasCom keine Auskunft, welche Polynom er verwendet. Es kann aber gut sein, daß es für dich stimmt, ist ja ziemlicher Standard.
Es zahlt sich auf jeden Fall aus, es zu versuchen, das Gefummel ist ja langweilig.

Mächtig viel Arbeit, aus weia. Ich wünsch dir viel Erfolg !

mit crc16 krieg ich aber nur ein byte

Nöööö. Lies dir das Help duch, der will in ein word reinschreiben

ja richtig, nochmals danke, werds am sonntag mal testen und dann vergleichen

jetzt hätte ich noch zwei fragen:
1. wie kann ich das errechnette crc16 word in zwei bytes zerlegen?
2. kann es sein, das er die sende und empfangsreihenfolge nicht richtig verarbeitet (inputbin(1) ,1..8, printbin(1),1...10)?

gruß

xeus