GSM/GPS VEHICLE GEOGRAPHICAL TRACKER

The project is based on a Gsm/Gps/Gprs. Its main function is to detect a illegal entry and communicate its own geographical position using, on the choice, the cellular phone reference system or the GPS. I use the recent product by SIMCOM - SIM908 which operate on 5 - 12 volt  dc supply, which makes it work on wide-range dc power supply...  Well i still cant believe that i  can burn a code of 21kb  into program memory chip of 14kb (pic16f876a), but, it works all good.... 
maybe one of this days am gonna write a code of 30kb on this mircontroller chip, just wanna confirm the max. program memory size....  
 The featuring  mircontroller chip is the pic16f876a, the reason i keep using this chip is because it cost less than $2 and I guess is available in all country... 

1st TEST VIDEO

The GPS Tracker is a small gadget that will record exactly where your vehicle, boat or aeroplane has travelled over time. It is intended to be wired into the ignition of your vehicle and then forgotten.

It will record your travels in Google Earth format, GPS Exchange format or as raw NMEA data and using software such as Google Earth you can then see your trips mapped onto the surface of the earth with a resolution of a few meters. Below are my experimental pics, pcb layout, and code....

PROTEUS SIMULATION 

SIM908 CONNECTION 1

SIM908 CONNECTION 2

PCB MAKING 1

PCB MAKING 2

PCB AND COMPONENT FIXING

PC GPS SERIAL BOARD QUICK TEST

FIRST TEST ON GET GPS LOCATION WITH SMS COMMAND

COMPLETE PCB LAYOUT AND CODE: http://1drv.ms/1Lof3e1

Code written in picbasic pro
'GSM AND GPS CONTROLLER
'PROGRAMMER : AYOMIDE
'USER: OPEYEMI
'ACECCT.BLOGSPOT.COM
'PIC16F876A
'2015

 DEFINE OSC 4
     include "modedefs.bas"

' Define ADCIN parameters
Define ADC_BITS     10    ' Set number of bits in result
Define ADC_CLOCK    3     ' Set clock source (3=rc)
Define ADC_SAMPLEUS 50    ' Set sampling time in uS

'-------------[PORT INITIALIZATION]-----------------
      ' 76543210
TRISA = %11111111
ADCON1 = 7
PORTB = 000000  'reset portB resigters to zero
TRISB = 000000  'Setting portB as output port
PORTC = 000000  'reset portC resigters to zero
TRISC = %10000000

'--------------[LCD DEFINES]----------------------
DEFINE LCD_DREG PORTB ' LCD Data bits on PORTB
DEFINE LCD_DBIT 4 ' PORTB starting address
DEFINE LCD_RSREG PORTB ' LCD RS bit on PORTB
DEFINE LCD_RSBIT 2 ' LCD RS bit address
DEFINE LCD_EREG PORTB ' LCD E bit on PORTB
DEFINE LCD_EBIT 3 ' LCD E bit address
DEFINE LCD_BITS 4 ' LCD in 4-bit mode
DEFINE LCD_LINES 2  ' DEFINE LCD ROW AS 2

'VARIABLE ------------------------------
LCD_MOVE VAR WORD ' LCD AMINATION
AT_TEST VAR WORD : AT_TEST = 0
OWNER VAR WORD
SENDER VAR BYTE[25] : SENDER = 0
NET2 VAR WORD
A0 VAR WORD : A0 = 0
BUFF160        VAR BIT[160]
ENCODER90 VAR BYTE[90]
LAT20 VAR BYTE[20]
LONG20 VAR BYTE[20]
ENCODER10 VAR BYTE[10]
A2 VAR WORD : A2 = 0
KEY VAR PORTB.0
B0 VAR WORD
LOCATE VAR WORD : LOCATE = 0

'--------- ASCII ---------------
ENTER con 13
CTRLZ CON 26

' ------- COMMUNICATION PORT --------------
REMOTE_RX VAR PORTC.0
GSM_TX VAR PORTC.6
GSM_RX VAR PORTC.7

' ----------- PORT ALIASES -----------------
OWNER_SW VAR PORTA.5
BOOT VAR PORTA.1
DOOR VAR PORTA.2
BONNET VAR PORTA.3
RELAY_RX VAR PORTA.4

SECURED_LED VAR PORTC.0
ENGINE_LED VAR PORTC.1
DOOR_LED VAR PORTC.2

BUZZER VAR PORTC.3
ENGINE_RELAY VAR PORTB.0
DOOR_RELAY VAR PORTB.1


'---------[LCD INITIALIZATION]-----------
LCDOUT $FE,1 ' CLEAR SCREEN
LCDOUT $FE,2
PAUSE 500          ' Wait .5 second for lcd to ready

ON_MODULE:  ' ACTIVATE GSM/GPRS/GPS MODULE
low BUZZER: LOW RELAY_RX: LOW ENGINE_RELAY: LOW DOOR_RELAY
HIGH ENGINE_LED : HIGH DOOR_LED : HIGH SECURED_LED : PAUSE 1000
LOW ENGINE_LED : LOW DOOR_LED : LOW SECURED_LED
      PAUSE 10: LOW PORTC.5: PAUSE 1000
      HIGH PORTC.5: PAUSE 500
   high BUZZER : PAUSE 800: low BUZZER: PAUSE 200
   LCDOUT "AJAYI OMOYEMI A."  : LCDOUT $FE, $C0
LCDOUT "  EEE/11/5048   "
PAUSE 2500
LCDOUT $FE,1 ' CLEAR SCREEN  
CHECK_GSM:
CLEAR          ' CLEAR ALL VARIABLE

'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
for AT_TEST = 0 to 3
SEROUT2 GSM_TX,84,["AT",$0D,$0A]
     LCDOUT $FE, $C0 : LCDOUT " Initialize !!! "
       lcdout $fe,$8
        pause 500
          lcdout $fe,$c
            pause 500
next AT_TEST

PAUSE 300  
SEROUT2 GSM_TX,84,["AT+CMGF=1",ENTER] : PAUSE 300
   SEROUT2 GSM_TX,84,["AT+CMEE=1",ENTER] : PAUSE 300
     
LCDOUT $FE,1 ' CLEAR SCREEN
FOR NET2 = 0 TO 2      ' GET NETWORK STATUS
PAUSE 100 : LCDOUT "SEARCHING SIM908"
   SEROUT2 GSM_TX,84,["AT+CSQ",ENTER]
     SERIN2 GSM_RX,84,3000,CHECK_GSM,[WAIT("+CSQ: "), STR ENCODER90\6] : PAUSE 2
         LCDOUT $FE, $C0 : LCDOUT "  CSQ:    ", STR ENCODER90\6  : PAUSE 1500
NEXT NET2

PAUSE 2
SEROUT2 GSM_TX,84,["AT+CSQ",ENTER]
  SERIN2 GSM_RX,84,3000,GSM_CHECK_ERR,[WAIT("OK")]  : pause 100
      LCDOUT $FE, $C0 : LCDOUT "SIM908 CONNECTED" : PAUSE 2500
         HIGH BUZZER :PAUSE 500 :LOW BUZZER  :PAUSE 200
            HIGH BUZZER :PAUSE 500 :LOW BUZZER  :PAUSE 2
GOTO SEND_OKGSM

GSM_CHECK_ERR:
LCDOUT $FE, $C0 : LCDOUT " NOT  CONNECTED "
PAUSE 1500

'*****************************************************************
SMS_SETUP:
PAUSE 500
SEROUT2  GSM_TX,84,["AT+CMGF=1",ENTER]    ' SW TO SMS MODE
PAUSE 500
SEROUT2 GSM_TX,84,["AT+CMGS=",34,"+2348100581270",34,ENTER]
PAUSE 500
RETURN

SEND_SMS:
PAUSE 300
  SEROUT2 GSM_TX,84,[CTRLZ]
     SEROUT2 GSM_TX,84,[26]
        PAUSE 5000
LCDOUT $FE,1 ' CLEAR SCREEN
   LCDOUT $FE, $C0 : LCDOUT "  MESSAGE SENT "
   HIGH BUZZER :PAUSE 500 :LOW BUZZER  :PAUSE 3000
   LCDOUT $FE,1 ' CLEAR SCREEN
  
      RETURN
'******************************************************************

SEND_OKGSM:
GOSUB SMS_SETUP
SEROUT2 GSM_TX,84,["SIM908 - GSM/GPRS/GPS CONNECTED AND OK, "," NETWORK CSQ: ",STR ENCODER90\6,_
" [ VEHICLE SECURED ]",ENTER]  :PAUSE 500
   GOSUB SEND_SMS
      PAUSE 1000

MAIN_PROGRAM:
LCDOUT $FE,1 ' CLEAR SCREEN
   LCDOUT "SIM908 CONNECTED"
      LCDOUT $FE, $C0 :LCDOUT "VEHICLE  SECURED"
      HIGH SECURED_LED :PAUSE 500 :LOW SECURED_LED 
         PAUSE 700

IF BOOT = 0 OR DOOR = 0 OR BONNET = 0 THEN  ' CHECK DOOR
  HIGH BUZZER :PAUSE 500 :LOW BUZZER  :PAUSE 200
    HIGH BUZZER :PAUSE 500 :LOW BUZZER  :PAUSE 200
    HIGH BUZZER :PAUSE 500 :LOW BUZZER  :PAUSE 2
 SEROUT2  GSM_TX,84,["AT+CMGD= 1",ENTER]  
      LCDOUT $FE, $C0 :LCDOUT " VEHICLE OPENED "
        PAUSE 2000
GOTO CHECK_OWNER
ENDIF
PAUSE 2000
GOTO MAIN_PROGRAM


CHECK_OWNER:
LCDOUT $FE,1 ' CLEAR SCREEN
PAUSE 2
 FOR OWNER = 1 TO 15
   LCDOUT "  VERIFY OWNER  "
     LCDOUT $FE, $C0 :LCDOUT " IN 15 SECOND(S)"
       PAUSE 1000
        IF OWNER_SW = 0 THEN MAIN_PROGRAM
 NEXT OWNER
 IF OWNER = 15 THEN GOTO SMS_OWNER
 SMS_OWNER:
SEROUT2 GSM_TX,84,["AT+CMGD=1",ENTER] : PAUSE 1000  ' DELETE ALL INBOX
GOSUB SMS_SETUP
SEROUT2 GSM_TX,84,["AN INTRUDER DETECTED, REPLY (CMD:ACIVATE_ LOCK (OR) UNLOCK, ALARM (OR)SILENT, GET_LOCATION, OWNER",ENTER]  :PAUSE 500
   GOSUB SEND_SMS
     PAUSE 1000
  CLEAR
DECODE_SMS:
  LCDOUT $FE,1 ' CLEAR SCREEN
PAUSE 100
LCDOUT "WAITING FOR  SMS": PAUSE 500
SEROUT2  GSM_TX,84,["AT+CMGR= 1",ENTER]    ' READ INBOX 1
'SERIN2  GSM_RX,84,3000,DECODE_SMS,[WAIT("+CMGR:"),SKIP 0, STR ENCODER90\20] : PAUSE 50
SERIN2  GSM_RX,84,1500,DECODE_SMS,[WAIT(47),SKIP 14, STR ENCODER90\24] : PAUSE 50
LCDOUT $FE, $C0
LCDOUT "SMS 1: ", STR ENCODER90(19)
    'for B0=1 to 108    'MOVE LEFT
     ' lcdout $fe,$1e
        pause 3000
    'next B0
   
if (ENCODER90(19)="L") THEN      ' ACTIVATE LOCK
HIGH DOOR_RELAY  : HIGH DOOR_LED
HIGH ENGINE_RELAY : HIGH ENGINE_LED: PAUSE 5
GOSUB DELETE_SMS
ENDIF
if (ENCODER90(19)="U") THEN     ' ACTIVATE UNLOCK
LOW DOOR_RELAY  : LOW DOOR_LED
LOW ENGINE_RELAY : LOW ENGINE_LED: PAUSE 5
GOSUB DELETE_SMS
ENDIF
if (ENCODER90(19)="A") THEN    ' ACTIVATE ALARM
HIGH BUZZER : PAUSE 5
GOSUB DELETE_SMS
ENDIF
if (ENCODER90(19)="S") THEN      ' ACTIVATE SILENT
LOW BUZZER : PAUSE 5   
GOSUB DELETE_SMS
ENDIF
if (ENCODER90(19)="G") THEN     ' ACTIVATE GET LOCATION
LOW BUZZER : PAUSE 5
gosub  GET_LOCATION  
GOSUB DELETE_SMS
ENDIF
if (ENCODER90(19)="O") THEN    ' ACTIVATE OWNER
LOW BUZZER
LOW DOOR_RELAY  : LOW DOOR_LED
LOW ENGINE_RELAY : LOW ENGINE_LED: PAUSE 5 
GOSUB DELETE_SMS
LCDOUT $FE,1 ' CLEAR SCREEN
LCDOUT "VEHICLE  SECURED"  : LCDOUT $FE, $C0
LCDOUT " OWNER VERIFIED "
PAUSE 10000
GOTO MAIN_PROGRAM
ENDIF
GOTO DECODE_SMS

DELETE_SMS:
 SEROUT2  GSM_TX,84,["AT+CMGD= 1",ENTER]
 PAUSE 1
 RETURN

 GET_LOCATION:
CLEAR
LCDOUT $FE,1 ' CLEAR SCREEN
PAUSE 50     
SEROUT2  GSM_TX,84,["AT+CGPSPWR=1",ENTER]    ' POWER ON THE GPS MODULE
PAUSE 500
SEROUT2  GSM_TX,84,["AT+CGPSRST=1",ENTER]    ' POWER ON THE GPS MODULE
PAUSE 500
SEROUT2  GSM_TX,84,["AT+CGPSIPR=9600",ENTER]    ' POWER ON THE GPS MODULE
PAUSE 500

LOCATION:
for LOCATE = 0 TO 2
SEROUT2  GSM_TX,84,["=AT+CGPSINF=32",ENTER]    ' get location
'HSERIN 2000,SETUP,[SKIP 5,WAIT (10),STR BUFF\20\13]
'SERIN2  GSM_RX,84,[WAIT("+CMGR: "),SKIP 45, STR ENCODER90\20] : PAUSE 200
SERIN2  GSM_RX,84, 1000, LOCATION,[WAIT("A,"),STR LAT20\12] : PAUSE 200
PAUSE 500
SEROUT2  GSM_TX,84,["AT+CGPSINF=32",ENTER]    ' get location
SERIN2  GSM_RX,84,[WAIT("N,"),SKIP 0, STR LONG20\12] : PAUSE 200
LCDOUT $FE,1 ' CLEAR SCREEN

PAUSE 200
LCDOUT $FE, $C0
LCDOUT "DOWNLOADING....."
PAUSE 1500
NEXT LOCATE
'------- SEND LOCATION TO MOBILE ------------------------
GOSUB SMS_SETUP
SEROUT2 GSM_TX,84,[" CURRENT VEHICLE LOCATION :::  LAT :", STR LAT20\12,"   ","LON: ", STR LONG20\12  , ENTER] 
PAUSE 500

'SEROUT2 GSM_TX,84,["SIM908 - GSM/GPRS/GPS CONNECTED AND OK, "," NETWORK CSQ: ",STR ENCODER90\6,_
'" [ VEHICLE SECURED ]",ENTER]  :PAUSE 500
   GOSUB SEND_SMS
      PAUSE 1000
RETURN

end

If you have any question, feel free to comment on this post and ask me any question.... acecct.18f4550@gmail.com OR call me on :  +2348123206299