SHARP GP2Y10 optical dust sensor

[louislouis]

Hello,

I wanted to create a simple air filter/purifier for my workshop from box fan and 3M square filters.
For that reason I wanted to measure the dust particles in air. I found some infos about that SHARP
optical dust sensor for Arduino, but unfortunately nothing for PIC MCUs in Picbasic.
Then I writed the code in PBP. The code is simple, use PIC16F690, 8x2 LCD and SHARP optical dust sensor.
Here is the code, sensor wiring diagram and characteristics:

;****************************************************************
;*  Name    : GP2Y1010AU0F SHARP dust sensor                    *
;*  Author  : Louis                                             *
;*  Notice  : Copyright (c) 2018 Louis                          *
;*          : All Rights Reserved                               *
;*  Date    : 7. 1. 2018                                        *
;*  Version : v1.0                                              *
;*  Notes   : PIC16F690                                         *
;****************************************************************

#CONFIG
cfg = _INTRC_OSC_NOCLKOUT
cfg&= _WDT_ON
cfg&= _PWRTE_OFF
cfg&= _MCLRE_OFF
cfg&= _CP_OFF
cfg&= _CPD_OFF
cfg&= _BOD_ON
cfg&= _IESO_ON
cfg&= _FCMEN_ON
  __CONFIG cfg
#ENDCONFIG

DEFINE OSC 4      ; Use a 4 MHZ internal clock 
ADCON1 = 0
ANSEL = %01000000 ; Set AN6 analog rest digital
TRISA = %000000   ; Set RA0 - RA5 output
TRISB = %0000     ; Set RRB4 - RB7 output
TRISC = %00000100 ; Set RC2 input, rest output
CM1CON0 = 0       ; Disable comparator 1
CM2CON0 = 0       ; Disable comparator 2
OPTION_REG.7=1    ; Disable weak pull ups

DEFINE ADC_BITS 8      ; Set number of bits in result
DEFINE ADC_CLOCK 3     ; Set clock source (rc = 3)
DEFINE ADC_SAMPLEUS 50 ; Set sampling time in microseconds

conv1 con 19  ; 5000/256 = 19,53 decimal part
conv2 con 35  ; fractional part

;----[ Change these to match your LCD ]---------------------------------------
 
LCD_DB4    VAR PORTA.0
LCD_DB5    VAR PORTA.1
LCD_DB6    VAR PORTA.2
LCD_DB7    VAR PORTA.4 
LCD_RS     VAR PORTA.5 
LCD_E      VAR PORTC.3
LCD_Lines  CON 2 ; # of Lines on LCD, 1 or 2 (Note: use 2 for 4 lines) 
LCD_DATAUS CON 50 ; Data delay time in us 
LCD_COMMANDUS CON 2000  ; Command delay time in us 
INCLUDE "LCD_AnyPin.pbp" ; Include MUST be AFTER LCD Pin assignments

out var portb.6   ; Sharp LED enable pin
dens var word     ; Final particle density in ug/m3
adval var word    ; ADC raw data
volts1 var word   ; First part of result in mV
volts2 var word   ; Second part of result in mV

main:
high out          ; power on the sensor LED
pauseus 280       ; sampling time 280us
adcin 6,adval     ; read ADC value on AN6 pin
pauseus 40        ; delta time
low out           ; power off the sensor LED
pauseus 9680      ; sleep time

;--------- ADC value to mV conversion ------------

volts1 = adval * conv1  ; multiply by 19
volts2 = adval * conv2  ; multiply by 35
volts2 = volts2 /100
volts1 = (volts1 + volts2)/10  ; result in mV
if volts1<59 then volts1 = 59  ; sensor linear char. begin from 0.6V

; --------- calculate particles in ug/m3 -----------

; 0.60V = 0ug/m3 particles start of sensor linearity MIN value 
; 1.20V = 100ug/m3 particles 
; 1.77V = 200ug/m3 particles 
; 2.35V = 300ug/m3 particles 
; 2.95V = 400ug/m3 particles
; 3.52V = 500ug/m3 particles
; 3.70V = 530ug/m3 particles end of sensor linearity MAX value 

let dens = ((17 * volts1) -1000)/10

;--------- display values on 8x2 LCD ----------

Lcdout $fe, 1                  ; clear display
lcdout $FE,$80,"Particle"      ; first line
lcdout $FE,$C0, dec dens,%11100100,"g/m3"  ; second line
if dens > 529 then   ; if the value reaches max then display message 
lcdout $FE,$80,"MAX Over" 
endif

pause 500   ; pause 0.5 sec.
goto main   ; jump to main
end