TassyJim Guru
Posted: 04:44am 17 Sep 2019
Quote ' BME280 test program to compare Pi-cromite to micromite basic OPTION BASE 0 OPTION EXPLICIT ' BME280 constants ' CONST BME280_ADDRESS = &H76 CONST BME280_REGISTER_T1 = &H88 CONST BME280_REGISTER_P1 = &H8E CONST BME280_REGISTER_H1 = &HA1 CONST BME280_REGISTER_H2 = &HE1 CONST BME280_REGISTER_CHIPID = &HD0 CONST BME280_REGISTER_CONTROLHUMID = &HF2 CONST BME280_REGISTER_CONTROL = &HF4 CONST BME280_REGISTER_PRESSUREDATA = &HF7 CONST BME280_REGISTER_TEMPDATA = &HFA CONST BME280_REGISTER_HUMIDDATA = &HFD ' DIM INTEGER s16= &HFFFFFFFFFFFF0000 , s16b= &H8000 DIM INTEGER s12= &HFFFFFFFFFFFFF000 , s12b= &H800 DIM INTEGER s8= &HFFFFFFFFFFFFFF00 , s8b= &H80 ' DIM INTEGER T1,T2,T3 'uint16_t, int16_t, int16_t DIM INTEGER P1,P2,P3,P4,P5,P6,P7,P8,P9 'uint16_t, 8 x int16_t DIM INTEGER H1,H2,H3,H4,H5,H6 'uint8_t, int16_t , uint8_t, int16_t, int16_t, int8_t DIM INTEGER t_fine DIM FLOAT t_bme, p_bme, h_bme, alt = 235 ' your altitude in metres I2C OPEN 400 , 200 ' Enable I2C. use slow speeds for long leads PAUSE 20 PRINT "Device = " ; MM.DEVICE$ PRINT "T= " ;t_bme; " P= " ;p_bme; " H= " ;h_bme I2C CLOSE END FUNCTION Psl(p AS FLOAT , alt AS FLOAT ) AS FLOAT 'given local pressure and altitude, returns pressure at sea level Psl= p/( 1 - alt/ 44330.77 )^ 5.25588 END FUNCTION ' FUNCTION bme280_read_temp() AS FLOAT LOCAL INTEGER var1,var2,adc_T LOCAL adc%( 2 ),n! I2C WRITE BME280_ADDRESS, 1 , 1 ,BME280_REGISTER_TEMPDATA I2C READ BME280_ADDRESS, 0 , 3 ,adc%() 0 )<< 16 ) OR (adc%( 1 )<< 8 ) OR adc%( 2 ))>> 4 3 ) - (T1 << 1 ))) * T2) \ q( 11 ) 4 ) - (T1)) * ((adc_T\ q( 4 )) - (T1))) \ q( 12 )) * (T3)) \ q( 14 ) 5 + 128 ) \ q( 8 ))/ 100.0 PRINT "bme280_read_temp()" FOR n! = 0 TO 2 PRINT "adc%(" ;n!; "), " ;adc%(n!) NEXT n! END FUNCTION FUNCTION bme280_read_pressure() AS FLOAT LOCAL INTEGER var1, var2, adc_P, p LOCAL adc%( 2 ),n! I2C WRITE BME280_ADDRESS, 1 , 1 ,BME280_REGISTER_PRESSUREDATA I2C READ BME280_ADDRESS, 0 , 3 ,adc%() 0 )<< 16 ) OR (adc%( 1 )<< 8 ) OR adc%( 2 ))>> 4 128000 17 ) 35 ) 8 )) + ((var1 * P2)<< 12 ) 1 << 47 )+var1)*P1\ q( 33 ) IF var1 = 0 THEN 0 ' avoid exception caused by division by zero EXIT FUNCTION ENDIF 1048576 - adc_P 31 ) - var2)* 3125 ) \ var1 13 )) * (p\ q( 13 ))) \ q( 25 ) 19 ) 8 )) + (P7<< 4 ) 25600.0 PRINT "bme280_read_pressure()" FOR n! = 0 TO 2 PRINT "adc%(" ;n!; "), " ;adc%(n!) NEXT n! END FUNCTION ' FUNCTION bme280_read_humidity() AS FLOAT LOCAL INTEGER v_x1,adc_H LOCAL adc%( 1 ),n! I2C WRITE BME280_ADDRESS, 1 , 1 ,BME280_REGISTER_HUMIDDATA I2C READ BME280_ADDRESS, 0 , 2 ,adc%() 0 )<< 8 ) OR adc%( 1 ) 76800 14 )-((H4)<< 20 )-(H5*v_x1))+ 16384 )\ q( 15 ))*(((((((v_x1*H6)\ q( 10 ))*(((v_x1*H3)\ q( 11 ))+ 32768 ))\ q( 10 ))+ 2097152 )*H2+ 8192 )\ q( 14 ))) 15 )) * (v_x1 \ q( 15 ))) \ q( 7 )) * (H1)) \ q( 4 ))) IF v_x1< 0 THEN v_x1 = 0 IF v_x1 > 419430400 THEN v_x1= 419430400 12 )) / 1024.0 PRINT "bme280_read_pressure()" FOR n! = 0 TO 1 PRINT "adc%(" ;n!; "), " ;adc%(n!) NEXT n! END FUNCTION SUB bme280_init LOCAL i%,cal%( 17 ),n! ' i2c open 400,1000 '400KHz bus speed I2C WRITE BME280_ADDRESS, 1 , 1 ,BME280_REGISTER_CHIPID I2C READ BME280_ADDRESS, 0 , 1 ,i% IF i%<> &H60 THEN PRINT "Error BME280 not found" ' I2C WRITE BME280_ADDRESS, 1 , 1 ,BME280_REGISTER_T1 I2C READ BME280_ADDRESS, 0 , 6 ,cal%() 0 ) OR (cal%( 1 )<< 8 ) 2 ) OR (cal%( 3 )<< 8 ): IF T2 AND s16b THEN T2=T2 OR s16 'sign extend if required T3=cal%( 4 ) OR (cal%( 5 )<< 8 ): IF T3 AND s16b THEN T3=T3 OR s16 ' I2C WRITE BME280_ADDRESS, 1 , 1 ,BME280_REGISTER_P1 I2C READ BME280_ADDRESS, 0 , 18 ,cal%() 0 ) OR (cal%( 1 )<< 8 ) 2 ) OR (cal%( 3 )<< 8 ): IF P2 AND s16b THEN P2=P2 OR s16 'sign extend if required P3=cal%( 4 ) OR (cal%( 5 )<< 8 ): IF P3 AND s16b THEN P3=P3 OR s16 6 ) OR (cal%( 7 )<< 8 ): IF P4 AND s16b THEN P4=P4 OR s16 8 ) OR (cal%( 9 )<< 8 ): IF P5 AND s16b THEN P5=P5 OR s16 10 ) OR (cal%( 11 )<< 8 ): IF P6 AND s16b THEN P6=P6 OR s16 12 ) OR (cal%( 13 )<< 8 ): IF P7 AND s16b THEN P7=P7 OR s16 14 ) OR (cal%( 15 )<< 8 ): IF P8 AND s16b THEN P8=P8 OR s16 16 ) OR (cal%( 17 )<< 8 ): IF P9 AND s16b THEN P9=P9 OR s16 ' I2C WRITE BME280_ADDRESS, 1 , 1 ,BME280_REGISTER_H1 I2C READ BME280_ADDRESS, 0 , 1 ,H1 I2C WRITE BME280_ADDRESS, 1 , 1 ,BME280_REGISTER_H2 I2C READ BME280_ADDRESS, 0 , 7 ,cal%() 0 ) OR (cal%( 1 )<< 8 ): IF H2 AND s16b THEN H2=H2 OR s16 'sign extend if required H3=cal%( 2 ) 6 ): IF H6 AND s8b THEN H6=H6 OR s8 'sign extend if required H4=(cal%( 3 )<< 4 ) OR (cal%( 4 ) AND &H0F ): IF H4 AND s12b THEN H4=H4 OR s12 'sign extend if required H5=(cal%( 5 )<< 4 ) OR (cal%( 4 )>> 4 ): IF H5 AND s12b THEN H5=H5 OR s12 ' I2C WRITE BME280_ADDRESS, 0 , 2 ,BME280_REGISTER_CONTROLHUMID, &H05 '16x oversampling humidity I2C WRITE BME280_ADDRESS, 0 , 2 ,BME280_REGISTER_CONTROL, &HB7 '16x oversampling pressure/temp, normal mode ' FOR n! = 0 TO 17 PRINT "cal%(" ;n!; "), &h" ; HEX$ (cal%(n!), 2 ) NEXT n! PRINT PRINT "T1 , &h" ; HEX$ (T1, 4 ) PRINT "T2 , &h" ; HEX$ (T2, 4 ) PRINT "T3 , &h" ; HEX$ (T3, 4 ) PRINT PRINT "P1 , &h" ; HEX$ (P1, 4 ) PRINT "P2 , &h" ; HEX$ (P2, 4 ) PRINT "P3 , &h" ; HEX$ (P3, 4 ) PRINT "P4 , &h" ; HEX$ (P4, 4 ) PRINT "P5 , &h" ; HEX$ (P5, 4 ) PRINT "P6 , &h" ; HEX$ (P6, 4 ) PRINT "P7 , &h" ; HEX$ (P7, 4 ) PRINT "P8 , &h" ; HEX$ (P8, 4 ) PRINT "P9 , &h" ; HEX$ (P9, 4 ) PRINT PRINT "H1 , &h" ; HEX$ (H1, 4 ) PRINT "H2 , &h" ; HEX$ (H2, 4 ) PRINT "H3 , &h" ; HEX$ (H3, 4 ) PRINT "H4 , &h" ; HEX$ (H4, 4 ) PRINT "H5 , &h" ; HEX$ (H5, 4 ) PRINT "H6 , &h" ; HEX$ (H6, 4 ) PRINT END SUB ' FUNCTION q(x AS INTEGER ) AS INTEGER 'returns 2 raised to the power q=( 1 <<x) END FUNCTION Quote MMedit
