تحقیق قفل دیجیتال
سورس کد برنامه فقل امنیتی 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