نمایش دما

[arastoo_mybb1.2_import14426]

سلام.من برای نمایش دما روی lcd با کمک lm35 یه برنامه به زبان بیسیک برای avr mega 32 احتیاج درارم که ساعت و تاریخ هم رو lcd نمایش بده و تا یه ما هم هر روزحداقل و حداکثر دما رو تو eeprom اش ذخیره کنه.که با اتصال یه کیبرد بشه حداقل وحداکثر دما های روزای پیش دید....ممنون میشم اگه بتونید کمکم کنید...

[newdesign]

کد:

'----------------------------------------------------
'                    RND.BAS
'    demonstration if RND() function
'----------------------------------------------------
$crystal = 16000000

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.5 , Db5 = Porta.4 , Db6 = Porta.3 , Db7 = Porta.2 , E = Porta.1 , Rs = Porta.0
Config Adc = Single , Prescaler = Auto                      ',
Config Kbd = Portd Debounce = 50 Delay 100
Config Date = Mdy , Separator = /
Config Clock = Soft
Enable Interrupts
Time$ = "00:00:00"
Dim S As Byte
Dim T As Word
Dim L As Long
Dim W2 As Word
Dim Kb As Byte
Dim Skb As Byte
Dim I As Byte
Dim N As Byte
Dim Tmin(60) As Eram Byte
Cls
Cursor Off
'For I = 0 To 59
'Home
'Readeeprom S , I
'Lcd "min" ; I ; "=" ; S ; "          "
'Next
Config Pina.7 = Input
Start Adc
I = 0
Cls
S = _sec
Do

T = Getadc(7)
T = T / 2


If S <> _sec Then
S = _sec
Home
Lcd Time$
Lowerline
Lcd "temp   is:" ; T
End If

  Kb = Getkbd()
  If Kb < 16 Then
  Skb = Lookup(kb , Kb_btn)
If Skb = "7" Then Incr _hour
If Skb = "s" Then Decr _hour
If Skb = "8" Then Incr _min
  If Skb = "0" Then Decr _min
  If Skb = "e" Then _sec = 0
  Locate 1 , 15
  Lcd Chr(skb)
End If
If T > 30 Then
For I = 1 To 10
N = Lookup(i , Note)
N = N * 10

L = 5000 / N
  Sound Portb.0 , L , n                                    'BEEP
  Next
End If
'Writeeeprom T , _sec
Loop
End
Kb_btn:
Data "de0sc987b654a321"
Note:
Data 4% , 0% , 10% , 10% , 10% , 0% , 4% , 0% , 4% , 0% , 10% , 10 % , 10% , 0% , 4 % , 0 % , 10% , 0% , 11% , 13% , 10%' , 0 0 0 15 13 13 11 11 10 10 8 6 0 8 13 10 "

[arastoo_mybb1.2_import14426]

khwyli kheyli mamnoonam azat nemidooni che komaki behem kardi faghat ye soal.too in barname vaghti hadeaghal hadde aksare damay roozaye pisho mibinim sa@ va tarikheshoonam neshon mide

[newdesign]

اول لطف کن فارسی بنویس
نه این فقط دما و ساعت رو داره اون بخش رو خودت بایدزحمتش رو بکشی

[arastoo_mybb1.2_import14426]

سلام .من هر کاری میکنم از این برنامه جواب نمی گیرم .فکر کنم یه مشکلی داره .من نتونستم پیداش کنم ... شما مطمعنید این برنامه درسته؟

[arastoo_mybb1.2_import14426]

میشه شماتیکشم واسم بزارید

[newdesign]

سلام
کد که درسته
شما باید یک کریستال ساعت به پایه مربوطه وصل کنی تا جواب لازم رو بگیری
می تونی قسمت کی برد رو هم حذف کنی
یک سایت توپ برای آپلود معرفی کن که عضو شدنش راحت باشه
و فایل ها رو برای یک سال نگه داره تا تقی به توقی هم خورد پولی نشه تا آپش کنم

[Pardazesh-Gar]

www.110mb.com
امکانات جالبی دارد

[ha_60]

یک سایت توپ برای آپلود معرفی کن که عضو شدنش راحت باشه

دستت درد نکنه بابا چرا تو قسمت مقالات آپلود نمی کنی؟ :wink:

[newdesign]

سلام
آقا هادی
کسی که 2 سال سربازی بره مانیتور رو هم چپه رو میز بزاره نباید ازش ایراد گرفت
باشه من یک دونه می زارم اگه بقیه خوششون اومد ادامه میدیم

[ha_60]

http://www.iranled.com/article85.html
ممنون خوب بود فقط یه دو خط بیشتر بنویس بابا :wink: