مشکل با پروژه بسیار ساده ( چراغ چشمک زن ) AVR . لطفا کمک کنید

[arash2005]

سلام دوستان.

من در حال یادگیری avr هستم . اولین پروژم که طراحی مدار چراغ های چشمک زن بود رو انجام دادم . مدارشو صحیح بستم . حتی برنامه ای هم که براش نوشتم درست هست و با پروتئوس مشکلی نداره ولی بعد از پروگرام کردم میکرو ATMega32 و قرار دادنش رووی برد بورد وقتی مدارو روشن میکنم لامپ هام چشمک نمیزنن و همینطوری صابت روشن میمونن :(

خیلی باهاش کلنجار رفتم ولی نفهمیدم مشکلش از کجاست . لطفا راهنماییم کنید که چرا چراغ ها همینطور ثابت روشن هستن و چشمک نمیزنن .

اینم برنامه ای بود که نوشتم:

$regfile "M32def.dat"
$crystal = 8000000

Config Portb = Output

Do
Portb = &B11111111

Waitms 500

Portb = &B00000000

Waitms 500

Loop

[ir02x6]

پاسخ : مشکل با پروژه بسیار ساده ( چراغ چشمک زن ) AVR . لطفا کمک کنید

دوست عزیز بهتره که مشکلتون رو اینجا مطرح کنید :

http://www.eca.ir/forum2/index.php?board=161.0

[tofan_2050]

پاسخ : مشکل با پروژه بسیار ساده ( چراغ چشمک زن ) AVR . لطفا کمک کنید

فیوز بیت فرکانس میکرو رو دست پروگرم کردین ؟
احتمال میدم مشکلتون همین باشه چکش کنین

[mortezabn]

پاسخ : مشکل با پروژه بسیار ساده ( چراغ چشمک زن ) AVR . لطفا کمک کنید

به احتمال زیاد از فیوز بیتشه . فرکانس برنامتونو رو 1 مگا بزارید بعد دوباره تست کنید . اگه درست شده بود بگید تا بهتون بگم که چجوری فرکانسو رو 8 تنطیم کنید. موفق باشید. :job:

[روح الامین]

پاسخ : مشکل با پروژه بسیار ساده ( چراغ چشمک زن ) AV

سلام :smile:
ولی به نظر من ایشون مایکروکنترلرشون رو حتی پروگرم هم نکردن!
چون 500 میلی ثانیه تقریبا تو همه فرکانس ها دیده میشه. احتمالا دوست عزیز شما میکروتون پروگرم نشده.

[مهران چمنی]

پاسخ : مشکل با پروژه بسیار ساده ( چراغ چشمک زن ) AVR . لطفا کمک کنید

این رو بریز تو میکروت:

$regfile "M32def.dat"
$crystal = 8000000

Config Portb = Output

Do
Portb =0

Waitms 500

Portb = 1

Waitms 500

Loop

END


END آخرش رو هم نزاشته بودی ها !

[arash2005]

پاسخ : مشکل با پروژه بسیار ساده ( چراغ چشمک زن ) AVR . لطفا کمک کنید

فیوز بیت فرکانس میکرو رو دست پروگرم کردین ؟
احتمال میدم مشکلتون همین باشه چکش کنین

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

به احتمال زیاد از فیوز بیتشه . فرکانس برنامتونو رو 1 مگا بزارید بعد دوباره تست کنید . اگه درست شده بود بگید تا بهتون بگم که چجوری فرکانسو رو 8 تنطیم کنید. موفق باشید. :job:

آقا مرتضی من فیوز بیت ها رو صد مدل جا به جا کردم ولی هیچ نتیسجه ای نگرفتم . نمیدونم مشکلم از چیه؟!!!!!!

سلام :smile:
ولی به نظر من ایشون مایکروکنترلرشون رو حتی پروگرم هم نکردن!
چون 500 میلی ثانیه تقریبا تو همه فرکانس ها دیده میشه. احتمالا دوست عزیز شما میکروتون پروگرم نشده.

ممنونم دوست خوبم . اینکارو کردم . فرکانس روو 1 مگا گذاشتم ولی بازم مشکلم پا بر جا بود .

این رو بریز تو میکروت:

$regfile "M32def.dat"
$crystal = 8000000

Config Portb = Output

Do
Portb =0

Waitms 500

Portb = 1

Waitms 500

Loop

END


END آخرش رو هم نزاشته بودی ها !

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

البته لاطمه اشاره کنم که میکروم At Mega 32A هست . نمیدونم با Mega32 فرق زیادی داره یا نه . برنامه ای هم که نوشتم بر طبق MEGA32 نوشتم . ممکنه مشکل از این باشه؟؟؟

[روح الامین]

پاسخ : مشکل با پروژه بسیار ساده ( چراغ چشمک زن ) AVR . لطفا کمک کنید

ببینید بقیه پایه ها هم برق داره؟
پروگرامر رو قبلا چک کردی که درست باشه؟
اصلا خودتون قبلا جای دیگه پروگرم کردین؟

[arash2005]

پاسخ : مشکل با پروژه بسیار ساده ( چراغ چشمک زن ) AVR . لطفا کمک کنید

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

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

[محمد حسین حسن زاده]

پاسخ : مشکل با پروژه بسیار ساده ( چراغ چشمک زن ) AVR . لطفا کمک کنید

فکر بکنم این کاکنه
$regfile = "m32def.dat"
$crystal = 1000000
Config Pina.0 = Output
Do
Set Porta.0
Waitms 300
Reset Porta.0
Waitms 300
Loop
End

[sharif_sharifzadeh]

پاسخ : مشکل با پروژه بسیار ساده ( چراغ چشمک زن ) AVR . لطفا کمک کنید

پسر خوب تاریخ رو هم نگاه کن،این مال یه سال پیشه

[یارا]

منم سئوال دارم

من این برنامه رو توی پروئوس بستم درست کار کرد...
اما روی ایسی پروگرام کردم درست کار نکرد میشه کسی منو کمک کنه ...
روی ایسی atmega32 پروگرام کردم
این رو جوری نوشتم که با هر بار فشار دادن پوش باتون بره افکت بعدی اما نمی دونم چرا توی ایسی که پروگرام کردم بدون این که پوش باتون رو فشار بدم میره افکت بعدی خیلی خیلی ممنون میشم کمک کنید...

$regfile="m32def.dat"
$crystal=8000000
config PORTd = output
config PORTc = output
config PORTb.0 = input : set pinb.0
dim i as byte
dim t as word
dim k as byte
i=0
do


if i=0 and pinb.0=0 then
i=i+1
waitms 300
endif


while i=1
portd = Lookup(k,data1)
portc = Lookup(k,data1)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=2
portd = Lookup(k,data2)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=3
portc = Lookup(k,data3)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=4
portd = Lookup(k,data4)
portc = Lookup(k,data4)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=5
portd = Lookup(k,data5)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=6
portc = Lookup(k,data6)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=7
portd = Lookup(k,data7)
portc = Lookup(k,data7)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=8
portd = Lookup(k,data8)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=9
portc = Lookup(k,data9)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=10
portd = Lookup(k,data10)
portc = Lookup(k,data10)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


if i > 10 then
i=0
portd=0
portc=0
endif
loop
end


data1:
data &B11111111
data &B00000000
data &B11111111
data &B00000000
data &B11111111
data &B00000000


data2:
data &B01010101
data &B10101010
data &B01010101
data &B10101010
data &B01010101
data &B10101010


data3:
data &B11001100
data &B00110011
data &B11001100
data &B00110011
data &B11001100
data &B00110011


data4:
data &B11110000
data &B00001111
data &B11110000
data &B00001111
data &B11110000
data &B00001111


data5:
data &B10111101
data &B10011001
data &B10111101
data &B00000000
data &B01100110
data &B10011001


data6:
data &B11111111
data &B00000000
data &B11111111
data &B00000000
data &B11111111
data &B00000000


data7:
data &B01010101
data &B10101010
data &B01010101
data &B10101010
data &B01010101
data &B10101010


data8:
data &B11001100
data &B00110011
data &B11001100
data &B00110011
data &B11001100
data &B00110011


data9:
data &B11110000
data &B00001111
data &B11110000
data &B00001111
data &B11110000
data &B00001111


data10:
data &B10111101
data &B10011001
data &B10111101
data &B00000000
data &B01100110
data &B10011001

دلیل: ادغام دو پست برای جلوگیری از اسپم

من این برنامه رو توی پروئوس بستم درست کار کرد...
اما روی ایسی پروگرام کردم درست کار نکرد میشه کسی منو کمک کنه ...
روی ایسی atmega32 پروگرام کردم
این رو جوری نوشتم که با هر بار فشار دادن پوش باتون بره افکت بعدی اما نمی دونم چرا توی ایسی که پروگرام کردم بدون این که پوش باتون رو فشار بدم میره افکت بعدی خیلی خیلی ممنون میشم کمک کنید...

$regfile="m32def.dat"
$crystal=8000000
config PORTd = output
config PORTc = output
config PORTb.0 = input : set pinb.0
dim i as byte
dim t as word
dim k as byte
i=0
do


if i=0 and pinb.0=0 then
i=i+1
waitms 300
endif


while i=1
portd = Lookup(k,data1)
portc = Lookup(k,data1)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=2
portd = Lookup(k,data2)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=3
portc = Lookup(k,data3)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=4
portd = Lookup(k,data4)
portc = Lookup(k,data4)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=5
portd = Lookup(k,data5)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=6
portc = Lookup(k,data6)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=7
portd = Lookup(k,data7)
portc = Lookup(k,data7)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=8
portd = Lookup(k,data8)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=9
portc = Lookup(k,data9)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=10
portd = Lookup(k,data10)
portc = Lookup(k,data10)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


if i > 10 then
i=0
portd=0
portc=0
endif
loop
end


data1:
data &B11111111
data &B00000000
data &B11111111
data &B00000000
data &B11111111
data &B00000000


data2:
data &B01010101
data &B10101010
data &B01010101
data &B10101010
data &B01010101
data &B10101010


data3:
data &B11001100
data &B00110011
data &B11001100
data &B00110011
data &B11001100
data &B00110011


data4:
data &B11110000
data &B00001111
data &B11110000
data &B00001111
data &B11110000
data &B00001111


data5:
data &B10111101
data &B10011001
data &B10111101
data &B00000000
data &B01100110
data &B10011001


data6:
data &B11111111
data &B00000000
data &B11111111
data &B00000000
data &B11111111
data &B00000000


data7:
data &B01010101
data &B10101010
data &B01010101
data &B10101010
data &B01010101
data &B10101010


data8:
data &B11001100
data &B00110011
data &B11001100
data &B00110011
data &B11001100
data &B00110011


data9:
data &B11110000
data &B00001111
data &B11110000
data &B00001111
data &B11110000
data &B00001111


data10:
data &B10111101
data &B10011001
data &B10111101
data &B00000000
data &B01100110
data &B10011001

دلیل: ادغام دو پست برای جلوگیری از اسپم

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

$regfile="m32def.dat"
$crystal=8000000
config PORTd = output
config PORTc = output
config PORTb.0 = input : set pinb.0
dim i as byte
dim t as word
dim k as byte
i=0
do


if i=0 and pinb.0=0 then
i=i+1
waitms 300
endif


while i=1
portd = Lookup(k,data1)
portc = Lookup(k,data1)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=2
portd = Lookup(k,data2)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=3
portc = Lookup(k,data3)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=4
portd = Lookup(k,data4)
portc = Lookup(k,data4)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=5
portd = Lookup(k,data5)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=6
portc = Lookup(k,data6)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=7
portd = Lookup(k,data7)
portc = Lookup(k,data7)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=8
portd = Lookup(k,data8)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=9
portc = Lookup(k,data9)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend


while i=10
portd = Lookup(k,data10)
portc = Lookup(k,data10)
k=k+1 : if k>5 then k=0
for t=0 to 100
waitms 1
if pinb.0 = 0 then
waitms 300
i=i+1
exit while
endif
next t
wend
if i > 10 then
i=0
portd=0
portc=0
endif
loop
end

data1:
data &B11111111
data &B00000000
data &B11111111
data &B00000000
data &B11111111
data &B00000000
data2:
data &B01010101
data &B10101010
data &B01010101
data &B10101010
data &B01010101
data &B10101010
data3:
data &B11001100
data &B00110011
data &B11001100
data &B00110011
data &B11001100
data &B00110011
data4:
data &B11110000
data &B00001111
data &B11110000
data &B00001111
data &B11110000
data &B00001111
data5:
data &B10111101
data &B10011001
data &B10111101
data &B00000000
data &B01100110
data &B10011001
data6:
data &B11111111
data &B00000000
data &B11111111
data &B00000000
data &B11111111
data &B00000000
data7:
data &B01010101
data &B10101010
data &B01010101
data &B10101010
data &B01010101
data &B10101010
data8:
data &B11001100
data &B00110011
data &B11001100
data &B00110011
data &B11001100
data &B00110011
data9:
data &B11110000
data &B00001111
data &B11110000
data &B00001111
data &B11110000
data &B00001111
data10:
data &B10111101
data &B10011001
data &B10111101
data &B00000000
data &B01100110
data &B10011001

[amir_moayeri]

پاسخ : منم سئوال دارم

سلام
وقت بخیر

من این برنامه رو توی پروئوس بستم درست کار کرد...
اما روی ایسی پروگرام کردم درست کار نکرد میشه کسی منو کمک کنه ...
روی ایسی atmega32 پروگرام کردم
این رو جوری نوشتم که با هر بار فشار دادن پوش باتون بره افکت بعدی اما نمی دونم چرا توی ایسی که پروگرام کردم بدون این که پوش باتون رو فشار بدم میره افکت بعدی خیلی خیلی ممنون میشم کمک کنید...

config PORTb.0 = input : set pinb.0

احتمالا قسمتی از ایراد مربوط به این خط هست
خط پنجم رو تصحیح نمایید :
config pinb.0=input

با احترام
00/3/13

[saeiddiod]

پاسخ : منم سئوال دارم

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

پین مربوط به کلیدها نباید معلق باشه.مثلا با صفر شدن پین برنامه تغییر میکنه اون پین باید با یه مقاومت پول اپ بشه