177
Usart_Write(enter)
Usart_Write_Text("3) SALIR ")
Usart_Write(enter)
Usart_Write(enter)
Usart_Write_Text("INGRESE EL NUMERO DE OPCION: ")
end sub
sub procedure control() 'Procedimiento que envía los caracteres del
espacio () 'Menú control del Sistema
Usart_Write_Text(" MENU CONTROL DEL SISTEMA")
Usart_Write(enter)
Usart_Write_Text("1) REINICIAR SISTEMA ")
Usart_Write(enter)
Usart_Write_Text("2) REINICIAR MTR2000 ")
Usart_Write(enter)
Usart_Write_Text("3) SALIR ")
Usart_Write(enter)
Usart_Write(enter)
Usart_Write_Text("INGRESE EL NUMERO DE OPCION: ")
end sub
sub procedure validacionentradadigital(dim variable as byte)
if variable = 1 then 'Procedimiento que envía los caracteres del
Usart_Write_Text("ON") 'Estado de las Señales Digitales
else
Usart_Write_Text("OFF")
end if
Comments to this Manuals