راهنمایی نمی کنید همین میشه ! ):

[ir02x6]

سلام :
از صبح ساعت 10 تا ساعت 16 رو این برنامه کار کردم آخرشم به جایی نرسیدم ! :cry:



$regfile = "M32def.dat"
$crystal = 8000000
Config Portb = Output
Config Portc = Output
Config Portd = Output
Config Porta.0 = Input
Config Porta.1 = Output
Config Porta.2 = Output
Config Porta.3 = Output
Declare Sub A
Declare Sub B
Declare Sub C
Declare Sub D
Goto Sub A
End

Sub A :
If Porta.0 = 1 Then Call B Else Call C
End Sub

Sub C :
Goto Sub A
End Sub

Sub B :
Portb = &H06
Bitwait Porta.0 , Set
Portb = &H5B
Bitwait Porta.0 , Set
Portb = &H4F
Bitwait Porta.0 , Set
Portb = &H66
Bitwait Porta.0 , Set
Portb = &H6D
Bitwait Porta.0 , Set
Portb = &H7D
Bitwait Porta.0 , Set
Portb = &H07
Bitwait Porta.0 , Set
Portb = &H7F
Bitwait Porta.0 , Set
Portb = &H6F
Bitwait Porta.0 , Set
Portb = &HC0
Goto Sub D
End Sub

Sub D :
Portc = &H06
goto sub b
دیگه هنگ کردم !!!!!!!!!!!!!
End Sub


** کد بالا کد برنامه شمارنده 3 رقمی با آی سی atm32 و سه تا سون سگمنت ! که با زدن دکمه فشاری یدونه به عدد فعلی اضافه می کنه !
اگه کسی کد شمارنده 3 رقمی با atmega32 رو داره بی زحمت یه کمکی به من بکنه و منو از این بلاتکلیفی در بیاره ! oo:

[narek]

پاسخ : راهنمایی نمی کنید همین میشه ! ):

من که از برنامتون چیزی سر در نیاوردم
شما اول سه تا متغییر تعریف کنید بعد 3تا شرط بزارید که اگه متغییر اول <9 شد به متغییر دوم یکی اضافه کنه و متغییر اولو صفر، همین روال و واسه متغییر سوم به کار ببرید
آخر برنامه هم یه lookup بگذارید که عدد رو به کد قابل نمایش رو 7seg تولید کنه

[asadi_keyhan]

پاسخ : راهنمایی نمی کنید همین میشه ! ):

سلام,
دوست عزیز برنامه ات ایراداتی داره. الان دارم میرم مدرسه. یه PM بهم بفرس یادم بنداز اومدم اصلاحش کنم.
موفق باشید.

[vahidreza1]

پاسخ : راهنمایی نمی کنید همین میشه ! ):

مهندس اشتباه زیاد دارید داخل این برنامه
هیچ وقت داخل هیچ زیربرنامهsubrotinاز دستور gotoاستفاده نکن بخاطر اینکه هیچ وقت به ته زیر برنامه نمیرسی و برنامه ruternنمیشه
سعی کن کمتر داخل یک زیر برنامه به یک زیر برنامه دیگه بپری
:applause:

---

اضافه شده در تاریخ :
سلام دوست عزیز من برنامه رو واست نوشتم
سوال داشتی ببرس
البته پیغام خصوصی بذار بدونم
$regfile = "m16def.dat"
$crystal = 1000000
Config Portb = Output
Config Portd = Output
Config Portc.0 = Input
Config Portc.1 = Input
Config Portc.2 = Input
Dim X As Byte , K1 As Byte , K2 As Byte , K3 As Byte
Dim P As Byte , Z As Byte , I(3) As Byte
Declare Sub Key
'* * * * * * * * * * * * * * *
I(1) = 0
I(2) = 0
I(3) = 0
Z = 0
'* * * * * * * * * * * * * * * * *
Do
Call Key

If Z = 1 Then
I(1) = I(1) + 1
Elseif Z = 2 Then
I(2) = I(2) + 1
Elseif Z = 3 Then
I(3) = I(3) + 1
End If
'* * * * * * * * * * * * * * * * * * *
P = &B11111110
Portd = P
Portb = Lookup(i(1) , 7seg)
Waitms 50
P = &B11111101
Portd = P
Portb = Lookup(i(2) , 7seg)
Waitms 50
P = &B11111011
Portd = P
Portb = Lookup(i(3) , 7seg)
Waitms 50
Incr I(1)
If I(1) > 9 Then
Incr I(2)
I(1) = 0
End If
If I(2) > 9 Then
Incr I(3)
I(2) = 0
End If
If I(3) > 9 Then
I(1) = 0
I(2) = 0
I(3) = 0
End If
Z = 0
Loop
' * * * * * * * * * * * * * * * * * * * * * * * *
Sub Key
For K1 = 0 To 10
If Pinc.0 = 0 Then Z = 1
If Pinc.1 = 0 Then Z = 2
If Pinc.2 = 0 Then Z = 3
Next K1
End Sub
'* * * * * * * * * * * * * * * * * * * * * * *
7seg:
Data &B00111111 , &B0000110 , &B01011011 , &B01001111 , &B01100110
Data &B01101101 , &B01111101 , &B0000111 , &B01111111 , &B01101111
یک 7segچهارتای میذاری و پایه a رو به b.0و به ترتیبg رو به 6.bوصل میکنی بعد d.0 رو به پایه 4 ,پایه d.1 رو به پایه 3و...وصل میکنی
سه تا کلید هم به c.o تاc.2
تموم

[vahidreza1]

پاسخ : راهنمایی نمی کنید همین میشه ! ):

[img][/img]

---

اضافه شده در تاریخ :
مهندس این رو خودم طراحی کردم/نگاه کن ببین بدرت میخوره؟؟/ :read:
__
بپرس و بیاموز

[ir02x6]

پاسخ : راهنمایی نمی کنید همین میشه ! ):

مهندس این رو خودم طراحی کردم/نگاه کن ببین بدرت میخوره؟؟/ :read:
__
بپرس و بیاموز

دوست عزیز فکر کنم برنامه تون ایراد داره ! لطفا یکم بیشتر در مورد برنامه ای که نوشتید توضیح بدید ! آیا سون سگمنت استفاده شده آند مشترک یا کاتد مشترک ! در ضمن اگه بخوایم به جای atm16 از atm32 استفاده کنیم باید مقدار کریستال رو چقدر تغییر بدیم یا نیازی به این کار نیست ؟
ورودی 3 تا کلید آند یا کاتد ؟ :eek:

[baby_1]

پاسخ : راهنمایی نمی کنید همین میشه ! ):

من نگاه برنامه نکردم فقط جواب سوالتون رو می دم
چون مشخصات دو تراشه از لحاظ سخت افزاری یکی است نیازی به تغییر برد یا فرکانس کریستال نیست

[vahidreza1]

پاسخ : راهنمایی نمی کنید همین میشه ! ):

سلام سون سک ها کاتد مشترک هستن
ببین اتمگا16 و 32 هیچ فرقی ندادن فقط حافظه داخلیشون....
ضمنا کلیدها اند و کاتد ندارن :angry:منظورتون نمیفهم oo:
ببین برنامه اینطور هس ابتدا کلید رو از سابروتین چک میکنه که یه مقداری از سابروتین میگیرهi1 و بر میگرده به شرط که رسید یکان یا دهگان و یا صدگان رو اضافه میکنه
اگه کلید هم نزده باشی خودش یکان رو اضافه میکنه به 9 که رسد دهگان رو اضافه میکنیم و ...
i1یکان i2دهگان i3صدگان
سوال داشتی در خدمتم

[ir02x6]

پاسخ : راهنمایی نمی کنید همین میشه ! ):

سلام سون سک ها کاتد مشترک هستن
ببین اتمگا16 و 32 هیچ فرقی ندادن فقط حافظه داخلیشون....
ضمنا کلیدها اند و کاتد ندارن :angry:منظورتون نمیفهم oo:
ببین برنامه اینطور هس ابتدا کلید رو از سابروتین چک میکنه که یه مقداری از سابروتین میگیرهi1 و بر میگرده به شرط که رسید یکان یا دهگان و یا صدگان رو اضافه میکنه
اگه کلید هم نزده باشی خودش یکان رو اضافه میکنه به 9 که رسد دهگان رو اضافه میکنیم و ...
i1یکان i2دهگان i3صدگان
سوال داشتی در خدمتم

سلام , ممنون از اینکه وقت می زارید و به سوالای من پاسخ می دید . :redface:
منظورم از کلید ها اینه که به سمت دیگه کلید منفی بدم یا مثبت , یا اینکه کلید باید در حالت عادی به منفی وصل باشه و بعد با وصل شدن به مثبت عمل کنه ؟
اگه میشه برنامه پروتئوس این مدار رو هم قرار بدید !