سلام دوستان
من مدار رو بستم و کار کرد ولی مشکلم اینه که نوشته های روی ال سی دی هی چشمک میزنن که نمی تونی بفهمی چی به چیه، من فرکانس رو به جای 8 مگاهرتز گذاشتم 1 مگاهرتز، برنامه رو هم به این شکل تغییر دادم که در این حالت ال سی دی دیگه چشمک نمیزنه، ولی آیا برنامه در فرکانس یک مگاهرتز درست کار میکنه و اصلا تفاوت بین 1 مگاهرتز و 8 مگاهرتز چیه؟
لطفا پاسخ بدید، این هم کد:
کد:
$regfile = "m8def.dat"
$crystal = 1000000
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Internal
Config Clock = Soft
Time$ = "12:00:00"
Dim Adcin As Word
Config Portd = Output
Portd = &H00
Enable Interrupts
Start Adc
Cls
Cursor Off
Do
If _hour > 5 And _hour < 19 Then
' _hour = saate time$
'pine lamp roshan
Else
'pine lamp khamoush
End If
If _min = 0 Then
'pine fan roshan
Elseif _min = 3 Then
'pine fan khamoush
'pine samavar roshan
End If
If _min = 5 Then
'pine samavar khamoush
'pine motor roshan
Elseif _min = 6 Then
'pine motor khamoush
End If
'Enable Adc
Adcin = Getadc(0) 'be pine adc0 vasl shavad.
Adcin = Adcin / 3.996
Select Case Adcin
Case Is > 24 :
Locate 1 , 1 : Lcd Adcin ; "'ctemp is high"
Locate 2 , 1 : Lcd Time$
waitms 100
'pine speaker khasti high ya low mishe. speaker roshan
Case Is < 21 :
Locate 1 , 1 : Lcd Adcin ; "'c temp is low"
Locate 2 , 1 : Lcd Time$
waitms 100
'pine speaker khasti high ya low mishe speaker roshan
Case Is > 20 :
Locate 1 , 1 : Lcd Adcin ; "'c Temp Normal"
Locate 2 , 1 : Lcd Time$
waitms 100
Case Is < 23 :
Locate 1 , 1 : Lcd " Temp Normal"
Locate 2 , 1 : Lcd Time$
waitms 100
Case Else
'pine speaker khasti high ya low mishe speaker khamoush- halate addi.
End Select
Loop
صفحه اصلی
انجمن
جستجو
فهرست اعضا
افزونه های فایرفاکس
» 
تشکر شده توسط :
