پاسخ : ساعت و دما با سون سگمنت با باتری بک پ
میشه زخمت کد نویسی بسکامشو بکشی
ممنونت میشم
میشه زخمت کد نویسی بسکامشو بکشی
ممنونت میشم
$regfile = "m16def.dat" $crystal = 1000000 '******************************************************************************* Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1_ , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5 Config Lcd = 16 * 2 '******************************************************************************* Config Adc = Single , Prescaler = Auto '******************************************************************************* Dim A As Word Dim B As Word Dim C As Single Dim D As Byte D = 1 Start Adc Cursor Off Cls Do A = Getadc(3) B = Getadc(4) C = A - B C = C / 4 C = C * 1.961 Locate 1 , 1 Lcd "temp =" ; C ; Chr(0) ; "c " Locate 1 , 16 Lcd Chr(d) Waitms 500 Incr D If D > 6 Then D = 1 Print "temp: " ; C Loop End
$regfile = "m16def.dat" $crystal = 1000000 '******************************************************************************* Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1_ , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5 Config Lcd = 16 * 2 '******************************************************************************* Config Adc = Single , Prescaler = Auto '******************************************************************************* Dim A As Word Dim B As Word Dim C As Single Dim D As Byte D = 1 Start Adc Cursor Off Cls Do A = Getadc(0) A = A * 1.923 Locate 1 , 1 Lcd "temp =" ; C ; Chr(0) ; "c " Locate 1 , 16 Lcd Chr(d) Waitms 500 Incr D If D > 6 Then D = 1 Print "temp: " ; C Loop End
دیدگاه