کمک در مورد برنامه نویسی

[telmak]

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

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

[nex2004]

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

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

سلام دوست عزیز
درسته من برنامه رو برای 90s8535 نوشتم ولی نباید برای mega8 خطا بده حالا برم یک تست بزنم . در کل خوشحالم که کارتون راه افتاد . برنامه رو توی پروتوس تست کنید اگر که اشکال داشت بفرمایید تا برطرف کنم :smile:

[telmak]

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

سلام
تا شنبه صبر کن با پروتئوس برات می فرستم

با سلام این شنبه نیز بگذشت اما خبری نشد

[telmak]

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

سلام دوست عزیز
درسته من برنامه رو برای 90s8535 نوشتم ولی نباید برای mega8 خطا بده حالا برم یک تست بزنم . در کل خوشحالم که کارتون راه افتاد . برنامه رو توی پروتوس تست کنید اگر که اشکال داشت بفرمایید تا برطرف کنم :smile:

فکر کنم علتش اینه که در میکروی mega 8 پایه a.0 نداریم

[telmak]

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

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

[123456za]

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

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

سلام
من فکر کردم مشکل شما حل شده باشه تا 2 ساعت دیگه بررسی میکنم برنامه خودم با پروتئوس براتون می ذارم

[123456za]

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

سلام
برنامه رو با پروتئوس براتون شبیه سازی کردم
اون کلدیدی که می بینید بجای دو المنت بکار رفته
http://www.4shared.com/file/17675703/97163465/motor_labas_shoei.html

[telmak]

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

سلام
برنامه رو با پروتئوس براتون شبیه سازی کردم

با سلام
دست شما واقعا درد نکند
من چند سوال برایم پیش امد
ایا ما در این مدار هم از بافر استفاده میکنیم ؟
و به پایه شماره سه ایسی 4010 مقاومت 10 کیلو اهمی وصل میکنیم یا 10 مگا اهمی ؟
شستی مربوط به راه اندازی موتور (PB.1 )از نوع NC است یا NO ؟ (فکر کنم NO باشد وشما احتمالا اشتباهی NC قرار دادید)
علت دادن ولتاژ توسط مقامت های 10 کیلو اهمی به پایه های pb0 و pb1 چیست ؟


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

[123456za]

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

سلام
در مورد آ یسی 4010 همونطوری که قبلا وصی کرده بودید من فقط برای تست یک سوئیچ گذاشته بودم
no هست من هم no گذاشتم فکر کنم اشکال از پروتئوس باشه
مهم نیست شما می تونید از مدار قبلی استفاده کنید و مقاومت های پول اپ داخلی رو فعال کنید
سرعت هم به خاطر یکسان نبودن کریستال های برنامه و فایل پروتئوس هست

[telmak]

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

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

[telmak]

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

ببخشید
من یک سوال در کل دارم من اگر این مدار را به صورت عملی ببندم ایا با رسیدن اب به الکترود ها حتما
جریان اب قطع می شود ؟(منظورم در مورد برنامه نویسی نیست )
ودر این صورت الکترود ها به محض تماس با اب عمل میکند ؟ یا اینکه باید مقداری در اب فرو بروند؟

[telmak]

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

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

ببخشید برای فعال کردن pull up من را راهنمایی کنید

[telmak]

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

اقای کویر الکترونیک لطفا کمک کنید ؟

[KhepeleSibilo]

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

config portx=output
من مطالب رو نخوندم
حرف و حدیث زیاد ه اینجا!!! ،اگه سوالتو از اول بگی و آخرین مداری که بستب و برنامش با هدفت رو شسته رفته بگی سعی می کنم کمکت کنم

[telmak]

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

دست شما درد نکند
اول اینکه من میکروی atmega 8 L خریدم پس طبق فرمایش شما مشکلی از نظر فرکانس نخواهم داشت؟
برنامه و نقشه را در زیر می بینید
من مدار زیر را می خواهم
ما یک مخزن لباس شویی داریم من میخواهم ابتدا توسط فشار شستی یک رله را که به شیر برقی وصل است روشن کنم زمانی که اب به الکترود ها رسید رله فرمان قطع بگیرد

سپس توسط فشار شستی دیگر یک موتور به این صورت راه اندازی شود 25 ثانیه راست گرد 10 ثانیه خاموش
25 ثانیه چپ گرد و دوباره 10 ثانیه خاموش که این چرخه 9 بار انجام شود

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

تا اینجا که مشکلی نیست خوب

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

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

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

البته دوستان زحمت نوشتن برنامه را کشیدند
ولی من فقط می خواهم به جای مقاومت هایی که به PB0 , PB1 وصل شده اند مقاومت PULL UP میکرو را فعال کنم

در ضمن من یک سوال در کل دارم من اگر این مدار را به صورت عملی ببندم ایا با رسیدن اب به الکترود ها حتما
جریان اب قطع می شود ؟(منظورم در مورد برنامه نویسی نیست )(یهو دیدی اب را قطع نکرد خانه زندگی اب گرفت)ودر این صورت الکترود ها به محض تماس با اب عمل میکند ؟ یا اینکه باید مقداری در اب فرو بروند؟

$regfile = "m8def.dat"

$crystal = 1000000
Dim T As Word
Dim Flagfull As Bit
'-------------------------------------------
Config Pind.7 = Output
Config Pind.6 = Output
Config Pinb.1 = Input
Config Pinb.0 = Input
Config Pinc.0 = Output
Config Pind.3 = Input
Config Pinc.1 = Output
Water Alias Portc.0
Rightmotor Alias Portd.6
Leftmotor Alias Portd.7
Swwater Alias Pinb.0
Swmotor Alias Pinb.1
Sensor Alias Pind.3
Waterout Alias Portc.1

Main:
Do
Flagfull = 1
If Sensor = 1 Then
Flagfull = 1

Else
Flagfull = 0
End If
'-------------------------
If Flagfull = 0 And Swwater = 0 Then
Do
Water = 1
Loop Until Sensor = 1
Water = 0
Waitms 1500
Goto Main
End If
'-----------------------------
If Swmotor = 0 And Flagfull = 1 Then
T = 0
For T = 0 To 9
Set Rightmotor
Wait 25
Reset Rightmotor
Wait 10
Set Leftmotor
Wait 25
Reset Leftmotor
Wait 10
Next
End If
'----------------------------
If Swwater = 0 And Flagfull = 1 Then
Waterout = 1
T = 0
For T = 0 To 300
Wait 1
Next
Waterout = 0
End If
'-----------------------------

Loop
End