Bueno tengo este proyecto casi terminado. Se trata de una alarma de varias zonas de deteccion independientes que ademas de hacer sonar una sirena, envia un sms a un movil, indicando que se ha producido una alarma en una zona concreta.
Al enviar el sms puede ocurrir que no se oiga el telefono por lo que ademas, quiero hacer una llamada para asegurar que me entero que la alarma se ha producido.
El problema es que el sms se envia perfectamente y la llamada tambien si se hacen independientes, pero si envio el sms y seguidamente hago la llamada, solo se envia el sms.
Doy 1 segundo de espera entre el sms y la llamada, pero no lo consigo.
Algo no estoy haciendo bien, pero no se lo que es.
Os pego parte del codigo por si me podeis ayudar.
Gracias de antemano.
If salon = 1 Then 'al activar el sensor lo indico en el lcd y lo mando a la subrrutina suena_alarma
Lcdcmdout LcdLine2Home
Lcdout " SALON ACTIVADO"
If conectado_ram = 1 Then
led_rojo = 1 'activo la salida de sirena porque el volumetrico no tiene retardo
Serout PORTC.6, 9600, "AT+CMGS=40", CrLf
WaitMs 500
Serout PORTC.6, 9600, "07914306090909F911000B914316594240F10000AA1DA069D1397D4A41416650DA0C82A641E6D3090A0EA9496B90F804", ctrlz, CrLf
WaitMs 1000
Serout PORTC.6, 9600, "ATD619524041;", CrLf 'Hago una llamada para asegurar que me entero de la alarma
sms = 1
memo1 = 1
Write 6, memo1
Gosub suena_alarma 'Si la alarma esta activada mando el programa para que suene la alarma
Else 'no hace falta
Endif
Endif