????? ???


امتیاز موضوع:
  • 2 رأی - میانگین امتیازات: 3.5
  • 1
  • 2
  • 3
  • 4
  • 5
پروژه RFID با ماژول EM-18
نویسنده پیام
amkamkamk آفلاین
تازه وارد

ارسال‌ها: 8
موضوع‌ها: 0
تاریخ عضویت: July 2014

تشکرها : 4
( 1 تشکر در 1 ارسال )
ارسال: #23
RE: پروژه RFID با ماژول EM-18
اینم کدم برای نشون دادن کد کارت:
کد php:
$regfile "m8def.dat"
$crystal 8000000
$baud 
9600

Config Lcd 
16 2
Config Lcdpin 
Pin Db4 Portb.1 Db5 Portb.2 Db6 Portb.3 Db7 Portb.4 _
                        Rs 
Portd.2 Portd.3

Dim E 
As Byte As Byte
Dim C
(12)as String 1
Dim Code 
As String 10

Cursor Off


Do
   
Cls Lcd "<<insert Card>>" Wait 1


   Step1
:
      
Incr E
      C
(e) = Waitkey()
      If 
12 Then Goto Step1



   
For 3 To 12
      Incr P
      Mid
(code 1) = C(e)
   
Next


   E 
0
   Cls 
Lcd Code Wait 10

Loop 
اون جایی نوشته wait 1 جلوی insert card.این یعنی که بعد یک ثانیه کارت قبول کنه.حالا من که قبل یه ثانیه کارت رو بهش نزدیک میکنم و دور میکنم یه کد دیگه مینویسه تا موقعی که بعد از یه ثانیه کارت رو میگیرم.
شکل چیه؟ کدوم کد درسته؟
19-October-2014, 17:14:46
ارسال‌ها
پاسخ
robojalal آفلاین
همکار علمی سایت
**

ارسال‌ها: 161
موضوع‌ها: 1
تاریخ عضویت: September 2010

تشکرها : 123
( 465 تشکر در 145 ارسال )
ارسال: #24
RE: پروژه RFID با ماژول EM-18
(19-October-2014, 17:14:46)amkamkamk نوشته است: اینم کدم برای نشون دادن کد کارت:
کد php:
$regfile "m8def.dat"
$crystal 8000000
$baud 
9600

Config Lcd 
16 2
Config Lcdpin 
Pin Db4 Portb.1 Db5 Portb.2 Db6 Portb.3 Db7 Portb.4 _
                        Rs 
Portd.2 Portd.3

Dim E 
As Byte As Byte
Dim C
(12)as String 1
Dim Code 
As String 10

Cursor Off


Do
   
Cls Lcd "<<insert Card>>" Wait 1


   Step1
:
      
Incr E
      C
(e) = Waitkey()
      If 
12 Then Goto Step1



   
For 3 To 12
      Incr P
      Mid
(code 1) = C(e)
   
Next


   E 
0
   Cls 
Lcd Code Wait 10

Loop 
اون جایی نوشته wait 1 جلوی insert card.این یعنی که بعد یک ثانیه کارت قبول کنه.حالا من که قبل یه ثانیه کارت رو بهش نزدیک میکنم و دور میکنم یه کد دیگه مینویسه تا موقعی که بعد از یه ثانیه کارت رو میگیرم.
شکل چیه؟ کدوم کد درسته؟

ظاهرا مشکلی نداره
یه عکس از مدار ( پشت و رو ) بزار


در راه علم هیچ وقت نگید نمی تونیم ، همه چیز تونستنی هست و فقط کمی اراده میخواد ، که شما دارین .Cool
19-October-2014, 18:44:19
وب سایت ارسال‌ها
پاسخ
تشکر شده توسط : helma
amkamkamk آفلاین
تازه وارد

ارسال‌ها: 8
موضوع‌ها: 0
تاریخ عضویت: July 2014

تشکرها : 4
( 1 تشکر در 1 ارسال )
ارسال: #25
RE: پروژه RFID با ماژول EM-18
(19-October-2014, 18:44:19)robojalal نوشته است:
(19-October-2014, 17:14:46)amkamkamk نوشته است: اینم کدم برای نشون دادن کد کارت:
کد php:
$regfile "m8def.dat"
$crystal 8000000
$baud 
9600

Config Lcd 
16 2
Config Lcdpin 
Pin Db4 Portb.1 Db5 Portb.2 Db6 Portb.3 Db7 Portb.4 _
                        Rs 
Portd.2 Portd.3

Dim E 
As Byte As Byte
Dim C
(12)as String 1
Dim Code 
As String 10

Cursor Off


Do
   
Cls Lcd "<<insert Card>>" Wait 1


   Step1
:
      
Incr E
      C
(e) = Waitkey()
      If 
12 Then Goto Step1



   
For 3 To 12
      Incr P
      Mid
(code 1) = C(e)
   
Next


   E 
0
   Cls 
Lcd Code Wait 10

Loop 
اون جایی نوشته wait 1 جلوی insert card.این یعنی که بعد یک ثانیه کارت قبول کنه.حالا من که قبل یه ثانیه کارت رو بهش نزدیک میکنم و دور میکنم یه کد دیگه مینویسه تا موقعی که بعد از یه ثانیه کارت رو میگیرم.
شکل چیه؟ کدوم کد درسته؟

ظاهرا مشکلی نداره
یه عکس از مدار ( پشت و رو ) بزار
قبل اون کار. یه سوال.آیا امکان داره دربازکن ریموتی روی مدار من نویز بندازه و برای چند دقیقه اونو تقریبا از کار بندازه و درست شه؟
آخه زمانی که دربازکن کارتی من کار نمیکنه،خود به خود بعد یه مدت درست میشه.
20-October-2014, 00:05:54
ارسال‌ها
پاسخ
رسول آفلاین
ناظم کل انجمن
******

ارسال‌ها: 2,467
موضوع‌ها: 1
تاریخ عضویت: January 2010

تشکرها : 14275
( 19566 تشکر در 5836 ارسال )
ارسال: #26
RE: پروژه RFID با ماژول EM-18
فقط کافیه شما یه مقاومت بالاکش 10 کیلویی به پایه RX (پایه شماره 2 در مگا 8 ) میکرو وصل کنین تا مشکلتون حل بشه
20-October-2014, 14:50:51
ارسال‌ها
پاسخ
تشکر شده توسط : r0b0
amkamkamk آفلاین
تازه وارد

ارسال‌ها: 8
موضوع‌ها: 0
تاریخ عضویت: July 2014

تشکرها : 4
( 1 تشکر در 1 ارسال )
ارسال: #27
RE: پروژه RFID با ماژول EM-18
(20-October-2014, 14:50:51)رسول نوشته است: فقط کافیه شما یه مقاومت بالاکش 10 کیلویی به پایه RX (پایه شماره 2 در مگا 8 ) میکرو وصل کنین تا مشکلتون حل بشه
ُسلام. من پول آپ کردم با 10K ولی تغییری در کد دریافتی من نکرد!!!
رله رو لازمه (به جز درایور)پول آپ یا پول دان کنیم؟
20-October-2014, 17:20:56
ارسال‌ها
پاسخ
رسول آفلاین
ناظم کل انجمن
******

ارسال‌ها: 2,467
موضوع‌ها: 1
تاریخ عضویت: January 2010

تشکرها : 14275
( 19566 تشکر در 5836 ارسال )
ارسال: #28
RE: پروژه RFID با ماژول EM-18
پول آپی که گفتم باید این مشکلتونو حل کنه :

(19-October-2014, 16:50:30)amkamkamk نوشته است: من 20 تا کارت دارم ولی هموشونو دوعدد اولشونو و دو عدد اخرشونو 00 نشون میده.به نظر شما مشکل کجاست؟

نه برای رله هیچی لازم نیست .. فقط یه دیود هرز گرد واسش بذار
20-October-2014, 17:40:10
ارسال‌ها
پاسخ
تشکر شده توسط : r0b0
amkamkamk آفلاین
تازه وارد

ارسال‌ها: 8
موضوع‌ها: 0
تاریخ عضویت: July 2014

تشکرها : 4
( 1 تشکر در 1 ارسال )
ارسال: #29
RE: پروژه RFID با ماژول EM-18
(20-October-2014, 17:40:10)رسول نوشته است: پول آپی که گفتم باید این مشکلتونو حل کنه :

(19-October-2014, 16:50:30)amkamkamk نوشته است: من 20 تا کارت دارم ولی هموشونو دوعدد اولشونو و دو عدد اخرشونو 00 نشون میده.به نظر شما مشکل کجاست؟

نه برای رله هیچی لازم نیست .. فقط یه دیود هرز گرد واسش بذار
پول آپو گذاشتم ولی مشکل حل نشد.باز هم همون کد هارو نشون میده
20-October-2014, 18:42:47
ارسال‌ها
پاسخ
r0b0 آفلاین
مدیر بازنشسته
*****

ارسال‌ها: 2,023
موضوع‌ها: 4
تاریخ عضویت: August 2012

تشکرها : 11881
( 14769 تشکر در 4521 ارسال )
ارسال: #30
RE: پروژه RFID با ماژول EM-18
سلام
حسش نبود تاپیک های قبلی رو بخونم
شما یه جمع بندی از مشکلتون ارائه بدید ببینیم دردش چیه:)

کسی را توان ستاندن تصویر رویاهایم نیست؛
عهد کردم قبل از مرگم نمیرم . . .



امید عزیزی

بازار پروژه های الکترونیک و رباتیک در تلگرام [تصویر:  telegram_icon.png]


20-October-2014, 19:00:43
وب سایت ارسال‌ها
پاسخ
تشکر شده توسط : a.mehran
2Alborz آفلاین
تازه وارد

ارسال‌ها: 10
موضوع‌ها: 1
تاریخ عضویت: May 2008

تشکرها : 0
( 5 تشکر در 2 ارسال )
ارسال: #31
RE: پروژه RFID با ماژول EM-18
با سلا م لطفا یک نگاه به این کد بندازید ببینید مشکل کجاست

وقتی روشن می کنم رو صفحه این قسمت میاد Successful بعد هیچ تکی رو قبول نمی کنه

کد:
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
'-------------------------------------------------------------------------------
Config Lcdpin = Pin , Rs = Portc.5 , E = Portc.4 , Db4 = Portb.4 , Db5 = Portb.3 , Db6 = Portb.2 , Db7 = Portb.1
Config Lcd = 16 * 2
'-------------------------------------------------------------------------------
Dim E As Byte
Dim P As Byte
Dim C(12) As String * 1
Dim Code As String * 10



'Dim A As String * 10
Dim B As String * 10
'Dim C As String * 11
'Dim D As String * 10
Dim N As Byte
'******************************                                          '
'Enable Interrupts
'Enable Urxc
'On Urxc Step1
Cursor Off
'******************************
Config Portd.2 = Output
Config Pinc.2 = Input
Config Pinc.3 = Input
'******************************




'******************************
F:
Code = "Tak Cards"

Do
'==========================================
Cls
'******************************
Readeeprom B , 1
'******************************
If Pinc.2 = 1 Then Goto S
'******************************
If B = Code Then
Portd.2 = 1
Code = "Opened"
Locate 1 , 1
Lcd "Welcome:"
Locate 2 , 4
Lcd Code
Wait 2
Portd.2 = 0
Code = "tak Cards"
End If
'******************************
Locate 1 , 1
Lcd "<<insert Card>>"
Locate 2 , 4
Lcd Code
Waitms 600

Loop
End                                                        'end program
'******************************

   Step1:

Incr E

C(e) = Waitkey()

If E < 12 Then Goto Step1
For E = 3 To 12

Incr P

Mid(code , P , 1) = C(e)
Next

E = 0
P = 0


' Locate 2 , 1
'Lcd ; Code
'Waitms 400
'Input , Code
Return


'*****************************
S:
N = 1
Do

Cls
Locate 1 , 4
Lcd "Save user"
Locate 2 , 1
Lcd "(" ; N ; "):" ; Code

Waitms 600
If Pinc.2 = 1 Then
Writeeeprom Code , N
Cls
Code = "Successful"
End If
'******************************
If Pinc.3 = 1 Then Goto F
'******************************
Loop
(آخرین ویرایش در این ارسال: 29-May-2015, 22:23:52، توسط r0b0.)
29-May-2015, 19:19:59
ارسال‌ها
پاسخ
robojalal آفلاین
همکار علمی سایت
**

ارسال‌ها: 161
موضوع‌ها: 1
تاریخ عضویت: September 2010

تشکرها : 123
( 465 تشکر در 145 ارسال )
ارسال: #32
RE: پروژه RFID با ماژول EM-18
(29-May-2015, 19:19:59)2Alborz نوشته است: با سلا م لطفا یک نگاه به این کد بندازید ببینید مشکل کجاست

وقتی روشن می کنم رو صفحه این قسمت میاد Successful بعد هیچ تکی رو قبول نمی کنه

کد:
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
'-------------------------------------------------------------------------------
Config Lcdpin = Pin , Rs = Portc.5 , E = Portc.4 , Db4 = Portb.4 , Db5 = Portb.3 , Db6 = Portb.2 , Db7 = Portb.1
Config Lcd = 16 * 2
'-------------------------------------------------------------------------------
Dim E As Byte
Dim P As Byte
Dim C(12) As String * 1
Dim Code As String * 10



'Dim A As String * 10
Dim B As String * 10
'Dim C As String * 11
'Dim D As String * 10
Dim N As Byte
'******************************                                          '
'Enable Interrupts
'Enable Urxc
'On Urxc Step1
Cursor Off
'******************************
Config Portd.2 = Output
Config Pinc.2 = Input
Config Pinc.3 = Input
'******************************




'******************************
F:
Code = "Tak Cards"

Do
'==========================================
Cls
'******************************
Readeeprom B , 1
'******************************
If Pinc.2 = 1 Then Goto S
'******************************
If B = Code Then
Portd.2 = 1
Code = "Opened"
Locate 1 , 1
Lcd "Welcome:"
Locate 2 , 4
Lcd Code
Wait 2
Portd.2 = 0
Code = "tak Cards"
End If
'******************************
Locate 1 , 1
Lcd "<<insert Card>>"
Locate 2 , 4
Lcd Code
Waitms 600

Loop
End                                                        'end program
'******************************

   Step1:

Incr E

C(e) = Waitkey()

If E < 12 Then Goto Step1
For E = 3 To 12

Incr P

Mid(code , P , 1) = C(e)
Next

E = 0
P = 0


' Locate 2 , 1
'Lcd ; Code
'Waitms 400
'Input , Code
Return


'*****************************
S:
N = 1
Do

Cls
Locate 1 , 4
Lcd "Save user"
Locate 2 , 1
Lcd "(" ; N ; "):" ; Code

Waitms 600
If Pinc.2 = 1 Then
Writeeeprom Code , N
Cls
Code = "Successful"
End If
'******************************
If Pinc.3 = 1 Then Goto F
'******************************
Loop

سلام دوست گرامی
شما هیچ جای برنامه step1 فراخونی نکردی
برای همین اصلا کارتتو شناسایی نمیکنه

نظر من اینه که بعد از دستور readeeprom B , 1
دستور goto step1 بزار درست میشه
روال کار هم بدین صورت میشه که، ابتدا کارت خونده میشه
بعد از خوندن کارت اگر کلید pinc.2 رو داشته باشی ، کارتت ذخیره میشه (سعی کن در زمان خوندن کارت کلید رو نگه داشته باشی تا 1ثانیه بعد از خوندن کارت، تا ذخیره شه).
وبعد از ذخیره سازی چک میکنه کارتی که کشیده شده قبلا ذخیره بوده یا نه

برنامه رو ساده کردم و برات گذاشتم

موفق باشی ....

کد:
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
'-------------------------------------------------------------------------------
Config Lcdpin = Pin , Rs = Portc.5 , E = Portc.4 , Db4 = Portb.4 , Db5 = Portb.3 , Db6 = Portb.2 , Db7 = Portb.1
Config Lcd = 16 * 2
'-------------------------------------------------------------------------------
Dim E As Byte
Dim P As Byte
Dim C(12) As String * 1
Dim Code As String * 10
Dim B As String * 10
Dim N As Byte
'******************************                                          '
Cls
cursor Off
'******************************
Config Portd.2 = Output
Config Pinc.2 = Input
Config Pinc.3 = Input
'******************************
F:
Code = ""
Do
   Cls
   Readeeprom B , 1
   Locate 1 , 1
   Lcd "<<Insert Card>>"

   Goto Step1

   Locate 2 , 4
   Lcd Code
   Waitms 500

   If Pinc.2 = 1 Then Goto S

   If B = Code Then
      Portd.2 = 1
      Locate 1 , 1
      Lcd "Welcome:"
      Locate 2 , 4
      Lcd "Opened"
      Wait 2
      Portd.2 = 0
      Cls
   End If


   Code = ""

Loop
End                                                        'end program
'******************************
Step1:
Incr E
C(e) = Waitkey()
If E < 12 Then Goto Step1
For E = 3 To 12
Incr P
Mid(code , P , 1) = C(e)
Next

E = 0
P = 0
Return
'*****************************
S:
N = 1
Do
   Cls
   Locate 1 , 4
   Lcd "Save User:"
   Locate 2 , 1
   Lcd "(" ; N ; "):" ; Code
   Writeeeprom Code , N

   Wait 1
   Cls
   Locate 1 , 2
   Lcd "<<Successful>>"
   Waitms 500

   Goto F
Loop


در راه علم هیچ وقت نگید نمی تونیم ، همه چیز تونستنی هست و فقط کمی اراده میخواد ، که شما دارین .Cool
02-June-2015, 03:05:42
وب سایت ارسال‌ها
پاسخ
تشکر شده توسط : r0b0
2Alborz آفلاین
تازه وارد

ارسال‌ها: 10
موضوع‌ها: 1
تاریخ عضویت: May 2008

تشکرها : 0
( 5 تشکر در 2 ارسال )
ارسال: #33
RE: پروژه RFID با ماژول EM-18
(02-June-2015, 03:05:42)تونستم راش بندازم لطفا کمک کنید بتونم تعدادتک بیشتری بهش بشناسونم وتک هارو   حذف کنم نوشته است:
کد:
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
'-------------------------------------------------------------------------------
Config Lcdpin = Pin , Rs = Portc.5 , E = Portc.4 , Db4 = Portb.4 , Db5 = Portb.3 , Db6 = Portb.2 , Db7 = Portb.1
Config Lcd = 16 * 2
'-------------------------------------------------------------------------------

Dim E As Byte , P As Byte
Dim C(12)as String * 1
Dim Code As String * 10

Dim B As String * 10
Dim N As Byte
Dim I_eerom As Eram Byte
'******************************                                          '
Cls
Cursor Off
'******************************
Door_open Alias Portd.2
'Config Portd.2 = Output
Config Pinc.2 = Input
Config Pinc.3 = Input
'******************************
 Declare Sub F
  Declare Sub S
'******************************

Do
   Cls : Lcd "<<insert Card>>" : Wait 1


   Step1:
      Incr E
      C(e) = Waitkey()
      If E < 12 Then Goto Step1



   For E = 3 To 12
      Incr P
      Mid(code , P , 1) = C(e)
   Next


   E = 0 : P = 0
   'Cls : Lcd Code : Wait 4
'Goto F
Gosub F
'Return
Loop
'******************************************

Sub F
 'Code = " "

'Do

   Cls
 Readeeprom B , 1

  If Pinc.2 = 1 Then Gosub S

  Locate 2 , 4
Lcd Code
 'Wait 4
 Waitms 500


   Cls
   If B = Code Then
      Door_open = 1
      Locate 1 , 1
      Lcd "Welcome:"
      Locate 2 , 4
      Lcd "Opened"
      Wait 2
      Door_open = 0
      Cls
   End If


   'Code = ""

'Loop
'End
 End Sub
'*****************************
 Sub S
N = 1
'Do
Cls
Locate 1 , 4
Lcd "Save user"
Locate 2 , 1
Lcd "(" ; N ; "):" ; Code
Waitms 600
If Pinc.2 = 1 Then
Writeeeprom Code , N                                        'ÂÏÑÓ ÎÇäå ÍÇÝÙå ãæÑÏ äÙÑ ÈÑÇí ÎæäÏä n

Cls
Code = "Successful"
End If
'******************************
'If Pinc.3 = 1 Then Goto F
'
  Return
'******************************
'Loop
End Sub
14-May-2016, 19:20:44
ارسال‌ها
پاسخ


موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  [پروژه] [پروژه] IMU شش درجه آزادی با MPU6050 salehjg 1 6,844 26-July-2016, 19:15:13
آخرین ارسال: salehjg
Question تشخیص پلاک خودرو با پردازش تصویر (پروژه کامل) طار 60 68,521 09-April-2016, 15:53:06
آخرین ارسال: marvi
  پروژه های عملی h0x00i 9 20,621 17-February-2016, 12:24:53
آخرین ارسال: sroushimanian
  پروژه ارتباط سریال AVR با hyper terminal و matlab و Labview 2nafar 13 31,871 26-December-2014, 20:15:19
آخرین ارسال: biner
  آموزش راه اندازی و استفاده از ماژول em_18 mostafa_naderi 13 14,717 21-July-2014, 02:12:30
آخرین ارسال: amkamkamk
  راه اندازی ماژول فرستنده گیرنده بیسیم ha_60 9 24,083 19-July-2014, 13:18:58
آخرین ارسال: ziafat
  پروژه شارژر همراه با پورت usb r0b0 4 8,847 13-April-2013, 22:15:41
آخرین ارسال: r0b0

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 1 مهمان

صفحه‌ی تماس | IranVig | بازگشت به بالا | | بایگانی | پیوند سایتی RSS