$regfile = "M32DEF.DAT" $crystal = 8000000 Config Adc = Single , Prescaler = Auto Config Timer0 = Timer , Prescale = 1024 'Interrupt every 2mS Tcnt0 = &HF0 On Timer0 Read_adc Enable Interrupts Enable Timer0 Start Timer0 Config Portd = Output Dim Speed As Word Speed = 500 Do Set Portd.0 Reset Portd.1 Waitms Speed Reset Portd.0 Set Portd.1 Waitms Speed Loop Read_adc: Dim I As Word , J As Word I = Getadc(0) Delay J = Getadc(0) I = I + J I = I / 2 Select Case I Case 0 To 100 : Speed = 100 Case 101 To 200 : Speed = 150 Case 201 To 300 : Speed = 250 Case 301 To 400 : Speed = 400 Case 401 To 500 : Speed = 500 Case 501 To 600 : Speed = 600 Case 601 To 700 : Speed = 800 Case 701 To 800 : Speed = 1000 Case 801 To 900 : Speed = 1200 Case 901 To 1100 : Speed = 1500 End Select Return
دیدگاه