PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : مدار کنترل دما و رطوبت وایرلیس



car20
23-11-2011, 17:50
با سلام خدمت دوستان در ابتدا از همه شما پوزش میخواهم موضوع شاید تکراری باشه ولی من استادم ازم یک مدار کنترل دما و رطوبت خواسته که دقتش بالا باشه و به صورت وایرلیس داده ها رو به سیستم منقل کنه اگه کسی از دوستان برنامه شبیه ان داره قرار بده ممنونش میشم چون من اصلا با آشنایی با این مباحث ندارم و تازه کار هستم با تشکرYou can see links before reply

kavir
23-11-2011, 20:43
سلام
راحترین روش استفاده از ماژول های hmt هست
و دقت بالا از سنسور sht سری استفاده کنید

car20
24-11-2011, 13:44
سلام
راحترین روش استفاده از ماژول های hmt هست
و دقت بالا از سنسور sht سری استفاده کنید

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

armstk
24-11-2011, 14:21
با سلام ممنون دوست گرامی از راهنمایی شما ولی من تازه کارم و نمی دونم چه کار کنم اگر میشه از اول بگید چه قطعاتی بخرم تا با کمک شما بتونم مدارشو درست کنم باز هم از شما متشکرم
قطعات لازمت رو بهت میگم فقط خورده ریزه هاش رو باید خودت در بیاری :
sht11
ماژول وایرلس hmt و hmr یا ماژول rfm12 یا چیپ nrf24l01
به اضافه میکرویی که میخای استفاده کنی
کافیه که دیتا رطوبت و دما رو از sht11 بخونی بعد با hmt اونا رو بفرستی به مقصد

sarutobi
24-11-2011, 17:09
این پی دی اف خیلی کمکتون میکنه
You can see links before reply

car20
30-11-2011, 19:14
با سلام خدمت دوستان گرامی من امروز قطعات تهیه کردم 1-دو عدد LM35 یک عدد سنسور رطوبت با خروجی مقاومت 2- ال سی دی 2×16 3-دو عدد Atm8 و ماژول HTM/HTR و تعدادی خازن - مقاومت -یک برد برای نصب آن اگر لطف کنید و ادامه کار رو شرح بدید ممنون میشم

car20
06-12-2011, 10:59
با سلام دوست گرامی من برنامه را دما را با مداری که براتون میگذارم و کد زیر راه اندازی کردم اما دما با ان چیزی که در محیط هست 3 درجه تفاوت میکنه و وقتی دستم رو سنسور میگذارم تغییراتی به کندی انجام میشه و به حد مورد نظر نمی رسه و دوم اینکه من نمیدونم چه کدی به این برنامه اضافه کنم تا سنسور رطوبت کار کنه من کد این برنامه که در سی هست تغییر دادم اما در کد ویژن ATMEGA 16 تابعشو نمیشناسه اگه تو نوشتن کدش کمکم کنید ممنون میشم این هم کد و نقشه مدار


You can see links before reply

car20
03-01-2012, 18:11
با سلام خدمت دوستان گرامی انجمن که خیلی کمکم کردن در نوشتن پروژ ه ام من تو پروژه ام به یک مشکلی بر خوردم که دوستان بتونن کمکم کنن من برنامه دما نوشتم اما برای رطوبت چون این سنسور های رطوبت مقاومتی دقیق نبودن رفتم یک سنسور رطوبت خازنی گرفتم (hs1101) و برای ایجاد فرکانس نیز از یک مدار فرکانس با ای سی 555 استفاده کردم اما نمیدونم در نوشتن برنامه مشکل دارم از برنامه یکی از دوستان استفاده کردم که با تایمر کانتر 1و2 کار کرده بود اما این برنامه رو با برنامه خودم اضافه کردم دمایی که نشون میداد رو هم به هم ریخت حالا من برنامه اش رو براتون میزارم اگه لطف کنید اضلاحش کنید ممنون میشم در ضمن از Atmega8a استفاده کردم


$regfile = "m8def.dat"

$crystal = 1000000

Config Timer2 = Timer , Async = On , Prescale = 128
On Timer2 Ant : Enable Interrupts : Enable Timer2 :

Config Timer1 = Counter , , Edge = Falling , Prescale = 1
On Timer1 Ali : Enable Timer1


'************************************************* *********

Config Adc = Single , Prescaler = Auto , Reference = Internal

Config Lcd = 16 * 2

Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , Rs = Portb.4 , E = Portb.5


'************************************************* *********

Deflcdchar 1 , 16 , 32 , 15 , 16 , 16 , 16 , 15 , 32
Deflcdchar 2 , 4 , 10 , 17 , 31 , 31 , 31 , 14 , 32
Deflcdchar 3 , 17 , 17 , 2 , 4 , 4 , 8 , 9 , 17

'************************************************* *********

Config Pinc.3 = Output

Config Pinc.4 = Output

Config Pinc.5 = Output

Config Pind.3 = Input : Portd.3 = 1

Config Pind.5 = Input : Portd.5 = 1

Config Pind.6 = Input : Portd.6 = 1

Menu Alias Pind.6

Up Alias Pind.3

Down Alias Pind.5

Minimal Alias Portc.3

Maximal Alias Portc.4

Admissible Alias Portc.5

'************************************************* *********

Dim Adc_value As Word

Dim Adc_value2 As Word

Dim Adc_final As Single

Dim Adc_final2 As Single

Dim X(4) As Single , I As Byte

Dim X2(4) As Single , J As Byte

Dim Adc_compare As Byte

Dim Adc_compare2 As Byte

Dim Eram_up As Eram Byte

Dim Eram_down As Eram Byte

Dim Eram_up1 As Byte

Dim Eram_down1 As Byte

Dim L As Long

Dim B As Byte

Dim W As Word

Dim Omega As Single

Dim M As Single

Dim S As String * 16

Eram_up1 = Eram_up

Eram_down1 = Eram_down

If Eram_up1 = 255 Or Eram_up1 = 0 Then

Eram_up = 85

End If

If Eram_down1 = 255 Or Eram_down1 = 0 Then

Eram_down = 5

End If

'************************************************* *******

Declare Sub No_key

Declare Sub Menuo

Declare Sub Max_change

Declare Sub Min_change



'*****************main**************************** ***

Cls : Cursor Off Noblink

Begin:

Do

For I = 1 To 4

Adc_value = Getadc(1)

Adc_final = Adc_value / 3.996

Adc_final = Round(adc_final)

X(i) = Adc_final

Waitms 225

Next

Adc_final = X(1) + X(2)

Adc_final = Adc_final + X(3) : Adc_final = Adc_final + X(4)

Adc_final = Adc_final / 4

Adc_final = Round(adc_final)

Adc_compare = Adc_final



If Adc_compare > Eram_up1 Then

Home : Lcd " TEMP EXCEED! " : Lowerline

Lcd " " ; Adc_final ; Chr(1) ;

Sound Portc.0 , 60 , 100

Maximal = 1 : Minimal = 0 : Admissible = 0

Elseif Adc_compare < Eram_down1 Then

Home : Lcd " TEMP EXCEED! " : Lowerline

Lcd " " ; Adc_final ; Chr(1) ;



Sound Portc.0 , 60 , 100

Maximal = 0 : Minimal = 1 : Admissible = 0

Else

Home

Lcd "ADMISSIBLE VALUE: "

Lowerline : Lcd " " ; Adc_final ; Chr(1) ;

Maximal = 0 : Minimal = 0 : Admissible = 1

End If

'*************************************************

Start Timer2

Do

Loop

Ant:
Stop Timer1 :
W = Timer1
Timer1 = 0
Start Timer1
L = B * 65536 : L = L + W : B = 0

Locate 2 , 10
Lcd "F:"
If L < 1000 Then :
Locate 2 , 10
Lcd L ; " "
Else :
M = L / 1000 : S = Fusing(m , "#.###") : Locate 2 , 10 : Lcd S ; " K"
End If

Lcd "Hz " : M = L * 6.283185307179586476925286766559
If M < 1000 Then :
S = Fusing(m , "#.###") : Locate 2 , 10 : Lcd S ; " "
Else :
M = M / 1000 : S = Fusing(m , "#.###") : Locate 2 , 10 : Lcd S ; " K"
End If
Lcd "R/S " "

Return


Ali:
B = B + 1
Return


'*************************************************

If Menu = 0 Then

Call No_key

Call Menuo

End If

Loop

'***********************SUBROUTINE**************** **************

Sub Menuo

Cls : Home

Do

Eram_up1 = Eram_up

Eram_down1 = Eram_down



Upperline : Lcd " up: " ; " down: "

Lowerline : Lcd " " ; Eram_up1 ; " " ; Eram_down1

If Up = 0 Then

Call No_key

Call Max_change

Elseif Down = 0 Then

Call No_key

Call Min_change

Elseif Menu = 0 Then

Call No_key

Goto Begin

End If

Loop

End Sub

'************************************************* **********

Sub Max_change

Do



Locate 1 , 1 : Lcd "set max value "

Lowerline : Lcd " " ; Eram_up1 ; " "

If Up = 0 Then

Call No_key

Incr Eram_up1

Eram_up = Eram_up1

Lowerline : Lcd " " ; Eram_up1 ; " "

Elseif Down = 0 Then

Call No_key

Decr Eram_up1

Eram_up = Eram_up1

Lowerline : Lcd " " ; Eram_up1 ; " "

End If

If Menu = 0 Then

Call No_key

Exit Sub

End If

Loop

End Sub

'************************************************* **********

Sub Min_change

Do

Locate 1 , 1 : Lcd "set Min Value "

Lowerline : Lcd " " ; Eram_down1 ; " "

If Up = 0 Then

Call No_key

Incr Eram_down1

Eram_down = Eram_down1

Lowerline : Lcd " " ; Eram_down1 ; " "

Elseif Down = 0 Then

Call No_key

Decr Eram_down1

Eram_down = Eram_down1

Lowerline : Lcd " " ; Eram_down1 ; " "

End If

If Menu = 0 Then

Call No_key

Exit Sub



End If

Loop

End Sub



Sub No_key

Do

Loop Until Pind.3 = 1 And Pind.5 = 1 And Pind.6 = 1

Waitms 30

End Sub



End

crashbandicoo
03-01-2012, 18:35
سلام دوست گرامی من این سنسور رو با همون آی سی 555 راه انداختم پستشو توی پروژه های انجام شده گذاشته بودم با میکرو هم یه فرکانس متر نوشتم .دقت این سنسور خیلی خوبه
لینک زیر رو ببین :
رطوبت سنج با hs1101 - ایـــــــــران میـــــــکرو ™ (You can see links before reply)

car20
03-01-2012, 20:52
سلام دوست گرامی من این سنسور رو با همون آی سی 555 راه انداختم پستشو توی پروژه های انجام شده گذاشته بودم با میکرو هم یه فرکانس متر نوشتم .دقت این سنسور خیلی خوبه
لینک زیر رو ببین :
رطوبت سنج با hs1101 - ایـــــــــران میـــــــکرو ™ (You can see links before reply)

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

car20
04-01-2012, 15:17
دوستان اگه کمکم کنید برای کد بالا چون پروژ ه ام برای همین کد رطوبت بالا به زبان بیسیک مونده

car20
05-01-2012, 11:25
اقا ما که بیخیال شدیم فکر می کنم کلا کسی نیست به ما کمک کنه یا همه مثل خودم مبتدی هستن