Looking for circuit schematic for GSM GPS tracking vehicle project

[ckshivaram]

maybe slight modification needed i think.... GPS is not a part of circuit now right

 

[nikhilele]

little late but i am uploading interfacing to GSM modems tutorial..

 

[azorin]

Hi, I downloaded files from electronics cookbook, I have following question, how can i to program atmel atmega128, i got AVR studio 4 and what else i need to get? (i refer hardware or software) I need to get dongle? or you know other way to programm it?

Thanks

Azorin

 

[prashanth10gm]

you need to get an atmel programmer for programming the microcontroller .

 

[azorin]

OK but i have a reduced budget, it's possible to get schematics from a hobbist programmer? I mean make your self project?
Thanks again

 

[prashanth10gm]

Check this thread
https://www.edaboard.com/threads/33799/

 

[akshaymathur]

Sir one more thing I am using this particular code for using GPS & GSM:
Could you please tell me that will it do?
And sir in this project do we really need the DS1307 clock as I am facing some problem with it.
$baud = 9600
$crystal = 11059200
Config Lcd = 16 * 2

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

Dim Gps As Byte , X As Byte , Counts As Byte , Latt(6) As Byte , Lont(6) As Byte
Dim Latns As Byte , Lonew As Byte , Timt(6) As Byte
Const Mobileno = "+919999050217"
Declare Sub Readgps
Declare Sub Sendsms

Cursor Off Noblink
Cls
Locate 1 , 1 : Lcd "vechile tracking system"
Locate 2 , 4 : Lcd "GPS & GSM based"
Wait 20
Enable Serial
Enable Interrupts
Wait 1
Counts = 0


Main:

Readgps
Wait 1
Counts = Counts + 1
If Counts = 300 Then
Readgps
Sendsms
Counts = 0
Goto Main



Sub Readgps:

Cls
Cursor Off
Looploop:
Upperline
Startloop:

Gps = Waitkey()
If Gps <> "$" Then Goto Startloop

Gps = Waitkey()
If Gps <> "G" Then Goto Startloop

Gps = Waitkey()
If Gps <> "P" Then Goto Startloop

Gps = Waitkey()
If Gps <> "G" Then Goto Startloop

Gps = Waitkey()
If Gps <> "G" Then Goto Startloop

Gps = Waitkey()
If Gps <> "A" Then Goto Startloop

Gps = Waitkey()
If Gps <> "," Then Goto Startloop


For X = 1 To 6
Gps = Waitkey()
Lcd Chr(gps) ;
Timt(x) = Gps
If X = 2 Then Lcd ":";
If X = 4 Then Lcd ":";
Next X


Timlop:
Gps = Waitkey()
If Gps = "," Then Goto Getlat
Goto Timlop


Getlat:
Lowerline
For X = 1 To 6
Getlat1:
Gps = Waitkey()
If Gps = "." Then Goto Getlat1
Latt(x) = Gps
Lcd Chr(gps);
Next X

Getlat2:
Gps = Waitkey()
If Gps = "," Then Goto Getlat3
Goto Getlat2

Getlat3:
Gps = Waitkey()
If Gps <> "," Then Goto Getlat3
Gps = Waitkey()
Latns = Gps
Lcd Chr(gps) ; " ";
Gps = Waitkey()
Gps = Waitkey()

For X = 1 To 6
Getlon:
Gps = Waitkey()
If Gps = "." Then Goto Getlon
Lont(x) = Gps
Lcd Chr(gps);
Next X

Getlon1:
Gps = Waitkey()
If Gps <> "," Then Goto Getlon1
Gps = Waitkey()
Lonew = Gps
Lcd Chr(gps) ; " ";

End Sub



Sub Sendsms

Disable Serial
Set Scon.1
Print "AT+CMGS=" ; Chr(34) ; Mobileno ; Chr(34)
Reset Scon.1
Enable Serial
Wait 2
Disable Serial
Set Scon.1
For X = 1 To 6
Print Latt(x)
Next X
Print " " ; Latns ; " "
For X = 1 To 6
Print Lont(x)
Next X
Print " " ; Lonew ; Chr(26)
Reset Scon.1
Enable Serial
Cls
Locate 1 , 1 : Lcd "sms sent...."
Wait 1
End If
End Sub

 

[ckshivaram]

its a very big code and i dont know what is the use of such a big code..... give proper comment so that anyone can understand it and give you suggestion..........

 

[war4one]

You can download complete circuit diagram and source code from ...

The old site is down. New link:
**broken link removed**