AM_676. BAS] IF RAW4 = 1 THENPORTA, 3BC @ LL29_000115 EQU $; IN [ZAM_676.BAS] DELAYMS 100100DL @ MS_000116 EQU $; IN [ZAM_676.BAS] KEY = 4242KEY_000117 EQU $; IN [ZAM_676.BAS] ENDIF @ LL29_000118 EQU $ ; IN [ZAM_676.BAS] COL1 = 0PORTA, 4_000119 EQU $; IN [ZAM_676.BAS] COL2 = 1PORTA, 5_000120 EQU $; IN [ZAM_676.BAS] IF RAW1 = 1 THENPORTA, 0BC @ LL31_000121 EQU $; IN [ZAM_676 . BAS] DELAYMS 100100DL @ MS_000122 EQU $; IN [ZAM_676.BAS] KEY = 22KEY_000123 EQU $; IN [ZAM_676.BAS] ENDIF @ LL31_000124 EQU $; IN [ZAM_676.BAS] IF RAW2 = 1 THENPORTA, 1BC @ LL33_000125 EQU $; IN [ZAM_676.BAS] DELAYMS 100100DL @ MS_000126 EQU $; IN [ZAM_676.BAS] KEY = 55KEY_000127 EQU $; IN [ZAM_676.BAS] ENDIF @ LL33_000128 EQU $; IN [ZAM_676.BAS] IF RAW3 = 1 THENPORTA , 2BC @ LL35_000129 EQU $; IN [ZAM_676.BAS] DELAYMS 100100DL @ MS_000130 EQU $; IN [ZAM_676.BAS] KEY = 88KEY_000131 EQU $; IN [ZAM_676.BAS] ENDIF @ LL35_000132 EQU $; IN [ZAM_676.BAS] IF RAW4 = 1 THENPORTA, 3BC @ LL37_000133 EQU $; IN [ZAM_676.BAS] DELAYMS 100100DL @ MS_000134 EQU $; IN [ZAM_676.BAS] KEY = 1010KEY_000135 EQU $; IN [ZAM_676.BAS] ENDIF @ LL37_000136 EQU $; IN [ZAM_676.BAS] COL2 = 0PORTA, 5_000137 EQU $; IN [ZAM_676.BAS] COL3 = 1PORTC, 0_000138 EQU $; IN [ZAM_676.BAS] IF RAW1 = 1 THENPORTA, 0BC @ LL39_000139 EQU $; IN [ZAM_676.BAS ] DELAYMS 100100DL @ MS_000140 EQU $; IN [ZAM_676.BAS] KEY = 33KEY_000141 EQU $; IN [ZAM_676.BAS] ENDIF @ LL39_000142 EQU $; IN [ZAM_676.BAS] IF RAW2 = 1 THENPORTA, 1BC @ LL41_000143 EQU $; IN [ZAM_676.BAS] DELAYMS 100100DL @ MS_000144 EQU $; IN [ZAM_676.BAS] KEY = 66KEY_000145 EQU $; IN [ZAM_676.BAS] ENDIF @ LL41_000146 EQU $; IN [ZAM_676.BAS] IF RAW3 = 1 THENPORTA, 2BC @ LL43_000147 EQU $; IN [ZAM_676.BAS] DELAYMS 100100DL @ MS_000148 EQU $; IN [ZAM_676.BAS] KEY = 99KEY_000149 EQU $; IN [ZAM_676.BAS] ENDIF @ LL43_000150 EQU $; IN [ZAM_676.BAS] IF RAW4 = 1 THENPORTA, 3BC @ LL45_000151 EQU $; IN [ZAM_676.BAS] DELAYMS 200200DL @ MS_000152 EQU $; IN [ZAM_676.BAS] IF RAW4 = 1 THENPORTA, 3BC @ LL47_000153 EQU $; IN [ZAM_676.BAS] DELAYMS 5001PP1H244DLY @ W_000154 EQU $; IN [ZAM_676.BAS] KEY = 3535KEY_000155 EQU $; IN [ZAM_676.BAS] ENDIF @ LL47_000156 EQU $; IN [ZAM_676.BAS] ENDIF @ LL45_000157 EQU $; IN [ZAM_676.BAS] COL3 = 0PORTC, 0_000158 EQU $; IN [ZAM_676.BAS] RETURN_EOF EQU $; ZAM_676.BAS @ LB49PB @ LB49
__EOF
__CONFIG CPD_OFF & CP_OFF ​​& BODEN & MCLRE_OFF & PWRTE_OFF & WDT_OFF & INTRC_OSC_NOCLKOUT
END
.2 Моделювання
Для моделювання описаного кодового замка була використана програма розробки електричних схем Proteus 7 Professional.
Для того щоб змоделювати наш пристрій знадобилися наступні компоненти Proteus:
Мікроконтролер PIC16F676Клавіатура KEYPAD-PHONEСветодіоди 3х кольорів (LED-BLUE, LED-GREEN, LED-RED) Резистор
Після правильного з&#...
