راهنمایی جهت برنامه بسکام

[yalda808]

سلام
من یه برنامه می خوام بنویسم که اعداد 99 تا 0 رو به صورت نزولی با یک ثانیه تاخیر بشماره و روی 7سگمنت نمایش بده . می دونم که می تونم با تقسیم مثلا 98 بر 10 اعداد 9 و 8 رو بدست بیارم به پورت خروجی بفرستم و نیز می دونم که باید از یه حلقه و دستور lookup استفاده کنم و اعداد 0 تا 9 رو در data اون قرار بدم ولی وقتی می خوام بنویسم گیج می شم لطفا گام به گام راهنماییم کنید.ممنون

[Majid-Nik]

پاسخ : راهنمایی جهت برنامه بسکام

واست برنامه ای نوشتم که از 999 تا 0 رو بشماره اینطوری دیگه از روش تقسیم بر 10 هم استفاده نمیکنی


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


Config Portc = Output
Config Portd = Output




Dim M As Word
Dim X As Byte
Dim T1 As String * 4
Dim T2 As String * 2
Dim Majid As Byte

S1 Alias Portc.0
S2 Alias Portc.1
S3 Alias Portc.2


For M = 999 To 0 Step -1
For Majid = 0 To 100

T1 = Str(m)

Reset S1
Set S2
Set S3


T2 = Mid(t1 , 1 , 1)
X = Val(t2)

Portc = Lookup(x , T7)

Waitms 3

Set S1
Reset S2
Set S3


T2 = Mid(t1 , 2 , 1)
X = Val(t2)

Portc = Lookup(x , T7)


Waitms 3

Set S1
Set S2
Reset S3

T2 = Mid(t1 , 3 , 1)
X = Val(t2)

Portc = Lookup(x , T7)

Waitms 3

Next
Next

T7:

Data &B0111111 , &B0110000 , &B1011011 , &B1001111 , &B1100110 , &B1101101
Data &B1111101 , &B0000111 , &B1111111 , &B1101111




بای