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

188

if aux > 30 then

aux = 0

end if

end if

wend

end sub

sub procedure corteenergia () 'Procedimiento que envía un correo electrónico de

Usart_Write_Text("AT#SUBJ1="+CHR(0X22)+"REPETIDORA XXXX SIN

ENERGIA ELECTRICA AC"+CHR(0X22)) 'notificación corte de energía

Usart_Write(enter) 'eléctrica AC

Delay_ms(2000)

Usart_Write_Text("AT#SENDMAIL1")

Usart_Write(enter)

Delay_ms(2000)

end sub

sub procedure reestablecimientoenergia () 'Procedimiento que envía un correo

Usart_Write_Text("AT#SUBJ1="+CHR(0X22)+"ENERGIA ELECTRICA AC

REESTABLECIDA EN REPETIDORA XXXX"+CHR(0X22))

Usart_Write(enter) ' electrónico de notificación retorno de energía

Delay_ms(2000) 'eléctrica AC

Usart_Write_Text("AT#SENDMAIL1")

Usart_Write(enter)

Delay_ms(2000)

end sub

1 2 ... 221 222 223 224 225 226 227 228 229 230 231 ... 236 237

Comments to this Manuals

No comments