Multitech MTCBA-G-F User Manual download pdf (Page 210)

172

for var1 = 0 to 25

Usart_Write(enter)

next var1

end sub

sub procedure bienvenida() 'Procedimiento diseñado para enviar el mensaje

retardo() 'de bienvenida al usuario y para solicita el

espacio () 'código de acceso

Usart_Write_Text(" ************ BIENVENIDO ************* ")

Usart_Write(enter)

Usart_Write_Text("INGRESE SU CODIGO DE ACCESO POR FAVOR: ")

end sub

sub procedure limpeareeprom(dim direccion, longitud as byte)

dim contador as byte 'Procedimiento para limpiar la memoria EEPROM

for contador = direccion to (direccion + longitud) 'del Microcontrolador

EEprom_write(contador,$FF)

Delay_ms(30)

next contador

end sub

sub procedure lecturaeeprom(dim direcccion, longitud as byte)

dim contador, var1 as byte 'Procedimiento que permite leer la memoria EEPROM

for contador = direcccion to (direcccion + longitud) 'del Microcontrolador

var1= Eeprom_Read(contador)

1 2 ... 205 206 207 208 209 210 211 212 213 214 215 ... 236 237

No comments

Multitech MTCBA-G-F User Manual Page 210