کمک به ساخت دماسنج و رطوبت سنج با AVR

[پشه 007]

پاسخ : کمک به ساخت دماسنج و رطوبت سنج با AVR

سلام
اینم عکس مدار .
دقتش همه عالیه .
اگه خواستی بگو تا برنامه رو بذارم واست.

[milad2546]

پاسخ : کمک به ساخت دماسنج و رطوبت سنج با AVR

سلام
اینم عکس مدار .
دقتش همه عالیه .
اگه خواستی بگو تا برنامه رو بذارم واست.

اگه بذاری ممنون میشیم.

[پشه 007]

پاسخ : کمک به ساخت دماسنج و رطوبت سنج با AVR

اینم از برنامه
باید نسبت به سخت افزارتون تغییرش بدی


$regfile = "m323def.dat" ' specify the used micro
$crystal = 8000000 ' used crystal frequency
'$baud = 19200 ' use baud rate
$hwstack = 60 ' default use 32 for the hardware stack
$swstack = 40 ' default use 10 for the SW stack
$framesize = 60 ' default use 40 for the frame space
$eeprom

'some routines to control the display are in the glcdKS108.lib file
$lib "glcdKS108.lib"
Enable Interrupts


Config Date = Mdy , Separator = / ' ANSI-Format
Config Clock = Soft 'this is how simple it is
Date$ = "11/11/00"
Time$ = "00:00:00"





'First we define that we use a graphic LCD
Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portb , Ce = 4 , Ce2 = 3 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2
Setfont Font8x8
Cls
Lcdat 1 , 2 , "welcome to "
Lcdat 3 , 1 , "DataLogger"
Lcdat 5 , 1 , "By ARST"

Wait 2
Cls
Dim Epadd As Eram Byte
Dim Last As String * 20
Dim Dissave As String * 30
Dim Er As Long
Dim Crc_cor As Byte
Dim C As Byte
Dim Crc_sht As Byte
Dim A As Byte
Dim I As Byte , J As Byte
Dim Z(3) As Byte
Dim X As Byte
Dim Idx As Byte
Dim Crc As Byte
Dim Ctr As Byte
Dim Dataword As Word
Dim Command As Byte
Dim Dis As String * 20
Dim Dish As String * 20
Dim Calc As Single
Dim Calc2 As Single
Dim Rhlinear As Single
Dim Rhlintemp As Single
Dim Key_temp As Single
Dim Tempc As Single
Dim Tempf As Single

Const C1 = -4
Const C2 = 0.0405
Const C3 = -0.0000028
Const T1c = .01
Const T2 = .00008
Const T1f = .018
Save Alias Pinb7
Sck Alias Porta.0 'Sck
Dataout Alias Porta.1 'Data
Datain Alias Pina.1
Cls
Declare Sub Getit()
Declare Sub Calc_crc(byval X As Byte)


Config Pina.0 = Output
Config Pina.1 = Output
Config Pinb.7 = Input
'Ddrd = &HFE

Set Dataout
For Ctr = 1 To 12
Set Sck
Waitus 2
Reset Sck
Waitus 2
Next Ctr
Do
Waitms 20
'Cls
'Lcdat 8 , 3 , Er
'Waitms 20
Gosub Get_hum
'Wait 10
'Cls
Waitms 20
Readeeprom Last , Epadd
Setfont Font8x8
Last = "l= " + Last

Lcdat 7 , 1 , Last
Gosub Get_temp

Loop

Get_temp:

Command = &B00000011
Z(1) = 3
Call Getit
'
Tempf = T1f * Dataword
Tempf = Tempf - 40

Tempc = T1c * Dataword
Tempc = Tempc - 40

Dis = Fusing(tempc , "###.##&quot
Dis = Dis + "c"
Waitms 20
Lcdat 1 , 1 , Dis
' Waitms 200

Return


Get_hum:
Command = &B00000101
Z(1) = 5
Call Getit
Calc = C2 * Dataword
Calc2 = Dataword * Dataword
Calc2 = C3 * Calc2
Calc = Calc + C1
Rhlinear = Calc + Calc2

'Dis = Fusing(rhlinear , "##.##&quot
'Print "Humidity adjusted for linear = " ; Dis


Calc = T2 * Dataword
Calc = Calc + T1c
Calc2 = Tempc - 25
Calc = Calc2 * Calc
Rhlintemp = Calc + Rhlinear

Dish = Fusing(rhlintemp , "##.##&quot
Dish = Dish + "%"
Lcdat 5 , 1 , " "
Waitms 20

Lcdat 5 , 1 , Dish

'Waitms 200
Setfont Font8x8
Lcdat 8 , 1 , Time$
Setfont Font8x8
If Pinb.7 = 0 Then
Cls
Lcdat 1 , 1 , "Saving..."
Dissave = Dis + Dish
Writeeeprom Dissave , Epadd
Waitms 5
Cls
End If
Return

End



Sub Getit()

Local Datavalue As Word
Local Databyte As Byte

Set Sck
Reset Dataout
Reset Sck
Set Sck
Set Dataout
Reset Sck


Shiftout Dataout , Sck , Command , 1

Config Datain = Input
Set Sck
Reset Sck
Waitus 10

Bitwait Datain , Reset

Shiftin Datain , Sck , Databyte , 1
Datavalue = Databyte
Z(2) = Databyte

Config Datain = Output

Reset Dataout
Set Sck
Reset Sck

Config Datain = Input

Shiftin Datain , Sck , Databyte , 1
Shift Datavalue , Left , 8
Datavalue = Datavalue Or Databyte
Dataword = Datavalue
Z(3) = Databyte

Config Datain = Output

Reset Dataout
Set Sck
Reset Sck

Config Datain = Input

Shiftin Datain , Sck , Databyte , 1

Crc_sht = Databyte
Gosub Crc_ex

Crc = 0

For J = 1 To 3
X = Z(j)
Call Calc_crc(x)
Next

'Lcdat 2 , 1 , Databyte
'Waitms 20

If Crc = Crc_cor Then
' Lcdat 4 , 1 , "CRC - OK"
' Waitms 20
Else
' Lcdat 5 , 1 , "CRC - Error"
'Waitms 20
Incr Er
Command = &B00011110
Set Sck
Reset Dataout
Reset Sck
Set Sck
Set Dataout
Reset Sck


Shiftout Dataout , Sck , Command , 1
Waitms 20

End If

Config Datain = Output

Set Dataout
Set Sck
Reset Sck
End Sub

Sub Calc_crc(byval X As Byte)
Restore Crc_table
Idx = Crc Xor X
If X = 0 Then Idx = 3

For I = 0 To Idx
Read Crc
Next

End Sub

Crc_ex:

C = 0
A = 7
Do
Crc_cor.c = Crc_sht.a
Incr C
Decr A
Loop Until C = 8

Return

Crc_table:

Data 0 , 49 , 98 , 83 , 196 , 245 , 166 , 151 , 185 , 136 , 219 , 234 , 125 , 76 , 31 , 46,
Data 67 , 114 , 33 , 16 , 135 , 182 , 229 , 212 , 250 , 203 , 152 , 169 , 62 , 15 , 92 , 109,
Data 134 , 183 , 228 , 213 , 66 , 115 , 32 , 17 , 63 , 14 , 93 , 108 , 251 , 202 , 153 , 168,
Data 197 , 244 , 167 , 150 , 1 , 48 , 99 , 82 , 124 , 77 , 30 , 47 , 184 , 137 , 218 , 235,
Data 61 , 12 , 95 , 110 , 249 , 200 , 155 , 170 , 132 , 181 , 230 , 215 , 64 , 113 , 34 , 19,
Data 126 , 79 , 28 , 45 , 186 , 139 , 216 , 233 , 199 , 246 , 165 , 148 , 3 , 50 , 97 , 80,
Data 187 , 138 , 217 , 232 , 127 , 78 , 29 , 44 , 2 , 51 , 96 , 81 , 198 , 247 , 164 , 149,
Data 248 , 201 , 154 , 171 , 60 , 13 , 94 , 111 , 65 , 112 , 35 , 18 , 133 , 180 , 231 , 214,
Data 122 , 75 , 24 , 41 , 190 , 143 , 220 , 237 , 195 , 242 , 161 , 144 , 7 , 54 , 101 , 84,
Data 57 , 8 , 91 , 106 , 253 , 204 , 159 , 174 , 128 , 177 , 226 , 211 , 68 , 117 , 38 , 23,
Data 252 , 205 , 158 , 175 , 56 , 9 , 90 , 107 , 69 , 116 , 39 , 22 , 129 , 176 , 227 , 210,
Data 191 , 142 , 221 , 236 , 123 , 74 , 25 , 40 , 6 , 55 , 100 , 85 , 194 , 243 , 160 , 145,
Data 71 , 118 , 37 , 20 , 131 , 178 , 225 , 208 , 254 , 207 , 156 , 173 , 58 , 11 , 88 , 105,
Data 4 , 53 , 102 , 87 , 192 , 241 , 162 , 147 , 189 , 140 , 223 , 238 , 121 , 72 , 27 , 42,
Data 193 , 240 , 163 , 146 , 5 , 52 , 103 , 86 , 120 , 73 , 26 , 43 , 188 , 141 , 222 , 239,
Data 130 , 179 , 224 , 209 , 70 , 119 , 36 , 21 , 59 , 10 , 89 , 104 , 255 , 206 , 157 , 172




'end program


'we need to include the font files
'Notice that this is a testfont with only numbers defined !
'$include "smallfont8x8.font"
$include "font8x8.font"
$include "font16x16.font"


Plaatje:
'include the picture data
$bgf "ks108.bgf"

[heidarali]

پاسخ : کمک به ساخت دماسنج و رطوبت سنج با AVR

سلام
عزیز میشه در مورد خروجی سنسوری که به کار بردی یکم توضیح بدی و اینکه نقشه مدارتم بزاری
من میخوام یه همچین دستگاهی بسازم البته به lcd گرافیکی نیازی ندارم.میخوام دما و رطوبت رو رویه سگمنت بخونم.
راستش من فقط با 8051 کار کردم اونم با زبان اسمبلی متآسفانه
ولی برای ساخت یه سری پروژهام باید حتمآ avr بخونم.از شما چه پنهون که رفتم کتابشم گرفتم. ولی متآسفانه نویسنده
آموزش زبان c رو به عهده خواننده گزاشته.واسه همین رفتم دنبال یادگرفتن c که تا زمانی که این 2 تا کار رو بتونم انجام بدم عمری رفته .
فکر کنم این برنامه ای که گزاشتین به زبان بیسیک باشه درسته؟
میشه این برنامرو کمی تغییر بدین و خروجی رو روی سگمنت نمایش بدین؟
واینکه بشه کنترلش کرد که مثلآ دما و رطوبت محیط رو تو یه رنج خاصی نگه داره با چند تا رله ...
من چون کارم خیلی عجله ای نمیتونم صبر کنم تا بتونم خودم برنامش رو بنویسم.
فکر کنم خیلی از اساتید به همچین مداری نیاز داشته باشند.
اگه تقویم هم داشته باشه که حرف نداره.
ممنون و متشکرم
یا حق

[milad2546]

پاسخ : کمک به ساخت دماسنج و رطوبت سنج با AVR

اگه سنسوزش lm35 باشه خروجیش ولتاژ ه . که باید با ADC کار کنی .

اگه بخوای با 8051 انجام بدی باید یه ic آنالوگ به دیجیتال بذاری. ولی من پیشنهاد میکنم با avr انجام بده.

کامل بگو چی میخوای تا برات یه کار بکنم.
در ضمن توی انجمن چندی پروژه با همین سنسور هستش.

[heidarali]

پاسخ : کمک به ساخت دماسنج و رطوبت سنج با AVR

من میخوام یه دستگاه جوجه کشی بسازم که باید حرارت و رطوبت رو تویه یه رنج خاصی نگه دارم.
مثلآ( 36.5) درجه سانتیگراد ورطوبت % 80
من با 8051 خیلی کار کردم و پروژهای زیادی ساختم. اگه یاد بگیرم برنامه نویسی avr رو، زود خودم و میکشم بالا.
ولی کو تا من این رو یاد بگیرم.

در ضمن lm35 دقتش 1 درجست و سرعتشم افتضاحه.هویه گزاشتم روش بعد 5 دقیقه رسید به دمایه حقیقی.

باید این دستگاه یه تقویم هفتگی داشته باشه و علاوه بر اون بتونه از زمانی که بهش میدیم هر روز 1 روز اضافه کنه که از کی تخم ها وارد دستگاه شدن.
واینکه بتونه یه موتور رو که واسه چرخوندن تخمهاست راه بندازه به صورت چپ گرد و راست گرد. این کارم باید جوری باشه که طرف بتونه خودش برنامه چرخوندن تخمهارو عوض کنه.مثلآ برنامه بده که در 24 ساعت 7 یا 9 یا 3 یا ...بار موتور گردش کنه .
البته من تا آخر بهار حتمآ avr رو فول میشم انشا لله تا اواسط تابستونم کل این پروژه به پایان میرسه.ولی این زمان خیلی دیره.
چون چند تا پروژه دیگه هم هست که دیگه واقعآ عقب میفتن.
اگه کسی حاضره این دستگاه رو بسازه بگه تا توضیحات بیشتری بدم.
یا حق

[mohsen.hex]

پاسخ : کمک به ساخت دماسنج و رطوبت سنج با AVR

من میخوام یه دستگاه جوجه کشی بسازم که باید حرارت و رطوبت رو تویه یه رنج خاصی نگه دارم.
مثلآ( 36.5) درجه سانتیگراد ورطوبت % 80
من با 8051 خیلی کار کردم و پروژهای زیادی ساختم. اگه یاد بگیرم برنامه نویسی avr رو، زود خودم و میکشم بالا.
ولی کو تا من این رو یاد بگیرم.

در ضمن lm35 دقتش 1 درجست و سرعتشم افتضاحه.هویه گزاشتم روش بعد 5 دقیقه رسید به دمایه حقیقی.

باید این دستگاه یه تقویم هفتگی داشته باشه و علاوه بر اون بتونه از زمانی که بهش میدیم هر روز 1 روز اضافه کنه که از کی تخم ها وارد دستگاه شدن.
واینکه بتونه یه موتور رو که واسه چرخوندن تخمهاست راه بندازه به صورت چپ گرد و راست گرد. این کارم باید جوری باشه که طرف بتونه خودش برنامه چرخوندن تخمهارو عوض کنه.مثلآ برنامه بده که در 24 ساعت 7 یا 9 یا 3 یا ...بار موتور گردش کنه .
البته من تا آخر بهار حتمآ avr رو فول میشم انشا لله تا اواسط تابستونم کل این پروژه به پایان میرسه.ولی این زمان خیلی دیره.
چون چند تا پروژه دیگه هم هست که دیگه واقعآ عقب میفتن.
اگه کسی حاضره این دستگاه رو بسازه بگه تا توضیحات بیشتری بدم.
یا حق

سلام
من با lm35 کار کردم خیلی سرعت عمل بالای داشت میتونم بگم یک سدم ثانیه
و پیشنهاد میکنم از سنسور دما و رطوبت که روی هم هستن و با روش sda scl به میکرو وصل میشه که قیمتش 25000 تومنه و شمارش فکر میکنم sht110 بود

[heidarali]

پاسخ : کمک به ساخت دماسنج و رطوبت سنج با AVR

سلام دوباره به همه دوستان
خوب تا حدودی با avr و زبون بیسیک آشنا شدم.حالا کسی میتونه بهم بگه که خروجی sht75 به چه صورته؟یعنی اینکه چطوری میتونم بخونمش؟
راستش از دیتا شیتش که چیزی سر در نیاوردم چون از انگلیش چیزی سر در نمیارم.
از برنامه دوستمون هم نمیتونم استفاده کنم چون باید یه چیزای زیادی بهش اضافه کنم.
در ضمن بهتره که این کار رو خودم بکنم تا هم چیزی یاد گرفته باشم.هم محتاج دیگران نباشم.
البته منظورم به برو بچ این سایت نیست ها کسی به دل نگیره.
عزیزان اینجا همه اساتید من هستند.
موفق و پایدار باشید.
یا حق

[پشه 007]

پاسخ : کمک به ساخت دماسنج و رطوبت سنج با AVR

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

[vahid-elect]

پاسخ : کمک به ساخت دماسنج و رطوبت سنج با AVR

خوب. به نظر من اول از بیسکام شروع کنی بهتره. گرچه با C کاملا می فهمی که چرا اینجوری شد و چرا اونجوری . ولی مثلا میخوای سریع یه چیز ساده مثل دستگاه جوجه کشی بسازی ، خیلی راحت باید باشه. اما بگم که من کمی بیسکام بلدم ( خیلی کم ؛ دارم یاد می گیرم ) و برنامه ها رو تو پروتئوس هم آزمایش می کنم کار می کنه ولی در عمل هنوز موفق نشدم که یه مدار میکرویی رو راه بندازم. ولی خلاصه که بیسکام می تونه فعلا کارت رو راه بندازه.

[heidarali]

پاسخ : کمک به ساخت دماسنج و رطوبت سنج با AVR

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

با سلام
میشه دوستان کمک کنند و بگن که این دستورات کارشون چیه؟

$hwstack = 60
$swstack = 40
$framesize = 60
$eeprom
$lib "glcdKS108.lib"
Config Date = Mdy , Separator = /
Setfont Font8x8
Lcdat 1 , 2 , "welcome to "
Shiftout Dataout , Sck , Command , 1

Config Datain = Input
Shiftin Datain , Sck , Databyte , 1
Shift Datavalue , Left , 8
Else
Restore Crc_table
Read Crc
Loop Until C = 8
Data 0 , 49 , 98 , 83 , 196 , 245 , 166 , 151 , 185 , 136 , 219 , 234 , 125 , 76 , 31 , 46,
$include "smallfont8x8.font"
$include "font8x8.font"
$include "font16x16.font"

این دستورات در برنامه دوستمون بود که هنوز ازشون سز در نیاوردم .داخل کتاب هم که گشتم چیزی پیدا نکردم .شایدم هست ولی من ندیدم
البته داخل help کامپایلر یه چیزایی گفته ولی به همون دلایلی که قبلاً اشاره کردم نمیتونم زیاد چیزی ازشون سر در بیارم.
در ضمن این دو دستور هم داخل کامپایلر ارور میده:ارور(43)

$include "font8x8.font"
$include "font16x16.font"

متشکرم
یا حق

[heidarali]

پاسخ : کمک به ساخت دماسنج و رطوبت سنج با AVR

وما همچنان چشم انتظار یاری سبزتان هستیم...

[vahid-elect]

پاسخ : کمک به ساخت دماسنج و رطوبت سنج با AVR

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

$include "font8x8.font"
$include "font16x16.font"

و این قسمت همونطور که معلومه فراخوانی فونت ها هستش که در دو سایز 16*16 و 8*8 . که فکر کنم فونتش هم باید دوستان لطف کنن و بذارن. ( ولی همونطور که گفتم خیلی سر در نمی آرم چون خیلی در سطح مبتدی کار می کنم . )
و یک سوال
آیا برای ولتاژی که از LM35 می گیریم فرمولی داره؟
همونطور که از ای دی سی وارد می شه باید چه فرایند ( کمی مبالغه بود ؛ ) باید طی کنه؟ ( خلاصه یه توضیحی مختصری بدید چون من می خوام یه دستگاهی بسازم که فقط به دما و رله و مراحل مکانیکی و تایمر احتیاج داره ؛ فقط قسمت دماش رو لطف کنید ، ما ممنون می شیم.)

[پشه 007]

پاسخ : کمک به ساخت دماسنج و رطوبت سنج با AVR

دو فایل font8x8.font و font16x16.font جز فایلهای بسکم هست . در فولدر بسکم دنبالشون بگردید و اونو تو فولدر پروژه دخیره کنید

[milad2546]

پاسخ : کمک به ساخت دماسنج و رطوبت سنج با AVR

سلام.
تا اونجایی که من میدونم وقتی $ میاد قصد فراخوانی رو داری.
$hwstack = 60
$swstack = 40
$framesize = 60
خودمم نمیدونم این سه خط برای چیه/// مگر خود پشه 007 برامون بگه.
$eeprom یعنی اینکه من تو برنامه با eeprom کار دارم ... در واقع فراخوانی میکنی.
$lib "glcdKS108.lib" اینم کتابخانه lcd گرافیکیه که چون lcd ما از نوعks108 هستش این کتابخانه رو به برنامه میشناسونیم.
Config Date = Mdy , Separator = / این دستور هم تاریخ رو به صورت mdy یعنی سال-روز-ماه پیکر بندی کرده و جدا کننده این اعداد رو هم / مشخص کرده.
Setfont Font8x8 وقتی فونت رو تو برنامه include میکنی وقتی بخوای ازش استفاده کنی باید این دستور رو بنویسی. چه برای 16*16 چه برای 8*8
Lcdat 1 , 2 , "welcome to " اینم که دستور نوشتن بر روی lcd گرافیکیه . که اعداد 1.2 مشخص کننده مکان نمایش کلمه مورد نظر میباشد.
Config Datain = Input اگه دقت کرده باشی datainرو برابر با یک پین از میکرو قرار داده که با این دستو ر همان پین رو ورودی میکنه.
Shift Datavalue , Left , 8 متغییر Datavalue را با اندازه 8 بیت به چپ شیفت میدهد.
Else همچنین معنی میده.
Loop Until C = 8 از لوپ خارج شو زمانی که c=8 شد.
Data 0 , 49 , 98 , 83 , 196 , 245 , 166 , 151 , 185 , 136 , 219 , 234 , 125 , 76 , 31 , 46, دیتا مورد نظر رو با برچسب مشخصی در انتهای برنامه قرار میدن و با دستور lookup اونارو یکی یکی میخونن خیلی در کوتاه شدن برنامه کمک میکنه.
include "smallfont8x8.font"
$include "font8x8.font"
$include "font16x16.font
اینا هم برای معرفی فونتی که در برنامه به کار میبریم به کامپایلر هست.

باید به محلی که برنامه نصب هستش بری و این فایل هارو پیدا کنی و در پوشه ای که برنامه رو توش ذخیره کردی بریزی.

بعضی از دستورات هم بلد نبودم که اونو به عهده خود پشه 007 میذارم. ما هم مثل شما منتظریم.