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





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









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









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






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

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

صفحه 1 از 3 123 آخرین
نمایش نتایج: از 1 به 10 از 25
  1. #1
    2008/12/16
    157
    4

    راه اندازی ساده سنسور adxl345

    سلام کسی از دوستان با این سنسور کار کرده؟
    من میخوام فقط یه محور x رو روی ال سی دی نشون بدم
    با بسکام کار میکنم
    در مورد رجیستری ها راهنمایی می خواستم که کدوم ها رو باید ست کنم
    برای شروع هم این رو نوشتم اما جواب نداد
    کد:
    $regfile = "m8def.dat"
    $crystal = 8000000
    
    
    
    
    Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.3 , _
    Db6 = Portb.2 , Db7 = Portb.1 , E = Portd.3 , Rs = Portd.2
    Cursor Off
    
    
    Dim X As Word
    Dim Fif As Word
    Dim Dat As Word
    Dim Y2 As Byte
    
     Cls
    
    
    
    
    Config Sda = Portd.6
    Config Scl = Portd.7
    Config I2cdelay = 10
    
    
     Const Senw = &H3A
    Const Senr = &H3B
    
    
    
    I2cstart                         ' Generate start code
    I2cwbyte Senw                        ' send address
    I2cwbyte &H31                        ' starting address in 1307
    I2cwbyte &H05                        ' Send Data to SECONDS
    I2cstop
    
    I2cstart                         ' Generate start code
    I2cwbyte Senw                        ' send address
    I2cwbyte &H2D                        ' starting address in 1307
    I2cwbyte &H08                        ' Send Data to SECONDS
    I2cstop
    
    
    
    
    
    Do
    
    
    
    
    I2cstart                          ' start address in 1307                          ' Generate start code
    I2cwbyte Senr                        ' send address
    I2crbyte Dat , Nack
    I2cstop
    Locate 1 , 5
    Lcd Dat
    
    
    
    
    
    I2cstart                         ' Generate start code
    I2cwbyte Senw                        ' send address
    I2cwbyte 57
    I2cstart                          ' start address in 1307                          ' Generate start code
    I2cwbyte Senr
    I2crbyte Fif , Nack
    I2cstop
    
    Locate 2 , 5
    Lcd Fif
    
    
    
    
    
    
    I2cstart                         ' Generate start code
    I2cwbyte Senw                        ' send address
    I2cwbyte &H32
    I2cstart                          ' start address in 1307                          ' Generate start code
    I2cwbyte Senr                        ' send address
    I2crbyte X , Nack
    I2cstop
    
    Cls
     Locate 1 , 1
     Lcd X
    
    
     Loop
     End
  2. #2
    2009/10/21
    تهران
    2,507
    210

    پاسخ : راه اندازی ساده سنسور adxl345

    در مورد اين سنسور با C قبلا تو سايت نمونه كد وجود داره سرچ كن
  3. #3
    2012/03/03
    103
    1

    پاسخ : راه اندازي ساده سنسور adxl345

    سلام دوستان من نياز دارم با بسکام اين ماژول رو راه اندازي کنم ميدونم که قبلا با C راه اندازي شده اما من بسکام نيازمه کسي هست در اين باره کمک کنه؟؟؟
  4. #4
    2012/03/03
    103
    1

    پاسخ : راه اندازی ساده سنسور adxl345

    سلام منم میخوام این ماژول رو با بسکام راه بندازم کسی هست راهنمایی کنه؟
  5. #5
    2012/10/25
    463
    32

    پاسخ : راه اندازي ساده سنسور adxl345

    من قبلا اين سنسور رو با بسکام راه اندازي کردم. ميتونيد از اين کد استفاده کنيد:
    اگر سوالي داريد ميتونيد بپرسيد

    کد:
    $regfile = "m32def.dat"                   'Define your own
    $crystal = 8000000
    '-------------------------- lcd -----------------------------------------------
    Config Porta.1 = Output
    Porta.1 = 0
    Config Lcd = 20 * 4
    Config Lcdpin = Pin , Rs = Pina.0 , E = Pina.2 , Db4 = Pina.4 , Db5 = Pina.5 , _
    Db6 = Pina.6 , Db7 = Pina.7
    Cursor Off
    Cls
    Cls
    '-------------------------------------------------------------------------------
    Config Scl = Portc.0
    Config Sda = Portc.1
    
    Const Adxl345write = &HA6
    Const Adxl345read = &HA7
    '\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    Dim Iby As Byte
    Dim Jby As Byte
    Dim Lby As Byte , Mby As Byte , Xby As Byte , Yby As Byte , Zby As Byte
    Dim Buff(6) As Byte
    Dim Acc(3) As Integer
    Dim An(6) As Integer
    Dim Accel_x As Integer
    Dim Accel_y As Integer
    Dim Accel_z As Integer
    Dim Sensor_sign(9) As Integer
    Dim An_offset(6) As Integer
    Dim A As Byte
    Dim Average_x As Integer
    Dim Average_y As Integer
    Dim Average_z As Integer
    
    '/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
    
    Waitms 2
    I2cinit
    '--------------------------------------------------------------------------
    I2cstart
      I2cwbyte Adxl345write                  'DATA_FORMAT
      I2cwbyte &H31
      I2cwbyte &H0B
    I2cstop
    
    I2cstart                          'POWER_CTL
      I2cwbyte Adxl345write
      I2cwbyte &H2D
      I2cwbyte &B00001000
    I2cstop
    
    I2cstart                          'INT_ENABLE
      I2cwbyte Adxl345write
      I2cwbyte &H2E
      I2cwbyte &H80
    I2cstop
    '--------------------------------------------------------------------------
    Waitms 100
    
    
    
    I2cstart
      I2cwbyte Adxl345write
      I2cwbyte &H31
      I2cwbyte &H8B
    I2cstop
    Waitms 100
    
    
    I2cstart
      I2cwbyte Adxl345write                  'DATA_FORMAT
      I2cwbyte &H31
      I2cwbyte &H0B
    I2cstop
    Waitms 100
    
    '++++++++++++++++++++++++++++++ Calibratoin +++++++++++++++++++++++++++++++
    For A = 1 To 100
     For Iby = 1 To 6
      I2cstart
        I2cwbyte &HA6
        Jby = &H31 + Iby
        I2cwbyte Jby
      I2cstart
        I2cwbyte &HA7
        I2crbyte Xby
        I2crbyte Yby , Nack
        Buff(iby) = Yby
      I2cstop
     Next Iby
      Accel_x = Makeint(buff(1) , Buff(2))
      Accel_y = Makeint(buff(3) , Buff(4))
      Accel_z = Makeint(buff(5) , Buff(6))
    
      Average_x = Average_x + Accel_x
      Average_y = Average_y + Accel_y
      Average_z = Average_z + Accel_z
    Next A
      Average_x = Average_x / 100
      Average_y = Average_y / 100
      Average_z = Average_z / 100
    
      Average_x = Average_x / 4
      Average_x = Average_x * -1
    
      Average_y = Average_y / 4
      Average_y = Average_y * -1
    
      Average_z = Average_z - 256
      Average_z = Average_z / 4
      Average_z = Average_z * -1
    
      Cls
      Locate 1 , 1 : Lcd "AVERAGE X:" ; Average_x
      Locate 2 , 1 : Lcd "AVERAGE Y:" ; Average_y
      Locate 3 , 1 : Lcd "AVERAGE Z:" ; Average_z
      Wait 5
      Cls
      A = Average_x
      I2cstart
       I2cwbyte Adxl345write
       I2cwbyte &H1E
       I2cwbyte A
      I2cstop
      A = Average_y
      I2cstart
       I2cwbyte Adxl345write
       I2cwbyte &H1F
       I2cwbyte A
      I2cstop
      A = Average_z
      I2cstart
       I2cwbyte Adxl345write
       I2cwbyte &H20
       I2cwbyte A
      I2cstop
    
    '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    Do
     For Iby = 1 To 6
      I2cstart
        I2cwbyte &HA6
        Jby = &H31 + Iby
        I2cwbyte Jby
      I2cstart
        I2cwbyte &HA7
        I2crbyte Xby
        I2crbyte Yby , Nack
        Buff(iby) = Yby
      I2cstop
     Next Iby
      Accel_x = Makeint(buff(1) , Buff(2))
      Accel_y = Makeint(buff(3) , Buff(4))
      Accel_z = Makeint(buff(5) , Buff(6))
    
      Locate 1 , 1 : Lcd "Accel X: " ; Accel_x ; "   "
      Locate 2 , 1 : Lcd "Accel Y: " ; Accel_y ; "   "
      Locate 3 , 1 : Lcd "Accel Z: " ; Accel_z ; "   "
     Waitms 50
    Loop
    
    End
  6. #6
    2012/03/03
    103
    1

    پاسخ : راه اندازي ساده سنسور adxl345

    نقل قول نوشته اصلی توسط Homayon
    من قبلا اين سنسور رو با بسکام راه اندازي کردم. ميتونيد از اين کد استفاده کنيد:
    اگر سوالي داريد ميتونيد بپرسيد

    کد:
    $regfile = "m32def.dat"                   'Define your own
    $crystal = 8000000
    '-------------------------- lcd -----------------------------------------------
    Config Porta.1 = Output
    Porta.1 = 0
    Config Lcd = 20 * 4
    Config Lcdpin = Pin , Rs = Pina.0 , E = Pina.2 , Db4 = Pina.4 , Db5 = Pina.5 , _
    Db6 = Pina.6 , Db7 = Pina.7
    Cursor Off
    Cls
    Cls
    '-------------------------------------------------------------------------------
    Config Scl = Portc.0
    Config Sda = Portc.1
    
    Const Adxl345write = &HA6
    Const Adxl345read = &HA7
    '\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    Dim Iby As Byte
    Dim Jby As Byte
    Dim Lby As Byte , Mby As Byte , Xby As Byte , Yby As Byte , Zby As Byte
    Dim Buff(6) As Byte
    Dim Acc(3) As Integer
    Dim An(6) As Integer
    Dim Accel_x As Integer
    Dim Accel_y As Integer
    Dim Accel_z As Integer
    Dim Sensor_sign(9) As Integer
    Dim An_offset(6) As Integer
    Dim A As Byte
    Dim Average_x As Integer
    Dim Average_y As Integer
    Dim Average_z As Integer
    
    '/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
    
    Waitms 2
    I2cinit
    '--------------------------------------------------------------------------
    I2cstart
      I2cwbyte Adxl345write                  'DATA_FORMAT
      I2cwbyte &H31
      I2cwbyte &H0B
    I2cstop
    
    I2cstart                          'POWER_CTL
      I2cwbyte Adxl345write
      I2cwbyte &H2D
      I2cwbyte &B00001000
    I2cstop
    
    I2cstart                          'INT_ENABLE
      I2cwbyte Adxl345write
      I2cwbyte &H2E
      I2cwbyte &H80
    I2cstop
    '--------------------------------------------------------------------------
    Waitms 100
    
    
    
    I2cstart
      I2cwbyte Adxl345write
      I2cwbyte &H31
      I2cwbyte &H8B
    I2cstop
    Waitms 100
    
    
    I2cstart
      I2cwbyte Adxl345write                  'DATA_FORMAT
      I2cwbyte &H31
      I2cwbyte &H0B
    I2cstop
    Waitms 100
    
    '++++++++++++++++++++++++++++++ Calibratoin +++++++++++++++++++++++++++++++
    For A = 1 To 100
     For Iby = 1 To 6
      I2cstart
        I2cwbyte &HA6
        Jby = &H31 + Iby
        I2cwbyte Jby
      I2cstart
        I2cwbyte &HA7
        I2crbyte Xby
        I2crbyte Yby , Nack
        Buff(iby) = Yby
      I2cstop
     Next Iby
      Accel_x = Makeint(buff(1) , Buff(2))
      Accel_y = Makeint(buff(3) , Buff(4))
      Accel_z = Makeint(buff(5) , Buff(6))
    
      Average_x = Average_x + Accel_x
      Average_y = Average_y + Accel_y
      Average_z = Average_z + Accel_z
    Next A
      Average_x = Average_x / 100
      Average_y = Average_y / 100
      Average_z = Average_z / 100
    
      Average_x = Average_x / 4
      Average_x = Average_x * -1
    
      Average_y = Average_y / 4
      Average_y = Average_y * -1
    
      Average_z = Average_z - 256
      Average_z = Average_z / 4
      Average_z = Average_z * -1
    
      Cls
      Locate 1 , 1 : Lcd "AVERAGE X:" ; Average_x
      Locate 2 , 1 : Lcd "AVERAGE Y:" ; Average_y
      Locate 3 , 1 : Lcd "AVERAGE Z:" ; Average_z
      Wait 5
      Cls
      A = Average_x
      I2cstart
       I2cwbyte Adxl345write
       I2cwbyte &H1E
       I2cwbyte A
      I2cstop
      A = Average_y
      I2cstart
       I2cwbyte Adxl345write
       I2cwbyte &H1F
       I2cwbyte A
      I2cstop
      A = Average_z
      I2cstart
       I2cwbyte Adxl345write
       I2cwbyte &H20
       I2cwbyte A
      I2cstop
    
    '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    Do
     For Iby = 1 To 6
      I2cstart
        I2cwbyte &HA6
        Jby = &H31 + Iby
        I2cwbyte Jby
      I2cstart
        I2cwbyte &HA7
        I2crbyte Xby
        I2crbyte Yby , Nack
        Buff(iby) = Yby
      I2cstop
     Next Iby
      Accel_x = Makeint(buff(1) , Buff(2))
      Accel_y = Makeint(buff(3) , Buff(4))
      Accel_z = Makeint(buff(5) , Buff(6))
    
      Locate 1 , 1 : Lcd "Accel X: " ; Accel_x ; "   "
      Locate 2 , 1 : Lcd "Accel Y: " ; Accel_y ; "   "
      Locate 3 , 1 : Lcd "Accel Z: " ; Accel_z ; "   "
     Waitms 50
    Loop
    
    End
    ممنون دوست عزیز من در مرحله اول می خوام چک کنم که ببینم آیا ماژول به میکرو متصل هست یا نه یه کد تو اینترنت دیدم اما هر کاری میکنم جواب نمیده من میخوام اگر ماژول کانکت شد یه Led روشن بشه من این کد رو نوشتم اما کار نمی کنه ممنون میشم راهنمایی بفرمایید از میکرو 8 استفاده میکنم.
    کد:
    I2cinit
      Waitms 500
    
      Const Adxl_add_write = &HA6
      Const Adxl_add_read = &HA7
      Dim A As Byte
      I2cstart
      I2cwbyte Adxl_add_write
      I2cwbyte &H00
      I2cstart
      I2cwbyte Adxl_add_read
      I2crbyte A , Nack
      I2cstop
    
      If A = 229 Then
       Portb.1 = 1
      End If
  7. #7
    2012/03/03
    103
    1

    پاسخ : راه اندازی ساده سنسور adxl345

    موفق شدم کدم رو اجرا کنم و مشکلم رو رفع کنم از همه دوستان سپاس گذارم.
    حالا سوال بعدی اینه چون من اطلاعاتم رو با Usb به سمت کامپیوتر میفرستم نمیخوام این همه محاسبه رو توی میکرو انجام بدم لطفا توضیح بدید که خروجی مثلا محور X به چه شکل هست ؟منظورم خروجی خام محور X هست.
  8. #8
    2012/10/25
    463
    32

    پاسخ : راه اندازي ساده سنسور adxl345

    خوشحالم که جواب گرفتي. اگر يک نگاه به اون کدهايي که من گذاشتم بندازي ميبيني که من اطلاعات خام مربوط به محور X,Y,Z رو از سنسور ميخونمو روي LCD نمايش ميدم.
  9. #9
    2012/03/03
    103
    1

    پاسخ : راه اندازی ساده سنسور adxl345

    ممنون نگاهش کردم اما نمیتونم بفهمم چرا از حلقه استفاده کردی نمیشه مستقیم مثلا x رو استخراج کرد اون حلقه 100 برای نمونه گیری هستش درسته حلقه بعدیش چیه؟چرا باید باشه نمیشه مستقیم خروجی گرفت؟
  10. #10
    2012/10/25
    463
    32

    پاسخ : راه اندازي ساده سنسور adxl345

    اون حلقه اي که 100 تا نمونه ميگيرم , براي کاليبره کردن سنسور هست. بعد از کاليبره کردن سنسور ميکرو وارد حلقه ميشه و مقدار X,Y,Z رو از سنسور ميخونه و روي LCD نمايش ميده و اين کار رو تا بي نهايت انجام ميده . حالا شما ميگي که نيشه مستقيم خروجي گرفت , من معني مستقيم رو دقيق نفهميدم
صفحه 1 از 3 123 آخرین
نمایش نتایج: از 1 به 10 از 25

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

  1. سنسور adxl345
    توسط hrt90 در انجمن سنسورها
    پاسخ: 0
    آخرين نوشته: 2015/12/13, 02:58
  2. راه اندازی ADXL345 با SPI در LPC1768
    توسط ahmadsamiee در انجمن NXP
    پاسخ: 5
    آخرين نوشته: 2015/04/14, 14:29
  3. مشکل راه اندازی سنسور ADXL345
    توسط ehsansi در انجمن میکروکنترلرهای AVR
    پاسخ: 6
    آخرين نوشته: 2014/12/11, 11:47
  4. کمک در راه اندازی سنسور شتاب سنج adxl345
    توسط mojtaba3708 در انجمن مدار هاي ديجيتال
    پاسخ: 2
    آخرين نوشته: 2014/07/02, 21:51
  5. ADXL345 کسی با این سنسور کار کرده؟
    توسط mojalan در انجمن سنسورها
    پاسخ: 1
    آخرين نوشته: 2014/05/05, 22:11

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

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

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

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

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