حرکت حروف در7سگمنت؟؟؟

[m.minoo]

سلام دوستان
من یه برنامه دارم به زبان بسکام که با استفاده از 7سگمنت کلمه ی help رو نمایش میده.می خوام این برنامه رو طوری تغییر بدم که کلمه help حرکت کنه.استاد میگفت باید از دستور شیفت استفاده کرد.
حالا چطوری رو نمیدونم!اخه تازه کارم! این پروژه رو باید تا این هفته تحویل بدم. لطفا کمکم کنید.حتما این برنامه واسه شما اسونه
این برنامست:

$regfile = "m16def.dat"
$crystal = 1000000
Config Porta = Output
Config Portb = Output
Portb = &B00001111
Dim I As Byte
Do
For I = 0 To 3
Porta = Lookup(i , Dt)
Reset Portb.i
Waitms 5
Set Portb.i
Next
Loop
End
Dt:
data &b01110110,&b01111001,&b00111000,& b01110011

[Pixar]

پاسخ : حرکت حروف در7سگمنت؟؟؟

سلام دوستان
من یه برنامه دارم به زبان بسکام که با استفاده از 7سگمنت کلمه ی help رو نمایش میده.می خوام این برنامه رو طوری تغییر بدم که کلمه help حرکت کنه.استاد میگفت باید از دستور شیفت استفاده کرد.
حالا چطوری رو نمیدونم!اخه تازه کارم! این پروژه رو باید تا این هفته تحویل بدم. لطفا کمکم کنید.حتما این برنامه واسه شما اسونه

سلام :

برات نوشتم ... امیدوارم همونجوری بوده باشه که مد نظرته . از لینک زیر دانلود کن :

من اینجوری مینویسمش . به استادت بگو خودش یدونه با دستور شیفت بنویسه

http://pixarelectronic.persiangig.com/ECA_files/rar/moving_HELP.rar/download