پاسخ : شتاب سنج ADXL345 فروشگاه [فیلم+توضیحات+سوالات]
دوستان کسی نیست راهنمایی کنه؟
دوستان کسی نیست راهنمایی کنه؟
$regfile = "m8def.dat" $crystal = 8000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , Rs = Portb.5 , E = Portb.4 Cursor Off Config Scl = Portc.5 Config Sda = Portc.4 Const Adxl_write = &HA6 Const Adxl_read = &HA7 Dim A As Byte Dim X As Byte Dim Y As Byte Dim Z As Byte Dim X_high As Byte Dim X_low As Byte Dim Y_high As Byte Dim Y_low As Byte Dim Z_high As Byte Dim Z_low As Byte I2cstart I2cwbyte Adxl_write I2cwbyte &H1D I2cwbyte &H00 Waitms 50 I2cstart I2cwbyte Adxl_write I2cwbyte &H1E I2cwbyte &H00 Waitms 50 I2cstart I2cwbyte Adxl_write I2cwbyte &H1F I2cwbyte &H00 Waitms 50 I2cstart I2cwbyte Adxl_write I2cwbyte &H20 I2cwbyte &H00 Waitms 50 I2cstart I2cwbyte Adxl_write I2cwbyte &H21 I2cwbyte &H00 Waitms 50 I2cstart I2cwbyte Adxl_write I2cwbyte &H22 I2cwbyte &H00 Waitms 50 I2cstart I2cwbyte Adxl_write I2cwbyte &H23 I2cwbyte &H00 Waitms 50 I2cstart I2cwbyte Adxl_write I2cwbyte &H24 I2cwbyte &H00 Waitms 50 I2cstart I2cwbyte Adxl_write I2cwbyte &H25 I2cwbyte &H00 Waitms 50 I2cstart I2cwbyte Adxl_write I2cwbyte &H26 I2cwbyte &H00 Waitms 50 I2cstart I2cwbyte Adxl_write I2cwbyte &H27 I2cwbyte &H00 Waitms 50 I2cstart I2cwbyte Adxl_write I2cwbyte &H28 I2cwbyte &H00 Waitms 50 I2cstart I2cwbyte Adxl_write I2cwbyte &H29 I2cwbyte &H00 Waitms 50 I2cstart I2cwbyte Adxl_write I2cwbyte &H2A I2cwbyte &H00 Waitms 50 I2cstart I2cwbyte Adxl_write I2cwbyte &H2C I2cwbyte &HA0 Waitms 50 I2cstart I2cwbyte Adxl_write I2cwbyte &H2D I2cwbyte &H00 Waitms 50 I2cstart I2cwbyte Adxl_write I2cwbyte &H2E I2cwbyte &H00 Waitms 50 I2cstart I2cwbyte Adxl_write I2cwbyte &H2F I2cwbyte &H00 Waitms 50 I2cstart I2cwbyte Adxl_write I2cwbyte &H31 I2cwbyte &H00 Waitms 50 I2cstart I2cwbyte Adxl_write I2cwbyte &H38 I2cwbyte &H00 Waitms 50 Main: I2cstart I2cwbyte Adxl_write I2cwbyte &H00 I2cstart I2cwbyte Adxl_read I2crbyte A , Nack Waitms 10 I2cstart I2cwbyte Adxl_write I2cwbyte &H1E I2cstart I2cwbyte Adxl_read I2crbyte X , Ack I2crbyte Y , Ack I2crbyte Z , Nack Waitms 10 I2cstart I2cwbyte Adxl_write I2cwbyte &H32 I2cstart I2cwbyte Adxl_read I2crbyte X_high , Ack I2crbyte X_low , Ack I2crbyte Y_high , Ack I2crbyte Y_low , Ack I2crbyte Z_high , Ack I2crbyte Z_low , Nack I2cstop Waitms 10 Home : Cls : Lcd A Locate 1 , 8 : Lcd "X=" ; X Locate 2 , 1 : Lcd "Y=" ; Y Locate 2 , 8 : Lcd "Z=" ; Z Waitms 200 Goto Main End
ADXL_Write( DATA_FORMAT, 0x0B ); ADXL_Write( BW_RATE, datarate ); ADXL_Write( INT_ENABLE, 0x98 ); ADXL_Write( FIFO_CTL, 0x5F ); ADXL_Write( THRESH_INACT, 0xFf ); ADXL_Write( TIME_ACT, 0xFf ); ADXL_Write( ACT_INACT_CTL, 0xFF ); ADXL_Write( POWER_CTL, 0x08 ); delay_ms(200);[/code
]
دیدگاه