Multitech MTCBA-G-F Instrukcja Użytkownika Pobierz pdf (Strona 219)

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_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"

1 2 ... 214 215 216 217 218 219 220 221 222 223 224 ... 236 237

Brak uwag

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