مشکل در راه اندازی ماژول RFM12b

[esalimi]

با عرض سلام و خسته نباشید و تبریک سال نو خدمت همه دوستان عزیز

الان چند روزه که درگیر راه انداختن ماژول rfm12b هستم اما متاسفانه راه نمی افته

این ماژول را با توجه به مطالبی که آقای محمود حسنی گفتن بستم و کار نکرد و شروع کردم به تست و اشکال یابی تا اینکه فهمیدم برنامه میکرو تو روال وقفه مربوط به پایه nirq می مونه و برنمی گرده ، چون کانفیگ روال وقفه تو برنامه حساس به سطح پایینه ، ولتاژ روی پایه nirq ماژول رو اندازه گیری کردم، دیدم که صفر ولته و برای همین میکرو توی روال وقفه می مونه.

حالا نمی دونم چیکار کنم ، به نظر شما ماژول شوخته ، آیا راهی برای فهمیدن این قضیه هست یا نه؟

من قبلا با ماژولهای HMTR کار کرده بودم ، الانم برای پروژه دانشگاه این ماژول رو به خاطر قیمت مناسبش انتخاب کردم اما تا الان که پشیمونم کرده.

پست های مربوط به این موضوع رو هم دیدم اما چیزی دستگیرم نشد.

با تشکر از دوستان

[aivhl]

پاسخ : مشکل در راه اندازی ماژول RFM12b

با سلام،

اینجا رو یه نگاهی بنداز، شاید کارت راه بیافته :

http://www.eca.ir/forum2/index.php?topic=11776.msg449019#msg449019

[esalimi]

پاسخ : مشکل در راه اندازی ماژول RFM12b

ممنون از لینکی که معرفی کردید اما من با بسکام دارم کار می کنم و نشد از کتابخانه rfm12 استفاده کنم.

این سورس برنامه است ، به نظرتون برنامه مشکل داره ؟

$regfile = "M32def.dat"
$crystal = 1000000

Dim Send_data(8) As Byte
Dim Received_data(8) As Byte
Dim Send_word As Word
Dim Send_byte As Byte
Dim Received_word As Word
Dim Received_byte As Byte
Dim Receive_flag As Bit
Const Master_cod = 100
Const Slave_cod = 125

Dim Send_data_crc As Byte
Dim Received_data_crc As Byte
Dim Calculated_crc As Byte
Dim Crc_error As Byte

Dim Conter1 As Byte
Dim Conter2 As Byte
Dim Conter3 As Byte

Dim Rfm12_config_data(12) As Word
Rfm12_config_data(1) = &H80D7
Rfm12_config_data(2) = &H82D9
Rfm12_config_data(3) = &HA640
Rfm12_config_data(4) = &HC647
Rfm12_config_data(5) = &H94A0
Rfm12_config_data(6) = &HC2AC
Rfm12_config_data(7) = &HCA81
Rfm12_config_data(8) = &HC483
Rfm12_config_data(9) = &H9850
Rfm12_config_data(10) = &HE000
Rfm12_config_data(11) = &HC800
Rfm12_config_data(12) = &HC040

Dim Send_start_protocol(5) As Byte
Send_start_protocol(1) = &HAA
Send_start_protocol(2) = &HAA
Send_start_protocol(3) = &HAA
Send_start_protocol(4) = &H2D
Send_start_protocol(5) = &HD4

Config Portd.3 = Output
Config Portd.2 = Input
Config Portd.4 = Output
Config Portd.5 = Input
Config Portd.6 = Output

Config Porta.0 = Output
Config Porta.1 = Output

Sck Alias Portd.6
Sdo Alias Pind.5
Sdi Alias Portd.4
Nsel Alias Portd.3
Nirq Alias Pind.2

Set Nsel
Set Sdi
Reset Sck


For Conter1 = 0 To 12
Send_word = Rfm12_config_data(conter1)
Gosub Rfm12_read_write
Next

Send_word = &H82D9
Gosub Rfm12_read_write
Send_word = &HCA82
Gosub Rfm12_read_write


Config Int0 = Low Level
Disable Int0
Enable Interrupts
On Int0 Receive_data
Enable Int0


Main:

Do

Send_data(1) = Slave_cod
Send_data(2) = 1
Gosub Send_data


Waitms 200

Bitwait Receive_flag , Set
Bitwait Receive_flag , Set


Waitms 200


If Receive_flag = 1 And Crc_error = 0 Then
Receive_flag = 0
If Received_data(1) = 100 Then
Set Porta.1
End If
End If
Waitms 500
Loop

Send_data:

Disable Int0

Send_word = &H8239
Gosub Rfm12_read_write

For Conter1 = 1 To 5

Send_byte = Send_start_protocol(conter1)
Gosub Rfm12_send_one_byte

Next


For Conter1 = 1 To 8

Send_byte = Send_data(conter1)
Gosub Rfm12_send_one_byte

Next

Send_data_crc = Crc8(send_data(1) , 8)

Send_byte = Send_data_crc
Gosub Rfm12_send_one_byte

Send_byte = &HAA
Gosub Rfm12_send_one_byte
Send_byte = &H99
Gosub Rfm12_send_one_byte

Send_word = &H82D9
Gosub Rfm12_read_write
Send_word = &HCA83
Gosub Rfm12_read_write


Enable Int0

Return


Receive_data:

Set Porta.0
Waitms 500
Reset Porta.0
Waitms 500


Disable Int0

Conter1 = 0
While Conter1 < 8
Incr Conter1


Send_word = &HCA83
Gosub Rfm12_read_write


Gosub Rfm12_receive_one_byte
Received_data(conter1) = Received_byte

Wend


Send_word = &HCA83
Gosub Rfm12_read_write

Gosub Rfm12_receive_one_byte
Received_data_crc = Received_byte
Send_word = &HCA81
Gosub Rfm12_read_write

Send_word = &H82D9
Gosub Rfm12_read_write
Send_word = &HCA82
Gosub Rfm12_read_write

Calculated_crc = Crc8(received_data(1) , 8)


If Calculated_crc = Received_data_crc Then
Crc_error = 0
Else
Crc_error = 1
End If

'-------------------

Enable Int0
Receive_flag = 1

Return

Rfm12_read_write:

Received_word = 0
Reset Sck
Reset Nsel

For Conter3 = 15 To 0 Step -1

Sdi = Send_word.conter3
Set Sck
Received_word.conter3 = Sdo
Reset Sck

Next


Reset Sck
Set Nsel

Return


Rfm12_send_one_byte:

Bitwait Nirq , Reset

Send_word = &HB800 Or Send_byte
Gosub Rfm12_read_write

Return



Rfm12_receive_one_byte:

Bitwait Nirq , Reset

Send_word = &HB000
Gosub Rfm12_read_write

Received_byte = Low(received_word)

Return

End

همون طور که تو بخش Receive_data برنامه رو می بینید ، یکی از پایه میکرو رو صفر و یک کردم تا ببینم این بخش چه طور کار می کنه اما وقتی مدار رو روشن می کنم ، این پایه دائما صفر و یک میشه.
فکر می کنم ماژول کانفیگ نمیشه که پایه nirq اون high نمیشه .

یا ماژول خراب شده یا کار من ایراد داره.

دوستان به دادم برسن دیگه کلافم کرده!؟

[esalimi]

پاسخ : مشکل در راه اندازی ماژول RFM12b

کسی نبود؟

[esalimi]

پاسخ : مشکل در راه اندازی ماژول RFM12b

ممنون از راهنمایی دوستان!!!

[بسطام بیرامی]

پاسخ : مشکل در راه اندازی ماژول RFM12b

ممنون از راهنمایی دوستان!!!

دوست عزیز از پایه انتخابت اشتباه بوده
من هم RFM23BP و هم RFM69HW رو راه اندازی کردم
به شدت ماژول های بدرد نخور و مسخره ای هستن
برای یه پروژه حدود 100 تاشو خریدم و انداختم اینجا اصلا قابل اطمینان نیستن
نوشته 1 وات توان خروجی ولی اصلا برد خوبی ازشون نمیشه گرفت
من راه اندازی کردمو 1001 مشکل باش دارم اگه راش ننداختی کلا بیخیالش شو چون راه بیوفته تازه مکافاتت شروع میشه
اگر هم بتونی راش بندازی یه بار کار میکنه ده بار کار نمیکنه
Xbee Pro بگیر خودتو راحت کن

[esalimi]

پاسخ : مشکل در راه اندازی ماژول RFM12b

ممنون از راهنمایی تون
نه هنوز راه نیفتاده

من قصد داشتم ماژول HMTR رو بگیرم ، این ماژولی که گفتید بهتره؟

[esalimi]

پاسخ : مشکل در راه اندازی ماژول RFM12b

راستی متوجه نشدم اشتباهم کجا بوده ، میشه بیشتر توضیح بدید؟

[بسطام بیرامی]

پاسخ : مشکل در راه اندازی ماژول RFM12b

ممنون از راهنمایی تون
نه هنوز راه نیفتاده

من قصد داشتم ماژول HMTR رو بگیرم ، این ماژولی که گفتید بهتره؟

والا من بسکام کار نکردم
برنامه شما رو هم نخوندم
با HMTR هم کار نکردم نمیدونم چطوره
ولی تجربه کلی که دارم این که محصولات HopeRF مفت نمی ارزن
حتی ما با مهدنس چینی سازدنشم تماس داشتیم اونم نتونس کمکی بکنه
کلا ماژولاشون بدردنخورن
حتی دوستی میگفت این ماژولا رو میدن به ما جهان سومیا که باگ هاشونو در بیاریم تا بتونن تکمیلش کنن
یعنی این نسخه ها آزمایشی و پر از اشکالن
پس بهتره پروژه رو بر اساس ماژولی که بینهایت ایراد داره نبدنی
و این که با Xbee Pro کار کردم عالیه
مرگ نداره راه اندازی هم میشه گفت نداره
تغذیشو وصل کن خودش کار میکنه :biggrin:

[esalimi]

پاسخ : مشکل در راه اندازی ماژول RFM12b

آقای بیرامی این ماژول xbee pro قیمتش در چه حدودیه ؟

من یه خورده گشتم به نظرم قیمتش بالاست!

ماژول شما مدلش چیه و قیمتش چقدره؟
ممنون

[بسطام بیرامی]

پاسخ : مشکل در راه اندازی ماژول RFM12b

آقای بیرامی این ماژول xbee pro قیمتش در چه حدودیه ؟

من یه خورده گشتم به نظرم قیمتش بالاست!

ماژول شما مدلش چیه و قیمتش چقدره؟
ممنون

Xbee Pro 2
والا ما 21 خردیم دونه ای 180ت اگر اشتباه نکنم
الان فکنم رو 270 اینا باشه
گرونه ولی آخر ماژوله
Sim20 هم خوبه من باش کار نکردم ولی ماژولای SimCom خوبن
با SIM908 کار کردم مشکلی نداش
از

[baghmirani]

پاسخ : مشکل در راه اندازی ماژول RFM12b

با سلام،

اینجا رو یه نگاهی بنداز، شاید کارت راه بیافته :

http://www.eca.ir/forum2/index.php?topic=11776.msg449019#msg449019

سلام شرمنده این لینکی که معرفی کردید وقتیکه من میخوام ببینمش این پیغام رو میده :
موضوع یا انجمن مورد نظر، برای شما محدود می باشد و شما اجازه دیدن آن را ندارید.
چیکار باید بکنم؟ :question: