Multitech MTCBA-G-F User Manual download pdf (Page 216)

178

end sub

sub procedure verentradasdigitales() 'Procedimiento que envía los caracteres

dim var1, var2 as byte 'del Submenú Ver Entradas Digitales

espacio()

Usart_Write_Text("ED1 [")

var1 = calculolongitud(96,15)

lecturaeeprom(96,var1)

Usart_Write_Text("]: ")

var2 = PORTB.1

validacionentradadigital(var2)

Usart_Write(enter)

Usart_Write_Text("ED2 [")

var1 = calculolongitud(112,15)

lecturaeeprom(112,var1)

Usart_Write_Text("]: ")

var2 = PORTB.2

validacionentradadigital(var2)

Usart_Write(enter)

Usart_Write_Text("ED3 [")

var1 = calculolongitud(128,15)

lecturaeeprom(128,var1)

Usart_Write_Text("]: ")

var2 = PORTB.3

validacionentradadigital(var2)

Usart_Write(enter)

Usart_Write_Text("ED4 [")

var1 = calculolongitud(144,15)

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

No comments

Multitech MTCBA-G-F User Manual Page 216