179
lecturaeeprom(144,var1)
Usart_Write_Text("]: ")
var2 = PORTB.4
validacionentradadigital(var2)
Usart_Write(enter)
Usart_Write(enter)
Usart_Write_Text("PRESIONE LA LETRA 'R' PARA REFRESCAR O
CUALQUIER OTRA PARA SALIR: ")
end sub
sub procedure editarentradasdigitales() 'Procedimiento que envía los caracteres
dim var1 as byte 'del Submenú Editar Nombre de Entradas
espacio() 'Digitales
Usart_Write_Text("NOTA: MAXIMO 15 CARACTERES POR CAMPO")
Usart_Write(enter)
Usart_Write_Text("ED1 [")
var1 = calculolongitud(96,15)
lecturaeeprom(96,var1)
Usart_Write_Text("]: ")
lecturadatos(96,15)
Usart_Write(enter)
Usart_Write_Text("ED2 [")
var1 = calculolongitud(112,15)
lecturaeeprom(112,var1)
Usart_Write_Text("]: ")
lecturadatos(112,15)
Usart_Write(enter)
Usart_Write_Text("ED3 [")
Komentáře k této Příručce