181
sub procedure menuprincipal() 'Procedimiento que envía los caracteres del
espacio () 'Menú Principal
Usart_Write_Text(" MENU PRINCIPAL")
Usart_Write(enter)
Usart_Write_Text("1) CONFIGURACION ")
Usart_Write(enter)
Usart_Write_Text("2) CONTROL DEL SISTEMA ")
Usart_Write(enter)
Usart_Write_Text("3) ENTRADAS DIGITALES ")
Usart_Write(enter)
Usart_Write_Text("4) ACCEDER A LA REPETIDORA MTR2000 ")
Usart_Write(enter)
Usart_Write_Text("5) SALIR ")
Usart_Write(enter)
Usart_Write(enter)
Usart_Write_Text("INGRESE EL NUMERO DE OPCION: ")
end sub
sub procedure ingreso() 'Procedimiento que maneja la redirección del
dim menu, menu1 as byte 'usuario a los diferentes menú del programa
while true
if PORTA.1= 1 then
break
end if
if Usart_Data_Ready = 1 then
menu = Usart_Read
select case menu
case "1"
Kommentare zu diesen Handbüchern