186
var1= Eeprom_Read(contador)
if var1 = enter then
break
end if
passw[aux1]=var1
aux1 = aux1 + 1
next contador
end sub
sub procedure password() 'Procedimiento que compara la contraseña
dim cod as string [32] 'ingresada por el usuario contra la almacenada
dim contador, aux, var1 as byte 'en la memoria EEPROM
contador=0
Delay_ms(3000)
auxil = Usart_Read
while true
If (PORTA.1= 0) and (contador = 0) then
contador = 1
auxil = Usart_Read
bienvenida()
end if
if PORTA.1= 1 then
contador = 0
aux = 0
break
end if
if Usart_Data_Ready = 1 then
cod[aux]= Usart_Read
Kommentare zu diesen Handbüchern