ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی «ورود به سایت» کلیک کنید.





اگر فرم ورود برای شما نمایش داده نمیشود، اینجا را کلیک کنید.









اگر فرم ثبت نام برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.






جهت تبلیغ در وب سایت ECA کلیک کنید.

کاربران برچسب زده شده

نمایش نتایج: از 1 به 6 از 6

موضوع: کد بندي rfm12

  1. #1
    2008/05/26
    1,045
    534

    کد بندي rfm12

    با سلام.
    من دنبال يه ماژول مناسب براي هواپيماي مدل هستم.
    RFM12 رو انتخاب کردم.نظر شما چيه؟؟
    اگه کسي يه برنامه بيسکام براي RFM12 با فرکانس 434 مگاهرتز داره ممنون ميشم اينجا قرار بده.
    ماژول بهتر با نحوه راه اندازي بهتر کسي سراغ نداره؟؟
  2. #2
    2008/05/26
    1,045
    534

    پاسخ : ماژول مناسب براي هواپيماي مدل(برنامه بيسکام براي RFM12)

    سلام.
    کسي نيست راهنمايي کنه؟؟
    فقط يه کد به زبون بيسيک براي rfm12 مي خوام فرستنده يه عدد رو بفرسته و گيرنده روي lcd نمايش بده
    خودم يه برنامه تست کردم ولي وقتي پايه MISO رو وصل ميکنم ميکرو قفل ميکنه!!(يه led به پورت d وصله عدد ارسالي هر 500 ميلي ثانيه يه دونه اضاف ميشه led چشمک ميزنه و موقع وصل پايه miso همينجور ثابت روشن ميمونه!!)
    اين هم برنامه به زبون بيسيک براي فرکانس 434 مگاهرتز ببينيد مشکلي نداره؟؟ (برنامه آقاي نوري)
    فرستنده :
    کد:
    $regfile = "m16def.dat"
    $crystal = 1000000
    
                             '
    Dim Spi_tx_wrd As Word
    Dim Spi_tx_l As Byte At Spi_tx_wrd Overlay
    Dim Spi_tx_h As Byte At Spi_tx_wrd + 1 Overlay
    Dim Bata As Byte
    Dim Spi_rx_wrd As Word
    Dim Spi_rx_l As Byte At Spi_rx_wrd Overlay
    Dim Spi_rx_h As Byte At Spi_rx_wrd + 1 Overlay
    Config Portd = Output
    Config Portb.4 = Output
    Config Portb.5 = Output
    Config Portb.6 = Input
    Config Portb.7 = Output
    Config Portb.0 = Input
    Nirq Alias Pinb.0
    Rfm12_sdi Alias Portb.5
    Rfm12_cs Alias Portb.4
    Rfm12_sdo Alias Pinb.6
    Rfm12_sck Alias Portb.7
    Set Rfm12_cs
    Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , _
    Polarity = Low , Phase = 0 , Clockrate = 16 , Noss = 1
    Spiinit
    Set Porta.0
    Waitms 500
    Reset Porta.0
    Gosub Rfm12_int
    
    Bata = 1
    Do
    Portd = Bata
    Gosub Tx_on
    Gosub Rfm_12_transmitt
    Waitms 500
    Incr Bata
    Loop
    
    
    
    
    
    
    
    
    
    Rfm12_spi_wrt:
    
    Reset Rfm12_cs
    Spi_rx_h = Spimove(spi_tx_h)
    Spi_rx_l = Spimove(spi_tx_l)
    Set Rfm12_cs
    Waitus 50
    Return
    
    Rfm12_int:
    
    Spi_tx_wrd = &H8097                     'tx on- for rx &h82d9
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &H8239
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HA604
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HC647
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &H9481
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HC2AC
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HCA81
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HCA83
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &H9850
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HE000
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HC800
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HC040
    Gosub Rfm12_spi_wrt
    Return
    
    
    Tx_on:
    
    Spi_tx_wrd = &H8239
    Gosub Rfm12_spi_wrt
    Waitus 50
    Return
    
    Rfm_12_transmitt:
    Spi_tx_wrd = &HB8AA
    Gosub Rfm12_ready
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HB8AA
    Gosub Rfm12_ready
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HB8AA
    Gosub Rfm12_ready
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HB82D
    Gosub Rfm12_ready
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HB8D4
    Gosub Rfm12_ready
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HB800 + Bata
    Gosub Rfm12_ready                      'data
    Gosub Rfm12_spi_wrt
    
    Return
    
    
    Rx_on:
    
    Spi_tx_wrd = &H82D9
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HCA81
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HCA83
    Gosub Rfm12_spi_wrt
    Return
    
    
    Rfm12_ready:
    Reset Rfm12_cs
    Bitwait Rfm12_sdo , Set
    Return
    
    End
    گيرنده:
    کد:
    $regfile = "m8def.dat"
    $crystal = 1000000                     '
    
    
    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5
    Dim Spi_tx_wrd As Word
    Dim Spi_tx_l As Byte At Spi_tx_wrd Overlay
    Dim Spi_tx_h As Byte At Spi_tx_wrd + 1 Overlay
    
    Dim Spi_rx_wrd As Word
    Dim Spi_rx_l As Byte At Spi_rx_wrd Overlay
    Dim Spi_rx_h As Byte At Spi_rx_wrd + 1 Overlay
    Dim Bata As Byte
    Config Portb.2 = Output
    Config Portb.3 = Output
    Config Portb.4 = Input
    Config Portb.5 = Output
    Config Portb.0 = Input
    Nirq Alias Pinb.0
    Rfm12_sdi Alias Portb.3
    Rfm12_cs Alias Portb.2
    Rfm12_sdo Alias Pinb.4
    Rfm12_sck Alias Portb.5
    Set Rfm12_cs
    Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , _
    Polarity = Low , Phase = 0 , Clockrate = 16 , Noss = 1
    Spiinit
    
    Waitms 400
    Gosub Rfm12_int
    Do
    Gosub Rx_on
    Gosub Rfm12_ready
    Spi_tx_wrd = &HB000
    Gosub Rfm12_spi_wrt
    Cls : Home
    Lcd Spi_rx_l
    Wait 1
    Loop
    
    
    
    
    
    
    
    Rfm12_spi_wrt:
    
    Reset Rfm12_cs
    Spi_rx_h = Spimove(spi_tx_h)
    Spi_rx_l = Spimove(spi_tx_l)
    Set Rfm12_cs
    Waitus 50
    Return
    
    Rfm12_int:
    
    Spi_tx_wrd = &H8057                     'rx on- for tx &h8239
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &H8299
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HA604
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HC647
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &H9480
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HC2AC
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HCA81
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HCA83
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &H9850
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HE000
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HC800
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HC040
    Gosub Rfm12_spi_wrt
    Return
    
    
    Rx_on:
    
    Spi_tx_wrd = &H82D9
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HCA81
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HCA83
    Gosub Rfm12_spi_wrt
    Return
    
    
    Tx_on:
    Spi_tx_wrd = &H8239
    Gosub Rfm12_spi_wrt
    Waitus 50
    Return
    
    Rfm_12_transmitt:
    Spi_tx_wrd = &HB8AA
    Gosub Rfm12_ready
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HB8AA
    Gosub Rfm12_ready
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HB8AA
    Gosub Rfm12_ready
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HB82D
    Gosub Rfm12_ready
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HB8D4
    Gosub Rfm12_ready
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HB800 + Bata
    Gosub Rfm12_ready                      'data
    Gosub Rfm12_spi_wrt
    Return
    
    
    Rfm12_ready:
    Reset Rfm12_cs
    Bitwait Rfm12_sdo , Set
    Return
    
    
    
    End
  3. #3
    2008/05/26
    1,045
    534

    پاسخ : ماژول مناسب براي هواپيماي مدل(برنامه &

    سلام.
    بالاخره از rfm12 جواب گرفتم با کدهايي که تو ديتاشيت نوشته.
    حالا يه مشکل دارم.
    سرعت انتقال به نظرم کمه مثلا يه عدد رو که ميفرستم بعد از 1.5 تا 2 ثانيه ميرسه به گيرنده.فاصله گيرنده فرستنده هم از 10 سانت کمتر هست.
    اين ماژولها کلا اينجوري هستن يا من برنامه رو اشتباه نوشتم؟؟
    در ضمن چطوری میتونم یک جمله یا حرف رو بفرستم؟
  4. #4
    2008/05/26
    1,045
    534

    پاسخ : ماژول مناسب براي هواپيماي مدل(برنامه بيسکام براي RFM12)

    سلام.
    يه سوال ديگه:
    من ميخوام ديتام رو کد بندي کنم مثلا يه کد 20 بيتي بفرستم که 4 بيت اول باشه براي کد و بقيش اطلاعات.
    چطور ميتونم 20 بيت اصلاعات رو بفرستم و بعد تو گيرنده 20 بيت رو پشت سر هم داشته باشم؟

    راستي اين هم برنامه اي که ازش جواب گرفتم (rfm12 434mhz):

    گيرنده:

    کد:
    $regfile = "m8def.dat"
    $crystal = 1000000                     '
    
    $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 Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5
    Dim Spi_tx_wrd As Word
    Dim Spi_tx_l As Byte At Spi_tx_wrd Overlay
    Dim Spi_tx_h As Byte At Spi_tx_wrd + 1 Overlay
    
    Dim Spi_rx_wrd As Word
    Dim Spi_rx_l As Byte At Spi_rx_wrd Overlay
    Dim Spi_rx_h As Byte At Spi_rx_wrd + 1 Overlay
    Dim Bata As Byte
    Config Portb.2 = Output
    Config Portb.3 = Output
    Config Portb.4 = Input
    Config Portb.5 = Output
    Config Portb.0 = Input
    Nirq Alias Pinb.0
    Rfm12_sdi Alias Portb.3
    Rfm12_cs Alias Portb.2
    Rfm12_sdo Alias Pinb.4
    Rfm12_sck Alias Portb.5
    Set Rfm12_cs
    Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , _
    Polarity = Low , Phase = 0 , Clockrate = 16 , Noss = 1
    Spiinit
    
    Waitms 400
    Gosub Rfm12_int
    Do
    Gosub Rx_on
    Gosub Rfm12_ready
    Spi_tx_wrd = &HB000
    Gosub Rfm12_spi_wrt
    Cls : Home
    Lcd Spi_rx_l
    Wait 1
    Loop
    
    
    
    
    
    
    
    Rfm12_spi_wrt:
    
    Reset Rfm12_cs
    Spi_rx_h = Spimove(spi_tx_h)
    Spi_rx_l = Spimove(spi_tx_l)
    Set Rfm12_cs
    Waitus 50
    Return
    
    Rfm12_int:
    
    Spi_tx_wrd = &H80D8
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &H82D8
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HA640
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HC647
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &H9025
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HC2AC
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HCA80
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HCA83
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HC49B
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &H9850
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HE000
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HC800
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HC000
    Gosub Rfm12_spi_wrt
    Return
    
    
    Rx_on:
    
    Spi_tx_wrd = &H82D9
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HCA81
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HCA83
    Gosub Rfm12_spi_wrt
    Return
    
    
    Tx_on:
    Spi_tx_wrd = &H8239
    Gosub Rfm12_spi_wrt
    Waitus 50
    Return
    
    Rfm_12_transmitt:
    Spi_tx_wrd = &HB8AA
    Gosub Rfm12_ready
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HB8AA
    Gosub Rfm12_ready
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HB8AA
    Gosub Rfm12_ready
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HB82D
    Gosub Rfm12_ready
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HB8D4
    Gosub Rfm12_ready
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HB800 + Bata
    Gosub Rfm12_ready                      'data
    Gosub Rfm12_spi_wrt
    Return
    
    
    Rfm12_ready:
    Reset Rfm12_cs
    Bitwait Rfm12_sdo , Set
    Return
    
    
    
    End
    فرستنده:

    کد:
    $regfile = "m16def.dat"
    $crystal = 1000000
    
                             '
    Dim Spi_tx_wrd As Word
    Dim Spi_tx_l As Byte At Spi_tx_wrd Overlay
    Dim Spi_tx_h As Byte At Spi_tx_wrd + 1 Overlay
    Dim Bata As Byte
    Dim Spi_rx_wrd As Word
    Dim Spi_rx_l As Byte At Spi_rx_wrd Overlay
    Dim Spi_rx_h As Byte At Spi_rx_wrd + 1 Overlay
    Config Portd = Output
    Config Portb.4 = Output
    Config Portb.5 = Output
    Config Portb.6 = Input
    Config Portb.7 = Output
    Config Portb.0 = Input
    Nirq Alias Pinb.0
    Rfm12_sdi Alias Portb.5
    Rfm12_cs Alias Portb.4
    Rfm12_sdo Alias Pinb.6
    Rfm12_sck Alias Portb.7
    Set Rfm12_cs
    Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , _
    Polarity = Low , Phase = 0 , Clockrate = 16 , Noss = 1
    Spiinit
    Set Porta.0
    Waitms 500
    Reset Porta.0
    Gosub Rfm12_int
    
    Bata = 1
    Do
    Portd = Bata
    Gosub Tx_on
    Gosub Rfm_12_transmitt
    Waitms 500
    Incr Bata
    Loop
    
    
    
    
    
    
    
    
    
    Rfm12_spi_wrt:
    
    Reset Rfm12_cs
    Spi_rx_h = Spimove(spi_tx_h)
    Spi_rx_l = Spimove(spi_tx_l)
    Set Rfm12_cs
    Waitus 50
    Return
    
    Rfm12_int:
    
    Spi_tx_wrd = &H80D8
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &H8208
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HA640
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HC647
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HC2AC
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HCA80
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HCA83
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HC49B
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &H9850
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HE000
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HC80E
    Gosub Rfm12_spi_wrt
    Spi_tx_wrd = &HC000
    Gosub Rfm12_spi_wrt
    Return
    
    
    Tx_on:
    
    Spi_tx_wrd = &H8239
    Gosub Rfm12_spi_wrt
    Waitus 50
    Return
    
    Rfm_12_transmitt:
    Spi_tx_wrd = &HB8AA
    Gosub Rfm12_ready
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HB8AA
    Gosub Rfm12_ready
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HB8AA
    Gosub Rfm12_ready
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HB82D
    Gosub Rfm12_ready
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HB8D4
    Gosub Rfm12_ready
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HB800 + Bata
    Gosub Rfm12_ready                      'data
    Gosub Rfm12_spi_wrt
    
    Return
    
    
    Rx_on:
    
    Spi_tx_wrd = &H82D9
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HCA81
    Gosub Rfm12_spi_wrt
    
    Spi_tx_wrd = &HCA83
    Gosub Rfm12_spi_wrt
    Return
    
    
    Rfm12_ready:
    Reset Rfm12_cs
    Bitwait Rfm12_sdo , Set
    Return
    
    End
    در ضمن من ماژول رو زماني که با 3.3 ولت راه اندازي ميکنم جواب نميده ولي وقتي با 5 ولت راه اندازي مي کنم جواب ميده!!!!
  5. #5
    2007/10/04
    44
    0

    پاسخ : کد بندي rfm12

    با سلام
    می توانید از لینک زیر یک جزوه کامل به زبان فارسی در رابطه با ماژول rfm12b را بیابید.امیدوارم به کارتون بیاد

    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت



    از بخش های دیگه این سایت هم دیدن کنید مطالب جالبی داره
  6. #6
    2007/12/10
    تهران
    126
    14

    پاسخ : کد بندي rfm12

    نقل قول نوشته اصلی توسط سارا امامی فر
    سلام اگر امکان دارد نحوه دانلود آنرا بيان نمائيد
    سلام شما میتونید روی لینک زیر راست کلیک بکنید و ( save target as) یا روی لینک زیر چپ کلیک کنید.حجمشم 7mb هست.

    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت

    اگر دين نداري حداقل آزاده باش <امام حسين (ع)>
نمایش نتایج: از 1 به 6 از 6

موضوعات مشابه

  1. اولويت بندي وقفه ها در AVR
    توسط ehsan_akbari در انجمن میکروکنترلرهای AVR
    پاسخ: 22
    آخرين نوشته: 2018/01/23, 09:21
  2. طبقه بندي
    توسط arvin2014 در انجمن پردازش تصوير
    پاسخ: 0
    آخرين نوشته: 2014/03/26, 19:45
  3. مکان بندي سنسور
    توسط hamid73 در انجمن رباتيك و مكاترونيك
    پاسخ: 12
    آخرين نوشته: 2013/08/14, 12:47
  4. دسته بندي تصاوير
    توسط arminnn در انجمن پردازش تصوير
    پاسخ: 5
    آخرين نوشته: 2012/08/17, 23:51
  5. شين وشين بندي
    توسط امیرعلی بلورچیان در انجمن ترانسفورماتورها و ماشين هاي الکتريکي
    پاسخ: 0
    آخرين نوشته: 2007/09/04, 00:08

کاربرانی که این تاپیک را مشاهده کرده اند: 0

هیچ عضوی در لیست وجود ندارد.

کلمات کلیدی این موضوع

علاقه مندي ها (Bookmarks)

علاقه مندي ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •