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

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

1 2 ... 210 211 212 213 214 215 216 217 218 219 220 ... 236 237

Komentarze do niniejszej Instrukcji

Brak uwag