چراغ راهنمايي قابل تنظيم

[navid_sa_198]

ممنون از لطفت

باشه بازم روش كار مي كنم

[navid_sa_198]

سلام
من آخر برنامتون تغييري دادم تا اونو تو سگمنت 2 تايي ببينم ولي باز نتيجه اي ندارم
ببخشيد واسه شما دردسر شد
تصوير پروتئوس را هم گذاشتم

کد php:

$regfile = "m16def.dat"
$crystal = 8000000
Config Portb = Output
Config Kbd = Portd , Debounce = 100 , Delay = 1
Dim A As Byte
Dim B1 As Byte
Dim B2 As Byte
Dim Num As Byte
Dim B As Byte
Dim C As Byte
      Do
     Goto Adad1
     Loop
           End
           Adad1:

    A = Getkbd()
    If A > 15 Then
    Goto Adad1
    End If
    B = Lookup(a , W)
Waitms 300
Goto Adad2
 Adad2:
    A = Getkbd()
    If A > 15 Then
    Goto Adad2
    End If
    B1 = Lookup(a , W)
Waitms 300
Goto Sett
'--------------------------
B = B * 10
B1 = B + B1
'--------------------------
 Sett:
    A = Getkbd()
    If A > 15 Then
    Goto Sett
    End If

Waitms 100
If B2 = 12 Then
Num = B1
Goto Prog1
Else
Goto Sett
End If

Prog1:
     C = Makebcd(num)
Portb = C

End
    W:
   Data 1 , 2 , 3 , 99 , 4 , 5 , 6 , 99 , 7 , 8 , 9 , 99 , 99 , 0 , 99 , 99 


[sharin]

برنامتون اشكال زياد دارهه ...

خط هاي برنامه رو دونه دونه چك كنيد ...
1- end بايد آخرين خط برنامه باشه ، مگر اينكه از تابع يا sub روتين استفاده كرده باشيد.
2-

کد:

B = B * 10
B1 = B + B1

اين خط ها اجرا نمي شن ، به علت اينكه خط قبل از اونها Goto Sett هست.
حاصل B1+B رو هم در B2 بريزيد تا يكان كه B1 هست مقدارش از دست نرهه . . .
3-جدول lookup يا همومن ليبل w رو متناسب باكارتون مقدار دهي كرديد؟
4-اول سعي كنيد يك عدد 2 رقمي رو روي 7seg نمايش بديد. بعد كه از اون جواب گرفتيد ، قاطي پروژه ي فعلي تون كنيد.
كدي كه براي نمايش روي 7seg زديد درست نيست.
روش رفرش رو چند وقت پيش توضيح دادم ،‌يه سرچي بزنيد .
شما در هر لحظه توسط 2 پايه ي كنترلي 7seg تنها به يكي از 2 سمت 7seg مقدار مي ديد .
در لحظه ي اول مثلا مقدار b رو كه عدد دهگان هست روي 7seg سمت چپ ، و در لحظه ي بعد b1 كه عدد يكان هست رو روي 7seg سمت راست مي ذاريد و در هر ثانيه اين كار بايد بيش از 24 بار صورت بگيرد تا چشم ما هر دو عدد رو يكجا روشن ببينه ...

[navid_sa_198]

سلام

من يه كارايي كردم الان شماره ها رو وارد ميكنم و بعد زدن ستاره شروع به شمردن ميكنه درست هم ميشماره ولي درست اعداد را رو سگمنت نشون نميده مثلا بار اول 1 و بار دوم 2 را وارد ميكنم 12 ثانيه چراغ را قرمز ميكنه ولي اون عدد هايي كه بايد نشون نميده ويه چيزاي دري وري نشون ميده

فايل هاش را گذاشتم يه زحمت بكش خودت نگاش كن مثل اينكه دارم كم كم نتيجه مي گيرم

کد php:

$regfile = "m16def.dat"
$crystal = 8000000
Config Portb = Output
Config Kbd = Portd , Debounce = 100 , Delay = 1
Dim A As Byte
Dim B1 As Byte
Dim B2 As Byte
Dim Num As Byte
Dim B As Byte
Dim C As Byte

Dim I As Byte


Ddrb = &HFF
Portb = 0

Ddrc = &H07
Portc = 0

 Goto Adad1

 Adad1:

 A = Getkbd()
 If A > 15 Then
 Goto Adad1
 End If
 B = Lookup(a , W)
Waitms 300
Goto Adad2
 Adad2:
 A = Getkbd()
 If A > 15 Then
 Goto Adad2
 End If
 B1 = Lookup(a , W)
Waitms 300

'--------------------------
B = B * 10
B1 = B + B1
'--------------------------
Goto Sett
 Sett:
 A = Getkbd()
 If A > 15 Then
 Goto Sett
 End If

Waitms 100
If A = 12 Then
Num = B1
Goto Prog1
Else
Goto Sett
End If

Prog1:


Do
 Set Portc.0
 For I = Num To 0 Step -1
 Portb = Makebcd(i)
 Waitms 1000
 Next I
 Reset Portc.0

 Set Portc.1
 Portb = 0
 Waitms 2000
 Reset Portc.1


 Set Portc.2
 For I = Num To 0 Step -1
 Portb = Makebcd(i)
 Waitms 1000
 Next I
 Reset Portc.2

Loop

End
 W:
 Data 1 , 2 , 3 , 99 , 4 , 5 , 6 , 99 , 7 , 8 , 9 , 99 , 99 , 0 , 99 , 99 


[sharin]

Do
Set Portc.0
For I = Num To 0 Step -1
Portb = Makebcd(i)
Waitms 1000
Next I
Reset Portc.0

Set Portc.1
Portb = 0
Waitms 2000
Reset Portc.1


Set Portc.2
For I = Num To 0 Step -1
Portb = Makebcd(i)
Waitms 1000
Next I
Reset Portc.2

Loop

در اين تيكه كد ، يه سري اشتباهات واضح هست .
1-مثلا ، قرار شد در هر ثانيه بيش از 24 بار هر كدوم از سمت هاي 7seg رو مقدار دهي كنيد.
الان شمادو بار 1000 ميلي ثانيه + 2000 ميلي ثانيه = 4 ثانيه گذاشتيد !!!!!!
يعني در 1 ثانيه 1 بار هم 2 سمت مقدار دهي نمي شه ...!!!
waitms ها رو خيلي كم تر بگيريد.
2- هر سمت سگمنت مي تونه عددهاي 0 تا 9 رو نشان بده. شما اول اومدي يه سمت رو فعال كردي و در يك حلقه ي for مقدار num رو كه مثلا 30 هست رو تا 0 شدنش يه جا به همون دادي !!!
جدا از باقيه مسائل ، عدد 30 رو چطور مي شه روي يك سمت 7seg نشون داد ؟؟؟!!!
--------------
براي عدد 30 ، سمت چپ رو فعال كني و 3 رو بايد بذاري روي سمت چپ ، بعد از يه زمان خيلي كوتاه ، سريع بايد سمت راست رو فعال كني و 0 رو بذاري روي سمت راست، بعد از يك مدت كوتاه ، دوباره بايد سمت چپ رو فعال كني و 3 رو بذاري روي سمت چپ و بعد از يك مدت كوتاه دوباره سمت راست رو فعال كني و 0 رو بذاري روي سمت راست و ... بيش از 24 بار اين عمليات رو در 1 ثانيه بايستي انجام بدي ...
وقتي يك ثانيه گذشت ، مي ري سراغ عدد 29 . باز مثل قبل اين كار رو انجام مي دي ...

[navid_sa_198]

سلام
اين 1 و 2 ثانيه واسه شمارش هستش اگه اينارو تغيير بدم فاصله بين ثانيه ها كم ميشه مثلا12 را تو 6 ثانيه تا 0 ميشماره

[sharin]

براي درست كردن زمان 1 ثانيه از تايمر استفاده كنيد.
يه برنامه ي كاملش رو چند روز پيش تو سايت گذاشتم.
اسم تاپيكش تايمر0 بود فكر كنم ،‌تو بخش ميكرو يا AVR مي تونيد پيداش كنيد.

[navid_sa_198]

سلام
در مورد تايمر من هنوز چيزي بلد نيستم ( تازه اين ترم ميكرو دارم )
ولي مشكل نشان دادن رو سگمنت را حل كردم
بين ميكرو و سگمنت از آيسي 7448 استفاده كردم الان تقريبا پروزه ام حاضره البته با كمك شما
نميدونم چطوري ازتون تشكر كنم خيلي چيز ها ياد گرفتم هر چند هنوز تازه اول راهم


راستي هنوز 4 روز وقت دارم به سرم زده حالت چشمك زن و 3 زمانه را هم اضافه كنم

بازم ممنون

[navid_sa_198]

سلام
بستن مدار رو برد را نگه داشتم دقيقه نود الان يه مشكلي دارم ممنون ميشم بازم كمكم كني

مدار در پروتئوس جواب ميده ولي وقتي بستمش تموم قسمتها كار ميكنه به جز ledها كه بعضي هاشون روشن خاموش نميشن
با ولت متر كه خود ميكرو را تست كردم اون پورت هايي كه اين ledها وصلن هميشه ولتاز 4.7 دارن حتي وقتي كه بايد روشن خاموش بشن (ولتاز اين پورت ها صفر نميشه )ولي با وجود 4.7 led را روشن نميكنه
اتصالت رو هم چك كردم يه بار هم تو برنامه جاي پورتها را عوض كردم اين بار يه چند تاي ديگه ايجوري شدن
ممنون ميشم زود كمكم كنين فردا بايد تحويل بدم

[sharin]

LED رو مستقيم به پورت نزنيد . يه مقاومت بين 330 اهم تا 1k باهاش سري كنيد تا جريان رو محدود كنه و پورت هاي ميكرو آسيب نبينه ...
از چه ميكرويي استفاده مي كني ؟
مشكلي كه گفتيد احيانا در پورت C نيست ؟
اگر هست در قسمت فيوز بيت ها JTAG رو disable كنيد.
اينطوري پورت C فعال مي شه ...
باقيه فيوزبيت ها رو اگر آشنايي نداريد تغيير نديد ...

موفق باشيد.

[navid_sa_198]

آقا تشكر تشكر تشكر
jtag را غيرفعال كردم درست شد