G.P.S MODULE :
عبارة عن شريحة متكاملة تحتوي بداخلها على وحدة أستقبال لاشارة الاقمار الصناعية بالاضافة الى وحدة معالجة للبيانات بعد استقبالها .
الشريحة المستخدمة في هذه التجربة هي GOTOP GT-2525-SF وهي صناعة صينية . وهذه صورتها
G.P.S CHIP.bmp
نحتاج في هذه التجربة الى هوائي خارجي G-503 وهذه صورتها
DSC02948.JPG
DSC02949.JPG

ثم بعد ذلك مواصفاتها
Frequency: 1575MHz ±5MHz
VSWR: ≤1.5dB
Polarization: right hand circular
Antenna gain: -3.5dBic at 10°C
Amplifier gain: ≥29dBi typically
Noise figure: ≤1.5dB typically
Interference rejection: 20dB(fo ± 140MHz)
Power consumption: 5 ± 0.5 vde @ 12mA
Supply voltage: 3V, 5V compatible

Environmental Specifications
Operating Temperature: -45°C to +85°C
Storage Temperature: -50°C to +90°C
Relative Humidity: 100%

ما تلخم راسك بهذه المواصفات هذا شغل اخوانا في الاتصالات
اهم حاجة نعرف كم فريم يمكن لهذه الشريحة توفيره وهذه المعلومات موجودة على الداتاشيت
GOTOP_GT-2525-SF_Datasheets Sheet.pdf
أيضا نلاحظ ان هذه الشريحة على شكل SMD اي اننا نحتاج الى وضعها على دائرة مطبوعة حتى يسهل توصيلها كما في الصورة
DSC02945.JPG
اما توصيلة هذه الشريحة موجودة داخل الداتاشيت .
والان جاء دور المتحكم MICROCONTROLLER من النوع ATMEGA16 بالاضافة الى شاشة LCD 4*20
DSC02951.JPG
الان تبقى لنا كتابة البرنامج وهو سهل جدا كما في البرنامج السابق والفكرة تقوم على انك توصل الموديل مع الكمبيوتر مع برنامج HyperTerminal حتى تعرف ترتيب البيانات على الفريم ثم تكتب البرنامج بعد ذلك :


[flash(20,15)]$regfile = "m16def.dat" $crystal = 4000000 $baud = 4800 Config Porta = Output Config Portc = Input Config Debounce = 30 Config Lcd = 20 * 4 Config Lcdpin = Pin , Db4 = Porta.3 , Db5 = Porta.2 , Db6 = Porta.1 , Db7 = Porta.0 , E = Porta.6 , Rs = Porta.4 '$GPRMC,200828,A,1530.7418,N,03230.0085,W,173.8,231.8,130694,004.2,W*70 Dim Gps As Byte , X As Byte Cls Cursor Off Lcd " WELCOME" Lowerline Lcd " TO " Thirdline Lcd " GPS SYSTEM" Waitms 3000 Cls Lcd " PLEASE WAIT" Lowerline Lcd " G.P.S" Thirdline Lcd " TRACKING SATELLITE" Loop1: Gps = Waitkey() If Gps <> "$" Then Goto Loop1 Gps = Waitkey() If Gps <> "G" Then Goto Loop1 Gps = Waitkey() If Gps <> "P" Then Goto Loop1 Gps = Waitkey() If Gps <> "R" Then Goto Loop1 Gps = Waitkey() If Gps <> "M" Then Goto Loop1 Gps = Waitkey() If Gps <> "C" Then Goto Loop1 Gps = Waitkey() If Gps <> "," Then Goto Loop1 For X = 1 To 10 Gps = Waitkey() Next X Gps = Waitkey() If Gps <> "," Then Goto Loop1 Gps = Waitkey() If Gps <> "A" Then Goto Loop1 Cls '========================================================TIME AND DATE============================================================ Loop22: Cls Locate 1 , 1 Lcd "UTS POSITION" Locate 3 , 1 Lcd "DATE" Loop2: Gps = Waitkey() If Gps <> "$" Then Goto Loop2 Gps = Waitkey() If Gps <> "G" Then Goto Loop2 Gps = Waitkey() If Gps <> "P" Then Goto Loop2 Gps = Waitkey() If Gps <> "R" Then Goto Loop2 Gps = Waitkey() If Gps <> "M" Then Goto Loop2 Gps = Waitkey() If Gps <> "C" Then Goto Loop2 Gps = Waitkey() If Gps <> "," Then Goto Loop2 Locate 2 , 1 For X = 1 To 10 Gps = Waitkey() Lcd Chr(gps); If X = 2 Then Lcd ":"; If X = 4 Then Lcd ":"; Next X For X = 1 To 3 Gps = Waitkey() Next X For X = 1 To 10 Gps = Waitkey() If Gps = "," Then Goto Ind Else End If Next X Ind: Gps = Waitkey() Gps = Waitkey() For X = 1 To 11 Gps = Waitkey() If Gps = "," Then Goto Ind2 Else End If Next X Ind2: Gps = Waitkey() Gps = Waitkey() For X = 1 To 7 Gps = Waitkey() If Gps = "," Then Goto Ind3 Else End If Next X Ind3: For X = 1 To 7 Gps = Waitkey() If Gps = "," Then Goto Ind4 Else End If Next X Ind4: Locate 4 , 1 For X = 1 To 6 Gps = Waitkey() Lcd Chr(gps); If X = 2 Then Lcd "/"; If X = 4 Then Lcd "/"; Next X Switch: Debounce Pinc.0 , 0 , Loop22 , Sub Debounce Pinc.1 , 0 , Loop33 , Sub Debounce Pinc.2 , 0 , Loop44 , Sub Waitms 500 Goto Loop2 '===========================================================LATITUDE AND LONGITUDE======================================================= Loop33: Cls Locate 1 , 1 Lcd "LATITUDE:" Locate 3 , 1 Lcd "LONGITUDE:" Loop3: Gps = Waitkey() If Gps <> "$" Then Goto Loop3 Gps = Waitkey() If Gps <> "G" Then Goto Loop3 Gps = Waitkey() If Gps <> "P" Then Goto Loop3 Gps = Waitkey() If Gps <> "R" Then Goto Loop3 Gps = Waitkey() If Gps <> "M" Then Goto Loop3 Gps = Waitkey() If Gps <> "C" Then Goto Loop3 Gps = Waitkey() If Gps <> "," Then Goto Loop3 For X = 1 To 13 Gps = Waitkey() Next X Locate 2 , 1 For X = 1 To 11 Gps = Waitkey() Lcd Chr(gps); Next X Gps = Waitkey() Locate 4 , 1 For X = 1 To 12 Gps = Waitkey() Lcd Chr(gps); Next X Debounce Pinc.0 , 0 , Loop22 , Sub Debounce Pinc.1 , 0 , Loop33 , Sub Debounce Pinc.2 , 0 , Loop44 , Sub Goto Loop3 '===========================================================SPEED AND DIRECTION========================================================= Loop44: Cls Locate 1 , 1 Lcd "SPEED BY KNOTS" Locate 3 , 1 Lcd "DIRECTION" Loop4: Gps = Waitkey() If Gps <> "$" Then Goto Loop4 Gps = Waitkey() If Gps <> "G" Then Goto Loop4 Gps = Waitkey() If Gps <> "P" Then Goto Loop4 Gps = Waitkey() If Gps <> "R" Then Goto Loop4 Gps = Waitkey() If Gps <> "M" Then Goto Loop4 Gps = Waitkey() If Gps <> "C" Then Goto Loop4 Gps = Waitkey() If Gps <> "," Then Goto Loop4 For X = 1 To 13 Gps = Waitkey() Next X For X = 1 To 12 Gps = Waitkey() Next X For X = 1 To 13 Gps = Waitkey() Next X Locate 2 , 1 For X = 1 To 4 Gps = Waitkey() Lcd Chr(gps); Next X Gps = Waitkey() Locate 4 , 1 Do Gps = Waitkey() Lcd Chr(gps); Loop Until Gps = "," Debounce Pinc.0 , 0 , Loop22 , Sub Debounce Pinc.1 , 0 , Loop33 , Sub Debounce Pinc.2 , 0 , Loop44 , Sub Goto LOOP4 [/flash]




عن طريق هذا البرنامج يمكن الحصول على احداثيات الموقع و توقيت غرنيتش للموقع بالاضافة الى السرعة بالعقدة والاتجاه
والصور توضح نجاح التجربة .
DSC02939.JPG
DSC02940.JPG
DSC02942.JPG
DSC02943.JPG
تم بحمد لله

توجد تسجيلات فديو للتجربة ساقوم برفعها على موقع

الكود:

http://www.4shared.com[/color] color=black]حجمها مضغوطة حوالى 380 ميجا[/color]

[color=black]جزاكم الله خيرا