سلام
من یه پروزه وایرلس با hm-t و hm-r دارم انجام میدم که با مشکل روبرو شدم و دیتا های عجیب غریب تو گیرنده در یافت کردم .... تو تاپیکای انجمن کلی گشتم و .... :read:
مقاله اقای سروری رو هم خوندم ولی جواب نگرفتم ، حتی کد های خود مقاله رو دقیقا استفاده کردم ولی باز هم نشد !
بعد به توصیه دوستان ماژولا رو کنار گذاشتم و با سیم txd میکروی اول رو به rxd میکروی دو م وصل کردم
ولی از شانس من باز هم کار نکرد و تا سیم ارتباطی سریال بین دو میکرو رو وصل می کنم ، گیرنده شروع می کنه به دریافت دیتاهای عجیب غریب (علامت و ...) حتی قبل از اینکه فرستنده رو روشن کنم !
تو یه تاپیکی خوندم که باید داده های سریالمو بافر کنم ولی باز هم نشد ، یه جا دیگه گفته بود که باید از Enable Interrupts استفاده کنم ولی باز هم نشد ....
اصلا انگار نویز رو پورت سریالمه !؟ میکرو رو عوض کردم ولی فرقی نکرد. :sad:
قبلا از میکرو به کامپیوتر دیتا ارسال کردک (با دستور print) و با دستور inkey هم دیتا دریافت کردم ولی میکرو به میکرو تا حالا کار نکردم....
حتی تو یکی از تاپیک ها بیان نموده بودند که از دستور زیر باید استفاده کرد :
ولی باز هم فایده نداشت.
برنامه فرستنده من :
نکته : از inkey استفاده کردم نشد . از input استفاده کردم نشد .... از دستور print هم بصورت عادی و هم بصورت زیر استفاده کردم ولی باز هم نشد ؟!
تو یکی از تاپیک ها بیان شده بود که حتما باید در آخر دستور print علامت ; باشد. ولی باز هم کار ساز نبود.
توجه : برنامه رو با wait های مختلف 20 میلی ثانیه تا 100 میکی ثانیه و حنتی 1-2 ثانیه نوشتم ولی باز هم نشد ....
مدارو تا حالا 4-5 باز از اول بستم و باز کردم .... دیگه دارم دیوونه میشم .... :angry: :cry2:
برنامه گیرنده من :
لطفا کمک بنمایید. پیشاپیش ممنون.
ضمنا مقاله avr_1nafar رو هم دیدم ولی چیز خاصی ندیدم.....
:cry2:
من یه پروزه وایرلس با hm-t و hm-r دارم انجام میدم که با مشکل روبرو شدم و دیتا های عجیب غریب تو گیرنده در یافت کردم .... تو تاپیکای انجمن کلی گشتم و .... :read:
مقاله اقای سروری رو هم خوندم ولی جواب نگرفتم ، حتی کد های خود مقاله رو دقیقا استفاده کردم ولی باز هم نشد !
بعد به توصیه دوستان ماژولا رو کنار گذاشتم و با سیم txd میکروی اول رو به rxd میکروی دو م وصل کردم
ولی از شانس من باز هم کار نکرد و تا سیم ارتباطی سریال بین دو میکرو رو وصل می کنم ، گیرنده شروع می کنه به دریافت دیتاهای عجیب غریب (علامت و ...) حتی قبل از اینکه فرستنده رو روشن کنم !
تو یه تاپیکی خوندم که باید داده های سریالمو بافر کنم ولی باز هم نشد ، یه جا دیگه گفته بود که باید از Enable Interrupts استفاده کنم ولی باز هم نشد ....
اصلا انگار نویز رو پورت سریالمه !؟ میکرو رو عوض کردم ولی فرقی نکرد. :sad:
قبلا از میکرو به کامپیوتر دیتا ارسال کردک (با دستور print) و با دستور inkey هم دیتا دریافت کردم ولی میکرو به میکرو تا حالا کار نکردم....
حتی تو یکی از تاپیک ها بیان نموده بودند که از دستور زیر باید استفاده کرد :
کد:
Config Serialin = Buffered , Size = 50
برنامه فرستنده من :
کد:
' wireless temp sender ' SEND $regfile = "m16def.dat" $crystal = 8000000 $baud = 9600 Dim S As String * 1 Config Portb = Input Dim E As Bit E = 1 S = "h" Main: Do If Portb.0 = 1 And E = 1 Then Print S E = 0 Goto Fff End If Loop Fff: Wait 2 E = 1 Goto Main End
کد:
print S;chr(13);
توجه : برنامه رو با wait های مختلف 20 میلی ثانیه تا 100 میکی ثانیه و حنتی 1-2 ثانیه نوشتم ولی باز هم نشد ....
مدارو تا حالا 4-5 باز از اول بستم و باز کردم .... دیگه دارم دیوونه میشم .... :angry: :cry2:
برنامه گیرنده من :
کد:
' wireless temp sender ' RECEIVE $regfile = "m32def.dat" $crystal = 8000000 $baud = 9600 Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.5 , Rs = Portb.4 Config Lcd = 16 * 2 Cursor Off Config Serialin = Buffered , Size = 1 Enable Interrupts Dim S As String * 1 S = "" Main: Cls Home Lcd "no data" Home L Lcd "joone amat bia" Wait 1 Cls Do Locate 1 , 1 Lcd "temp:" S = Inkey() Locate 2 , 1 Lcd S If S = "h" Then Cls Home Lcd "h umad yuhu" Exit Do End If Loop Locate 2 , 5 Lcd "s end=" ; S End
لطفا کمک بنمایید. پیشاپیش ممنون.
ضمنا مقاله avr_1nafar رو هم دیدم ولی چیز خاصی ندیدم.....
:cry2:
دیدگاه