 |
www.elektronik.si
Forum o elektrotehniki in računalništvu
|
| Poglej prejšnjo temo :: Poglej naslednjo temo |
| Avtor |
Sporočilo |
Sniper001
Član
Pridružen-a: Sre 27 Okt 2010 14:31
Prispevkov: 132
Aktiv.: 0.74
Kraj: Izlake
|
 Objavljeno: Pon Dec 27, 2010 12:29 pm Naslov sporočila: EM4095 RFID reader |
 |
|
Zdravo!
Kar nekaj časa že iščem po spletno trgovino kjer bi prodajali čipe em4095. Ali je že kdo kdaj kupoval ta čip in kje ga je dobil.
LP Nino
P.S. Če pa lahko kdo preko svoje firme kupi pa se priporočam. Gre samo za 10 komadov.
_________________
https://sites.google.com/site/ninorazpotnik/ |
|
| Nazaj na vrh |
|
 |
klemen88
Član
Pridružen-a: Tor 01 Jan 2008 17:37
Prispevkov: 747
Aktiv.: 3.51
Kraj: Slovenj Gradec
|
| Objavljeno: Pon Dec 27, 2010 12:40 pm Naslov sporočila: |
|
|
Malo sem pogledal na farnell in druge spletne trgovine vendar jih nisem našel. Našel sem jih pa na ebay-u.
ebay |
|
| Nazaj na vrh |
|
|
Sniper001
Član
Pridružen-a: Sre 27 Okt 2010 14:31
Prispevkov: 132
Aktiv.: 0.74
Kraj: Izlake
|
|
| Nazaj na vrh |
|
|
Peter123
Član
Pridružen-a: Tor 13 Jan 2009 15:34
Prispevkov: 1441
Aktiv.: 7.20
Kraj: Lj.
|
| Objavljeno: Pon Dec 27, 2010 2:16 pm Naslov sporočila: |
|
|
[quote="Sniper001"]To sem opazil, vendar nimam Paypal računa in še nisem kupoval na ebay-u.[/quote]
Tudi mene bi zanimala zadeva.
Lahko sprovedem nakup na ebayu.
Moram edino pogledat kako komunicira z CPU. na data sheetu (sem ga samo preletel) ne najdem protokola. |
|
| Nazaj na vrh |
|
|
Sniper001
Član
Pridružen-a: Sre 27 Okt 2010 14:31
Prispevkov: 132
Aktiv.: 0.74
Kraj: Izlake
|
| Objavljeno: Pon Dec 27, 2010 2:50 pm Naslov sporočila: |
|
|
jaz imam že izdelano ploščo za ta ic. Umesnik priklopim na AVR-jev mikroprocesor na 3 pine. Koda pa se dobi tudi na internetu.
_________________
https://sites.google.com/site/ninorazpotnik/ |
|
| Nazaj na vrh |
|
|
Peter123
Član
Pridružen-a: Tor 13 Jan 2009 15:34
Prispevkov: 1441
Aktiv.: 7.20
Kraj: Lj.
|
| Objavljeno: Pon Dec 27, 2010 6:28 pm Naslov sporočila: |
|
|
| Če ni skrivnost, lahko posreduješ kak link do kode. |
|
| Nazaj na vrh |
|
|
Sniper001
Član
Pridružen-a: Sre 27 Okt 2010 14:31
Prispevkov: 132
Aktiv.: 0.74
Kraj: Izlake
|
| Objavljeno: Pon Dec 27, 2010 7:00 pm Naslov sporočila: |
|
|
Našel sem na MCS electronics pod Bascom AVR help >RFID>search.
Koda:
| Koda: |
'-------------------------------------------------------------------------------
' (c) 1995-2008 MCS Electronics
' This sample will read a HITAG chip based on the EM4095 chip
' Consult EM4102 and EM4095 datasheets for more info
'-------------------------------------------------------------------------------
' The EM4095 was implemented after an idea of Gerhard Günzel
' Gerhard provided the hardware and did research at the coil and capacitors.
' The EM4095 is much simpler to use than the HTRC110. It need less pins.
' A reference design with all parts is available from MCS
'-------------------------------------------------------------------------------
$regfile = "M88def.dat"
$baud = 19200
$crystal = 8000000
$hwstack = 40
$swstack = 40
$framesize = 40
Declare Function Havetag(b As Byte ) As Byte
'Make SHD and MOD low
_md Alias Portd.4
Config _md = Output
_md = 0
_shd Alias Portd.5
Config _shd = Output
_shd = 0
Relay Alias Portd.2
Config Relay = Output
S3 Alias Pinb.0
S2 Alias Pinb.2
S1 Alias Pinb.1
Portb = &B111 ' these are all input pins and we activate the pull up resistor
Config Clock = Soft 'we use a clock
Config Date = Dmy , Separator = -
Enable Interrupts ' the clock and RFID code need the int
Date$ = "15-12-07" ' just a special date to start with
Time$ = "00:00:00"
'Config Lcd Sets The Portpins Of The Lcd
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Config Lcd = 16 * 2 '16*2 type LCD screen
Cls
Lcd " EM4095 sample"
Lowerline : Lcd "MCS Electronics"
Dim Tags(5) As Byte 'make sure the array is at least 5 bytes
Dim J As Byte , Idx As Byte
Dim Eramdum As Eram Byte ' do not use first position
Dim Etagcount As Eram Byte ' number of stored tags
Dim Etags(100) As Eram Byte 'room for 20 tags
Dim Stags(100) As Byte 'since we have enough SRAM store them in sram too
Dim Btags As Byte , Tmp1 As Byte , Tmp2 As Byte
Dim K As Byte , Tel As Byte , M As Byte
Config Hitag = 64 , Type = Em4095 , Demod = Pind.3 , Int = @int1
Print "EM4095 sample"
'you could use the PCINT option too, but you must mask all pins out so it will only respond to our pin
' Pcmsk2 = &B0000_0100
' On Pcint2 Checkints
' Enable Pcint2
On Int1 Checkints Nosave 'we use the INT1 pin all regs are saved in the lib
Config Int1 = Change 'we have to config so that on each pin change the routine will be called
Enable Interrupts 'as last we have to enable all interrupts
'read eeprom and store in sram
'when the program starts we read the EEPROM and store it in SRAM
For Idx = 1 To 100 'for all stored tags
Stags(idx) = Etags(idx)
Print Hex(stags(idx)) ; ",";
Next
Btags = Etagcount ' get number of stored tags
If Btags = 255 Then ' an empty cell is FF (255)
Print "No tags stored yet"
Btags = 0 : Etagcount = Btags ' reset and write to eeprom
Else ' we have some tags
For J = 1 To Btags
Tmp2 = J * 5 'end
Tmp1 = Tmp2 - 4 'start
Print "RFID ; " ; J ' just for debug
For Idx = Tmp1 To Tmp2
Print Hex(stags(idx)) ; ",";
Next
Print
Next
End If
Do
Print "Check..."
Upperline : Lcd Time$ ; " Detect"
If Readhitag(tags(1)) = 1 Then 'this will enable INT1
Lowerline
For J = 1 To 5
Print Hex(tags(j)) ; ",";
Lcd Hex(tags(j)) ; ","
Next
M = Havetag(tags(1)) 'check if we have this tag already
If M > 0 Then
Print "Valid TAG ;" ; M
Relay = 1 'turn on relay
Waitms 2000 'wait 2 secs
Relay = 0 'relay off
End If
Print
Else
Print "Nothing"
End If
If S3 = 0 Then 'user pressed button 3
Print "Button 3"
Cls : Lcd "Add RFID"
Do
If Readhitag(tags(1)) = 1 Then 'this will enable INT1
If Havetag(tags(1)) = 0 Then 'we do not have it yet
If Btags < 20 Then 'will it fit?
Incr Btags 'add one
Etagcount = Btags
Idx = Btags * 5 'offset
Idx = Idx - 4
Lowerline
For J = 1 To 5
Lcd Hex(tags(j)) ; ","
Stags(idx) = Tags(j)
Etags(idx) = Tags(j)
Incr Idx
Next
Cls
Lcd "TAG stored" : Waitms 1000
End If
End If
Exit Do
End If
Loop
End If
If S2 = 0 Then
Print "Button 2"
End If
If S1 = 0 Then
Print "Button 1"
End If
Waitms 500
Loop
'check to see if a tag is stored already
'return 0 if not stored
'return value 1-20 if stored
Function Havetag(b As Byte ) As Byte
Print "Check if we have TAG : ";
For K = 1 To 5
Print Hex(b(k)) ; ","
Next
For K = 1 To 20
Tmp2 = K * 5 'end addres
Tmp1 = Tmp2 - 4 'start
Tel = 0
For Idx = Tmp1 To Tmp2
Incr Tel
If Stags(idx) <> B(tel) Then 'if they do not match
Exit For 'exit and try next
End If
Next
If Tel = 5 Then 'if we did found 5 matching bytes we have a match
Print "We have one"
Havetag = K 'set index
Exit Function
End If
Next
Havetag = 0 'assume we have nothing yet
End Function
Checkints:
Call _checkhitag 'in case you have used a PCINT, you could have other code here as well
Return |
LP Nino
_________________
https://sites.google.com/site/ninorazpotnik/ |
|
| Nazaj na vrh |
|
|
program_er
Član
Pridružen-a: Sob 08 Mar 2008 13:47
Prispevkov: 2173
Aktiv.: 10.33
Kraj: Maribor (Pohorje)
|
| Objavljeno: Pon Dec 27, 2010 10:39 pm Naslov sporočila: |
|
|
Jaz sem se kar nekaj časa zafrkaval s tem čipom in si tudi naredil skoraj indentično plato telje MCSjevi, vendar mi stvar noče delat 
Nato sem pred kratkim naročil tole UART zadevščino. Glede na specifikacije je super, ko bo pa prispela, jo bom pa stestiral. |
|
| Nazaj na vrh |
|
|
Sniper001
Član
Pridružen-a: Sre 27 Okt 2010 14:31
Prispevkov: 132
Aktiv.: 0.74
Kraj: Izlake
|
| Objavljeno: Tor Dec 28, 2010 9:43 am Naslov sporočila: |
|
|
Jaz sem si tudi izdelal ploščo po MCS-jevem načrtu ter sam navil tuljavo in mi čisto lepo dela, na začetku ni delovalo a sem ugotovil, da je bila napaka samo v fuse bitih :S
Dobra zadeva tale uart, pa še poceni.
LP Nino
_________________
https://sites.google.com/site/ninorazpotnik/ |
|
| Nazaj na vrh |
|
|
vilko
Član
Pridružen-a: Pet 13 Feb 2004 10:26
Prispevkov: 3361
Aktiv.: 14.18
Kraj: Dragomer
|
| Objavljeno: Tor Dec 28, 2010 10:58 am Naslov sporočila: |
|
|
| Hm, maksimalna razdalja da rfid prebere čip 7 cm. Ali je to dovolj? |
|
| Nazaj na vrh |
|
|
Sniper001
Član
Pridružen-a: Sre 27 Okt 2010 14:31
Prispevkov: 132
Aktiv.: 0.74
Kraj: Izlake
|
| Objavljeno: Tor Dec 28, 2010 11:06 am Naslov sporočila: |
|
|
Odvisno za kaj potrebuješ ampak načeloma je dovolj 7cm. Vedno približabo bralne enote le na kakšen centimeter.
LP Nino
P.S. Če se bo kdo odločil za nakup čipov se priporočam.
_________________
https://sites.google.com/site/ninorazpotnik/ |
|
| Nazaj na vrh |
|
|
watts
Član
Pridružen-a: Sob 06 Nov 2010 17:59
Prispevkov: 422
Aktiv.: 2.37
Kraj: Knežak
|
| Objavljeno: Tor Dec 28, 2010 1:25 pm Naslov sporočila: |
|
|
Mi imamo (sicer verjetno kak "made in china") RFID čitalec v šoli, za "štampiranje" malice, stvar deluje sicer za "tren oka" (takoj) na razdalji do 10cm, saj več ne rabiš, saj verjetno nočeš, da se ti zaradi prekomerne gneče pred čitalcem prebere več kot ena koda... (ali pa da kdo potegne prehitro in se potem čitalec zmede, se mi je že zgodilo  ) |
|
| Nazaj na vrh |
|
|
vilko
Član
Pridružen-a: Pet 13 Feb 2004 10:26
Prispevkov: 3361
Aktiv.: 14.18
Kraj: Dragomer
|
| Objavljeno: Tor Dec 28, 2010 1:29 pm Naslov sporočila: |
|
|
| watts je napisal/a: |
| Mi imamo (sicer verjetno kak "made in china") RFID čitalec v šoli, za "štampiranje" malice, stvar deluje sicer za "tren oka" (takoj) na razdalji do 10cm, saj več ne rabiš, saj verjetno nočeš, da se ti zaradi prekomerne gneče pred čitalcem prebere več kot ena koda... (ali pa da kdo potegne prehitro in se potem čitalec zmede, se mi je že zgodilo ) |
Ja, točno, odvisno od namena. Imel sem v mislih odpiranje garažne rolete. Tam bi bilo fajn, da bi kar iz avta odprl roleto. No sicer pa so v ta namen tudi drugačni daljinci. |
|
| Nazaj na vrh |
|
|
watts
Član
Pridružen-a: Sob 06 Nov 2010 17:59
Prispevkov: 422
Aktiv.: 2.37
Kraj: Knežak
|
| Objavljeno: Tor Dec 28, 2010 5:36 pm Naslov sporočila: |
|
|
potem si napelješ pred garažna vrata (2 ali 3m proč) majhen količek z čitalcem noter, da se samo stegneš iz avta do 10cm in "poštampiraš", dodaš še lahko predvajanje zvoka v kuhinji "LUCY! I'm home!"  |
|
| Nazaj na vrh |
|
|
hahalolek
Član
Pridružen-a: Sob 29 Maj 2010 11:49
Prispevkov: 199
Aktiv.: 1.09
Kraj: Domžale
|
| Objavljeno: Ned Feb 17, 2013 2:00 pm Naslov sporočila: |
|
|
Ali ima kdo kakšno sliko ki prikazuje stanje med rdy/clk in med DEMOD_OUT signaloma. Na internetu nisem našel nič pametnega, osciloskopa pa tudi nimam.
_________________
Lp Blaž
Prvi poklic na svetu je bil električar. Še preden je bog rekel naj bo luč, so oni že kable napeljevali. |
|
| Nazaj na vrh |
|
|
|
|
Ne, ne moreš dodajati novih tem v tem forumu
Ne, ne moreš odgovarjati na teme v tem forumu
Ne, ne moreš urejati svojih prispevkov v tem forumu
Ne, ne moreš brisati svojih prispevkov v tem forumu
Ne ne moreš glasovati v anketi v tem forumu
Ne, ne moreš pripeti datotek v tem forumu
Ne, ne moreš povleči datotek v tem forumu
|
Uptime: 495 dni
Powered by phpBB © 2001, 2005 phpBB Group
|
Pomoč
Išči
Seznam članov
Skupine
Statistika
Album
Filemanager
Registriraj se
Priponke
Koledar
Tvoj profil
Prijava
