سلام دوستان
من یه دماسنج با سون سگمنت 4تایی درست کردم که برنامهش مشکل داره البته تو پروتیوس امتحان میکنم کار میکنه و هیچ مشکلی نداره ولی رو برد مشکل داره
مشکلش اینه که یه دمای خاصی رو نشون نمیده و همش عدد های متفاوت رو تو کمتر از 1 ثانیه نشون میده و همش پرش داره
دوستان من برنامه رو مذارم لطفا کمک کنید
من یه دماسنج با سون سگمنت 4تایی درست کردم که برنامهش مشکل داره البته تو پروتیوس امتحان میکنم کار میکنه و هیچ مشکلی نداره ولی رو برد مشکل داره
مشکلش اینه که یه دمای خاصی رو نشون نمیده و همش عدد های متفاوت رو تو کمتر از 1 ثانیه نشون میده و همش پرش داره
دوستان من برنامه رو مذارم لطفا کمک کنید
کد:
$regfile = "m8def.dat" $crystal = 1000000 Config Portd = Output Config Portb = Output Config Adc = Single , Prescaler = Auto , Reference = Internal Dim A As Word , B As Word , C As Single , W As Word , D As Byte , S As Byte Start Adc Declare Sub Comm Declare Sub Temp Declare Sub Refresh '================================================================= Do Call Refresh Call Temp Call Comm Loop '================================================================== Sub Temp A = Getadc(0) B = Getadc(1) C = A - B C = C / 4 If C > 0 Then S = 12 W = C Cls : Lcd W End If If C < 0 Then S = 11 C = C / -1 W = C Cls : Lcd W End If End Sub '=================================================================== Sub Comm Portd = &B0111 : D = 10 : Call Refresh Portd = &B1011 : D = W Mod 10 : Call Refresh Portd = &B1101 : D = W / 10 : Call Refresh Portd = &B1110 : D = S : Call Refresh Portd = &B1111 : D = 0 End Sub '======================================================================= Sub Refresh Portb = Lookup(d , 7seg) Waitms 5 End Sub '============================================================================= 7seg: Data &H3F , &H6 , &H5B , &H4F , &H66 , &H6D , &H7D , &H7 Data &H7F , &H6F , &H63 , &H40 , &H00
دیدگاه