اتفاقا این سایت رو قبلا رفتم . و اموزش هاش رو هم رفتم تا اخر ولی چیز حرفه ای نداشت .
منظورتون از رده خارج چیه ؟ من خیلی جاها دیدم ..اون چند رنگاش مگه چه ال ای دی هایی توش بکار رفته ؟ برنامش فرق میکنه
کاش با یه مبتدی رو بهتر راهنمایی میکردید.
ببخشید این برنامه رو میشه توضیح بدین .من قسمت 55535 و 63 رو نمیفهمم چه جور باید انتخاب کنم
کد:
$regfile = "m16def.dat
$crystal = 4000000
Config Portb = Output
Config Portc = Output
Config Portd = Output
Config Timer1 = Timer , Prescale = 64
Start Timer1
Enable Interrupts
Enable Ovf1
On Ovf1 Shift_l
Timer1 = 55535
Dim Index As Word
Dim A As Byte , B As Word , I As Byte
Declare Sub Show
S1 Alias Portb.0
S2 Alias Portb.1
S3 Alias Portb.2
S4 Alias Portb.3
Portd = &H01
Do
Reset S1 : Set S2 : Set S3 : Set S4
Call Show
Set S1 : Reset S2 : Set S3 : Set S4
Call Show
Set S1 : Set S2 : Reset S3 : Set S4
Call Show
Set S1 : Set S2 : Set S3 : Reset S4
Call Show
Index = B
If B > 63 Then
B = 0 : End If
Loop
End
Show:
For I = 0 To 7
)A = Lookup(index , Dat
A = Not A
Portc = A
Waitms 1
Portc = &HFF
Rotate Portd , Left
Incr Index
Next
Return
Shift_l:
Incr B
Timer1 = 55535