سلام دوستان 
اول از ديتاشيتش شروع کنيم
اين لينک دانلود  سنسور گاز MQ_2
http://s5.picofile.com/file/8103231884/MQ_2.pdf.html
توي ديتا شيت يه مدار داره براي راه اندازيش که از همون استفاده ميکنيم
http://s5.picofile.com/file/8103232242/mq_2.jpg


پايه هاي اين سنسور 6 تا هست ولي همونطور که تو ديتاشيتش ديديد فقط 4 تا از اونا استفاده ميشه !!!
براي راحت  تشخيص دادن  پايه ها اينجوري عمل کنيد که سنسورو جوري بگيريد که 3 تا پايه به سمت بالا 
باشه و 3تا ديگه يه سمت پايين (فرقي نميکنه کدوم سمتي بگيريد چون متقارنه) حالا 3 تا پايه بالايي رو به
 هم وصل کنيد و به تغذيه مثبت وصل کنيد(+5 ولت). ميمونه 3 تا پايه پاين .حالا پايه وسط رو به زمين وصل 
کنيد و يکي از پايه هاي کناري (فرقي نميکنه کدوم پايه )  رو هم به ADC ميکرو بديد. براي اينکه بتونيم کنترل
 بهتري رو خروجي داشته باشيم يه پتانسيومتر تو خروجي قرار ميديم ( مثلا 10 کيلو) وپايه وسط رو به ورودي
ADC  ميديم.خوب به همين راحتي حالا نوبت به ديدن خروجي ميرسه  خروجي اين سنسور يه سيگنال
 انالوگه که تو محدوده تغذيه هست. 
چند تا نکته
اول اينکه زماني که مدارو روشن ميکنيم حدود 30 ثانيه طول ميکشه که هيتر سنسور داغ بشه و سنسور عمل کنه
پس تا سنسور گرم بشه و پايدار بمونه خروجي انالوگ تغير ميکنه
دوم اينکه اين هيتر حدود 200 ميلي آمپر جريان ميکشه براي همين هم هست که امکان داره رگولاتورتون داغ کنه 
ونکته سوم اينکه اگه  سنسور داغ کرد نشونه  اين نيست که داره ميسوزه   نشونه اينه که روشن شده  

حالا براي تست کردن اين سنسور من برنامه  زير رو براش نوشتم و زماني که پايدار شد با پتانسيومتر عدد رو روي 500
 تنطيم کردم و بعد توي برنامه نوشتم که اگه عدد adc بيشتر از 600 شد سيستم هشدار دهنده فعال بشه.
بعد  توي يه کيسه فريزر گاز شهري پر کردم و بلافاصله که جلوي سنسور قرار دادم خروجي انالوگ سنسور زياد مي شد 
و بعد چند ثانيه که گازي نبود به حالت اول برميگشت.
فيلم کارکرد سنسور     http://www.aparat.com/v/68m0Y

برنامه:

$regfile = "m32def.dat"
$crystal = 1000000
'------------------------------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.5 , _
E = Portd.1 , Rs = Portd.0
'-------------------------------
Config Adc = Single , Prescaler = Auto
Start Adc
'---------------------------------
Dim A As Word
Config Portd.7 = Output
Cls : Cursor Off
Do
A = Getadc(0)
Locate 1 , 1 : Lcd "MQ_2 : " ; A ; "     "
Waitms 10
If A >= 600 Then
Set Portd.7
Else
Reset Portd.7
End If
Loop

End                                                        'end program