چند ریز برنامه روی یک میکرو

[b e h n a m]

سلام
من میخوام برای تجربه اولم با میکرو برای ساخت دستگاه جوجه کشی روی یک میکرو مگا16 برنامه های زیر رو پیاده کنم :

1-کنترل دما به همراه نمایش دما روی lcd فونتی
2-کنترل رطوبت به همراه نمایش روی lcd فونتی
3-گرفتن خروجی برای چرخاندن یک موتور در زمان معین برای چرخاندن تخم مرغ ها

برنامه های 1 و 3 رو ردیف کردم .
هردو به تنهایی به خوبی کار میکنن ولی نمیتونم از هر دو برنامه همزمان استفاده کنم

برای 2 نتونستم سنسور مناسب پیدا کنم که هم ارزون باشه هم کار باهاش راحت )hr202 نظرم رو جلب کرد ). همشون با ولتاژ ac کار میکنن ؟
با برنامه بسکام کار کردم کمابیش تا حدی که 1و 3 رو تونستم ردیف کنم
ممنون میشم راهنمایی کنید
اگه لازمه بگید سورسهارو بزارم همینجا

[Javad Moosavi]

پاسخ : چند ریز برنامه روی یک میکرو

خوب الان مشکل از کجاست؟
مشکل در همزمانی کار ها داری یا انتخاب سنسور؟

برای دریافت اطلاعات سنسور ها از وقفه ها و برای نمایش اطلاعات هم از تایمر استفاده کن. حله، قسمت کنترل چرخش هم که با توجه به زمان (تا اونجا که می دونم) باید انجام بشه که اون هم با بررسی زمان به راحتی قابل انجامه

[zamanimahdi]

پاسخ : چند ریز برنامه روی یک میکرو

ds18b20 عالیه

[b e h n a m]

پاسخ : چند ریز برنامه روی یک میکرو

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


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

مشکل اصلی همزمانی کارها هستش
برای مثال این برنامه دماسنج با کنترل هستش (دقیقا گزاشتم که اگه به کار کسی اومد استفاده کنه )

$regfile = "m16def.dat"
$crystal = 1000000
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , _
Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Internal
Config Portd = Output
Config Portb = Input
Dim T As Word
Dim H As Byte
Dim L As Byte
Start Adc
Declare Sub Main1
Declare Sub Main2
L = 35
H = 40


Cls
Cursor Off
Locate 1 , 2
Lcd "starting"
Wait 1
Cls
Cursor Off
Locate 1 , 2
Lcd "starting."
Waitms 300
Cls
Cursor Off
Locate 1 , 2
Lcd "starting.."
Waitms 300
Cls
Cursor Off
Locate 1 , 2
Lcd "starting..."
Waitms 300
Cls
Cursor Off
Locate 1 , 2
Lcd "starting...."
Waitms 1500
Cls
Cursor Off
Home
Lcd " W"
Waitms 500
Cls
Cursor Off
Home
Lcd " We"
Waitms 500
Cls
Cursor Off
Home
Lcd " Wel"
Waitms 500
Cls
Cursor Off
Home
Lcd " Welc"
Waitms 500
Cls
Cursor Off
Home
Lcd " Welco"
Waitms 500
Cls
Cursor Off
Home
Lcd " Welcom"
Waitms 500
Cls
Cursor Off
Home
Lcd " Welcome"
Wait 2



Do

T = Getadc(2)
T = T / 4

If Pinb.0 = 1 Then Incr H
If Pinb.1 = 1 Then Decr H
If Pinb.2 = 1 Then Incr L
If Pinb.3 = 1 Then Decr L

If T > L Then Reset Portd.1
If T < H Then Reset Portd.0

Cls
Cursor Off
Home
Lcd "T:" ; T ; " H:" ; H ; " L:" ; L ; " N"


Select Case T

Case Is <= L
Call Main1

Case Is >= H
Call Main2

End Select

Waitms 250

Loop

End





Main1:

Cls
Cursor Off
Home
Lcd "T:" ; T ; " H:" ; H ; " L:" ; L ; " L"

Reset Portd.0
Set Portd.1

Return





Main2:

Cls
Cursor Off
Home
Lcd "T:" ; T ; " H:" ; H ; " L:" ; L ; " H"
Locate 2 , 4

Set Portd.0
Reset Portd.1

Return

و برای چرغاندن تخم مرغها هم :

$regfile = "m16def.dat"
$crystal = 1000000
Config Portd = Output

Do

Set Portd.3
Wait 10
Reset Portd.3
Wait 3600
Set Portd.4
Wait 10
Reset Portd.4

Loop

End

همون برنامه چشمک زن با تغیرات که با ی پل H به موتور وصل میشه


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

[zamanimahdi]

پاسخ : چند ریز برنامه روی یک میکرو

یک تایمر به صورت یکثانیه پیکر بندی کن
در وقفه تایمر به یک متغیر اضافه کن تا به 3600 برسه
بعد بنویس اگه (متغیری که اضافه میکردی بهش)با 3600 برابر شد

{
incr a
if a=3600 then
Set Portd.3
Wait 10
Reset Portd.3
a=0
end if
}

یادت نره توی همین رط باید متغیری رو بهش اضافه میکردی دوباره با صفر برابر قرار بدی تا همه چی از اول بشه
موفق باشید

---

اضافه شده در تاریخ :
برای سوال دوم همه بله میشهشما پورت ها رو هرکدوم میخوای خروجی ورودی کن
اون adcرو که میخوای ورودی نگه دار تو برنامه هم از همون بخون بقیه پورت ها هم خروجی هستن

[Javad Moosavi]

پاسخ : چند ریز برنامه روی یک میکرو

توضیحات دوستمون آقای زمانی برای ایجاد هم زمانی کامل و صحیح هستش. ضمنا توی برنامه همون خط اول بنویسید cursor off دیگه تا آخر خاموش می مونه و لازم به تکرار نیست! :agree:

[b e h n a m]

پاسخ : چند ریز برنامه روی یک میکرو

سلام
خیلی ممنون. از پست هر دوتون ی چیز جدید یاد گرفتم.
راستیتش این قضیه موتور گردون زیاد مهم نیستش . فقط هر از گاهی ( تا 6 ساعت هم نچرخونه مشکلی نیست !) ی مقدار زاویه قرار گیری تخم مرغ هارو باید تغیر بده که جنین به پوسته تخم نچسبه . همین و بس . زیاد مهم نیستش این قسمت. قسمتای مهم رطوبت و دما هستن که دما ماکزیمم باید بین 35-39 بمونه (برای جوجه مرغ) و رطوبت 60-85 درصد. هرچی هم دما به 38 و رطوبت به 80 درصد نزدیکتر باشه لقی تخم مرغ ها کمتر میشه و جوجه ها زودتر درمیان

واسه رطوبت سنسور hs1101 رو میخوام استفاده کنم. با 555 میشه ی مدار با فرکانس متغیر بست. بعد این فرکانس متغیر رو باید با میکرو بخونیم و تبدیلش کنیم به درصد رطوبت که قسمت سختش فقط خوندن اون فرکانس هستش که بلد نیستم . بقیش رو تقریبا میدونم چیکار باید بکنم

اقا جواد و اقا مهدی جواب سوالم که چجوری باید برنامه هارو باهم اجرا کنم روی یک میکرو رو یادتون رفت بگین بهم :redface:
این مشکلم حل بشه ایشالا میرم برای رطوبت سنج .

مرسی

[zamanimahdi]

پاسخ : چند ریز برنامه روی یک میکرو

من که گفتم چیکار کن :read:
سورس رو بزار برات تغیرات لازم رو ایجاد کنم
برای رطوبت سنج هم از تایمر کانتر باید استفاده بکنی فک کنم

[Javad Moosavi]

پاسخ : چند ریز برنامه روی یک میکرو

سلام
خیلی ممنون. از پست هر دوتون ی چیز جدید یاد گرفتم.
راستیتش این قضیه موتور گردون زیاد مهم نیستش . فقط هر از گاهی ( تا 6 ساعت هم نچرخونه مشکلی نیست !) ی مقدار زاویه قرار گیری تخم مرغ هارو باید تغیر بده که جنین به پوسته تخم نچسبه . همین و بس . زیاد مهم نیستش این قسمت. قسمتای مهم رطوبت و دما هستن که دما ماکزیمم باید بین 35-39 بمونه (برای جوجه مرغ) و رطوبت 60-85 درصد. هرچی هم دما به 38 و رطوبت به 80 درصد نزدیکتر باشه لقی تخم مرغ ها کمتر میشه و جوجه ها زودتر درمیان

واسه رطوبت سنسور hs1101 رو میخوام استفاده کنم. با 555 میشه ی مدار با فرکانس متغیر بست. بعد این فرکانس متغیر رو باید با میکرو بخونیم و تبدیلش کنیم به درصد رطوبت که قسمت سختش فقط خوندن اون فرکانس هستش که بلد نیستم . بقیش رو تقریبا میدونم چیکار باید بکنم

اقا جواد و اقا مهدی جواب سوالم که چجوری باید برنامه هارو باهم اجرا کنم روی یک میکرو رو یادتون رفت بگین بهم :redface:
این مشکلم حل بشه ایشالا میرم برای رطوبت سنج .

مرسی

من اوایل کار با AVR خیلی در همزمانی مشکل داشتم و هرچی مطالعه می کردم متوجه نمی شدم! ببینید بر اساس اصول کاری پردازنده ها تحت هیچ شرایط امکان ایجاد همزمانی وجود نداره!!!! چون پردازنده در هر سیکل کلاک فقط یه دستور اجرا می کنه ولی می شه با روش هایی همزمانی ایجاد کرد. شما زمانی که با کامپیوتر به عنوان مثال هم در اینترنت مشغول هستید هم آهنگ گوش می دید CPU در هر لحظه یه کار انجام میده ولی میاد دو تا کار شما رو تقسیم می کنه و یه لحظه اولی رو انجام میده و بی درنگ دومی رو و به علت سرعت زیاد این شکاف زمانی حس نمی شه در AVR هم تایمر ها این کار رو انجام می دن شما هم برای ایجاد همزمانی باید قرائت اطلاعات واصله از سنسور ها در زیر برنامه تایمر ها قرار بدید تا بدون ایجاد مشکل در برنامه اصلی طی بازه های زمانی مشخص CPU اطلاعات سنسور ها رو بخونه. خوش بختانه AVR ها اکثرا 3 تا تایمر دارند. خوب در یک تایمر اطلاعات سنسور رطوبت قرار بگیره، در دیگری سنسور دما و در تایمر آخر زیر برنامه تصمیم گیری بر اساس اطلاعات سنسور ها.
اگر نکته مبهمی هست بفرمایید تا اگر تونستم بیشتر توضیح بدم.

[zamanimahdi]

پاسخ : چند ریز برنامه روی یک میکرو

نیازی نداره هشون زیر یه تایمر بنویسه حله

[b e h n a m]

پاسخ : چند ریز برنامه روی یک میکرو

خیلی ممنونم بابت پاسخ ها

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

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

$regfile = "m16def.dat"
$crystal = 8000000
Config Timer1 = Counter , Edge = Rising
Config Timer2 = Timer , Prescale = 8

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , _
Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 16 * 2
Dim A As Long
Dim C As Word
Dim D As Byte
Dim F As Single
Dim S As Byte
Enable Ovf1
On Ovf1 Count
Enable Timer2
On Ovf2 Tim

Cls
Cursor Off
Lcd "Welcome"
Waitms 200




Main1:


Select Case S

Case Is = 0


End Select





Main3:

Enable Interrupts
Counter1 = 0
Timer2 = 56
Start Timer2

Do

Loop

End





Tim:

Stop Timer2
Incr C
If C = 5000 Then
F = A * 65536
F = F + Counter1
F = F / 1.06

Select Case S

Case Is = 0
Cls
Home
Lcd "FREQUENCE:"
Lowerline
Lcd F ; " Hz"


End Select

A = 0
Counter1 = 0
C = 0

End If

Timer2 = 56
Start Timer2

Return



Count:

Incr A
Counter1 = 0

Return

سورس دما سنج :

$regfile = "m16def.dat"
$crystal = 1000000
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , _
Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Internal
Config Portd = Output
Config Portb = Input
Dim T As Word
Dim H As Byte
Dim L As Byte
Start Adc
Declare Sub Main1
Declare Sub Main2
L = 35
H = 40


Cls
Cursor Off
Locate 1 , 2
Lcd "starting"
Wait 1

Cls
Locate 1 , 2
Lcd "starting."
Waitms 300

Cls
Locate 1 , 2
Lcd "starting.."
Waitms 300

Cls
Locate 1 , 2
Lcd "starting..."
Waitms 300

Cls
Locate 1 , 2
Lcd "starting...."
Waitms 1500

Cls
Home
Lcd " W"
Waitms 500

Cls
Home
Lcd " We"
Waitms 500

Cls
Home
Lcd " Wel"
Waitms 500

Cls
Home
Lcd " Welc"
Waitms 500

Cls
Home
Lcd " Welco"
Waitms 500

Cls
Home
Lcd " Welcom"
Waitms 500

Cls
Home
Lcd " Welcome"
Wait 2



Do

T = Getadc(2)
T = T / 4

If Pinb.0 = 1 Then Incr H
If Pinb.1 = 1 Then Decr H
If Pinb.2 = 1 Then Incr L
If Pinb.3 = 1 Then Decr L

If T > L Then Reset Portd.1
If T < H Then Reset Portd.0

Cls
Cursor Off
Home
Lcd "T:" ; T ; " H:" ; H ; " L:" ; L ; " N"


Select Case T

Case Is <= L
Call Main1

Case Is >= H
Call Main2

End Select

Waitms 250

Loop

End





Main1:

Cls
Cursor Off
Home
Lcd "T:" ; T ; " H:" ; H ; " L:" ; L ; " L"

Reset Portd.0
Set Portd.1

Return





Main2:

Cls
Cursor Off
Home
Lcd "T:" ; T ; " H:" ; H ; " L:" ; L ; " H"
Locate 2 , 4

Set Portd.0
Reset Portd.1

Return



$regfile = "m16def.dat"
$crystal = 8000000
Config Portd = Output

Do

Set Portd.3
Wait 10
Reset Portd.3
Wait 3600
Set Portd.4
Wait 10
Reset Portd.4

Loop

End


سورس گردش خودکار

$regfile = "m16def.dat"
$crystal = 1000000
Config Portd = Output

Do

Set Portd.3
Wait 10
Reset Portd.3
Wait 3600
Set Portd.4
Wait 10
Reset Portd.4

Loop

End

ی سوال دیگه دارم . فرکانس داخلی میرو چه تاثیری در عملکرد کلی مدار داره ؟ مثلا چه فرقی هست مابین فرکانس 1 مگا و 8 مگا ؟
تو پروتیوس شبیه سازی کردم روی فرکنس 8مگا سرعت مدار خیلی پایین میومد نسبت به 1 مگا . دلیلش چی میتونه باشه ؟

[zamanimahdi]

پاسخ : چند ریز برنامه روی یک میکرو

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

---

اضافه شده در تاریخ :
هرچی کلاک افزایش بدی سرعت اجرای دستورات بیشتر میشه برای هر فرکانسی هم که تنظیم میکنی باید یه سری فیوزبیت تغیر بدی
اونی که گفتی کلاک رو زیاد کردی سرعت کمتر شده برای اینه که فیوزبیت رو تنظیم نکردی

[b e h n a m]

پاسخ : چند ریز برنامه روی یک میکرو

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

---

اضافه شده در تاریخ :
هرچی کلاک افزایش بدی سرعت اجرای دستورات بیشتر میشه برای هر فرکانسی هم که تنظیم میکنی باید یه سری فیوزبیت تغیر بدی
اونی که گفتی کلاک رو زیاد کردی سرعت کمتر شده برای اینه که فیوزبیت رو تنظیم نکردی

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

مثلا تو برنامه دماسنج تغیرات به چه شکلی و در کدوم قسمتش باید اعمال بشه ؟
نکنه همون قسمت تعریف متغیر ها (dim ... as....) منظورته که باید ظرفیتش رو افزایش بدم با افزایش فرکانس؟ ممنون


تو پروتیوس موقع شبیه سازی مدار ها به صورت تکی مشکلی ندارم ولی وقتی میخوام رو سخت افزار اصلی تو پروتیوس ( مجموع هر سه مدار رو کشیدم ) هر قسمت از برنامه هارو امتحان کنم این ارور رو میده. چیکارش کنم ؟
ُ
Simulation is not runing in real time due to excessive CPU loud

[zamanimahdi]

پاسخ : چند ریز برنامه روی یک میکرو

استاد دارم میرم مدرسه ایشالله ظهر اومدم برات قرار میدم :nerd:

[b e h n a m]

پاسخ : چند ریز برنامه روی یک میکرو

سلام
اقا مهدی مدرسه تموم نشد ؟ :redface: