منير07 عضو ماسي
البلد :
الجنسية : جــزائــري
| موضوع: اصنع جهاز ال G.P.S الخاص بك الجمعة أغسطس 19, 2011 4:16 pm | |
| 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]جزاكم الله خيرا | |
|