Multitech MTCBA-G-F Instrukcja Użytkownika Strona 224

  • Pobierz
  • Dodaj do moich podręczników
  • Drukuj
  • Strona
    / 237
  • Spis treści
  • BOOKMARKI
  • Oceniono. / 5. Na podstawie oceny klientów
Przeglądanie stron 223
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
Przeglądanie stron 223
1 2 ... 219 220 221 222 223 224 225 226 227 228 229 ... 236 237

Komentarze do niniejszej Instrukcji

Brak uwag