مشکل در دریافت کامل دیتا - rs485

[majidrt27]

مهندسین کمک لطفا
من تونستم با rs485 ارتباط برقرار کنم
مشکل اینه که وقتی عدد 544.56 رو می فرستم فقط 54 دریافت می کنه.به نظر شما مشکل از چی می تونه باشه؟
حتی 122 هم میفرستم باز 12 دریافت میکنه

[galaxyking]

پاسخ : مشکل در دریافت کامل دیتا - rs485

میشه بیشتر توضیح بدی
که هر دو طرف میکروه یا کامپیوتره
بعدشم برنامه اون قسمت ارسال دیتا و دریافت اطلاعات رو بزار ببینیم چی به چیه

[majidrt27]

پاسخ : مشکل در دریافت کامل دیتا - rs485

تشکر
هر دو طرف میکرو
یکی mega8(ارسال) و یکی mega128 (دریافت) برای mega 128 پایه ی ارسال و دریافت رو به rx1 ,tx1 وصل کردم
برنامه دریافت
$regfile = "m128def.dat"
$crystal = 16000000 ' used crystal frequency
$baud = 1200 ' use baud rate
$baud1 = 1200
$hwstack = 32 ' default use 32 for the hardware stack

$swstack = 10 ' default use 10 for the SW stack

$framesize = 40 ' default use 40 for the frame space
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Com2 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Open "com2:" For Binary As #1 ' use baud rate
'++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++++++++++++++++++
Config Graphlcd = 240 * 128 , Dataport = Porta , Controlport = Portf , Ce = 4 , Cd = 5 , Wr = 2 , Rd = 3 , Reset = 7 , Fs = 6 , Mode = 8
Cls
Cursor Off
'++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++++++++++++++++++
Dim A As String * 10
Dim B As Byte
Config Portd.1 = Output
Portd.1 = 0
Do

'waitms 200
Locate 1 , 1
Lcd "majid"
Input #1 , A
Locate 2 , 1
Lcd "majid"
Locate 3 , 1
Lcd A
Loop
End
================================================== ===================================
برنامه ارسال

$regfile = "m8def.dat"
$crystal = 16000000

$baud = 1200
$hwstack = 32 ' default use 32 for the hardware stack

$swstack = 10 ' default use 10 for the SW stack

$framesize = 40

Dim Dis As String * 15

dim Rhlintemp As Single
Dim Tempc As String * 15
Dim Tempf As Single
Portd.2 = 1



''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''''''&# 039;'''''''&#03 9;'''''''' ''''
Tempc = "majid"
Do

Print Tempc
waitms 100
Loop

End

[mojalan]

پاسخ : مشکل در دریافت کامل دیتا - rs485

من بیسیک بلد نیستم اما چرا باود دو طرف یکی نیسیت یکی 1200 اونیکی 19200 !
در ضمن بهتره به جای کریستال 16 مگ از 14.7456 استفاده کنی تا خطای باودت صفر باشه

[majidrt27]

پاسخ : مشکل در دریافت کامل دیتا - rs485

من بیسیک بلد نیستم اما چرا باود دو طرف یکی نیسیت یکی 1200 اونیکی 19200 !
در ضمن بهتره به جای کریستال 16 مگ از 14.7456 استفاده کنی تا خطای باودت صفر باشه

اشتباه تایپی بود
ولی چرا فقط 2 رقم رو دریافت می کنه؟