سوالات ، مشکلات و درخواست های در رابطه با میکروکنترلر ها

maziio

عضو جدید
soal????

soal????

سلام.خسته نباشيد. سال نو هم مبارك.
مهندساي محترم، يه سوال داشتم، ميشه كمكم كنين؟؟؟؟
مشكل من اينه كه مي خوام هر دفعه كه كليدي رو فشار مي دم برام رو صفحه چاپ كنه؟؟
به نظر خييييييلي سادس ، اما نمي دونم مشكلم چيه ؟!!!
اينم برنامه :
كليد رو يه پايه شو به زمين وصل كردم يه پايه شو به Portd.1
لطفا راهنماييم كنيد، خيلي كمك لازمم!
ممنون.

$regfile = "m8def.dat" ' specify the used micro


$crystal = 8000000 ' used crystal frequency



Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , Rs = Portd.7 , E = Portd.6


Config Lcd = 16 * 2


Config Portd.1 = Input


Ddrd.1 = 0 : Portd.1 = 1



Dim h As Integer



Do


If Portd.1 = 1 Then


Locate 2 , 1


h = h + 1


Lcd h


Lcd "Helloo"


End If



Loop


End
khob che key padi ro baraye karetoon entekhab kardin in ro bayad bedonim va zemnan mikhaien adad haro baratoon benvise faghat ya chize dige?
ba tashakor​
 

asdf4040

عضو جدید
سلام دوستان عزیز من یه برنامه گرفتم برای طراحی مدارهای دیجیتال اسمشhdl.works.hdl.design.EASEv7.4

ولی بلد نیستم با این کار کنم اگه لطف کنید منو تو این زمینه راهنمایم کنید ممنون می شوم(فایل ویدویی- pdf)

پیروز باشید:smile:
 

mf_249

عضو جدید
سلام
از دوستان عزیز و کاربران محترم خواهشمندم به بنده کمک کنن
من برنامه نویسی AVR رو تو محیط بسکام در حد آماتور یاد گرفتم و چند برنامه هم نوشتم و با موفقیت کامپایل کردم و حتی تو محیط برنامه proteus شبیه سازی کردم و طبق شبیه سازی برنامه هام درست بوده
لازم به ذکر میدونم که بگم برنامه هامو واسه AT Mega 8 نوشتم
خلاصه کلام اینکه وقتی فایل HEX رو تو میکرو وارد میکنم و میبرم که رو برد سوار کنم آخر کار میبینم کار نمیکنه و بعد از اینکه تغذیه 5 ولت به پایه های 7 و 8 میکرو متصل میشه میکرو داغ میکنه و هیچ عملی هم انجام نمیده
من از پروگرمر USB شرکت Sprooz واسه پروگرم کردن استفاده میکنم و همچنین واسه پروگرم کردن از نرم افزار progisp168 استفاده میکنم البته باید بگم که من استفاده و طرز کار فیوز بیتها رو بلد نیستم واسه همین تو برنامه از حالت پیشفرض استفاده کردم.
خلاصه عملکردم رو دوباره عرض میکنم
1- نوشتن برنامه در محیط بسکام و کامپایل کردن و تهیه فایل HEX
2- شبیه سازی تو نرم افزار proteus و تست نمودن برنامه
3- پروگرم کردن میکرو AT Mega 8 (سوار کردن میکرو رو پروگرمر بعد اتصال USB پروگرمر به کامپیوتر و سپس انتخاب نوع میکرو در نرم افزار و همچنین نوع پروگرمر و سپس فیوز بیت ها رو طبق حالت پیشفرض با زدن گزینه Write تنظیم میکنم و بعد برنامه رو Load و گزینه Auto رو میزنم تا برنامه وارد میکرو بشه تمام)
4- سوار کردن میکرو در مدار

خواهش میکنم منو راهنمایی کنید.
 

mf_249

عضو جدید
سلام
از دوستان عزیز و کاربران محترم خواهشمندم به بنده کمک کنن
من برنامه نویسی AVR رو تو محیط بسکام در حد آماتور یاد گرفتم و چند برنامه هم نوشتم و با موفقیت کامپایل کردم و حتی تو محیط برنامه proteus شبیه سازی کردم و طبق شبیه سازی برنامه هام درست بوده
لازم به ذکر میدونم که بگم برنامه هامو واسه AT Mega 8 نوشتم
خلاصه کلام اینکه وقتی فایل HEX رو تو میکرو وارد میکنم و میبرم که رو برد سوار کنم آخر کار میبینم کار نمیکنه و بعد از اینکه تغذیه 5 ولت به پایه های 7 و 8 میکرو متصل میشه میکرو داغ میکنه و هیچ عملی هم انجام نمیده
من از پروگرمر USB شرکت Sprooz واسه پروگرم کردن استفاده میکنم و همچنین واسه پروگرم کردن از نرم افزار progisp168 استفاده میکنم البته باید بگم که من استفاده و طرز کار فیوز بیتها رو بلد نیستم واسه همین تو برنامه از حالت پیشفرض استفاده کردم.
خلاصه عملکردم رو دوباره عرض میکنم
1- نوشتن برنامه در محیط بسکام و کامپایل کردن و تهیه فایل HEX
2- شبیه سازی تو نرم افزار proteus و تست نمودن برنامه
3- پروگرم کردن میکرو AT Mega 8 (سوار کردن میکرو رو پروگرمر بعد اتصال USB پروگرمر به کامپیوتر و سپس انتخاب نوع میکرو در نرم افزار و همچنین نوع پروگرمر و سپس فیوز بیت ها رو طبق حالت پیشفرض با زدن گزینه Write تنظیم میکنم و بعد برنامه رو Load و گزینه Auto رو میزنم تا برنامه وارد میکرو بشه تمام)
4- سوار کردن میکرو در مدار

خواهش میکنم منو راهنمایی کنید.
 

@yasaman@

عضو جدید
سلام دوستان برقی...<BR>من یه مکانیکیم که اینترم مکاترونیک برداشتم....استادمون چندتا پروژه داده که واسه شروعش نیاز به کمک دارم....کلا تا حالا پروژه ای انجام ندادم....واسه همینم یه خورده سر در گمم...میشه راهنمایی کنید<BR>پروژه هام اینان...کم و زیاد کردن دور موتور dcکه با دوتا دکمه کم و زیاد بشه<BR>و مهمتر از اون یک موتور پله ای را با میکرو کنترلر راه اندازی کنید<BR>راه اندازهاشونم باید بیسیک باشه نه ازین راه اندازهای اماده!<BR>بعد ما برنامه نویسی با زبان بیسیکو خوندیم
 

r@d

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

گفته با maxplus II یه سیستم مانیتورینگ طراحی کنید که سنسور حرارت داشته باشه و وصل به میکروپروسسور z80 باشه و دمای اتاق را اندازه بگیره و تو lcd نمایش بده.
اگر با پروتیوس شبیه سازی بشه که خرجم رو دستمون نذاره خیلی عالی می شه .
ممنون از شما دوستای عزیز
 

SAM75

عضو جدید
مشكل در ارتباط LCD با ATMEGA32

مشكل در ارتباط LCD با ATMEGA32

سلام خدمت عزيزان الكترونيك.
من رشته ام مكانيك خودرو هست. اما براي كلاس كارگاه الكترونيك، نياز دارم يه چند تا برنامه توي Bascom بنويسم. من عكس بُردي رو كه توي ISIS كشيدم اينجا مي ذارم. همينطور برنامه ساده اي كه براي تست نوشتم. اما متاسفانه LCD چيزي نمايش نميده.






ضمناً Bascom ارور زير رو هم موقع كامپايل ميده:

 

o.behnam.o

عضو جدید
سلام
از دوستان عزیز و کاربران محترم خواهشمندم به بنده کمک کنن
من برنامه نویسی AVR رو تو محیط بسکام در حد آماتور یاد گرفتم و چند برنامه هم نوشتم و با موفقیت کامپایل کردم و حتی تو محیط برنامه proteus شبیه سازی کردم و طبق شبیه سازی برنامه هام درست بوده
لازم به ذکر میدونم که بگم برنامه هامو واسه AT Mega 8 نوشتم
خلاصه کلام اینکه وقتی فایل HEX رو تو میکرو وارد میکنم و میبرم که رو برد سوار کنم آخر کار میبینم کار نمیکنه و بعد از اینکه تغذیه 5 ولت به پایه های 7 و 8 میکرو متصل میشه میکرو داغ میکنه و هیچ عملی هم انجام نمیده
من از پروگرمر USB شرکت Sprooz واسه پروگرم کردن استفاده میکنم و همچنین واسه پروگرم کردن از نرم افزار progisp168 استفاده میکنم البته باید بگم که من استفاده و طرز کار فیوز بیتها رو بلد نیستم واسه همین تو برنامه از حالت پیشفرض استفاده کردم.
خلاصه عملکردم رو دوباره عرض میکنم
1- نوشتن برنامه در محیط بسکام و کامپایل کردن و تهیه فایل HEX
2- شبیه سازی تو نرم افزار proteus و تست نمودن برنامه
3- پروگرم کردن میکرو AT Mega 8 (سوار کردن میکرو رو پروگرمر بعد اتصال USB پروگرمر به کامپیوتر و سپس انتخاب نوع میکرو در نرم افزار و همچنین نوع پروگرمر و سپس فیوز بیت ها رو طبق حالت پیشفرض با زدن گزینه Write تنظیم میکنم و بعد برنامه رو Load و گزینه Auto رو میزنم تا برنامه وارد میکرو بشه تمام)
4- سوار کردن میکرو در مدار

خواهش میکنم منو راهنمایی کنید.

سلام - احتمالا خیلی دیر جواب میدم و لی شاید باز هم کمکت کنه - مشکل مدار تو فقط میتونه 2 چیز باشه: 1- خود AVR خرابه - 2- مدارت به صورتیه که باعث جریان کشیدن زیاد از میکرو میشه، ممکنه یه اتصال کوتاه یا هر چیز دیگه ای باشه
 

o.behnam.o

عضو جدید
سلام دوستان برقی...<BR>من یه مکانیکیم که اینترم مکاترونیک برداشتم....استادمون چندتا پروژه داده که واسه شروعش نیاز به کمک دارم....کلا تا حالا پروژه ای انجام ندادم....واسه همینم یه خورده سر در گمم...میشه راهنمایی کنید<BR>پروژه هام اینان...کم و زیاد کردن دور موتور dcکه با دوتا دکمه کم و زیاد بشه<BR>و مهمتر از اون یک موتور پله ای را با میکرو کنترلر راه اندازی کنید<BR>راه اندازهاشونم باید بیسیک باشه نه ازین راه اندازهای اماده!<BR>بعد ما برنامه نویسی با زبان بیسیکو خوندیم

سلام - دسته خیلی دیر جواب میدم ولی شاید باز هم کمکت کنه - برای تنظیم سرعت یک موتور dc باید ولتاژ اون رو کم و زیاد کرد و یا این که به اون pwm داد. این خصوصیت در میکروها وجود دارد و در یک مد کاری تایمر/کانترها ، خروجی یکی از پایه ها PWM بوده که مقدار دیوتی سایکل آن بستگی به رجیستر OCR داره - حالا اگه مقدار این رجیستر رو با زدن کلیدها کمو زیاد کنی و خروجی رو به موتور بدی، سرعتش تغییر میکنه - در رابطه با موتور پله ای دو حالت برای چرخش داره: نیم پله و پله واحد که در صورتی که در خروجی میکرو دیتا را به صورت زیر به موتور بدیم به صورت پله واحد :
1000
0100
0010
0001
و در صورتی که به صورت زیر بدیم بصورت نیم پله می چرخد :
1100
0110
0011
1001
حالا اگه جهت این شیفت ها رو تغییر بدیم، جهت چرخش هم تغییر میکند
 

o.behnam.o

عضو جدید
سلام خدمت عزيزان الكترونيك.
من رشته ام مكانيك خودرو هست. اما براي كلاس كارگاه الكترونيك، نياز دارم يه چند تا برنامه توي Bascom بنويسم. من عكس بُردي رو كه توي ISIS كشيدم اينجا مي ذارم. همينطور برنامه ساده اي كه براي تست نوشتم. اما متاسفانه LCD چيزي نمايش نميده.

سلام - درسته دیر جواب میدم ولی شاید کمکت باشه - برنامه شما هیچ مشکلی نداره و اگه یک پروژه جدید رو در بسکام ایجاد کنید و دو باره این برنامه را کامپایل کنید خطاهای کامپایار برطرف میشن. مشکل دیگه ای که در شماتیک مدارت هست اینه که پایه RW ال سی دی رو حتما باید به زمین وصل کنی تا اطلاعات رو نمایش بده
 

n.mehr

عضو جدید
سلام
من میخوام مدار تشخیص خطا crc را با کمک avr بسازم اما نمیدونم باید از کجا شروع کنم و اصلا چه کنم
لطفا راهنماییم کنید
ممنون
 

فاطمه_برق

عضو جدید
ممنون مهدی جان اگه شما هم کمکی خوایتی بفرمایید
www.novin.loxblog.com

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

فاطمه_برق

عضو جدید
با سلام به همه دوستان عزیز
لطفا سوالات ، مشکلات و درخواست های خود را در رابطه با میکروکنترلر ها تنها در ابن تاپیک بپرسین و از پرسیدن سوال در سایر تاپیم ها جدا خودداری کنید
تنها سوالاتی که در این تاپیک پرسیده می شن پاسخ داده خواهند شد و در غیر این صورت پاسخی داده نخواهد شد
در صورتی که پاسخ سوال خود را دریافت نکردین از زدن تاپیک برای پرسیدن سوال جدا خوداری کنید
با تشکر از همکار شما
یا حق ...:gol:

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

فاطمه_برق

عضو جدید
با سلام به همه دوستان عزیز
لطفا سوالات ، مشکلات و درخواست های خود را در رابطه با میکروکنترلر ها تنها در ابن تاپیک بپرسین و از پرسیدن سوال در سایر تاپیم ها جدا خودداری کنید
تنها سوالاتی که در این تاپیک پرسیده می شن پاسخ داده خواهند شد و در غیر این صورت پاسخی داده نخواهد شد
در صورتی که پاسخ سوال خود را دریافت نکردین از زدن تاپیک برای پرسیدن سوال جدا خوداری کنید
با تشکر از همکار شما
یا حق ...:gol:
سلام.
من ميخوام يه ترازوي ديجيتال بسازم.برنامه اش رو هم بايد با بسكام بنويسم.ولي نميدونم چه جوري...
ميشه راهنماييم كنيد؟؟؟
 

sh85

مدیر بازنشسته
کاربر ممتاز
سلام.
من ميخوام يه ترازوي ديجيتال بسازم.برنامه اش رو هم بايد با بسكام بنويسم.ولي نميدونم چه جوري...
ميشه راهنماييم كنيد؟؟؟
دوست عزیز
شما برای انجام هر پروژه ای اول باید هدف و راه انجام پروژه را مشخص کنید و بعد در مرحله آخر برنامه نوبسی و ساخت
شما اول باید به صورت الگوریتم هدفتون از پروژه مشخص کنید
مثلا
هدف : ساخت ترازوی دیجیتال
خوب ترازو دیجیتال چی داره ؟
یه صحفه نمایش داره پس نمایشگر لازم دارید
یه دستگاه اندازه گیری داره که برای شما می یاد اندازه وزن را مشخص می کنه
سوال بعدی
این وسیله اندازه گیزی چی هست ؟
( باید سرچ کنید و جست و جو کنید )
بعد از جست و جو می رسید به لودسل
خوب حالا سوال بعدی
لود سل چیه ؟
چه کار می کنه ؟
طرز کارش به چه نحوه و ....
خوب حالا لود سل را کامل متوجه شدید
چطور بیاید اطلاعات لود سل را به دیتای مورد نیازتون تبدیل کنید و بعد نمایش بدید ؟
پس شما پروسسور می خواید
پروسسور قرار برای شما چه کار کنه ؟
چه میزان حافظه لازم داره ؟
چه قابلیت های باید برای این پروژه داشته باشه ؟
بعد از یافتن جواب این سوال ها می رسیم به سر هم کردن اطلاعات بدست آمده
میزان خروجی لود سل با ورودی پروسسور می خونه یا نیاز به تقویت کننده هست ؟
و ...

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

فاطمه_برق

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

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

forough gh

عضو جدید


7 segment:………………………………………………………………………………..
$regfile = "m32def.dat"
$crystal = 8000000
Config Timer0 = Timer , Prescale = 8
Config Porta = Output
Config Portb = Output
Declare Function Casea(byval N As Byte)as Byte
Dim A As Byte , B As Byte , B1 As Byte , S As String * 1 , S1 As String * 1 , I As Byte
Enable Interrupts
Enable Ovf0
On Ovf0 Lable
Start Timer0
A = 9
Do
S = Str(a)
S1 = Mid(s , 1 , 1)
B1 = Val(s1)
B1 = Casea(b1)
If A = 10 Then A = 0
Loop
End
Function Casea(byval N As Byte)as Byte
Select Case N
Case 1 : B = &B11111001
Case 2 : B = &B10100100
Case 3 : B = &B10110000
Case 4 : B = &B10011001
Case 5 : B = &B10010010
Case 6 : B = &B10000010
Case 7 : B = &B11111000
Case 8 : B = &B10000000
Case 9 : B = &B10010000
Case 0 : B = &B11000000
End Select
Casea = B
End Function
Lable:
Incr I
Reset Porta.0
Portb = B1
Waitms 5
Set Porta.0
Return


Pwm:…………………………………………………………………………………………………..



$regfile = "m8535.dat"
$crystal = 8000000
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Prescale = 1
Ddrd.5 = 1 : Dim I As Byte
Enable Timer1 : Pwm1a = 0
Start Timer1
For I = 0 To 150
Pwm1a = I
Waitms 100
Next
Wait 2
For I = 150 To 0 Step -1
Pwm1a = I
Waitms 100
Next
End



Modooooon:………………………………………………………………………………………

$regfile = "m8535.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.2 , Rs =
Porta.3
Config Timer1 = Counter , Edge = Falling
Start Counter1
Cls : Locate 1 , 1 : Lcd "counter"
Do
Locate 2 , 1 : Lcd Counter1 : Waitms 100
Loop
End

Adc:………………………………………………………………………………..


$regfile = "m8535.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Portc.7 , Rs = Portc.6
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Dim W(3) As Word , M As Single
Cls
Do
W(1) = Getadc(0)
M = W(1) / 204.6
Locate 1 , 1 : Lcd M : Waitms 500


Loop

End


Kbd:………………………………………………………………………………………………..
$regfile = "m8535.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2
Config Lcdpin = 16 * 2
Config Kbd = Portd , Debounce = 20 , Delay = 100
Dim A As Byte , T(8) As Word , I As Byte , D1 As Word
Dim D2 As Word , Sum1 As Word , Dif As Integer , C(8) As Word
Cls
For I = 1 To 6
Main:
A = Getkbd()
If A > 15 Then Goto Main
Lcd A
' T(i) = Lookup(a , Lable)
'If T(i) = 20 Then Goto Main
Next
C(1) = C(1) * 1000
C(2) = C(2) * 100
C(3) = C(3) * 10
D1 = C(4) + C(3)
D1 = D1 + C(2)
D1 = D1 + C(1)
C(5) = C(5) * 1000
C(6) = C(6) * 100
C(7) = C(7) * 10
D2 = C(8) + C(7)
D2 = D2 + C(6)
D2 = D2 + C(5)
Sum1 = D1 + D2
Dif = D1 - D2
Locate 1 , 1

Lcd D1 ; "+" ; D2 ; "=" ; Sum1
Locate 2 , 1
Lcd D1 ; "-" ; D2 ; "=" ; Dif

End
Lable:
Data 7 , 8 , 9 , 20 , 4 , 5 , 6 , 20 , 1 , 2 , 3 , 20 , 20 , 0 , 20 , 20

Voltmeter:…………………………………………………………………………………
$regfile = "m8535.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Dim W As Word , S As Single
Cls
Do
W = Getadc(0)
S = W / 204.6
Locate 1 , 1 : Lcd "voltage is" ; S
Loop
End 'end program

 
  • Like
واکنش ها: sh85

forough gh

عضو جدید
inam chand ta barname mobtadi

7 segment:………………………………………………………………………………..
$regfile = "m32def.dat"
$crystal = 8000000
Config Timer0 = Timer , Prescale = 8
Config Porta = Output
Config Portb = Output
Declare Function Casea(byval N As Byte)as Byte
Dim A As Byte , B As Byte , B1 As Byte , S As String * 1 , S1 As String * 1 , I As Byte
Enable Interrupts
Enable Ovf0
On Ovf0 Lable
Start Timer0
A = 9
Do
S = Str(a)
S1 = Mid(s , 1 , 1)
B1 = Val(s1)
B1 = Casea(b1)
If A = 10 Then A = 0
Loop
End
Function Casea(byval N As Byte)as Byte
Select Case N
Case 1 : B = &B11111001
Case 2 : B = &B10100100
Case 3 : B = &B10110000
Case 4 : B = &B10011001
Case 5 : B = &B10010010
Case 6 : B = &B10000010
Case 7 : B = &B11111000
Case 8 : B = &B10000000
Case 9 : B = &B10010000
Case 0 : B = &B11000000
End Select
Casea = B
End Function
Lable:
Incr I
Reset Porta.0
Portb = B1
Waitms 5
Set Porta.0
Return


Pwm:…………………………………………………………………………………………………..



$regfile = "m8535.dat"
$crystal = 8000000
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Prescale = 1
Ddrd.5 = 1 : Dim I As Byte
Enable Timer1 : Pwm1a = 0
Start Timer1
For I = 0 To 150
Pwm1a = I
Waitms 100
Next
Wait 2
For I = 150 To 0 Step -1
Pwm1a = I
Waitms 100
Next
End



Modooooon:………………………………………………………………………………………

$regfile = "m8535.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.2 , Rs =
Porta.3
Config Timer1 = Counter , Edge = Falling
Start Counter1
Cls : Locate 1 , 1 : Lcd "counter"
Do
Locate 2 , 1 : Lcd Counter1 : Waitms 100
Loop
End

Adc:………………………………………………………………………………..


$regfile = "m8535.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Portc.7 , Rs = Portc.6
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Dim W(3) As Word , M As Single
Cls
Do
W(1) = Getadc(0)
M = W(1) / 204.6
Locate 1 , 1 : Lcd M : Waitms 500


Loop

End


Kbd:………………………………………………………………………………………………..
$regfile = "m8535.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2
Config Lcdpin = 16 * 2
Config Kbd = Portd , Debounce = 20 , Delay = 100
Dim A As Byte , T(8) As Word , I As Byte , D1 As Word
Dim D2 As Word , Sum1 As Word , Dif As Integer , C(8) As Word
Cls
For I = 1 To 6
Main:
A = Getkbd()
If A > 15 Then Goto Main
Lcd A
' T(i) = Lookup(a , Lable)
'If T(i) = 20 Then Goto Main
Next
C(1) = C(1) * 1000
C(2) = C(2) * 100
C(3) = C(3) * 10
D1 = C(4) + C(3)
D1 = D1 + C(2)
D1 = D1 + C(1)
C(5) = C(5) * 1000
C(6) = C(6) * 100
C(7) = C(7) * 10
D2 = C(8) + C(7)
D2 = D2 + C(6)
D2 = D2 + C(5)
Sum1 = D1 + D2
Dif = D1 - D2
Locate 1 , 1

Lcd D1 ; "+" ; D2 ; "=" ; Sum1
Locate 2 , 1
Lcd D1 ; "-" ; D2 ; "=" ; Dif

End
Lable:
Data 7 , 8 , 9 , 20 , 4 , 5 , 6 , 20 , 1 , 2 , 3 , 20 , 20 , 0 , 20 , 20

Voltmeter:…………………………………………………………………………………
$regfile = "m8535.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Dim W As Word , S As Single
Cls
Do
W = Getadc(0)
S = W / 204.6
Locate 1 , 1 : Lcd "voltage is" ; S
Loop
End 'end program

 
  • Like
واکنش ها: sh85

Ice Man

مدیر تالار مهندسی برق
مدیر تالار
آخرین ویرایش:

R_a2742000

عضو جدید
کمکم کنید یکشنبه باید تحویل بدم

کمکم کنید یکشنبه باید تحویل بدم

سلام بچه ها
استاد من 2تا سوال داده و گفته نمره ی پایان ترمه.اگر کسی بلده کمک کنه لطفا

1.در میکرو های جدید مانند atmega16 چگونه می توان از هر پایه به عنوان وقفه خارجی استفاده کرد؟

2.برنامه ای بنویسید که با رخ دادان یک وقفه خارجی حساس به لبه بالا رونده یک data را از PORTB بخواند و بر روی LED های واقع شده در PORTB نشان دهد.
 

shima.power

عضو جدید
کتاب مکس پلاس هست؟؟!

کتاب مکس پلاس هست؟؟!

مهندسین عزیز کسی تا حالا کتابی برای آموزش مکس پلاس دیده؟؟؟هست؟؟؟
 

فاطمه_برق

عضو جدید
با سلام به همه دوستان عزیز
لطفا سوالات ، مشکلات و درخواست های خود را در رابطه با میکروکنترلر ها تنها در ابن تاپیک بپرسین و از پرسیدن سوال در سایر تاپیم ها جدا خودداری کنید
تنها سوالاتی که در این تاپیک پرسیده می شن پاسخ داده خواهند شد و در غیر این صورت پاسخی داده نخواهد شد
در صورتی که پاسخ سوال خود را دریافت نکردین از زدن تاپیک برای پرسیدن سوال جدا خوداری کنید
با تشکر از همکار شما
یا حق ...:gol:

سلام.
یه سوال:
زبان برنامه نویسی بسکام و بیسیک چه تفاوتی با هم دارن؟آیا همه ی دستوراتشون مشابه ان؟
 

فاطمه_برق

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

sh85

مدیر بازنشسته
کاربر ممتاز
سلام.
یه سوال:
زبان برنامه نویسی بسکام و بیسیک چه تفاوتی با هم دارن؟آیا همه ی دستوراتشون مشابه ان؟
سلام
بسکام کامپایلر هست و بیسیک زبان برنامه نویسی
مثله انگلیسی که زبان هست و دیکشنری اکسفورد تنها وسیله ای برای ترجمه کردن اون به زبان قابل فهم برای پارس ها
سلام.میشه بگید که فایل هگزی که برنامه اش به زبان بسکام (یا بیسیک) نوشته شده باشه چه جوری من تبدیلش کنم به اون فایلی که دستوراتش توش مشخصه که بتونم دستوراتی که واسش استفاده شده رو ببینم؟؟؟؟

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

melodybahramy

عضو جدید
چطور میشه فهمید میکرو سوخته یا نه؟

چطور میشه فهمید میکرو سوخته یا نه؟

سلام وقت به خیر.من هر چی گشتم جای خاصی برای طرح سوالم ندیدم .
مجبور شدم اینجا بنویسم.
من با کمک استادم یه دماسنج با atmega8 ساختم.بعد استاد یه سری دیگه از قطعاتو داد که خودم تکی بسازم ولی هیچ وقت این اتفاق نیوفتاد.چون هر کاری میکردم میکرو پروگرم نمیشد .الان من موندمو یه برد که برام کار نمیکنه و علتشو هم نمیدونم!lcd هم روشن نمیشه .میتونه علتش میکرو باشه؟
اگه میشه جواب رو به میلم بفرستید.چون نمیدونم تو کدوم صفحه جوابمو ببینم.
 
آخرین ویرایش:

melodybahramy

عضو جدید
سلام کسی پیدا نمیشه منو راهنمایی کنه؟من بازم سوال دارم که میخوام یه جا بپرسم ؟کی مقدوره که همون موقع که سوال میپرسم جواب هم بگیرم؟:smile:
 
آخرین ویرایش:
Similar threads
Thread starter عنوان تالار پاسخ ها تاریخ
omidvarshoei سوالات و مشکلات رباتیک طراحی دیجیتال و برنامه نویسی 29

Similar threads

بالا