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

179

lecturaeeprom(144,var1)

Usart_Write_Text("]: ")

var2 = PORTB.4

validacionentradadigital(var2)

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 [")

1 2 ... 212 213 214 215 216 217 218 219 220 221 222 ... 236 237

Brak uwag

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