RFID Zugangskontrolle

[Vitis]

das sind hexwerte, also zahlenwerte

1f 00 44 e8 82 sind die blöcke, das sind dann dezimal:
31 0 68 232 130 musste in der C-Control mal schaun
obs da ne funktion der umwandlung von hex in dez gibt.
dann zerlegste den Tag in Blöcke von 2 Zeichen und rechnest die
in Dezimal um und kannst den Tag in 5 Bytes speichern

[xythobuz]

Okay, ich habs jetzt so gelöst:
<code>
#loop

GET r1
if r1 = &H31 then goto 2 else goto falsch ' &H31 gleich 49 gleich "1"
'naechstes Zeichen
#2
GET r1
if r1 = &H46 then goto 3 else goto falsch '&H46 gleich 70 gleich "F"
#3
GET r1
if r1 = &H30 then goto 4 else goto falsch
#4
GET r1
if r1 = &H30 then goto 5 else goto falsch
#5
GET r1
if r1 = &H34 then goto 6 else goto falsch
#6
GET r1
if r1 = &H34 then goto 7 else goto falsch
#7
GET r1
if r1 = &H45 then goto 8 else goto falsch
#8
GET r1
if r1 = &H38 then goto 9 else goto falsch
#9
GET r1
if r1 = &H38 then goto 10 else goto falsch
#10
GET r1
if r1 = &H32 then goto open else goto falsch
'----------------------------------------------------------------------
' UNTERPROGRAMME:
#falsch
gosub LCD_CLS
print "Falsch"
lcd_param = &H80
lcd_buf = OFF
gosub LCD_WRITE
gosub Nachricht2
goto loop

#open
gosub LCD_CLS
print "Relais macht uff"
lcd_param = &H80
lcd_buf = OFF
gosub LCD_WRITE
gosub Nachricht1
goto loop
</code>

Das funktioniert auch bei einer Karte, aber wie löse ich das mit ca. 60?

[xythobuz]

Hi nochmal.
Also, jetzt klappt alles bestens, es gibt nur noch ein Problem.
Hier der Code:

define Datenbus byteport[1]
define RS port[9]
define RW port[10]
define E port[11]
define Daten byte    ' Pufferbyte
define r1 byte
'---------------------------------------------------------
gosub Init                         'Display Initialisieren
Daten = 0                          'Den Cursor des Displays...
gosub Cursor                       '... Auf Position 0 stellen!
'---------------------------------------------------------
#loop
GET r1
if r1 = &H31 then goto 2 else goto falsch ' &H31 gleich 49 gleich "1"
#2
GET r1
if r1 = &H46 then goto 3 else goto falsch       '&H46 gleich 70 gleich "F"
#3
GET r1
if r1 = &H30 then goto 4 else goto falsch       'Admin und 2. Test Karte
#4
GET r1
if r1 = &H30 then goto 5 else goto falsch       'Admin und 2. Test Karte
#5
GET r1
if r1 = &H34 then goto 6 else goto falsch       'Admin und 2. Test Karte
#6
GET r1
if r1 = &H34 then goto 7 else goto falsch       'Admin und 2. Test Karte
#7
GET r1
if r1 = &H45 then goto 8                        'Admin
if r1 = &H43 then goto 8 else goto falsch       '2. Test Karte
#8
GET r1
if r1 = &H38 then goto 9                        'Admin
if r1 = &H31 then goto 9 else goto falsch       '2. Test Karte
#9
GET r1
if r1 = &H38 then goto 10                       'Admin
if r1 = &H41 then goto 10 else goto falsch      '2. Test Karte
#10
GET r1
if r1 = &H32 then goto open                     'Admin
if r1 = &H39 then goto open else goto falsch    '2. Test Karte
'----------------------------------------------------------------------
' UNTERPROGRAMME:
#falsch
r1 = 0
Daten = &H46                                    'F
gosub Zeichen
Daten = &H45                                    'E
gosub Zeichen
Daten = &H48                                    'H
gosub Zeichen
Daten = &H4C                                    'L
gosub Zeichen
Daten = &H45                                    'E
gosub Zeichen
Daten = &H52                                    'R
gosub Zeichen
pause 100
gosub cls
goto loop

#open
r1 = 0
Daten = &H4F                                    'O
gosub Zeichen
Daten = &H45                                    'E
gosub Zeichen
Daten = &H46                                    'F                                    
gosub Zeichen
Daten = &H46                                    'F
gosub Zeichen
Daten = &H4E                                    'N
gosub Zeichen
Daten = &H45                                    'E
gosub Zeichen
pause 100
gosub cls
goto loop

'###################LCD Routinen##################
#Init
E=0
Daten = &H38    'Initialisierung
gosub Kommando
Daten = &H0E    'Display einschalten
gosub Kommando
Daten = &H01
gosub Kommando
return

#Kommando
RW = 0
RS = 0
Datenbus = Daten
pulse E
return

#Zeichen
RW = 0
RS = 1
Datenbus = Daten
pulse E
return

#Cursor
RW = 0
RS = 0
Datenbus = Daten + &H80
pulse E
return

#cls      ' Display loeschen
  Daten = &H02
  gosub Kommando
return

'#Ausgabe     'zweistellige Zahl
'Daten = (Zahl / 10) + 48
'gosub Zeichen
'Daten = (Zahl mod 10) + 48
'gosub Zeichen
'return
'end

Und wenn ich eine Karte an den Leser halte kommt auf dem Display "OEFFNE". Aber kurz danach erscheint auf dem Display "FALSCH". Und das bleibt da auch. Manchmal kommt noch kurz OEFFNE, aber direkt danach wieder Falsch.
Wo liegt denn jetzt hier wieder der Fehler?
MfG
xythobuz

[grumpf]

Hai,

wie stehen die Dinge ? Ich schaue hier immer mal rein. Habt ihr das Projekt inzwischen abgeschlossen? Wie ist der aktuelle Stand?
Internette Grüße
Stefan

[xythobuz]

Tja, also im Moment bin ich mit dem Code soweit:

define Datenbus byteport[1]
define RS port[9]
define RW port[10]
define E port[11]
define Daten byte    ' Pufferbyte
define r1 byte
define neuer_code byte
'---------------------------------------------------------
gosub Init                         'Display Initialisieren
Daten = 0                          'Den Cursor des Displays...
gosub Cursor                       '... Auf Position 0 stellen!
'---------------------------------------------------------
neuer_code = 0
#loop
if neuer_code = 0 then goto receive_one_byte
if neuer_code > 0 then goto receive


#receive
GET r1
if r1 = &H31 then goto 2 else goto falsch ' &H31 gleich 49 gleich "1"
#2
GET r1
if r1 = &H46 then goto 3 else goto falsch       '&H46 gleich 70 gleich "F"
#3
GET r1
if r1 = &H30 then goto 4 else goto falsch       'Admin und 2. Test Karte
#4
GET r1
if r1 = &H30 then goto 5 else goto falsch       'Admin und 2. Test Karte
#5
GET r1
if r1 = &H34 then goto 6 else goto falsch       'Admin und 2. Test Karte
#6
GET r1
if r1 = &H34 then goto 7 else goto falsch       'Admin und 2. Test Karte
#7
GET r1
if r1 = &H45 then goto 8                        'Admin
if r1 = &H43 then goto 8 else goto falsch       '2. Test Karte
#8
GET r1
if r1 = &H38 then goto 9                        'Admin
if r1 = &H31 then goto 9 else goto falsch       '2. Test Karte
#9
GET r1
if r1 = &H38 then goto 10                       'Admin
if r1 = &H41 then goto 10 else goto falsch      '2. Test Karte
#10
GET r1
if r1 = &H32 then goto open                     'Admin
if r1 = &H39 then goto open else goto falsch    '2. Test Karte


#receive_one_byte
GET r1
if r1 = &H31 then neuer_code = 1
'---------------------------------------------------------------------
' UNTERPROGRAMME:
#falsch
r1 = 0
Daten = &H46                                    'F
gosub Zeichen
Daten = &H45                                    'E
gosub Zeichen
Daten = &H48                                    'H
gosub Zeichen
Daten = &H4C                                    'L
gosub Zeichen
Daten = &H45                                    'E
gosub Zeichen
Daten = &H52                                    'R
gosub Zeichen
pause 100
gosub cls
goto loop

#open
r1 = 0
Daten = &H4F                                    'O
gosub Zeichen
Daten = &H45                                    'E
gosub Zeichen
Daten = &H46                                    'F
gosub Zeichen
Daten = &H46                                    'F
gosub Zeichen
Daten = &H4E                                    'N
gosub Zeichen
Daten = &H45                                    'E
gosub Zeichen
pause 100
gosub cls
goto loop

'###################LCD Routinen##################
#Init
E=0
Daten = &H38    'Initialisierung
gosub Kommando
Daten = &H0E    'Display einschalten
gosub Kommando
Daten = &H01
gosub Kommando
return

#Kommando
RW = 0
RS = 0
Datenbus = Daten
pulse E
return

#Zeichen
RW = 0
RS = 1
Datenbus = Daten
pulse E
return

#Cursor
RW = 0
RS = 0
Datenbus = Daten + &H80
pulse E
return

#cls      ' Display loeschen
  Daten = &H02
  gosub Kommando
return

Allerdings, kurz nachdem ich den RFID-Chip hinhalte, meldet das Display öffnen, dann aber FEHLER und das wars dann.

MfG
xythobuz

[sast]

"also den gelesenen Code von dem Pollin-Teil bekommst du "frei Haus" über die serielle Schnittstelle. Zitat von der Pollin-Seite "Ein Beispielprogramm, welches den gelesenen HF-Tag über die RS232-Schnittstelle sendet, ist bereits vorprogrammiert." Du kannst den Tag also über die serielle Schnittstelle des C-Control einlesen und verarbeiten."

Warum änderst du dann nicht in diesem Beispielprogramm die Ausgabe?

sast

Edit: sorry hatte nicht mitbekommen, dass es schon eine 2. Seite gibt

Dein LOOP endet erst nach der Ausgabe von Fehler (wenn ich das Bascom soweit richtig verstehe) vielleicht solltest du da mal ein Loopende vor dem #FALSCH einfügen.

[xythobuz]

Hi.
Einen riesen Dank an dich, sast, ich bin ja so blöd...
Das ist übrigens nicht Bascom sondern CCBasic.

Hier der neue Code:

define Datenbus byteport[1]
define RS port[9]
define RW port[10]
define E port[11]
define Daten byte    ' Pufferbyte
define r1 byte
'---------------------------------------------------------
gosub Init                         'Display Initialisieren
Daten = 0                          'Den Cursor des Displays...
gosub Cursor                       '... Auf Position 0 stellen!
'---------------------------------------------------------
#loop
gosub willkommen
goto receive

#receive
GET r1
if r1 = &H31 then goto 2 else goto receive ' &H31 gleich 49 gleich "1"
#2
GET r1
if r1 = &H46 then goto 3 else goto falsch       '&H46 gleich 70 gleich "F"
#3
GET r1
if r1 = &H30 then goto 4 else goto falsch       'Admin und 2. Test Karte und 3.
#4
GET r1
if r1 = &H30 then goto 5 else goto falsch       'Admin und 2. Test Karte und 3.
#5
GET r1
if r1 = &H34 then goto 6 else goto falsch       'Admin und 2. Test Karte und 3.
#6
GET r1
if r1 = &H34 then goto 7 else goto falsch       'Admin und 2. Test Karte und 3.
#7
GET r1
if r1 = &H45 then goto 8                        'Admin
if r1 = &H43 then goto 8 else goto falsch       '2. Test Karte und 3.
#8
GET r1
if r1 = &H38 then goto 9                        'Admin
if r1 = &H31 then goto 9                        '2. Test Karte
if r1 = &H32 then goto 9 else goto falsch       '3. Test Karte
#9
GET r1
if r1 = &H38 then goto 10                       'Admin und 3. Karte
if r1 = &H41 then goto 10 else goto falsch      '2. Test Karte
#10
GET r1
if r1 = &H32 then goto open                     'Admin
if r1 = &H39 then goto open                     '2. Test Karte
if r1 = &H31 then goto open else goto falsch    '3. Test Karte
goto loop

'#receive_one_byte
'GET r1
'if r1 =  &H31 then neuer_code = 1
'goto loop
'---------------------------------------------------------------------
' UNTERPROGRAMME:
#falsch
r1 = 0
gosub cls
Daten = &H46                                    'F
gosub Zeichen
Daten = &H45                                    'E
gosub Zeichen
Daten = &H48                                    'H
gosub Zeichen
Daten = &H4C                                    'L
gosub Zeichen
Daten = &H45                                    'E
gosub Zeichen
Daten = &H52                                    'R
gosub Zeichen
Daten = 2                                       'Auf Zeile 2 Umschalten
gosub LCD_GOTOLINE
Daten = &H54                                    'T
gosub Zeichen
Daten = &H52                                    'R
gosub Zeichen
Daten = &H59                                    'Y
gosub Zeichen
Daten = &H20                                    ' 
gosub Zeichen
Daten = &H41                                    'A
gosub Zeichen
Daten = &H47                                    'G
gosub Zeichen
Daten = &H41                                    'A
gosub Zeichen
Daten = &H49                                    'I
gosub Zeichen
Daten = &H4E                                    'N
gosub Zeichen
pause 150
goto loop

#open
r1 = 0
gosub cls
Daten = &H4F                                    'O
gosub Zeichen
Daten = &H45                                    'E
gosub Zeichen
Daten = &H46                                    'F
gosub Zeichen
Daten = &H46                                    'F
gosub Zeichen
Daten = &H4E                                    'N
gosub Zeichen
Daten = &H45                                    'E
gosub Zeichen
pause 150
goto loop

#willkommen
gosub cls
Daten = &H53                                    'S
gosub Zeichen
Daten = &H43                                    'C
gosub Zeichen
Daten = &H55                                    'U
gosub Zeichen
Daten = &H42                                    'B
gosub Zeichen
Daten = &H41                                    'A
gosub Zeichen
Daten = &H20                                    ' 
gosub Zeichen
Daten = &H53                                    'S
gosub Zeichen
Daten = &H45                                    'E
gosub Zeichen
Daten = &H43                                    'C
gosub Zeichen
Daten = &H55                                    'U
gosub Zeichen
Daten = &H52                                    'R
gosub Zeichen
Daten = &H49                                    'I
gosub Zeichen
Daten = &H54                                    'T
gosub Zeichen
Daten = &H59                                    'Y
gosub Zeichen
Daten = &H20                                    ' 
gosub Zeichen
Daten = &H43                                    'C
gosub Zeichen
Daten = &H48                                    'H
gosub Zeichen
Daten = &H45                                    'E
gosub Zeichen
Daten = &H43                                    'C
gosub Zeichen
Daten = &H4B                                    'K
gosub Zeichen
Daten = 2                                       'Zu Zeile 2 wechseln
gosub LCD_GOTOLINE                              
Daten = &H56                                    'V
gosub Zeichen
Daten = &H20                                    '
gosub Zeichen
Daten = &H31                                    '1
gosub Zeichen
Daten = &H2E                                    '.
gosub Zeichen
Daten = &H35                                    '5
gosub Zeichen
return
'###################LCD Routinen##################
#Init
E=0
Daten = &H38    'Initialisierung
gosub Kommando
Daten = &H0E    'Display einschalten
gosub Kommando
Daten = &H01
gosub Kommando
return

#Kommando
RW = 0
RS = 0
Datenbus = Daten
pulse E
return

#Zeichen
RW = 0
RS = 1
Datenbus = Daten
pulse E
return

#Cursor
RW = 0
RS = 0
Datenbus = Daten + &H80
pulse E
return

#cls      ' Display loeschen
  Daten = &H02
  gosub Kommando
  Daten = &H01
  gosub Kommando
return

#LCD_GOTOLINE
  if Daten = 1 then Daten = &H80
  if Daten = 2 then Daten = &HC0
  goto Kommando

Alles hinter einem ' ist auskommentiert.
Jetzt klappt alles.
Nochmals vielen Dank.

MfG
xythobuz

[xythobuz]

Guten Abend.
Tut mir leid, dass ich mich so lange nicht mehr gemeldet habe, aber das Projekt RFID Zugangs Kontrolle macht schon langsam fortschritte
Der Code findet sich mittlerweile HIER.
Die Beschreibung findet sich im Code.

Auch die C-Control wurde zur M-Unit 2.0.

Allerdings treten bei mir neue Probleme auf, und ich hoffe bei euch auf Hilfe.
Zur M-Unit habe ich den USB-Programmer genommen, zwecks Programmieren am Einsatzort mit dem Laptop, wobei die Kommunikation mit der Ausleseeinheit immer noch per RS232 abläuft.
Darum habe ich eine kleine Schaltung mit einem MAX232N aufgebaut. Einen Schaltplan für Eagle habe ich im Anhang (ja, murks).
Nun funktioniert die Kommunikation über RS232 gar nicht, und die Kommunikation über USB funktioniert bei eingestecktem MAX232N zwar, aber wird immer nur 1 Byte übertragen, dann empfängt die C-Control nichts mehr, bis ich auf Reset und wieder auf Start drücke.

Nun finde ich im Internet auch kein Datenblatt für den MAX232N, weshalb ich nicht sicher bin, ob meine Kondensatorwerte stimmen.

Mit Hoffnung auf Hilfe von euch Profis
xythobuz

[sast]

http://www.alldatasheet.com/datashee...I/MAX232N.html

Wenn du an JP2 eine Brücke zwischen 9 und 10 machst, sollte jedes Zeichen, das über die RS232 zum MAX geschickt wird auch wieder zurückkommen. Es darf aber dann auch nichts anderes an 9 und 10 hängen außer der MAX232! Wenn da schon mal nichts kommt, dann ist wahrscheinlich die Verbindung vom Max zum PC oder was auch immer an der RS232 hängt verkehrt. In dem Fall tauschst du einfach mal 7 und 8.

Es gibt im Bezug auf die Kondensatoren an Pin 2 unterschiedliche Datenblätter. Bei TI wird der Kondensator gegen Masse geschaltet. Die andere Variante geht gegen VCC. Finde leide jetzt nicht die Quelle wo das andere Datenblatt her ist.

Was du als erstes Testen kannst, ist ob dein RS232 überhaupt an 7 und 8 vom RS232 ankommt, indem du dort eine Drahtbrücke einbaust anstelle des MAX. Hat der an 15 und 16 auch seine Versorgungsspannung anliegen? Manchmal hat man da einfach eine Verbindung vergessen.

sast

[xythobuz]

Howdy.
Vielen Dank für deine Hilfe, allerdings ist das noch gar nicht mein Problem.
Die C-Control M-Unit kann auch per USB Programmiert werden. Dafür gibt es oben auf der C-Control einen Anschluss.
Das funktioniert bei meiner Schaltung aber nur, wenn der MAX232 nicht eingesteckt ist.
Ob die RS232 Kommunikation funktioniert, habe ich bis jetzt noch gar nicht getestet.

MfG
xythobuz