سلام شایان جان
برات پیام دادم برادر
ببینید من قبلا گفتم ماژولار میخوام کار کنم الان بحث اولمو گذاشتم رو جی پی اس
نمی دونم چرا ماژول جی پی اسمو میکرو نمی تونه دریافتی ازش داشته باشه
کریستال و باود و ... برنامه درسته , البته یکی از ودستان زحمت کشید برا تست خروجی ماژول جی پی اس من یه برنامه با بسکام داد اما هر کاری که می کنم نمی تونه رشته های دریافتی از جی پی اسو تو میکرو ببینم با اون برنامه
اگه کسی از دوستان با ماژول u-blox m6 رو داره و باهاش خروجی با میکرو گرفته بهم برنامه شو بفرسته تا بتونم بحث gps رو رو رباتم تمومش کنم و برم سر وقت بقیه کارها
کد ها رو در ذیل نوشتم :
*****************
'############################################# پروژه های میکروکنترلر ، الکترونیک ،رباتیک ،مخابرات ، برنامه نویسی _میکروتاپ ################################################## ##
$regfile = "m8adef.dat"
$crystal = 8000000
$baud = 9600
'############################################### LCD CODE ################################################## ########
Config Lcdpin = Pin , Rs = Portb.0 , E = Portd.7 , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4
Config Lcd = 16 * 2
'################################################# ################################################## ################
Dim Sr As String * 1 , X As Byte , Char(70) As String * 1
Dim Longgps As String * 15
Dim Latgps As String * 15
Cls '
Lcd "www.MicroTop.ir"
Waitms 2000
Do
Sr = Waitkey()
If Sr = "$" Then
Sr = Waitkey()
If Sr = "G" Then
Sr = Waitkey()
If Sr = "P" Then
Sr = Waitkey()
If Sr = "G" Then
Sr = Waitkey()
If Sr = "L" Then
Sr = Waitkey()
If Sr = "L" Then
For X = 1 To 64
Char(x) = Waitkey()
Next X
Cls
'$GPGLL,4717.115,N,00833.912,E,130304.0,A*33
Latgps = Char(2) + Char(3) + Char(4) + Char(5) + Char(6) + Char(7) + Char(8) + Char(9) + Char(10) + Char(11) + Char(12) + Char(13)
Longgps = Char(15) + Char(16) + Char(17) + Char(18) + Char(19) + Char(20) + Char(21) + Char(22) + Char(23) + Char(24) + Char(25) + Char(26) + Char(27)
Locate 1 , 1
Lcd Latgps
Locate 2 , 1
Lcd Longgps
End If
End If
End If
End If
End If
End If
Loop
************************************************** **
این برنامه رو یه مهندسی برام نوشت اما ماژولو بهش وصل می کنم جوابی نمیگیرم .
برنامه زیر ور تعییرش دادم تا بتونم خروجیو بررسی کنم بهم یه رشته داره می ده تو ال یب دی :
$regfile = "M8adef.dat"
$crystal = 6000000
$baud = 9600 'by the GPS module output baud rate
'On Urxc Uart_rx
Enable Urxc
Enable Interrupts
Config Serialin = Buffered , Size = 100
'------------- LCD connection, key definitions ------------------------------- ---------
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 16 * 2
Dim Srt As Byte
Do
Srt = Waitkey()
Lcd Srt
Waitms 20
Loop
End
خروجیش بهم یه رشته خیلی طولانی داره می ده از gps ماژولم اما شک دارم اون رشته ها باشه چون فقط عدد هستش
**************************************
خود 3 تا برنامه رو هم تو لینک گذاشتم