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

195

conectargprs()

while true

auxil = Usart_Read

Usart_Write_Text("AT#LTCPSTART=1")

Usart_Write(enter)

Delay_ms(3000)

auxil = Usart_Read

Usart_Write_Text("AT#VSTATE")

Usart_Write(enter)

auxil = Usart_Read

validacionplanta = lecturarespuestaplanta()

auxil = Usart_Read

if validacionplanta = 1 then

respu = pruebarespuestaplanta()

validacionplanta = 0

auxil = Usart_Read

end if

if respu = 0 then

conectargprs()

auxil = Usart_Read

else

end if

respu = 0

auxil = Usart_Read

for aa = 0 to 50

if PORTA.1= 0 then

password()

end if

correoaux = Eeprom_Read($DF)

1 2 ... 228 229 230 231 232 233 234 235 236 237

Komentarze do niniejszej Instrukcji

Brak uwag