oo:
$regfile = "m8def.dat" $crystal = 8000000 Config Pinc.0 = Input Config Portb = Output Config Portd.6 = Output Led1 Alias Portb.0 Led2 Alias Portb.1 Rel1 Alias Portb.2 Buz Alias Portd.6 Config Adc = Single , Prescaler = Auto Start Adc Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.4 , Rs = Portd.5 Config Lcd = 16 * 2 Cursor Off Dim W(10) As Word , I As Byte , Avrage As Long Dim K As Byte, Dim K1 As Byte Reset Rel1 Home Waitms 900 Cls Locate 1 , 2 Lcd "www.Qom-Elec.ir" Wait 3 Home Cls Setup1: Reset Led1 Set Led2 Cls Locate 1 , 4 Lcd "PLEAZE WAIT" Locate 2 , 4 Lcd "SENSSOR SET" Sound Buz , 100 , 250 Sound Buz , 100 , 250 Sound Buz , 100 , 200 Sound Buz , 100 , 200 Sound Buz , 100 , 150 Sound Buz , 100 , 150 Sound Buz , 100 , 100 Sound Buz , 100 , 100 Sound Buz , 100 , 50 Sound Buz , 100 , 50 Sound Buz , 50 , 50 Sound Buz , 50 , 10 Sound Buz , 50 , 250 For K = 0 To 30 Step 1 Toggle Led1 Toggle Led2 Waitms 100 Next K Setup2: For K1 = 0 To 15 Step 1 Toggle Led1 Toggle Led2 Waitms 100 Next K1 Reset Led1 Reset Led2 Cls Do For I = 1 To 10 W(i) = Getadc(0) Avrage = Avrage + W(i) Waitms 30 Next I Avrage = Avrage / 10 Cls Locate 1 , 5 Lcd "CO2=" Locate 1 , 9 Lcd Avrage If Avrage > 350 Then Locate 2 , 4 Lcd "DANGER CO2" Sound Buz , 100 , 50 Sound Buz , 100 , 100 Sound Buz , 100 , 150 Sound Buz , 100 , 200 Sound Buz , 100 , 250 Sound Buz , 100 , 250 Sound Buz , 100 , 250 Sound Buz , 100 , 300 Sound Buz , 100 , 350 Reset Led1 Reset Led2 Set Rel1 Goto Setup2 Else Reset Led1 Toggle Led2 Locate 2 , 5 Lcd "GOOD CO2" Reset Rel1 End If Loop
دیدگاه