ايران ويج

قبل از سئوال اصلي مي خوتهم بدانم كه پس از برنامه نويسي اي سي براي كار كردن اي سي و عمل به برنامه اش بايد به كداميك از پايه هايش جريان وصل شود به طور كلي پايه هاي 10 و 30 و 31 و 32 كه با نام هاي VCC ,GND, AVCC, GND, AREF به چه كاري مي آيند :?:
در ضمن دستور Adc در bascom به چه منظوري مي باشد... :roll:
فرض كنيد كه من منتظر جواب در مورد همه ي سئوال هاي بالا به خصوص سئوال زيرم و چت كردم تا جوابم بدين 8O
يه برنامه اي مي خوام كه اگر پايه ي b.0 برقرار بود (1) و پايه ي b.1 برقرار نبود (0) آنگاه a.0 بر قرار شود و اگر b.0 برقرار نبود و b.1 برقرار بود آنگاه a.1 برقرار شود و اگر هر دو بر قرار بودند a.0 and a.1 بر قرار شود :!:
البته خودم اين برنامه رو نوشتم ولي تو پروتس انچه كه من مي خوام نميشه :?:

آن هم به دو روش 8) اگر هم بگين اشتباهم چيه خوبه :

1)

$regfile = "8535DEF.DAT"
$crystal = 8000000
Config Porta = Output
Config Portb = Input
Dim S As Byte , S1 As Byte , S2 As Byte , S3 As Byte
S1 = Pinb.0
S2 = Pinb.1
S3 = Pinb.2
Do
If S1 = 1 And S2 = 0 And S2 = 0 Then Goto Chap
If S1 = 0 And S2 = 1 And S2 = 0 Then Goto Rast
If S1 = 1 And S2 = 1 And S2 = 0 Then Goto Aghab
If S1 = 0 And S2 = 0 And S2 = 1 Then Goto Random
If S1 = 1 And S2 = 0 And S2 = 1 Then Goto Chap
If S1 = 0 And S2 = 1 And S2 = 1 Then Goto Rast
If S1 = 1 And S2 = 1 And S2 = 1 Then Goto Aghab
Loop
End

Chap:
Set Pina.0
Reset Pina.1

Rast:
Set Pina.0
Reset Pina.1

Aghab:
Set Pina.0
Set Pina.1
Goto Random

Random:
S = Rnd(10)
If S > 5 Then Goto Chap
If S < 5 Then Goto Rast

2)


$regfile = "8535DEF.DAT"
$crystal = 8000000
Config Porta = Output
Config Portb = Input
Dim A As Byte , S As Byte
Do
A = 0
If Pinb.0 = 1 And Pinb.1 = 0 And Pinb.2 = 0 Then Goto Chap
If Pinb.0 = 0 And Pinb.1 = 1 And Pinb.2 = 0 Then Goto Rast
If Pinb.0 = 1 And Pinb.1 = 1 And Pinb.2 = 0 Then Goto Aghab
If Pinb.0 = 0 And Pinb.1 = 0 And Pinb.2 = 1 Then Goto Random
If Pinb.0 = 1 And Pinb.1 = 0 And Pinb.2 = 1 Then Goto Chap
If Pinb.0 = 0 And Pinb.1 = 1 And Pinb.2 = 1 Then Goto Rast
If Pinb.0 = 1 And Pinb.1 = 1 And Pinb.2 = 1 Then Goto Aghab
Loop
End
Chap:
For A = 0 To 20
Set Pina.0
Reset Pina.1
Incr A
Next A
Rast:
For A = 0 To 20
Set Pina.1
Reset Pina.0
Incr A
Next A
Aghab:
Do
Incr A
Set Pina.1
Set Pina.0
If A > 20 Then Goto Random
Loop
Random:
S = Rnd(10)
If S > 5 Then Goto Chap
If S < 5 Then Goto Rast

در ضمن :oops: در مورد انواع در يافت ورودي ها كه كاربردي ترند يكم توضيح بديد
البته با چندي مثال
:x
چقدر سئوال كردم........... :oops: :oops: :oops: :oops: :oops: :oops:

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

به نام خدا
پایه ی GND در کل باید به زمین یا همان منفی منبع تغزیه وصل شود.
پایه ی VCC باید به +5 ولت متصل گردد (البته بعضی از میکروها با برق کمتر از این هم می توانند کار کنند) و این پایه تغزیه ی اصلی میکرو می باشد.
اما در مورد پایه هایی که با A شروع می شوند ( مثل AVCC ) به این نکته توجه کنید: در بعضی از میکروها این امکان وجود دارد که شما مقادیر آنالوگ را به دیجیتال تبدیل کنید. برای این کار باید از قسمت ADC میکروی خود استفاده نمایید. برای اینکه قسمت ADC میکرو با دقت عمل تبدیل را انجام دهد بهتر است ولتاژ کاری این قسمت به طور مجزا تهیه شود. این ولتاژ به پایه ی AVCC و AGND متصل می گردد.
اما پایه ی AREF ولتاژ مرجع خارجی برای کار ADC می باشد. شما توسط این پایه به مدار ADC میکرو می گویید که عمل تبدیل را بر اساس حداکثر این ولتاژ انجام دهد ، یعنی زمانی که ورودی به ADC به این ولتاژ رسید ، حداکثر اندازه ی مورد نظر می باشد.
دقت کنید مقدار این ولتاژ بین AVCC و AGND باشد.

با عرض سلام دوباره
مطالب بالا را كم و بيش تا قسمتي در جايي گنگي و جايي روشني نه به وضوح فهميدم
اين لينك فايل پروتس نقشه بالا لطفا بررسي اش كنيد :roll:
[http://www.golha.net/street20/amin_pwa.zip]
در ضمن براي كمك در مورد پايه هاي آ وي ار متشكرم ..
ولي سئوال بعديم كه در مورد انواع ورودي ها مثلا سنسور ها بود را يكمي بيشتر توضيح مي دهيد... :oops: :?:

سنسور ها معمولا یک کمیت رو به ولتاژ تبدیل می کنن تا قابل اندازه گیری باشن مثلا سنسور دما دما رو به ولتاژ تبدیل می کنه این رو با تقویت یا بدون تقویت به ADC می دن و به دیجیتال تبدیلش می کنن
البته بعضی از سنسو ها هم خروجی صفر و یک تولید می کنن مثل کلید ها که مثلا نشانگر باز یا بسته بودن در هستند
البته روش های دیگری هم مثل تبدیل به فرکانس و اندازه گیری فرکانس هم هست

لينك قبلي كامل نبود ولي اين لينك كامل با برنامه هاش و فايل پروتس آن


http://www.golha.net/street20/amin_pwa.zip

لفا بررسي اش كنيد و اشتباهم و بگين اگه حال ندارين فرض كنيد كه 20 سئوالي كه اگه جوابش درست بود آن وقت جايزه داريد.... :wink:

مشکل شما تو جیب جا می شه!
خوردنی
شما باید سورس رو بزاری تا بفهمیم چکار کردی کلید مدارتم اشتباهه به کتاب کاهه مراجعه کنید

گفتم كه فايل برنامه در اول صفحه است و فايل پروتس و هكس آن در فايل زيپ شده موجود است به احتمال زياد مدار من شكل كلي اش كشكل دارد اگر مي توانيد مدار اصلي رو رسم كنيد برام بفرستيد ....
منم كتاب علي كاهه رو خواندم ولي زياد به دردم نخورد ..خودم برنامه نويسي بيسيك رو بلد بودم ... تا موقعي كه آموزش از صفر تا بينهايت موجود در سايت خوندم و از اين رو به اون رو شدم ...... :o
واز انجا تا اينجا به اين نتيجه رسيدم كه مثال راه حل مشكلات منه پس اگه نمومنه مدار كه من كشيدم و در فايل است رو به صورت عملي تر بكشيد ممنون مي شم... :roll:

http://www.4shared.com/file/19708453/330...ascom.html
امیدوارم به درد بخوره

كار زيبايي كردي با اين مداري كه رسم كردي تازه كم كم دارم مي فهمم كه پروتس چه قدر باحاله .. :o
ولي اي كاش مي گفتي كه پروتست چه ورژني است چون من 5 و 6 رو اينستال كردم تازه فهميدم كه ورژن پروتست بالاي 6 براي همين پروتس 7 رو كه دمو بود اينستال كردم و فقط توانستم مدارت رو ببينم ولي نتوانستم آزمايشش كنم .. :cry:
به نظرم تو باحاش كار كردي .... كار كرد ؟
جداي از بحث كار كردن يا نه ... ايده هاي جالبي بهم دادي تا يه نگاهي به مثالاي كتاب علي كاهه بكنم حق با تو بود مدارم مشكل داشت..... :wink:
ولي به نظرم مداري كه كشيدي .. تا انجايي كه من تو سايتاي مختلف خواندم بايد با يه استپ موتور باشه چون اين موتورا (يادم نيست كه چرا) باعث خرابي پايه ي ميكرو متصل به خودشان مي شند... :!:
....................................................................
اگه كسي يه كنترل كننده موتور با ا وي آر داره نقششه آن را اينجا بزاره تا همه استفاده كنند راستي بهتر موتورش 4 سيمه نباشه 2 سيمه باحالتره و ارزانتر و ... 8)

موتور های چهار زمانه دقت بالایی دارند شما حتی تا 8/1 درجه قابلیت کنترل دارید
پروتیوس من 6.9 که از همین سایت دانلود کردم و تا حالا خوب جواب داده
کد برنامه تون هم به احتمال زیاد ایراد داره چون با مدار کار نکرد