سلام به همه ی دوستان و اساتید محترم
من یه مداری دارم که از یک سیم 900 و یک UBLOX NEO 6M استفاده کردم و سیم 900 رو به پایه های RX و TX میکرو وصل کردم و برای اینکه NEO 6 رو هم راه اندازی کنم نیاز به یک RX مجازی در AVR دارم، میخواستم تو این زمینه کمی راهنماییم کنید که چجوری برنامه شو تکمیل کنم برنامه ی راه اندازی UBLOX با RX اصلی میکرو به این صورته:
$regfile = "m8def.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 "MEYSAM"
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
که این برنامه رو میخواستم روی پین PORTD.7 اینکارو کنم
و تا اینجا که میایم d.7 رو ورودی در نظر میگیریم رو بلدم که به این صورت قرارا میدیم
Open "comd.7:9600,8,n,1" For Input As #1
ولی در ادامه گیج میشم، لطفا راهنماییم کنین :cry2:
من یه مداری دارم که از یک سیم 900 و یک UBLOX NEO 6M استفاده کردم و سیم 900 رو به پایه های RX و TX میکرو وصل کردم و برای اینکه NEO 6 رو هم راه اندازی کنم نیاز به یک RX مجازی در AVR دارم، میخواستم تو این زمینه کمی راهنماییم کنید که چجوری برنامه شو تکمیل کنم برنامه ی راه اندازی UBLOX با RX اصلی میکرو به این صورته:
$regfile = "m8def.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 "MEYSAM"
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
که این برنامه رو میخواستم روی پین PORTD.7 اینکارو کنم
و تا اینجا که میایم d.7 رو ورودی در نظر میگیریم رو بلدم که به این صورت قرارا میدیم
Open "comd.7:9600,8,n,1" For Input As #1
ولی در ادامه گیج میشم، لطفا راهنماییم کنین :cry2:
دیدگاه