امروز: جمعه 15 اسفند 1399
این برنامه یک قفل دیجیتال 8 رقمی می باشد که میتوان از ان برای کدگذاری روی وسایل برقی که برای روشن شدن نیاز به مجوز خاصی دارند استفاده می شود
دسته بندی برق
بازدید ها 282
فرمت فایل doc
حجم فایل 676 کیلو بایت
تعداد صفحات فایل 18
18,700 تومان
تحقیق فقل امنیتی 8 رقمی

تحقیق قفل دیجیتال

سورس کد برنامه فقل امنیتی 8 رقمی

 

'///////////////////////////////////////////////////////////////////////////////
'//                  Digital Safety Lock Use ATmega8(36%)                     //
'//                      Compiler: Bascom 1.11.7.4                            //
'///////////////////////////////////////////////////////////////////////////////
$regfile = "m8def.dat"
$crystal = 1000000
'LCD
Config Lcdpin = Pin , Db4 = Pinc.3 , Db5 = Pinc.2 , Db6 = Pinc.1 , Db7 = _
Pinc.0 , E = Pinc.4 , Rs = Pinc.5
Config Lcd = 16 * 2
Deflcdchar 0 , 32 , 4 , 12 , 31 , 12 , 4 , 32 , 32
'Keypad
Config Kbd = Portb
'I/O
Config Pind.0 = Input                                       'Default
Config Pind.1 = Output                                      'Speaker
Config Pind.2 = Output                                      'Relay
Set Portd.0                                                 'Active Pullup Res
Default Alias Pind.0
Speaker Alias Pind.1
Relay Alias Portd.2
'Var
Dim A As Byte , K As Byte , Result As Byte , Num As String * 1
Dim Pass(8) As String * 1 , Pass1(8) As String * 1 , Pass2(8) As String * 1
Dim Pass_eeprom(8) As Eram String * 1 , Rcv(8) As String * 1
'Sub

فایل های مرتبط ( 24 عدد انتخاب شده )

بالا