پاسخ : مشکل نوسان دما در lm35
دوست عزیز اشتباهی شد معذرت
نوشته اصلی توسط hayahu




$regfile = "m16def.dat" $crystal = 1000000 $baud = 9600 Dim W As Word Dim T As Word Dim E As Word Dim Sahand As Byte Config Adc = Single , Prescaler = Auto , Reference = Avcc Stop Adc : Start Adc Do If Sahand = 10 Then T = E / 20.4 Locate 1 , 1 Lcd "Temperture=" ; T ; Chr(0) ; "c " Waitms 20 Sahand = 0 E = 0 endif waitms 100 W = Getadc(7) E = E + W Incr Sahand loop
$regfile = "M8def.dat" ' use the Mega8 $crystal = 10000000 Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.6 , Rs = Portd.7 Config Lcd = 20 * 4 Config Adc = Single , Prescaler = Auto , Reference = Internal 'config ADC Start Adc Dim W As Word , Perc As Word , Dama As Single , Volt_d As Byte , Channel As Byte , I As Byte , Cols As Byte , Cols_d As Byte Do W = Getadc(0) Dama = W / 4 Home Lcd Dama Loop
$regfile = "M8def.dat" ' use the Mega8 $crystal = 10000000 Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.6 , Rs = Portd.7 Config Lcd = 20 * 4 Config Adc = Single , Prescaler = Auto , Reference = Internal 'config ADC Start Adc Dim W As Word , Perc As Word , Dama As Single , Volt_d As Byte , Channel As Byte , I As Byte , Cols As Byte , Cols_d As Byte Do W = Getadc(0) Dama = W / 4 Home Lcd Dama Loop
دیدگاه