ايران ويج

صفحه‌ها: 1 2

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

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

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

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

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

نه بابا.
من با مگا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

اینم شبیه ساز:
[تصویر: 2013_01_08_002926.jpg]

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

صفحه‌ها: 1 2

aKaReZa75

jansfred

aKaReZa75

jansfred

aKaReZa75