[از من یاد بگیرید] سورس صنعتی درب بازکن RFID یا RFID Access Control

[eca.engineer]

پاسخ : [از من یاد بگیرید] سورس صنعتی درب بازکن RFID یا RFID Access Control

سلام
جناب آراسته ببخشید من سه هفته است که درگیر این مدار هستم
تمام فیوز بیت ها از موارد مربوط به کریستال خارجی و رجیستر مربوط به حافظه EEPROM میکرو را گرفته تا حتی آی دی صحیح کارتی که خریداری کرده بودم را اصلاح کردم ولی از نحوه عملکرد برد نتیجه ای نگرفتم
لطفا پاسخ بدین، هزینه ی زیادی تو این وضعیت کردم
البته اگر دوباره سوالی که می کنم توسط ناظم سایت پاک نشه

[feshwari]

پاسخ : [از من یاد بگیرید] سورس صنعتی درب بازکن RFID یا RFID Access Control

با سلام. من هم تمام کار ها رو انجام دادم ئلی نتیجه ای نگرفتم. لطفا در نحوه راه اندازی مدار توضیح دهید. ما هزینه کردیم و وقت گذاشتیم.

[Farshid.Parvari]

پاسخ : [از من یاد بگیرید] سورس صنعتی درب بازکن RFID یا RFID Access Control

چرا بیشتر افراد از کامپایلر کد ویژن استفاده می کنن؟
سورس کد بسکام برای این پروژه ندارید؟

[eca.engineer]

پاسخ : [از من یاد بگیرید] سورس صنعتی درب بازکن RFID یا RFID Access Control

سلام جناب آراسته
لطفا در خصوص سوالی که برای چند نفر پیش آمده راهنمایی بفرمایید
ممنون

[feshwari]

پاسخ : [از من یاد بگیرید] سورس صنعتی درب بازکن RFID یا RFID Access Control

با سلام خدمت دوست گرامی. بابت فایل و برنامه پروژه صنعتی در بازکن RFID واقعا ممنون هستیم. ولی در مورد راه اندازی دستگاه توضیحاتی ندادین. من الان 2 ماه هست که مدار رو ساختم ولی نمی توانم راه اندازیش کنم. در مورد کارت مادر و نحوه اضافه کردن کارت جدید و حذف کارت باید چکار کنیم. در برنامه یک کد 10 بیتی هست. به نظرم باید اون کد با کد کارتی که خریداری کردیم رو عوض کنیم و برنامه رو دوباره کامپایل کنیم درسته؟
منتظر اموزش شما هستیم.
با تشکر
محمد شرفی

[feshwari]

پاسخ : [از من یاد بگیرید] سورس صنعتی درب بازکن RFID یا RFID Access Control

با عرض سلام خدمت مدیر گروه. من و بعضی از دوستان این مدار RFID صنعتی رو ساختیم. چرا آقای سوران به صورت کامل توضیح ندادن تا پروژه ما زمین بمونه. لطفا به آقای سوران اطلاع دهید. با تشکر محمد شرفی

[digitalmaniran]

پاسخ : [از من یاد بگیرید] سورس صنعتی درب بازکن RFID یا RFID Access Control

با سلام. چرا آقای سوران جواب نمی دهد؟ ما 4 ماه درگیر این پروژه هستیم. یکی بهش اطلاع بده لطفا

[feshwari]

پاسخ : [از من یاد بگیرید] سورس صنعتی درب بازکن RFID یا RFID Access Control

با سلام خدمت مدیر گروه. لطفا پیگیر باشین. ما برای این پروژه وقت گذاشتیم هزینه کردیم. چرا آقای سوران جواب سوال های ما و دوستان را نمی دهند.

[hose in]

Re: [از من یاد بگیرید] سورس صنعتی درب بازکن RFID یا RFID Access Control

درود بر دوستان گرامی
به نظر بنده شاید خدای ناکرده برای جناب سوران مشکلی بوجود آمده باشد
امیدوارم سلامت و پایدار باشند
من پیشنهاد میدم دوستانی که کلی وقت گذاشتن و هزیکه کردن خودشون در همین تاپیک با همفکری هم پروژه رو تکمیل کنن

ناگفته نمونه امروز کل پستها رو مطالعه نمودم ولی واقعا هیچی نفهمیدم
فقط فهمیدم احتمالا یک برد درب باز کن میباشد
و اینکه کار و کاراییش چیه و موقعیت استفادش کجاست هیچی نفهمیدم

[feshwari]

پاسخ : Re: [از من یاد بگیرید] سورس صنعتی درب بازکن RFID یا RFID Access Control

با سلام خدمت مدیر محترم. لطفا به اقای سوران تماس بگیرین تا پروژه ای که گذاشتن رو تکمیل کنن. هم هزینه کردم و هم وقت گذاشتم.

دلیل: ادغام دو پست برای جلوگیری از اسپم

با سلام خدمت مدیر محترم. لطفا به اقای سوران تماس بگیرین تا پروژه ای که گذاشتن رو تکمیل کنن. هم هزینه کردم و هم وقت گذاشتم.

[2alborz]

پاسخ : [از من یاد بگیرید] سورس صنعتی درب بازکن RFID یا RFID Access Control

باسلام من اینو چند سال پیش ساختم الانم رودر نصبه تا الان بدون مشکل کار میکنه ببینید به کارتون میاد
$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


Config Portd.4 = Output
Buzzer Alias Portd.4
Config Portb.1 = Output
LED Alias Portb.1
Config Portb.0 = Output
Config Portd.6 = Input
Config Portd.7 = Input


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


Dim Num_check(20) As Eram Byte
Dim Carts(20) As Eram String * 10
Dim Num_check2(20) As Byte
Dim Carts2(20) As String * 10
Dim A As String * 10 , I As Byte , K As Byte , Checkbit As Bit
Do
Portb.0 = 0
Checkbit = 0




If Pind.7 = 1 Then
For K = 1 To 20 Step 1
Num_check(k) = 0
Carts(k) = ""
Next K
End If


For K = 1 To 20 Step 1
Num_check2(k) = Num_check(k)
Carts2(k) = Carts(k)
Next K
K = 0


'Cls
Led = 1 '
''Lcd "tag"
Wait 1
Goto Step1
Loop






Step1:
Incr E
C(e) = Waitkey()
If E < 12 Then Goto Step1
For E = 3 To 12
Incr P
Mid(a , P , 1) = C(e)
Next
E = 0 : P = 0
'Cls : Lcd A :
'Wait 1


If Pind.6 = 1 Then
For K = 1 To 20 Step 1
If Num_check2(k) = 1 Then
If Carts2(k) = A Then
K = 20
Sound Buzzer , 120 , 400
Led = 1
'
'tekrari
Wait 1
Led = 0


Checkbit = 1
End If
End If
Next K
If Checkbit = 0 Then
For K = 1 To 20 Step 1
If Num_check2(k) = 0 Then
Carts2(k) = A
Carts(k) = A
Num_check2(k) = 1
Num_check(k) = 1
K = 20
Sound Buzzer , 400 , 200 '
'Lcd "save"
'Wait 1


End If
Next K
End If
End If


If Pind.7 = 1 Then
For K = 1 To 20 Step 1
If Num_check2(k) = 1 Then
If Carts2(k) = A Then
Num_check2(k) = 0
Num_check(k) = 0
K = 20
Sound Buzzer , 120 , 700
Led = 1 '
'Lcd "delet t"
Wait 1
Led = 0
End If
End If
Next K
End If
For K = 1 To 20 Step 1
If Num_check2(k) = 1 Then
If Carts2(k) = A Then
K = 20


Sound Buzzer , 70 , 600
Portb.0 = 1
Led = 1
'Cls '
'Lcd "open"
'Wait 1


Waitms 200
End If
End If
Next K
' Bitwait Pind.2 , Reset


Portb.0 = 0
Led = 0


Return

دلیل: ادغام دو پست برای جلوگیری از اسپم

باسلام من اینو چند سال پیش ساختم الانم رودر نصبه تا الان بدون مشکل کار میکنه ببینید به کارتون میاد
$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


Config Portd.4 = Output
Buzzer Alias Portd.4
Config Portb.1 = Output
LED Alias Portb.1
Config Portb.0 = Output
Config Portd.6 = Input
Config Portd.7 = Input


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


Dim Num_check(20) As Eram Byte
Dim Carts(20) As Eram String * 10
Dim Num_check2(20) As Byte
Dim Carts2(20) As String * 10
Dim A As String * 10 , I As Byte , K As Byte , Checkbit As Bit
Do
Portb.0 = 0
Checkbit = 0




If Pind.7 = 1 Then
For K = 1 To 20 Step 1
Num_check(k) = 0
Carts(k) = ""
Next K
End If


For K = 1 To 20 Step 1
Num_check2(k) = Num_check(k)
Carts2(k) = Carts(k)
Next K
K = 0


'Cls
Led = 1 '
''Lcd "tag"
Wait 1
Goto Step1
Loop






Step1:
Incr E
C(e) = Waitkey()
If E < 12 Then Goto Step1
For E = 3 To 12
Incr P
Mid(a , P , 1) = C(e)
Next
E = 0 : P = 0
'Cls : Lcd A :
'Wait 1


If Pind.6 = 1 Then
For K = 1 To 20 Step 1
If Num_check2(k) = 1 Then
If Carts2(k) = A Then
K = 20
Sound Buzzer , 120 , 400
Led = 1
'
'tekrari
Wait 1
Led = 0


Checkbit = 1
End If
End If
Next K
If Checkbit = 0 Then
For K = 1 To 20 Step 1
If Num_check2(k) = 0 Then
Carts2(k) = A
Carts(k) = A
Num_check2(k) = 1
Num_check(k) = 1
K = 20
Sound Buzzer , 400 , 200 '
'Lcd "save"
'Wait 1


End If
Next K
End If
End If


If Pind.7 = 1 Then
For K = 1 To 20 Step 1
If Num_check2(k) = 1 Then
If Carts2(k) = A Then
Num_check2(k) = 0
Num_check(k) = 0
K = 20
Sound Buzzer , 120 , 700
Led = 1 '
'Lcd "delet t"
Wait 1
Led = 0
End If
End If
Next K
End If
For K = 1 To 20 Step 1
If Num_check2(k) = 1 Then
If Carts2(k) = A Then
K = 20


Sound Buzzer , 70 , 600
Portb.0 = 1
Led = 1
'Cls '
'Lcd "open"
'Wait 1


Waitms 200
End If
End If
Next K
' Bitwait Pind.2 , Reset


Portb.0 = 0
Led = 0


Return

[talebyfar]

پاسخ : [از من یاد بگیرید] سورس صنعتی درب بازکن RFID یا RFID Access Control

سلام دوستان
من برنامه زیر رو نوشتم ولی مشکلش اینجاس که وقتی پورت b.7 روشن میشه دیگه کلید های دیگه کار نمیکنه
Config Portc = Output
Config Pinb.7 = Output
Config Portb.4 = Input
Config Debounce = 30
Do

Debounce Pinb.0 , 1 , St , Sub
Debounce Pinb.1 , 1 , Re , Sub
Debounce Pinb.4 , 1 ,mo , Sub

Loop
End

St:
Set Portc.0
Return

Re:
Reset Portc.0
Return

mo:
set portb.7
waitms 5000
resetportb.7
return

دلیل: ادغام دو پست برای جلوگیری از اسپم

سلام دوستان
من برنامه زیر رو نوشتم ولی مشکلش اینجاس که وقتی پورت b.7 روشن میشه دیگه کلید های دیگه کار نمیکنه
Config Portc = Output
Config Pinb.7 = Output
Config Portb.4 = Input
Config Debounce = 30
Do

Debounce Pinb.0 , 1 , St , Sub
Debounce Pinb.1 , 1 , Re , Sub
Debounce Pinb.4 , 1 ,mo , Sub

Loop
End

St:
Set Portc.0
Return

Re:
Reset Portc.0
Return

mo:
set portb.7
waitms 5000
resetportb.7
return
ممنون از کمک شما
l

[talebyfar]

پاسخ : [از من یاد بگیرید] سورس صنعتی درب بازکن RFID یا RFID Access Control

سلام دوستان
من برنامه زیر رو نوشتم ولی مشکلش اینجاس که وقتی پورت b.7 روشن میشه دیگه کلید های دیگه کار نمیکنه
Config Portc = Output
Config Pinb.7 = Output
Config Portb.4 = Input
Config Debounce = 30
Do

Debounce Pinb.0 , 1 , St , Sub
Debounce Pinb.1 , 1 , Re , Sub
Debounce Pinb.4 , 1 ,mo , Sub

Loop
End

St:
Set Portc.0
Return

Re:
Reset Portc.0
Return

mo:
set portb.7
waitms 5000
resetportb.7
return
ممنون از هم
l

دلیل: ادغام دو پست برای جلوگیری از اسپم

سلام من یکی ساخته شده با 100 تاکارت شو بخوام قیهمت چند

[talebyfar]

پاسخ : [از من یاد بگیرید] سورس صنعتی درب بازکن RFID یا RFID Access Control

سلام
من برد مونتاژ شده کامل با 100تا کارتشو بخام چند در میاد

[talebyfar]

پاسخ : [از من یاد بگیرید] سورس صنعتی درب بازکن RFID یا RFID Access Control

سلام
من برد مونتاژ شده کامل با 100تا کارتشو بخام چند در میاد

دلیل: ادغام دو پست برای جلوگیری از اسپم

سلام من برد مونتاژ شده کامل با 100تا کارتشو بخام چند در میاد