ACTIVANDO SALIDA DIGITAL CON UN RING - AT89C52 CON BASCOM 8051

APLICACIÓN USANDO MODEM ENFORA GSM1218 Y EL Uc. AT89C52
ON/OFF salida P3.7 con un numero de RING:  2 ON 4 OFF

NOTA IMPORTANTE: EL CRYSTAL DEBE SER DE 11.0592MHZ. PARA LA  COMUNICACION SERIAL SE UTILIZA EL C.I. MAX232 O EL 74HC14. EL MODEM SE CONFIGURA A LA MISMA VELOCIDAD DEL MICROCONTROLADOR ADEMAS SE DEBE ACTIVAR  LO SIGUIENTE EN EL MODEM: AT+IFC=0,0.

'*******************************************************************************

' PROGRAMA GSM8952RING.BAS.

'PRIMERO CONFIGURAR  EL SOFTWARE DEL COMPILADOR A LA MISMA VELOCIDAD DEL MODEM

' UTILIZAR EL CRISTAL DE 11.0592MHZ

' CUANDO RECIBE LLAMADA O 2 RING ON P3.7  4 RING OFF P3.7

' EL MODEM ENFORA GSM1218 TIENE QUE ESTAR CONFIGURADO:  EL CONTROL DE FLUJO

' CON 0,0 USAR COMANDO AT+IFC=0,0, LA VELOCIDAD DE COMUNICACION A 4800

' USAR COMANDO AT+IPR=4800,EL SMS RECIBIDO EN EL MODEM PASA DEFRENTE

' AL PUERTO SERIAL  PARA LO CUAL SE UTILIZA EL COMANDO AT :' AT+CNMI=1,2,0,0,0

' NO ECO CON COMANDO ATE0 LUEGO GRABAR CON COMANDO AT&W

' USAR EL HYPERTERMINAL  CON VELOCIDAD DE 4800,8 BITS DE DATOS,

' NO PARIDAD,1 BIT DE STOP,

'*******************************************************************************

' CONFIGURANDO LCD

Config Lcdpin = Pin , Db4 = P2.3 , Db5 = P2.2 , Db6 = P2.1 , Db7 = P2.0 , E = P2.4 , Rs = P2.5

Config Lcd = 16 * 2

'*******************************************************************************

'Declaración de variables

Dim Comando As String * 5                             ' VARIABLE PARA RECIBIR RING

Dim S As String * 2                                           ' USADA PARA OBTENER "R"

Dim R As Byte                                                   ' CONTADOR DE RING

'*******************************************************************************

P3.7 = 1

'*******************************************************************************

'Mensaje inicial en el LCD

Cls

Lcd "SISTEMA GSM RING"

Lowerline

Lcd " ** CIDT SCRL **"

Wait 2

'*******************************************************************************

Inicio:

'ESPERA POR LOS RING

   Input Comando Noecho Timeout = 1000                        'LEE PRIMERA LINEA

   Input Comando Noecho Timeout = 1000                        'LEE SEGUNDA LINEA

   Cls

   Lcd Comando

   Wait 1

   S = Mid(comando , 2 , 1)                                                     'Detecta la "R"

   If S = "R" Then Gosub Ring

   Cls

   Goto Inicio

'*******************************************************************************

' CONTAR RING  2 ON Y 4 OFF

Ring:

      R = R + 1

      If R = 2 Then

         P3.7 = 0

      End If

      If R = 4 Then

         P3.7 = 1

         R = 0

      End If

      Return

'*******************************************************************************