کمک در مورد برنامه زقص نور با avr

[rasamar]

سلام به همه دوستان
یک مدار رقص نور با ال ای دی دیدم که با at89c2051 کار می کنه . سخت افزارش خیلی ساده اس یک کزیستال برای نوسان داره و تغذیه 5 ولت و طرف دیگه آی سی پورت خروجی آدرس دهی شده و از 9 پین اون خروجی گرفته شده و به بیس ترانزیستور رفته
ترانزیستورها هم که کار کار سوییچ برای یک قسمت از led ها رو انجام می ده
من نرم افزار avr و زبان سی رو بلد نیستم :redface:
لطفا کسی می تونه منو راهنمایی کنه که نرم افزارش چیه ؟
یا برنامه ای مثل این کسی می تونه در اختیار من بذاره ؟ :applause:
خیلی ممنون می شم کمکم کنید اساتید اهل فن :nice:

[hamidbadami]

پاسخ : کمک در مورد برنامه زقص نور با avr

سلام....
بهترین کامپایلر زبان c به نظر من code vision avr که حداقل تو ایران خیلی طرفدار داره.

اینم یه مثال کوچیک از رقص نور 8 کاناله به زبان C تو code vision

[rasamar]

پاسخ : کمک در مورد برنامه زقص نور با avr

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

[hamidbadami]

پاسخ : کمک در مورد برنامه زقص نور با avr

ببینید من از تابع rand تو برنامه استفاده کرده بودم که این تابع یه عدد تصادفی تولید میکرد و منم این عدد رو به خروجی ارسال میکردم که این کار باعث میشد led ها در مدلهای مختلف و به صورت نا منظم چشمک بزنن. دستورات یا توابع خاصی واسه چشمک زن وجود ندارن بلکه شما باید با استفاده از دستورات ساده ای ای مانند for و... بتونید حالهای مختلف رو درست کنید که این کار ملزم به یادگیری حداقل دستورات زبان C می باشد.

[rasamar]

پاسخ : کمک در مورد برنامه زقص نور با avr

مهندس
می شه برای مثال یکی دوتا برنامه کوچیک برام بفرستی.
متشکرم

[hamidbadami]

پاسخ : کمک در مورد برنامه زقص نور با avr

ببینید به طور مثال این یه چشمک زنه:

char b,i;


b=0b10000000;
for(i=0;i<8;i++){
PORTC=b;
b=b>>1;
delay_ms(1000);
}

[feshwari]

پاسخ : کمک در مورد برنامه زقص نور با avr

سلام
این یه برنامه است که باهاش می شه بی نهایت حالت چشمک زدن رو داشته باشه. البته با basvom avr

dim a as byte
do

for a = 0 to 3
portd = lookup (a , sheshmak)
wait 1
next a
loop
end

cheshmak:
data &B10101010 , &B00110011 , &B11100011 , &B11011011

0 ها یعنی LED ها خاموش و 1 ها روشن هستن.
8 تا LED به پورت D میکرو وصل کن
با تشکر
محمد شرفی

[rasamar]

پاسخ : کمک در مورد برنامه زقص نور با avr

سلام
آقای شرف :applause:ی
من از راهنمایی شما تشکر می کنم. برنامه شما رو با BASCOM AVR اجرا کردم . موقع کامپایل شدن از خط آخر برنامه که بیتهای یک وصفر مشخص شدن برای CHESHMAK زدن ERROR می گیره .
ووقتی که به جای اعداد باینری عدد دسیمال بذارم ERROR نمیگیره موقع کامپایل ولی موقع PROGRAM کردن این پیغام می آد :
COULD NOT IDENTIFY CHIP WITH ID FFFFFF
و بعد هم می خواد که اسم میکرو رو وارد کنم و...
لطفا در مورد پروگرم کردن میکرو هم به من اطلاعات مفیدی ارائه کنید و اینکه چطور می شه سرعت چشمک زدنها رو هم تعریف کرد .
اگه یه برنامه که خودتون تستش کردین برام بذارین هم عالی می شه .
سپاسگذارم

[bahramicq]

پاسخ : کمک در مورد برنامه زقص نور با avr

اینم برنامه

$regfile = "m8def.dat"
$crystal = 8000000

Config Portd = Output

Dim A As Byte

do

for a = 0 to 3
Portd = Lookup(a , Cheshmak)
Waitms 1
next a
loop
end

Cheshmak:

Data &B10101010
Data &B00110111
Data &B11100001

Data &B11011011

اینم فایل پروتئوس
http://www.4shared.com/file/68858978/b36c51d/New_Folder.html

اگه تاخیر برنامه رو کم و زیاد کنی سرعت چشمک زدن کم و زیاد میشه Waitms 1

[rasamar]

پاسخ : کمک در مورد برنامه زقص نور با avr

دوستان عزیز خیلی ممنون از راهنمایی های شما. درست شد . جواب هم گرفتم. :applause:
فقط یک سوال اینکه اگه بخوام که از 2 تا پورت استفاده کنم و تعداد خروجی ها رو بالا ببرم . مثلا 16 تا led چشمک زن هماهنگ با هم داشته باشم چه کار باید بکنم؟

[bahramicq]

پاسخ : کمک در مورد برنامه زقص نور با avr

سلام ...
این که دیگه کاری نداره میتونی واسه یه پورت دیگه با دستور lookup همین کارو انجام بدی با اضافه کردن چند خط بیشتر
config portb=output
.
.
.
.
portb=lookup(b , cheshmak)
یه چی تو همین مایه ها .. کدها ی دیتا رو خودت واسش تعریف کن و با تغییرات تو برنامه خروجی رو تو پروتئوس ببین

[feshwari]

پاسخ : کمک در مورد برنامه زقص نور با avr

سلام. 16 تا LED رو راه انداختی؟

[rasamar]

پاسخ : کمک در مورد برنامه زقص نور با avr

سلام
خیلی سعی کردم ولی نشد. :angry:
میشه لطفا کمکم کنید . به راهنماییهاتون احتیاج دارم . لطفا یک نمونه برنامه برام بذارین که از 2 تا پورت برای خروجی استفاده کرده باشه .
خیلی متشکرم .

[khast khodaiebehnam]

پاسخ : کمک در مورد برنامه زقص نور با avr



$CRYSTAL=1000000

CONFIG PORTB=OUTPUT




CONFIG PORTC=OUTPUT
SET PORTB
RESET PORTB
DO
TOGGLE PORTB
WAIT 1
TOGGLE PORTC
WAIT 1
LOOP
میتونی به این سادگی شروع کنی