چراغ راهنمايي چهارتايي

[aKaReZa75]

اون به کارت نمیاد.
اون نفطه هستش

[jansfred]

عزيز فقط يه زحمت ميكشيد يه سون سگمنت دوتايي واسم دورست كنيد از 20 بشمره كم بشه بقيرو من خودم از روش درست ميكنم

[aKaReZa75]

چشم با جه زبونی بنویسم؟

[jansfred]

با بسكام داداش
يه دنيا ممنونم
مديونم بهت
دستت مرسي

---

فقط يه سوال
ميشه 4تا سون سگمنت دوتايي رو به يه ميكرو مگا 16 طوري به پورتهاش وصل كنم كه هر دفعه يه سون سگمنت از 20 به 0 بشمره
يعني پورتها جوابگو هست؟يا بايد از يه ميكرو با پورتهاي بيشتر استفاده كنم؟

[aKaReZa75]

نه بابا.
من با مگا8 میتونم 32تا 8 (32 یا بیشتر) راه بندازم.
الآن برنامه رو واست مینویسم

---

بیا داداشی.

این برنامه:

کد:

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

Config Timer2 = Timer , Async = On , Prescale = 128
Config Porta = Output
Config Portb = Output

Dim S1 As Byte , S2 As Byte
Dim A As Byte

Enable Interrupts
Enable Timer2

Start Timer2

On Timer2 Tim

S1 = 0
S2 = 2

Do


Portb = &H01
Porta = Lookup(s2 , Segmentdata)
Waitms 1
Portb = &H02
Porta = Lookup(s1 , Segmentdata)
Waitms 1

If S1 = 0 And S2 = 2 Then : S2 = 1 : S1 = 9 : End If
If S1 = 0 And S2 = 1 Then : S2 = 0 : S1 = 9 : End If
If S1 = 0 And S2 = 0 Then : Disable Interrupts : Disable Timer2 : Stop Timer2 : End If


Loop

End

Segmentdata:
Data &H3F , &H06 , &H5B , &H4F , &H66 , &H6D , &H7D , &H07 , &H7F , &H6F

Tim:
Decr S1
Return

اینم شبیه ساز:


موفق باشی....