دسته: برق
بازدید: 212 بار
فرمت فایل: doc
حجم فایل: 676 کیلوبایت
تعداد صفحات فایل: 18
پروژه قفل دیجیتال
سورس کد برنامه فقل امنیتی 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
ConfigLcd = 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 AsByte , K AsByte , Result AsByte , Num AsString * 1
Dim Pass(8) AsString * 1 , Pass1(8) AsString * 1 , Pass2(8) AsString * 1
Dim Pass_eeprom(8) AsEramString * 1 , Rcv(8) AsString * 1
'Sub