با سلام...
کسی اگه میتونه لطفا کمک کنه بشدت برای راه اندازیش بکمک نیاز دارم.خودم یه کدی نوشتم که میکرو عدد یک را به gy-26 می فرسته و gy جهت مثلا "120.2" را به میکرو میفرسته وبعد میکرو اون را برای pc ارسال می کنه ولی من رو pc داده مربوط را بصورت نامفهوم دریافت می کنم :angry:
:cry:
در ضمن من همزمان از پورت سریال سخت افزاری و نرم افزاری استفاده می کنم.
datasheet:
http://www.elechouse.com/elechouse/i...6%20manual.pdf
کسی اگه میتونه لطفا کمک کنه بشدت برای راه اندازیش بکمک نیاز دارم.خودم یه کدی نوشتم که میکرو عدد یک را به gy-26 می فرسته و gy جهت مثلا "120.2" را به میکرو میفرسته وبعد میکرو اون را برای pc ارسال می کنه ولی من رو pc داده مربوط را بصورت نامفهوم دریافت می کنم :angry:
:cry:در ضمن من همزمان از پورت سریال سخت افزاری و نرم افزاری استفاده می کنم.
datasheet:
http://www.elechouse.com/elechouse/i...6%20manual.pdf
$regfile "m16def.dat"
$crystal = 8000000
$baud = 9600
Dim Angle As String * 10
'Config Pind.0 = Input
'Config Pind.1 = Output
'Config Pinc.2 = Input
'Config Pinc.3 = Output
Open "coma.6:9600,8,n,1" For Input As #1
Open "coma.7:9600,8,n,1" For Output As #2
'Open "comc.2:9600,8,n,1" For Input As #3
'Open "comc.3:9600,8,n,1" For Output As #4
Do
'Send hex 31 or use &h31
Input "1" , Angle
' get angle
Print #2 , "Angle" ; ": " ; Angle
Wait 1
Loop
$crystal = 8000000
$baud = 9600
Dim Angle As String * 10
'Config Pind.0 = Input
'Config Pind.1 = Output
'Config Pinc.2 = Input
'Config Pinc.3 = Output
Open "coma.6:9600,8,n,1" For Input As #1
Open "coma.7:9600,8,n,1" For Output As #2
'Open "comc.2:9600,8,n,1" For Input As #3
'Open "comc.3:9600,8,n,1" For Output As #4
Do
'Send hex 31 or use &h31
Input "1" , Angle
' get angle
Print #2 , "Angle" ; ": " ; Angle
Wait 1
Loop
دیدگاه