پاسخ : مشکل با rs485
با سلام و عذرخواهی از اینکه دیر جواب دادم. داده ای که قصد ارسالش رو دارید چه نوعیه؟ رشته یا باینری؟
نوشته اصلی توسط soh3il
-
-
پاسخ : مشکل با rs485
\میخوام اطلاعات و بصورت باینری انتقال بدم یک فایل هم پلود کردم یه نگاه کنی ممنون میشمنوشته اصلی توسط aedدیدگاه
-
پاسخ : مشکل با rs485
سلام
اگه از BUS دیتا مطمئنی ، یعنی مشکل سخت افزار نداری میشه مشکل نرم افزار را حل کرد.
شماتیکی که دوستمون قرار دادن یک شماتیک کاملهنوشته اصلی توسط بسطام بیرامیخب ببین دوست عزیز مشکل شما شماتیک برنامه نیست
اگه برنامه ایراد داشت زیر 5 متر هم جواب نمیداد
شماتیکو اینطوری اصلاح کن درست میشه
خبرشم بده ببینم چیکار کردی
برای ارسال مقادیر هم من قبلا بارها گفتم باید از مد Request-Answer استفاده کنید.
یعنی Master درخواست بده و بعد Slave جواب بده ، این بهترین روش تبادل اطلاعاته.
در این حالت در صورتی که Slave مشکلی براش پیش بیاد میتونی تشخیص بدی . در ضمن خطا در هنگام قطع و وصل برق هم نداری چون ترتیب دیتا ها قابل کنترل هستند.
موفق باشید
امام علی (علیه السلام) : الزکات العلم نشرهُ/ زکات علم نشر آن استدیدگاه
-
پاسخ : مشکل با rs485
[quote author=abbas1371sa link=topic=77696.msg469063#msg469063 date=1370080493]
سلام
اگه از BUS دیتا مطمئنی ، یعنی مشکل سخت افزار نداری میشه مشکل نرم افزار را حل کرد.
شماتیکی که دوستمون قرار دادن یک شماتیک کامله
برای ارسال مقادیر هم من قبلا بارها گفتم باید از مد Request-Answer استفاده کنید.
یعنی Master درخواست بده و بعد Slave جواب بده ، این بهترین روش تبادل اطلاعاته.
در این حالت در صورتی که Slave مشکلی براش پیش بیاد میتونی تشخیص بدی . در ضمن خطا در هنگام قطع و وصل برق هم نداری چون ترتیب دیتا ها قابل کنترل هستند.
موفق باشید
براتون امکامن داره یک نمونه کد مستر اسلیو بذاریدیدگاه
-
پاسخ : مشکل با rs485
با سلام. تغییراتی در کد شما ایجاد کردم. امیدوارم مشکل حل شود. با توجه به اینکه داده ارسالی شما همیشه کوچک تر از عدد 100 است از یک قرار داد خیلی ساده استفاده شده است. اعداد 254 و 253، برای فیلد شروع و پایان در نظر گرفته شده است و عدد داده نیز دو بار ارسال می شود. یعنی برای هر بار ارسال عدد مورد نظر، 4 بایت داده ارسال می شود. در گیرنده نیز فیلد شروع و پایان بررسی شده و در صورت تساوی دو بایت داده، مقدار داده برداشت می شود. در ضمن برای حداقل کردن خطای نرخ انتقال سریال، از یک کریستال مناسب مانند 11.0592 مگاهرتز استفاده کنید و از اسیلاتور داخلی میکرو، برای ارتباط سریال استفاده نکنید.
کد:$regfile = "m8def.dat" $crystal = 1000000 $hwstack = 50 $swstack = 50 $framesize = 50 $baud = 9600 Config Adc = Single , Prescaler = Auto Start Adc Config Portd.2 = Output $lib "modbus.lbx" const field_start = 253 const field_end = 254 '-------------------------------------------------------- Dim A As Long Dim B As Long Dim C As Byte Dim T(10) As String * 10 Dim T1 As Word Dim T2 As String * 10 Dim W As Byte Dim Adc1 As Word Dim Adc0 As Word Dim Adc2 As Word Dim Adc3 As Word Dim Singlee0 As Word Dim Singlee1 As Word Dim Temp As Byte , Sta As Byte , Fin As Byte Dim Temp2 As Byte Dim Temp3 As Word Dim Temp4 As Byte Dim Stringg As String * 1 Dim Stringg2 As String * 8 dim data_arr(4) as byte '------------------------------------------ Portd.2 = 0 Temp = 0 '------------------------------------------ Do Temp = Temp + 1 If Temp > 99 Then Temp = 0 data_arr(1) = field_start data_arr(2) = Temp data_arr(3) = Temp data_arr(4) = field_end for i = 1 to 4 Printbin data_arr(i) waitms 10 next i Waitms 500 Loop End '------------------------------------------
کد:$regfile = "m16def.dat" $crystal = 1000000 $hwstack = 50 $swstack = 50 $framesize = 50 $baud = 9600 $lib "modbus.lbx" '------------------------------------------------------- Config Portc = Output Config Portd.2 = Output Portd.2 = 0 Config Portd.3 = Output Config Portd.4 = Output Config Portd.5 = Output Config Portd.6 = Output Config Portb.0 = Output Config Portb.1 = Output Config Portb.2 = Output Config Portb.3 = Output Config Pina.4 = Input Config Pina.5 = Input Config Pina.6 = Input Config Pina.7 = Input const field_start = 253 const field_end = 254 '-------------------------------------------------------- Dim serial_idx As Byte, data as byte, data1 as byte, data2 as byte Dim A As Byte , K As Byte Dim Aaa As Byte , Ii As Byte , Jj As Byte , Highi As Byte , Highj As Byte Dim Bbb As Byte , I As Byte , J As Byte , Lowi As Byte , Lowj As Byte Dim Ax As Word Dim B As Byte , Sta As Byte Dim D As Byte Dim Bx As Word Dim W As Byte , G As Bit Dim S As Byte , F As Byte Dim X As Word Dim Sa As Word Dim Ma As Eram Word Dim Mi As Eram Word Dim Maa As Eram Word Dim Mii As Eram Word Dim Bb As Word , Hight As Word Dim Cc As Word , Lowt As Word Dim B_high As Word , Hight_high As Word Dim B_low As Word , Hight_low As Word Dim C_high As Word , Lowt_high As Word Dim C_low As Word , Lowt_low As Word Dim T As Byte , Tw As Byte , Ttw As Byte Dim Ww As Bit , Www As Bit , Aw As Bit , Bw As Bit , Cw As Bit , Dw As Bit Bb = Ma Cc = Mi Hight = Maa Lowt = Mii '--------------------------------------------- Set_key Alias Pina.6 Up Alias Pina.4 Down Alias Pina.7 Esc Alias Pina.5 Relayh Alias Portb.2 Relayl Alias Portb.3 Le1 Alias Portd.3 Le2 Alias Portd.5 Le3 Alias Portd.4 Le4 Alias Portd.6 T = 1 K = 0 W = 11 '-------------------------------------------- On Urxc Rec0_isr Enable Urxc Enable Interrupts '--------------------------------------------- Portd.2 = 0 Waitms 2000 Portb.1 = 1 '-------------------------------------------- Getdata: Do if serial_idx = 4 then 'data is ready now serial_idx = 0 if data1 = data2 then 'data is true S = data1 If S = 5 Then Relayh = 1 If S = 15 Then Relayh = 0 Relayl = 1 End If If S = 30 Then Relayh = 1 Relayl = 0 End If If S = 45 Then Relayh = 0 Relayl = 1 End If If S = 60 Then Relayh = 1 Relayl = 0 End If If S = 85 Then Relayh = 0 Relayl = 1 End If If S = 95 Then Relayh = 1 Relayl = 0 End If Portc = Lookup(10 , Digit) Le1 = 1 Le1 = 0 Portc = Lookup(1 , Digit) Le2 = 1 Le2 = 0 If S < 10 Then Portc = Lookup(0 , Digit) Le3 = 1 Le3 = 0 Portc = Lookup(s , Digit) Le4 = 1 Le4 = 0 End If If S >= 10 Then Aaa = S / 10 Portc = Lookup(aaa , Digit) Le3 = 1 Le3 = 0 '--------------------------------------- Bbb = S Mod 10 Portc = Lookup(bbb , Digit) Le4 = 1 Le4 = 0 Waitms 100 End If end if end if Loop '--------------------------------------- Rec0_isr: inputbin data select case serial_idx case 0: if data = field_start then incr serial_idx case 1: if data < 100 then incr serial_idx data1 = data else serial_idx = 0 end if case 2: if data < 100 then incr serial_idx data2 = data else serial_idx = 0 end if case 3: if data = field_end then incr serial_idx else serial_idx = 0 end if end select Return '--------------------------------------- Digit: Data &B01110111 '0 Data &B00100100 '1 Data &B01011110 '2 Data &B01101110 '3 Data &B00101101 '4 Data &B01101011 '5 Data &B01111011 '6 Data &B00100110 '7 Data &B01111111 '8 Data &B01101111 '9 Data &B00111111 'A Data &B00001000 '- Data &B01010001 'L Data &B00111101 'H '--------------------------------------- Digit1: Data &B00111111 '0 Data &B00000110 Data &B01011011 Data &B01001111 Data &B01100110 Data &B01101101 Data &B01111100 Data &B00000111 Data &B01111111 Data &B01100111 '9 Data &B01110111 Data &B01000000 Data &B00111000 Data &B01110110
دیدگاه
-
پاسخ : مشکل با rs485
جناب aed واقعا از وقتی که گذاشتید تشکر میکنم لطف بزرگی نمودید
تست میکنم جواب و ارسال میکنم :wow:دیدگاه
-
پاسخ : مشکل با rs485
با تشکر از تمامی دوستان عزیز با قرار دادن کریستال خارجی 11.0592 و همچنین کد اصلاح شده دوست عزیزمان آقای aed مشکل حل شد وسیستم به خوبی کار میکنه البته اگر اساتید مایل باشند این تاپیک و ادامه بدیم تا مرجعی بشه باسه بقیه دوستان :applause:دیدگاه
-
پاسخ : مشکل با rs485
آقایون میشه راهنمایی کنید اگه یک مستر داشتیم و دو اسلیو چجوری میتونیم کد بندی کنیم خیلی ممنون میشمدیدگاه
-
پاسخ : مشکل با rs485
باید برای هر slave یک آدرس (مثلا یک عدد یک بایتی) در نظر بگیرید و هنگام ارسال قاب داده، این آدرس را هم ارسال کنید. در این صورت همه گره های متصل شده به گذرگاه، این قاب داده را دریافت می کنند و تنها گرهی که آدرس آن در قاب داده وجود دارد، داده را دریافت می کند. در نمونه کد بالا، بایت آدرس را می توان پس از بایت شروع، در آرایه قرار داد و در نتیجه 5 بایت داده ارسال می شود.نوشته اصلی توسط saeid bahariدیدگاه
-
پاسخ : مشکل با rs485
[quote author=aed link=topic=77696.msg469606#msg469606 date=1370231175]
باید برای هر slave یک آدرس (مثلا یک عدد یک بایتی) در نظر بگیرید و هنگام ارسال قاب داده، این آدرس را هم ارسال کنید. در این صورت همه گره های متصل شده به گذرگاه، این قاب داده را دریافت می کنند و تنها گرهی که آدرس آن در قاب داده وجود دارد، داده را دریافت می کند. در نمونه کد بالا، بایت آدرس را می توان پس از بایت شروع، در آرایه قرار داد و در نتیجه 5 بایت داده ارسال می شود.
به نظر شما در این صورت باس داده اشغال نمیشه فرض کنیم دو تا از اسلیو ها با هم ارسال داده انجام بدندیدگاه
-
پاسخ : مشکل با rs485
در چنین گذرگاهی باید همیشه شروع ارتباط با master باشد و فقط slave مورد نظر (که آدرس آن توسط master در قاب داده قرار گرفته) باید پاسخ دهد. اگر هم به طور همزمان، دو گره ارسال داده داشته باشند (که معمولا اتفاق نمی افتد) چون قاب داده در گره ها بررسی می شود، خطا تشخیص داده خواهد شد. یک پروتکل کامل برای چنین ارتباطی، مدباس است. اسناد مربوط به این پروتکل را می توانید از سایت modbus.org تهیه کنید.دیدگاه
-
پاسخ : مشکل با rs485
ببین دوست عزیز من شروع کار و با مستر انجام دادم یعنی یک کد به اسلیو فزستادم و این کد توسط اسلیو دریافت میشه حالا برای پاسخ جهت portd.2 باید توی مستر و اسلیو عوض بشه وقتی برنامه به این مرحله میرسه پیغام frame size error رو توی شبیه ساز دارم میخواستم یک خواهشی ازتون بکنم شما که کد به این خوبی برام قرستادید یک لطف بکنید این قسمت و هم یک کد بنویسید و برنامه و تکمیل بفرمایید واقعا سپاس گذار میشمنوشته اصلی توسط aedدیدگاه
-
پاسخ : مشکل با rs485
نمونه کد قبلی را برای چند slave بودن تغییر دادم و البته آزمایش نکردم. امیدوارم مشکل شما حل شود. در این کد، master ابتدا برای Slave آدرس 1 درخواست ارسال می کند و 1 ثانیه منتظر پاسخ می ماند. سپس برای slave آدرس 2 درخواست ارسال می کند و 1 ثانیه منتظر پاسخ می ماند.هر دو slave درخواست ها را دریافت می کنند و اگر آدرس خود را در درخواست ببینند، پاسخ می دهند. پاسخ slave به درخواست، دقیقا همان داده در خواست است.
کد:$regfile = "m8def.dat" $crystal = 1000000 $hwstack = 50 $swstack = 50 $framesize = 50 $baud = 9600 Config Adc = Single , Prescaler = Auto Start Adc Config Portd.2 = Output $lib "modbus.lbx" const field_start = 253 const field_end = 254 '-------------------------------------------------------- Dim A As Long Dim B As Long Dim C As Byte Dim T(10) As String * 10 Dim T1 As Word Dim T2 As String * 10 Dim W As Byte Dim Adc1 As Word Dim Adc0 As Word Dim Adc2 As Word Dim Adc3 As Word Dim Singlee0 As Word Dim Singlee1 As Word Dim Temp As Byte , Sta As Byte , Fin As Byte Dim Temp2 As Byte Dim Temp3 As Word Dim Temp4 As Byte Dim Stringg As String * 1 Dim Stringg2 As String * 8 dim data_req(5) as byte dim data_res(5) as byte dim serial_idx as byte, slave_address as byte '------------------------------------------ Portd.2 = 0 Temp = 0 On Urxc Rec0_isr Enable Urxc Enable Interrupts '------------------------------------------ Do Temp = Temp + 1 If Temp > 99 Then Temp = 0 'to slave 1 slave_address = 1 Portd.2 = 0 data_req(1) = field_start data_req(2) = slave_address 'slave address<=== data_req(3) = Temp data_req(4) = Temp data_req(5) = field_end for i = 1 to 5 Printbin data_req(i) waitms 10 next i 'wait for response serial_idx = 0 Portd.2 = 1 Waitms 1000 'check response if slave_idx = 5 then 'ok else 'error end if 'to slave 2 slave_address = 2 Portd.2 = 0 data_req(1) = field_start data_req(2) = slave_address 'slave address<=== data_req(3) = Temp data_req(4) = Temp data_req(5) = field_end for i = 1 to 5 Printbin data_req(i) waitms 10 next i 'wait for response serial_idx = 0 Portd.2 = 1 Waitms 1000 if slave_idx = 5 then 'ok else 'error end if Loop End '------------------------------------------ Rec0_isr: inputbin data select case serial_idx case 0: if data = field_start then incr serial_idx case 1: if data = slave_address then incr serial_idx else serial_idx = 0 end if case 2: if data < 100 then incr serial_idx data1 = data else serial_idx = 0 end if case 3: if data < 100 then incr serial_idx data2 = data else serial_idx = 0 end if case 4: if data = field_end then incr serial_idx else serial_idx = 0 end if end select Return
کد:$regfile = "m16def.dat" $crystal = 1000000 $hwstack = 50 $swstack = 50 $framesize = 50 $baud = 9600 $lib "modbus.lbx" '------------------------------------------------------- Config Portc = Output Config Portd.2 = Output Portd.2 = 0 Config Portd.3 = Output Config Portd.4 = Output Config Portd.5 = Output Config Portd.6 = Output Config Portb.0 = Output Config Portb.1 = Output Config Portb.2 = Output Config Portb.3 = Output Config Pina.4 = Input Config Pina.5 = Input Config Pina.6 = Input Config Pina.7 = Input const field_start = 253 const field_end = 254 const slave_address = 1 '-------------------------------------------------------- Dim serial_idx As Byte, data as byte, data1 as byte, data2 as byte Dim data_arr(5) As Byte Dim A As Byte , K As Byte, i as byte Dim Aaa As Byte , Ii As Byte , Jj As Byte , Highi As Byte , Highj As Byte Dim Bbb As Byte , I As Byte , J As Byte , Lowi As Byte , Lowj As Byte Dim Ax As Word Dim B As Byte , Sta As Byte Dim D As Byte Dim Bx As Word Dim W As Byte , G As Bit Dim S As Byte , F As Byte Dim X As Word Dim Sa As Word Dim Ma As Eram Word Dim Mi As Eram Word Dim Maa As Eram Word Dim Mii As Eram Word Dim Bb As Word , Hight As Word Dim Cc As Word , Lowt As Word Dim B_high As Word , Hight_high As Word Dim B_low As Word , Hight_low As Word Dim C_high As Word , Lowt_high As Word Dim C_low As Word , Lowt_low As Word Dim T As Byte , Tw As Byte , Ttw As Byte Dim Ww As Bit , Www As Bit , Aw As Bit , Bw As Bit , Cw As Bit , Dw As Bit Bb = Ma Cc = Mi Hight = Maa Lowt = Mii '--------------------------------------------- Set_key Alias Pina.6 Up Alias Pina.4 Down Alias Pina.7 Esc Alias Pina.5 Relayh Alias Portb.2 Relayl Alias Portb.3 Le1 Alias Portd.3 Le2 Alias Portd.5 Le3 Alias Portd.4 Le4 Alias Portd.6 T = 1 K = 0 W = 11 '-------------------------------------------- On Urxc Rec0_isr Enable Urxc Enable Interrupts '--------------------------------------------- Portd.2 = 0 Waitms 2000 Portb.1 = 1 '-------------------------------------------- Getdata: Do if serial_idx = 5 then 'data is ready now serial_idx = 0 if data1 = data2 then 'data is true 'create response Portd.2 = 0 data_arr(1) = field_start data_arr(2) = slave_address data_arr(3) = data1 data_arr(4) = data1 data_arr(5) = field_end 'send response for i = 1 to 5 printbin data_arr(i) next i Portd.2 = 1 S = data1 If S = 5 Then Relayh = 1 If S = 15 Then Relayh = 0 Relayl = 1 End If If S = 30 Then Relayh = 1 Relayl = 0 End If If S = 45 Then Relayh = 0 Relayl = 1 End If If S = 60 Then Relayh = 1 Relayl = 0 End If If S = 85 Then Relayh = 0 Relayl = 1 End If If S = 95 Then Relayh = 1 Relayl = 0 End If Portc = Lookup(10 , Digit) Le1 = 1 Le1 = 0 Portc = Lookup(1 , Digit) Le2 = 1 Le2 = 0 If S < 10 Then Portc = Lookup(0 , Digit) Le3 = 1 Le3 = 0 Portc = Lookup(s , Digit) Le4 = 1 Le4 = 0 End If If S >= 10 Then Aaa = S / 10 Portc = Lookup(aaa , Digit) Le3 = 1 Le3 = 0 '--------------------------------------- Bbb = S Mod 10 Portc = Lookup(bbb , Digit) Le4 = 1 Le4 = 0 Waitms 100 End If end if end if Loop '--------------------------------------- Rec0_isr: inputbin data select case serial_idx case 0: if data = field_start then incr serial_idx case 1: if data = slave_address then incr serial_idx else serial_idx = 0 end if case 2: if data < 100 then incr serial_idx data1 = data else serial_idx = 0 end if case 3: if data < 100 then incr serial_idx data2 = data else serial_idx = 0 end if case 4: if data = field_end then incr serial_idx else serial_idx = 0 end if end select Return '--------------------------------------- Digit: Data &B01110111 '0 Data &B00100100 '1 Data &B01011110 '2 Data &B01101110 '3 Data &B00101101 '4 Data &B01101011 '5 Data &B01111011 '6 Data &B00100110 '7 Data &B01111111 '8 Data &B01101111 '9 Data &B00111111 'A Data &B00001000 '- Data &B01010001 'L Data &B00111101 'H '--------------------------------------- Digit1: Data &B00111111 '0 Data &B00000110 Data &B01011011 Data &B01001111 Data &B01100110 Data &B01101101 Data &B01111100 Data &B00000111 Data &B01111111 Data &B01100111 '9 Data &B01110111 Data &B01000000 Data &B00111000 Data &B01110110
دیدگاه
-
پاسخ : مشکل با rs485
سلام مجدد آقا دستت درد نکنه باسه کدی که فرستادی چند تا اشکال ریز داشت بر طرف کردم تو شبیه ساز که ئاردش کردم دوباره پیغام خطا rx frame size میده نمیدونم با هاش چیکار بکنم فایل و پلود میکنم لطفا یه نگاه بهش بندازید
sari62.persiangig.com/modbus%20test.rarدیدگاه
-
پاسخ : مشکل با rs485
کد رو ویرایش کردم ولی باز اونچیزی که میخوام نشد و error میده البته باید بگم اون قسمتی که داره میشمره slave هست و قسمت 7seg / master کد ها رو میذارم لطفا یک نگاهی بکنید
کد قسمت slave
کد:[$regfile = "m8def.dat" $crystal = 11059200 $hwstack = 50 $swstack = 50 $framesize = 50 $baud = 9600 Config Adc = Single , Prescaler = Auto Start Adc Config Portd.2 = Output Const Field_start = 253 Const Field_end = 254 Const Slave_address = 1 '-------------------------------------------------------- Dim A As Long Dim B As Long Dim C As Byte , I As Byte Dim T(10) As String * 10 Dim T1 As Word Dim T2 As String * 10 Dim W As Byte Dim Adc1 As Word Dim Adc0 As Word Dim Adc2 As Word Dim Adc3 As Word Dim Singlee0 As Word Dim Singlee1 As Word Dim Temp As Byte , Sta As Byte , Fin As Byte Dim Temp2 As Byte Dim Temp3 As Word Dim Temp4 As Byte Dim Stringg As String * 1 Dim Stringg2 As String * 8 Dim Data0 As Byte , Data1 As Byte , Data2 As Byte Dim Data_arr(5) As Byte Dim Data_res(5) As Byte Dim Serial_idx As Byte '------------------------------------------ Temp = 0 On Urxc Rec0_isr Enable Urxc Enable Interrupts '------------------------------------------ Do Portd.2 = 0 Temp = Temp + 1 Waitms 400 If Temp > 99 Then Temp = 0 If Serial_idx = 3 Then 'data is ready now Serial_idx = 0 Portd.2 = 1 'data is true 'create response Portd.2 = 1 Data_arr(1) = Field_start Data_arr(2) = Slave_address Data_arr(3) = Temp Data_arr(4) = Temp Data_arr(5) = Field_end 'send response For I = 1 To 5 Printbin Data_arr(i) Next I End If Loop End '------------------------------------------ Rec0_isr: Inputbin Data0 Select Case Serial_idx Case 0: If Data0 = Field_start Then Incr Serial_idx Case 1: If Data0 = Slave_address Then Incr Serial_idx Else Serial_idx = 0 End If Case 2: If Data0 = Field_end Then Incr Serial_idx Else Serial_idx = 0 End If End Select Return '---- ]
دیدگاه
دیدگاه