Funktionierendes CAN Bus Projekt entwickeln unter Bascom

Liste der Anhänge anzeigen (Anzahl: 1)

Goil ! Nun kann ich bereits zwischen zwei Boards Nachrichten hin- und herschicken und sie empfangen sogar das richtige Byte *froi* ganz automatisch mit ISR.

Nun fehlt eigentlich nur noch die Ausmaskierung und Identifier, die sind zur Zeit noch alle disabled.

Mit
Canwrite Bfpctrl , &B00001111 'RXnBF Pins Buffer Full Anzeige

müsste man doch eigentliche eine Anzeige an D4 (mein Schaltplan) bekommen, wenn ein Buffer voll ist, oder ?

Ansonsten hier mal der aktuelle Stand, wie er testhalber läuft. Allen nochmals herzlichen Dank soweit !

Bei ID und Maske ist zu beachten, welche Bits als ID-Bits verwendet werden.
Das sind mitnichten bit 0-7 usw. die sind lustig übers Register verteilt ...

Nur mal noch n Einwurf ... ist n häufiger Stolperstein.
Also der Befehl "shift left" ist Dein Freund dabei.

Das mit dem Flag setzen in der ISR haste schön gemacht ...

"Sie haben Post ..." :)

Falls Feitzi noch mitliest: Deine Leseroutine kannst Du vielleicht etwas optimieren, so wie hier:

Code:

Dlc0 = Canread(rxb0dlc) Print "RxB0DLC=" ; Bin(canread(rxb0dlc)) Print "RxB0CTRL=" ; Bin(canread(rxb0ctrl)) Spi_read_buff(1) = Cmd_read Spi_read_buff(2) = Rxb0d0 Reset Mcp_cs Waitus 1 Spiout Spi_read_buff(1) , 2 Spiin Can_rxd_data(1) , Dlc0 Waitus 1 Set Mcp_cs For N = 1 To Dlc0 M = N - 1 Print "0D" ; M ; "=" ; Can_rxd_data(n) ; "-" Next N Canmod Canintf , &B00000001 , &B00000000 Canmod Eflg , &B01000000 , &B00000000

natürlich noch ohne Fehlerauswertung, aber deutlich übersichtlicher. Diese Routine liest so lange Register aus, wie der DLC lang ist und legt sie automatisch in einem maximal 8 Byte langen Array ab. Braucht deutlich weniger Hilfsvariablen (eine nur zur Anzeige) und eine deutlich kleinere Schleife - und diese auch nur zum Anzeigen.

Nun habe ich eine Senderoutine, die abwechselnd eine Nachricht mit sidl=00100000 und sidl=00000000 sendet. Der Empfänger soll nur die Nachrichten mit sidl=00100000 empfangen. Boh - aber er empfängt noch beide Nachrichten:

Code:

Canwrite Caninte , &B00000011 'Interrupt einstellen Canwrite Rxb0ctrl , &B00100100 'Buffer 0: Empfangen aller Nachrichten Canwrite Rxb1ctrl , &B00100000 'Buffer 1: Empfang aller Nachrichten Canwrite Rxm0sidh , 0 'Kein Filter, Empfängeradresse Null Canwrite Rxm0sidl , &B00100000 Canwrite Rxm0eid8 , 0 Canwrite Rxm0eid0 , 0 Canwrite Rxm1sidh , 0 Canwrite Rxm1sidl , &B00100000 Canwrite Rxm1eid8 , 0 Canwrite Rxm1eid0 , 0 Canwrite Rxf0sidl , &B00100000 Canwrite Rxf1sidl , &B00100000 Canwrite Rxf2sidl , &B00100000 Canwrite Rxf3sidl , &B00100000 Canwrite Rxf4sidl , &B00100000

Mit dieser Config sollte die Maske und auch alle Filter nur durchlassen, was sidl=00100000 hat, oder was habe ich da nicht geblickt ? Kommt jetzt genau das, was Du meintest ?

Vitis,

kannst Du mir nochmal sagen, wo ich dazu etwas finde ? Ich habe nun Sender und Empfänger, wenn ich per Dipschalter z.B. SIDL=00001111 einstelle, zeigt der Empfänger an, daß die SIDL 00001011 ist ? Ich bin verwirrt....

arghs... Nun, ich hatte auch die völlig falschen Bits in SIDL eingestellt, nun überträgt er immer richtig. Jetzt muss ich es nur noch hinbekommen, daß er nur eine bestimmte Nachricht empfängt, aber irgendwie habe ich die Filter noch nicht richtig eingestellt:

mit radress=00100000

Canwrite Rxb0sidl , Radress
Canwrite Rxf0sidl , Radress
Canwrite Rxm0sidl , Radress

sollte jetzt ein so konfigurierter client nur Nachrichten mit SIDL 00100000 empfangen, oder nicht ? Jedenfalls werden noch alle Nachrichten empfangen, rollover ist ausgeschaltet.

Auszug aus einer CAN-Bus-Beschreibung ( http://www.me-systeme.de/canbus.html ):

Prinzip des Datenaustausches im CAN Netzwerk

Bei der Datenübertragung in einem CAN Bus werden keine Knoten adressiert, sondern der Inhalt einer Nachricht (z.B. Drehzahl oder Motortemperatur) wird durch einen eindeutigen Identifier gekennzeichnet.

Neben der Inhaltskennzeichnung legt der Identifier auch die Priorität der Nachricht fest.

Mit der dann folgenden Akzeptanzprüfung stellen alle Stationen nach korrektem Empfang der Nachricht anhand des Identifiers fest, ob die empfangenen Daten für sie relevant sind oder nicht. Durch die inhaltsbezogene Adressierung wird eine hohe Flexibilität erreicht: Es lassen sich sehr einfach Stationen zum bestehenden CAN-Netz hinzufügen.

Außerdem ergibt sich die Möglichkeit des Multicasting: Eine Nachricht kann von mehreren Teilnehmern gleichzeitig empfangen und ausgewertet werden. Messgrößen, die von mehreren Steuergeräten als Information benötigt werden, können über das CAN-Netz so verteilt werden, dass nicht jedes Steuergerät einen eigenen Sensor benötigt.

Ev kannst du die Lesung nicht selektieren?
Geht sonst alles?

Ansonsten geht alles. Der Identifier wird ja auch korrekt gesendet, nur habe ich offenbar noch ein Problem mit der Erkennung, ob die Nachricht nun für den Empfänger wichtig war und somit empfangen wird... Ich lese mich da gerade noch tiefer rein, aber noch checke ich das nicht...

Hallo Alex,
wenn alles soweit funktioniert, würdest du den Code hier reinstellen? Interessiert nicht nur mich wie es scheint.
Manche gute Programmmierer könnten eine Lib draus machen.
Ich bin schon aus Frust auf MBasic bei CAN umgestiegen, da gibt es eine Lib. Und Diese ist easy zu handeln.
Ev. könntest du den Code bei Mscelec abgeben, vielleicht macht er was draus, wäre doch für alle Bascom-Anwender gut.
Vielen Dank

Kann ich machen, das ist ja nur ein Testboard und somit nicht schlimm. Ich poste dann Schaltplan etc.

Ich muss halt nur noch die "Adressierung" bzw. Nachrichtenselektion richtig hinbekommen und den Code verschönern...

Zitat:

Zitat von Skragan

Kann ich machen, das ist ja nur ein Testboard und somit nicht schlimm. Ich poste dann Schaltplan etc.

Ich muss halt nur noch die "Adressierung" bzw. Nachrichtenselektion richtig hinbekommen und den Code verschönern...

Nun, lass dir doch helfen.
Wenn der Code da ist, wird der eine oder andere es sehen können, wo man was selektieren kann.
Verschönern kann man ihn wenn er fertig ist.
Guß nach Oldenburg, BFE-Stadt, Niedersachsen ?

Liste der Anhänge anzeigen (Anzahl: 2)

Aber klar - dann halt schon "unfertig" :)

Ja, Oldenburg - eher Rastede :)

Liste der Anhänge anzeigen (Anzahl: 1)

Hallo
Ja feitzi liest immer wiedermal mit
Die Sende und empfangsrutiene hab ich optimiert (schon vor längerer Zeit)
Ein Tip für die Identiferzuortnung:
Ich vergebe jeder Platiene eine "Knotennummer" zum Beispiel gibt es bei mir Knoten 1, 2, 3, 4, und 40. und dann noch genau deffinierte Identifer für Digitale bzw Analoge Informationen.
Siehe Anhang (die ID´s sind in HEX). Sobald ich Zeit habe, werde ich mein derzeitiges CAN Programm dokumentieren, und hier in´s Forum stellen.

Gruß feitzi

Hi feitzi,

es wäre super, wenn Du das nochmal etwas ausführlicher erklären könntest - das verstehe ich noch absolut nicht.

Gruß Alex

Liste der Anhänge anzeigen (Anzahl: 2)

Hallo

Ich hab mein derzeitiges Programm angehängt.
Das Programm "MegaCAN-V76" ist ein Standardprogramm, ich verwende dieses Modul zur Erweiterung eines Industiellen Heizungsreglers.
Im Programm "CAN Mega16" hab ich auf das wichtigste Abgespekt. Da ist auch eine Erklärung zu der ID Verteilung.

hoffe ich konnte helfen

Gruß feitzi

Hallo,

jetzt wo die CAN Programme über Bascom so langsam zum laufen kommen möchte ich mal eine Frage zu den verschiedenen Konfigurationsmöglichkeiten stellen.

Wie muss die Konfig aussehen wenn der Sender auf eine Bestätigung des Empfängers bekommen soll?

Hallo,

ich habe ein Problem mit meinem CAN-Bus-Experiment.

Ich habe drei Knoten an meinem Bus.
Sendet einer der Knoten, so kommt die Nachricht richtig bei beiden Empfängern an.
Sendet ein weiterer Knoten, so kommt dessen Nachricht nur noch bei dem an, der bisher noch nichts gesendet hat.
Hat jeder einmal eine Nachricht versendet, so bemerken jeweils die beiden verbleibenden Empfänger dass was auf dem Bus ist, sie geben aber nur noch ihren eigen Speicher aus.

Offensichtlich wirde der eigene Speicher nach dem Senden nicht gelöscht.

Kann mir jemand sagen was ich falsch gemacht habe?

Hier mal die wichtigsten Ausschnitte meines Codes:

Code:

********MCP2515 Initialisieren**************************************** Mcp2515_init: 'MCP2515 per Software Reset zurücksetzen Mcphilf = Spi_reset Reset Css Waitus 10 Spdr = Mcphilf Do Loop Until Spsr.spif = 1 Waitus 10 Set Css 'einstellen des Bit Timings 'CNF1 &H07==>125 kbit/s &H13==>50 kbit/s Mcp2515_write_register Cnf1 , &H13 Mcp2515_write_register Cnf2 , &H90 Mcp2515_write_register Cnf3 , &H02 'Interrupt einstellen Mcp2515_write_register Caninte , &B00000011 Mcp2515_write_register Rxb0ctrl , &B01100000 Mcp2515_write_register Rxb1ctrl , &B01100000 '**************************************************************************** '****************** Filter und Maske einstellen ******************** '**************************************************************************** 'Maske setzen - alle Bits auf "1" führen zu einem eindeutigen Filtern einer ID Mcp2515_write_register Rxm0sidh , &B00111111 ' Mcp2515_write_register Rxm0sidl , &B11100000 ' Mcp2515_write_register Rxm1sidh , &B00111111 ' Mcp2515_write_register Rxm1sidl , &B11100000 ' 'Filter setzen "25" Mcp2515_write_register Rxf0sidh , &B00000011 Mcp2515_write_register Rxf0sidl , &B00100000 Mcp2515_write_register Rxf1sidh , &B00000011 Mcp2515_write_register Rxf1sidl , &B00100000 '**************************************************************************** '**************************************************************************** '**************************************************************************** 'Einstellen der Pin Funktionen 'Deaktivieren der Pins RXnBF Pins (High Impedance State) Mcp2515_write_register Bfpctrl , 0 'TXnRTS Bits als Input schalten Mcp2515_write_register Txrtsctrl , 0 'Device zurück in den normalen Modus versetzen Mcp2515_bitmodify Canctrl , &B11100000 , &B00000000 Return '************************************************* Send_buffer0: 'Priorität einstellen Mcp2515_bitmodify Txb0ctrl , &B00000011 , &B00000011 ' Bit 7 Unimplemented: Lesen als'0 ' ' Bit 6 ABTF: Nachricht Aborted Flag Bit - ' 1 = Nachricht wurde abgebrochen ' 0 = Nachricht erfolgreich abgeschlossene Übertragung ' Bit 5 MLOA: Nachricht Lost Arbitration Bit - ' 1 = Nachricht verloren, Schiedsverfahren gleichzeitig gesendet ' 0 = Nachricht nicht verloren, während Schiedsverfahren gesendet ' Bit 4 TXERR: Übermittlung Bit-Fehler erkannt ' 1 = Ein Bus-Fehler ist aufgetreten, während die Nachricht übermittelt wurde, ' 0 = es ist keine Bus-Fehler aufgetreten, während die Nachricht übermittelt wurde, ' Bit 3 TXREQ: Nachricht Transmit Request-Bit - ' 1 = Buffer ist derzeit zur Übertragung anhängig ' (MCU setzt dieses Bit auf Anfrage Nachricht übertragen werden - Bit wird automatisch gelöscht, wenn ' Wird die Nachricht gesendet) ' 0 = Buffer ist derzeit nicht zur Übertragung anhängig ' (MCU kann dieses Bit klar um eine Nachricht abbrechen) ' Unimplemented ' Bit 2: Lesen als'0 ' ' Bit 1-0 TXP: Sendepuffer Priority ' 11 = Höchste Priorität ' 10 = High Intermediate Priority ' 11 = Low Intermediate Priority ' 00 = Tiefste Message Priority 'Standard ID einstellen Mcp2515_write_register Txb0sidh , Idh ' Absenderadresse setzen Mcp2515_write_register Txb0sidl , Idl ' Absenderadresse setzen 'Nachrichtenlänge einstellen (DFL) Mcp2515_write_register Txb0dlc , Dfl 'Daten Mcp2515_write_register Txb0d0 , Db0(1) Mcp2515_write_register Txb0d1 , Db0(2) Mcp2515_write_register Txb0d2 , Db0(3) Mcp2515_write_register Txb0d3 , Db0(4) Mcp2515_write_register Txb0d4 , Db0(5) Mcp2515_write_register Txb0d5 , Db0(6) Mcp2515_write_register Txb0d6 , Db0(7) Mcp2515_write_register Txb0d7 , Db0(8) 'nachricht versenden Reset Css Waitus 10 Mcphilf = Spi_rts0 Spdr = Mcphilf Do Loop Until Spsr.spif = 1 Waitus 10 Set Css ' Print "gesendet Buffer-0" Waitms 50 Return

Wäre klasse wenn mir jemand was sagen kann. Vielleicht hilft es ja auch anderen

Zitat:

Zitat von nikolaus10

Ist auch daran gedacht/erweitert werden den CAN Bus im Automobil abzufragen?

Ja, das würde mich auch interessieren!

In den bisherigen sachen kann ich kein Fehler finden. Wo ist die routine des Empfangens?

Den CAN im KFZ abzufragen habe ich auch irgendwann mal vor. Ist ja soweit kein Problem nur man kennt die IDs und die Nachrichtendefinitionen nicht ;)

Die Protokolle müsste man finden da diese genormt sind. Wenn du es testen willst mach die aber an ältern Can Fahrzeugen da die neuen Quasi Abschalten wenn jemand den Bus abhört.

welche Protokolle sind denn genormt? Davon wüsste ich! Und wer schaltet denn ab, wenn du mit listen ans Gateway gehst?
An Diag CAN kannst natürlich net gehen, da musst du ja die ganze Kommunikation aufbauen. Da geht eh nur die Hälfte im Stand!

Aber jetzt :-#

Hallo,

hat schon mal jemand einen Mega32 an den MCP2515 angeschlossen und zum Laufen gebracht?

hallo t.j.,

ich weiß es nicht genau die lehrer sagen das in der Schule mehr Infos habe ich auch nicht darüber.

Im Stand geht alles ... ausserdem musste schon schauen welchen Can du nimmst es gibt ja verschiedene.

Welche verschiedene CAN Busse gibt es denn im Auto?

z.b Can Bus Antrieb, Can Bus Comfort,

jedoch bezieht sich das ganze nur auf die Geschwindigkeit des Bussystems und auf die Proritäten.

Hi,

die Sache mit dem Mega 32 am CAN interessiert mich auch. Bisher habe ich alles mit nem einfachen Mega 8 gemacht.
An den Fuse kann es doch nicht hängen!

Liegt es vielleicht an der Programmierung der Register?

Sorry diskutieren oder streiten möchte ich mich nicht wollte es nur gesagt haben.

intressieren tut mich das thema auch.

Habt ihr eure Can Busse alle mit nur mit Mega8 gebaut?
Ist hier keiner mal nen Schritt weiter gegangen?

wie weit meinst du? Ich habe PIC18F2685, Mega8, AT90CAN64/32/128 erfolgreich in Betrieb. Im KFZ gibt es 4 wichtige. Was die Prioritäten angeht liegt das nur an den Definitionen.

na ja, ich meine auf Basis der Mega's. Beim 8er läufts super. nur bei meinem 32er geht nichts.
Den Pic kann ich nicht einschätzen und dass es beim AT90CAN.. läuft ist auch klar.

Aber wie so geht es beim 32er nicht?
Ich ahbe eine, zum Mega8 identtische Schaltung aufgebaut und das selbe Programm eingespielt. Aber es geht nichts!

ob M8 oder M32 ist dem MCP herzlich wurst,
kann nur auf Fehler beim Transfer oder
falsche Fuses oder Beschaltungsfehler beruhen
wenn der Dingsda nix macht.

kannst du mir sagen welche Fuse damit was zu tun haben?!
Wenn ich sie doch so eingestellt habe wie beim Mega8 muss es doch gehen, oder?

Zitat:

Zitat von elkokiller

na ja, ich meine auf Basis der Mega's. Beim 8er läufts super. nur bei meinem 32er geht nichts.
Den Pic kann ich nicht einschätzen und dass es beim AT90CAN.. läuft ist auch klar.

Aber wie so geht es beim 32er nicht?
Ich ahbe eine, zum Mega8 identtische Schaltung aufgebaut und das selbe Programm eingespielt. Aber es geht nichts!

das macht keinen Unterschied. Ich habe meine Schaltung generell mit nem 32er getestet und dann einen 8er auf die Platine gelötet. Da hast du irgendwo n fehler oder einen HW Unterschied der beiden Megas nicht beachtet.

Liste der Anhänge anzeigen (Anzahl: 1)

Hallo T.J.,

dann muss es bei mir an der HW liegen (das Programm läuft sonst ja).
Liegt es vielleicht an den genutzen Anschlüssen?
Fällt dir im Schaltplan etwas auf? Ich habe ihn auf das Wesentliche gekürzt:

ist es möglich dass es an meiner Resetschaltung liegt?
Ich habe die Resets beider IC's verbunden und über einen Widerstand auf +5V gelegt.
Der Taster, im Schaltplan nicht mehr enthalten, geht auf Masse.

Ich habe nähmich festgestellt, dass die Schaltung doch geht wenn ich die Spannung kompl. wegnehme und wieder anlege.
Über den Resetschalter hängt sich das Programm bei Neustart auf!

Hm, nein da fällt mir nix auf. Miso Mosi und SCk eben. Mehr brauchts ja nicht! Ist ja sehr seltsam. gerade da und beim CS sollte es zum mega32 ja keinen Unterschied machen :)

Hallo zusammen,

nachdem ich das Programm noch mal von grund auf neu geschrieben habe bin ich mehr oder weniger zufällig auf die Ursache für mein Problem (M32 und MCP2515) gestoßen!

So ganz nachvollziehen kann ich es nicht und hoffe auf eure Unterstützung:
Ich habe neben dem CAN Controller auch ein LCD Display in der 4 Bit Variante angeschlossen (separate Ports am M32).
Ohne die Displaykonfig läuft das Programm, in dem neben dem MCP2515 auch weitere I/O's beschaltet sind problemlos.
Nehme ich die Display Konfig hinzu, hängt sich das Programm beim Initialisieren des MCP auf!

Jetz bin ich der Verzweiflung nahe. Die beiden Bausteine und ihre Ports haben nichts miteinander zu tun und trotzdem geht entweder das eine oder das andere.

Was kann ich jetzt noch tun?

seltsam, sollte normal nicht sein, ist wohl mal wieder n Baascom Bug ...
oder ein Initialisierungsfehler im Programm ... müsste man aber das Listing
sehen dafür.
Im Extremfall müsstest Du dann halt die Init vom LCD von Hand
machen oder gar die LCD Ausgaberoutinen manuell machen.

ich bin selbst noch am zweifeln ob es daran liegen kann!

Ich habe jetzt so viel an dem Programm rumgebastelt dass es selbst ohne LCD nicht mehr läuft.
Bisher starte die Initialisierung wenigstens, jetzt hängt selbst sie sich auf und ich muss die Spannung kompl. wegnehmen.

Ich habe meinen Code jetzt mal auf das wesentliche gekürzt.
Hat jemand ne Idee wo hier der Fehler steckt?

Code:

$regfile = "m32def.dat" $crystal = 7372800 $baud = 9600 $hwstack = 32 $swstack = 8 $framesize = 24 Config Spi = Hard , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Noss = 1 , Clockrate = 16 Spiinit Dim Mcphilf As Byte Dim Id As Integer Dim Idh As Byte Dim Idl As Byte Dim Dfl As Byte Dim Idi As Byte Dim Canin As Byte Dim Db0(8) As Byte Dim Canstat As Byte Dim T As Integer Dim L As Byte Dim Verify As Byte Verify = 10 Dim Hilf1 As Word Dim Hilf2 As Word Dim Absender As Byte Const Spi_reset = &HC0 Const Spi_write = &H02 Const Spi_read = &H03 Const Spi_rts0 = &H81 Const Spi_rts1 = &H82 Const Spi_rts2 = &H84 Const Spi_read_status = &HA0 Const Spi_bit_modify = &H05 Const Rxb0ctrl = &H60 Const Rxb1ctrl = &H70 Const Rxm0sidh = &H20 Const Rxm0sidl = &H21 Const Rxm1sidh = &H24 Const Rxm1sidl = &H25 Const Rxf0sidh = &H00 Const Rxf0sidl = &H01 Const Rxf1sidh = &H04 Const Rxf1sidl = &H05 Const Bfpctrl = &H0C Const Txrtsctrl = &H0D Const Canctrl = &H0F Const Txb0ctrl = &H30 ' Transmit Buffer 0 Control Register Const Txb0sidh = &H31 ' Transmit Buffer 0 Std Identifier High Const Txb0sidl = &H32 ' Transmit Buffer 0 Std Identifier Low Const Txb0dlc = &H35 ' Transmit Buffer 0 Data Length Code Const Txb0d0 = &H36 ' Transmit Buffer 0 Data Byte 0 Const Txb0d1 = &H37 ' Transmit Buffer 0 Data Byte 1 Const Txb0d2 = &H38 ' Transmit Buffer 0 Data Byte 2 Const Txb0d3 = &H39 ' Transmit Buffer 0 Data Byte 3 Const Txb0d4 = &H3A ' Transmit Buffer 0 Data Byte 4 Const Txb0d5 = &H3B ' Transmit Buffer 0 Data Byte 5 Const Txb0d6 = &H3C ' Transmit Buffer 0 Data Byte 6 Const Txb0d7 = &H3D ' Transmit Buffer 0 Data Byte 7 Const Txb1ctrl = &H40 ' Transmit Buffer 1 Control Register Const Txb1sidh = &H41 ' Transmit Buffer 1 Std Identifier High Const Txb1sidl = &H42 ' Transmit Buffer 1 Std Identifier Low Const Txb1dlc = &H45 ' Transmit Buffer 1 Data Length Code Const Txb1d0 = &H46 ' Transmit Buffer 1 Data Byte 0 Const Txb1d1 = &H47 ' Transmit Buffer 1 Data Byte 1 Const Txb1d2 = &H48 ' Transmit Buffer 1 Data Byte 2 Const Txb1d3 = &H49 ' Transmit Buffer 1 Data Byte 3 Const Txb1d4 = &H4A ' Transmit Buffer 1 Data Byte 4 Const Txb1d5 = &H4B ' Transmit Buffer 1 Data Byte 5 Const Txb1d6 = &H4C ' Transmit Buffer 1 Data Byte 6 Const Txb1d7 = &H4D ' Transmit Buffer 1 Data Byte 7 Const Txb2ctrl = &H50 ' Transmit Buffer 2 Control Register Const Txb2sidh = &H51 ' Transmit Buffer 2 Std Identifier High Const Txb2sidl = &H52 ' Transmit Buffer 2 Std Identifier Low Const Txb2dlc = &H55 ' Transmit Buffer 2 Data Length Code Const Txb2d0 = &H56 ' Transmit Buffer 2 Data Byte 0 Const Txb2d1 = &H57 ' Transmit Buffer 2 Data Byte 1 Const Txb2d2 = &H58 ' Transmit Buffer 2 Data Byte 2 Const Txb2d3 = &H59 ' Transmit Buffer 2 Data Byte 3 Const Txb2d4 = &H5A ' Transmit Buffer 2 Data Byte 4 Const Txb2d5 = &H5B ' Transmit Buffer 2 Data Byte 5 Const Txb2d6 = &H5C ' Transmit Buffer 2 Data Byte 6 Const Txb2d7 = &H5D ' Transmit Buffer 2 Data Byte 7 Const Rxb0sidh = &H61 Const Rxb0sidl = &H62 Const Rxb0dlc = &H65 Const Rxb1sidh = &H71 Const Rxb1sidl = &H72 Const Rxb1dlc = &H75 Const Cnf1 = &H2A Const Cnf2 = &H29 Const Cnf3 = &H28 Const Caninte = &H2B Const Canintf = &H2C Declare Sub Mcp2515_write_register(byval Adress As Byte , Byval Daten As Byte) Declare Sub Mcp2515_read_register(byval Adress As Byte ) Declare Sub Mcp2515_bitmodify(byval Reg_add As Byte , Byval Reg_mask As Byte , Byval Reg_val As Byte) Config Pind.3 = Input Mcpint Alias Pind.3 ' Mcpint Alias Pind.3 Css Alias Portd.4 Config Css = Output Set Css Wait 1 Absender = 106 Id = 105 Gosub Mcp2515_init Print "init o.k." Idi = 10 'Aktivmeldung an CAN Bus Gosub Status Gosub Senden Do If Mcpint = 0 Then Gosub Mcpempfang Loop '***************************************************************************************** '********* $include "Can_config_V1_beschriftet.bas" ************************************** '***************************************************************************************** Status: Print "Status: Senden - " ; Mcpint If Mcpint = 1 Then Gosub Senden Else Print "MCP Pin=0" End If Mcp2515_read_register Canintf 'Spi_rx_status Canstat = Canin Print "CANINTF: " ; Canstat Mcp2515_bitmodify Canctrl , &B11101000 , &B00001000 Waitms 500 Return Senden: Print "Senden: Mcp2515_read_register Txb0ctrl " Mcp2515_read_register Txb0ctrl '&HA0 Print "Senden: Mcp2515_read_register Txb0ctrl o.k. " 'ID auf SIDL und SIDH "verteilen" Hilf1 = Id / 8 Idh = Hilf1 Hilf1 = Idh * 8 Hilf1 = Id - Hilf1 Hilf1 = Hilf1 * 32 Idl = Hilf1 Print Id Print "SPI_read_Status0: " ; Canin If Canin.3 = 0 Then Gosub Send_buffer0 Mcp2515_read_register Txb1ctrl '&HA0 Print "SPI_read_Status1: " ; Canin Print "Senden-Ende" Return '********senden mit Buffer 0**************************************** Send_buffer0: Print "Send_buffer0:" 'Priorität einstellen Mcp2515_bitmodify Txb0ctrl , &B00000011 , &B00000011 'Standard ID einstellen Mcp2515_write_register Txb0sidh , Idh ' Absenderadresse setzen Mcp2515_write_register Txb0sidl , Idl ' Absenderadresse setzen 'Nachrichtenlänge einstellen (DFL) Mcp2515_write_register Txb0dlc , Dfl 'Daten Mcp2515_write_register Txb0d0 , Db0(1) Mcp2515_write_register Txb0d1 , Db0(2) Mcp2515_write_register Txb0d2 , Db0(3) Mcp2515_write_register Txb0d3 , Db0(4) Mcp2515_write_register Txb0d4 , Db0(5) Mcp2515_write_register Txb0d5 , Db0(6) Mcp2515_write_register Txb0d6 , Db0(7) Mcp2515_write_register Txb0d7 , Db0(8) 'nachricht versenden Reset Css Waitus 10 Mcphilf = Spi_rts0 Spdr = Mcphilf Do Loop Until Spsr.spif = 1 Waitus 10 Set Css Print "gesendet Buffer-0" Waitms 50 Return '********senden mit Buffer 1**************************************** Send_buffer1: Mcp2515_bitmodify Txb1ctrl , &B00000011 , &B00000011 'Standard ID einstellen Mcp2515_write_register Txb1sidh , Idh Mcp2515_write_register Txb1sidl , Idl 'Nachrichtenlänge einstellen (DFL) Mcp2515_write_register Txb1dlc , Dfl 'Daten Mcp2515_write_register Txb1d0 , Db0(1) Mcp2515_write_register Txb1d1 , Db0(2) Mcp2515_write_register Txb1d2 , Db0(3) Mcp2515_write_register Txb1d3 , Db0(4) Mcp2515_write_register Txb1d4 , Db0(5) Mcp2515_write_register Txb1d5 , Db0(6) Mcp2515_write_register Txb1d6 , Db0(7) Mcp2515_write_register Txb1d7 , Db0(8) 'nachricht versenden Reset Css Waitus 10 Mcphilf = Spi_rts1 Spdr = Mcphilf Do Loop Until Spsr.spif = 1 Waitus 10 Set Css Waitms 50 Return Send_buffer2: Return '********MCP2515 Initialisieren**************************************** Mcp2515_init: 'ID auf SIDL und SIDH "verteilen" Hilf1 = Id / 8 Idh = Hilf1 Hilf1 = Idh * 8 Hilf1 = Id - Hilf1 Hilf1 = Hilf1 * 32 Idl = Hilf1 'MCP2515 per Software Reset zurücksetzen Mcphilf = Spi_reset Print "Mcphilf = Spi_reset " Reset Css Print "Reset CSS" Waitus 10 Spdr = Mcphilf Do Loop Until Spsr.spif = 1 Waitus 10 Set Css Print "Set Css1" 'einstellen des Bit Timings 'CNF1 &H07==>125 kbit/s &H13==>50 kbit/s Mcp2515_write_register Cnf1 , &H13 Mcp2515_write_register Cnf2 , &H90 Mcp2515_write_register Cnf3 , &H02 Print "Timing o.k." 'Interrupt einstellen Mcp2515_write_register Caninte , &B00000011 'Einstellen der Filter Mcp2515_write_register Rxb0ctrl , &B01100000 'Buffer 1: Empfang aller Nachrichten Mcp2515_write_register Rxb1ctrl , &B01100000 ' ** '**************************************************************************** '****************** Filter und Maske einstellen ******************** '**************************************************************************** 'Maske setzen - alle Bits auf "1" führen zu einem eindeutigen Filtern einer ID Mcp2515_write_register Rxm0sidh , &B00111111 ' Mcp2515_write_register Rxm0sidl , &B11100000 ' Mcp2515_write_register Rxm1sidh , &B00111111 ' Mcp2515_write_register Rxm1sidl , &B11100000 ' 'Filter setzen "25" Mcp2515_write_register Rxf0sidh , &B00000011 Mcp2515_write_register Rxf0sidl , &B00100000 Mcp2515_write_register Rxf1sidh , &B00000011 Mcp2515_write_register Rxf1sidl , &B00100000 '**************************************************************************** '**************************************************************************** '**************************************************************************** 'Einstellen der Pin Funktionen 'Deaktivieren der Pins RXnBF Pins (High Impedance State) Mcp2515_write_register Bfpctrl , 0 'TXnRTS Bits als Input schalten Mcp2515_write_register Txrtsctrl , 0 'Device zurück in den normalen Modus versetzen Mcp2515_bitmodify Canctrl , &B11100000 , &B00000000 ' Bit 7 Unimplemented: Lesen als'0 ' ' Bit 6 ABTF: Nachricht Aborted Flag Bit - ' 1 = Nachricht wurde abgebrochen ' 0 = Nachricht erfolgreich abgeschlossene Übertragung ' Bit 5 MLOA: Nachricht Lost Arbitration Bit - ' 1 = Nachricht verloren, Schiedsverfahren gleichzeitig gesendet ' 0 = Nachricht nicht verloren, während Schiedsverfahren gesendet ' Bit 4 TXERR: Übermittlung Bit-Fehler erkannt ' 1 = Ein Bus-Fehler ist aufgetreten, während die Nachricht übermittelt wurde, ' 0 = es ist keine Bus-Fehler aufgetreten, während die Nachricht übermittelt wurde, ' Bit 3 TXREQ: Nachricht Transmit Request-Bit - ' 1 = Buffer ist derzeit zur Übertragung anhängig ' (MCU setzt dieses Bit auf Anfrage Nachricht übertragen werden - Bit wird automatisch gelöscht, wenn ' Wird die Nachricht gesendet) ' 0 = Buffer ist derzeit nicht zur Übertragung anhängig ' (MCU kann dieses Bit klar um eine Nachricht abbrechen) ' Unimplemented ' Bit 2: Lesen als'0 ' ' Bit 1-0 TXP: Sendepuffer Priority ' 11 = Höchste Priorität ' 10 = High Intermediate Priority ' 11 = Low Intermediate Priority ' 00 = Tiefste Message Priority Mcp2515_read_register Caninte Print "CANINTE: " ; Canin Mcp2515_read_register Canintf Print "CANINTF: " ; Canintf Mcp2515_read_register Canstat Print "Canstat: " ; Canstat Mcp2515_read_register Canctrl Print "CANCTRL: " ; Canctrl Mcp2515_read_register Cnf1 Print "CNF1: " ; Cnf1 Mcp2515_read_register Cnf2 Print "CNF2: " ; Cnf2 Mcp2515_read_register Cnf3 Print "CNF3: " ; Cnf3 Mcp2515_read_register Txb0ctrl Print "TXB0CTRL: " ; Txb0ctrl Mcp2515_read_register Txb1ctrl Print "TXB1CTRL: " ; Txb1ctrl ' Mcp2515_read_register Txb2ctrl ' Print "TXB2CTRL: " ; Txb2ctrl Mcp2515_read_register Rxb0ctrl Print "RXB0CTRL: " ; Rxb0ctrl Mcp2515_read_register Rxb1ctrl Print "RXB1CTRL: " ; Rxb1ctrl Mcp2515_read_register Bfpctrl Print "BFPCTRL: " ; Bfpctrl Mcp2515_read_register Txrtsctrl Print "TXRTSCTRL: " ; Txrtsctrl Return '********MCP2515 schreiben**************************************** Sub Mcp2515_write_register(byval Adress As Byte , Byval Daten As Byte) 'Print "Reg: " ; Adress ; " Val: " ; Daten Mcphilf = Spi_write Reset Css Spdr = Mcphilf Do Loop Until Spsr.spif = 1 Waitms 2 Spdr = Adress Do Loop Until Spsr.spif = 1 Spdr = Daten Do Loop Until Spsr.spif = 1 Set Css End Sub '********MCP2515 lesen**************************************** Sub Mcp2515_read_register(byval Adress As Byte ) Mcphilf = Spi_read Reset Css Spdr = Mcphilf Do Loop Until Spsr.spif = 1 Waitms 2 Spdr = Adress Do Loop Until Spsr.spif = 1 Spdr = 0 Do Loop Until Spsr.spif = 1 Canin = Spdr Set Css End Sub '********MCP2515 bitmodify**************************************** Sub Mcp2515_bitmodify(reg_add , Reg_mask , Reg_val) 'Local Can_tmp2 As Byte Reset Css Mcphilf = Spi_bit_modify Spdr = Mcphilf 'Can_tmp2 Do Loop Until Spsr.spif = 1 Waitms 2 Spdr = Reg_add Do Loop Until Spsr.spif = 1 Spdr = Reg_mask Do Loop Until Spsr.spif = 1 Spdr = Reg_val Do Loop Until Spsr.spif = 1 Set Css End Sub '******** Datenempfang ******************************************** Mcpempfang: Print "Empfangen" Mcp2515_read_register Canintf 'Spi_rx_status Canstat = Canin Print "CANINTF: " ; Canstat If Canstat.0 = 1 Then Gosub Mcp_read_buffer0 If Canstat.1 = 1 Then Gosub Mcp_read_buffer1 Return '-------- lesen vom Buffer 0 Mcp_read_buffer0: Print "Mcp_read_buffer0:" Mcp2515_read_register Rxb0sidh Idh = Canin Mcp2515_read_register Rxb0sidl Idl = Canin Mcp2515_read_register Rxb0dlc Dfl = Canin Id = Idh * 8 Hilf1 = Idl / 32 Id = Id + Hilf1 'Print "ID-0=" ; Id ; " DFL-0=" ; Dfl 'Daten For L = 1 To 8 If L = 1 Then Mcp2515_read_register &H66 If L = 2 Then Mcp2515_read_register &H67 If L = 3 Then Mcp2515_read_register &H68 If L = 4 Then Mcp2515_read_register &H69 If L = 5 Then Mcp2515_read_register &H6A If L = 6 Then Mcp2515_read_register &H6B If L = 7 Then Mcp2515_read_register &H6C If L = 8 Then Mcp2515_read_register &H6D Db0(l) = Canin Next L Mcp2515_bitmodify Canintf , &B00000001 , &B00000000 Print "Daten Buffer-0:" ; Db0(1) ; "-" ; Db0(2) ; "-" ; Db0(3) ; "-" ; Db0(4) ; "-" ; Db0(5) ; "-" ; Db0(6) ; "-" ; Db0(7) ; "-" ; Db0(8) Gosub Auswertung Return '-------- lesen vom Buffer 1 ---------- falls erforderlich Mcp_read_buffer1: Print "Mcp_read_buffer1:" Mcp2515_read_register Rxb1sidh Idh = Canin Mcp2515_read_register Rxb1sidl Idl = Canin Mcp2515_read_register Rxb1dlc Dfl = Canin Id = Idh * 8 : Hilf1 = Idl / 32 : Id = Id + Hilf1 ' Print "ID-1=" ; Id ; " DFL-1=" ; Dfl 'Daten For L = 1 To 8 If L = 1 Then Mcp2515_read_register &H76 If L = 2 Then Mcp2515_read_register &H77 If L = 3 Then Mcp2515_read_register &H78 If L = 4 Then Mcp2515_read_register &H79 If L = 5 Then Mcp2515_read_register &H7A If L = 6 Then Mcp2515_read_register &H7B If L = 7 Then Mcp2515_read_register &H7C If L = 8 Then Mcp2515_read_register &H7D Db0(l) = Canin Next L Mcp2515_bitmodify Canintf , &B00000010 , &B00000000 Print "Daten Buffer-1:" ; Db0(1) ; "-" ; Db0(2) ; "-" ; Db0(3) ; "-" ; Db0(4) ; "-" ; Db0(5) ; "-" ; Db0(6) ; "-" ; Db0(7) ; "-" ; Db0(8) Return '***************************************************************************************** '***************************************************************************************** '*********** Auswertung ***************************************** Auswertung: Print "Auswerten Daten Buffer-1:" ; Db0(1) ; "-" ; Db0(2) ; "-" ; Db0(3) ; "-" ; Db0(4) ; "-" ; Db0(5) ; "-" ; Db0(6) ; "-" ; Db0(7) ; "-" ; Db0(8) If Db0(2) = 140 Then Select Case Db0(1) Case 101 To 105 : Gosub Schreiben 'In Knoten schreiben Case 150 To 155 : Gosub Lesen 'aus Knoten lesen Case 201 To 208 : Gosub Befehl 'in Knoten ausführen End Select Else If Db0(2) = 255 Then Gosub Status 'kann zu Problemen führen wenn alle Knoten gleichzeitig ihren Status senden!!!!! End If Return '*********** neue Zeit programmieren ***************************************** Schreiben: 'In Knoten schreiben Return '*********** Lesen ausführen ******************************************** Lesen: 'aus Knoten lesen Return '*********** Lesebefehl ausführen ******************************************** Befehl: 'in Knoten ausführen Print "Befehl Daten Buffer-1:" ; Db0(1) ; "-" ; Db0(2) ; "-" ; Db0(3) ; "-" ; Db0(4) ; "-" ; Db0(5) ; "-" ; Db0(6) ; "-" ; Db0(7) ; "-" ; Db0(8) Return

Hollo

Jetzt habe ich mich auch einmal an die CAN Schaltung gewagt, was anhand der hier vorliegenende Informationen gut nachvollziehbar ist. Ich kann eine Message von einem Node mittels Schalter auslösen und diese im zweiten Node empfangen. Drücke ich aber ein zweites Mal auf den Schalter so funktioniert es nicht mehr und ich bekomme folgende Werte:

Empfangen...
eflg=11111111
canintf=11111111
Reading RxB 0
RxB0CTRL=11111111
RxB0SIDL=11111111
RxB0SIDH=11111111
RxB0DLC=11111111
RxB0CTRL=11111111
RxB0d0=11111111
Reading RxB 1
RxB1CTRL=11111111
RxB1SIDL=11111111
RxB1SIDH=11111111
RxB1DLC=11111111
RxB1CTRL=11111111
RxB1d0=11111111

Woran kann das liegen?
Hat schonmal jemand das gleiche Verhalten erlebt?

Gruss, Tefi