Multitech MTCBA-G-F Manuel d'utilisateur télécharger pdf (Page 229)

191

sub function lecturatamanorespuestaplanta()as byte

dim contador, var1 as byte 'Procedimiento que determina el tamaño de

for contador = 0 to 32 'la respuesta del módem celular luego de

var1= ingresodatos[contador] 'enviarle algún comando AT

if var1 = 0x00 then

result =contador

break

end if

next contador

end sub

sub function pruebarespuestaplanta() as byte 'Procedimiento que determina si la

dim tamano, aux1 as byte 'la respuesta enviada por el módem celular es válida

aux1 = 0

tamano = lecturatamanorespuestaplanta()

if tamano <> 0 then

if tamano = tamanorespuesta then

for aux1 = 0 to (tamano - 1)

if ingresodatos[aux1] = respuesta[aux1] then

result = 1

PORTD = result

else

result = 0

break

end if

next aux1

else result = 0

end if

1 2 ... 224 225 226 227 228 229 230 231 232 233 234 235 236 237

Pas de commentaire

Multitech MTCBA-G-F Manuel d'utilisateur Page 229