سلام من به تازه شروع به یادگیری تابلو روان کردم و از آموزش آقای نصیری استفاده کردم ولی برنامه بخش چهارم ایشان رو در پرتئوس اچرا کردم متن درست نشون داده نمیشه خواستم فایل پرتئوس رو پلود کنم اما پلود سنتر سایت فقط مختص فایل عکسه نمی دونم اشکال کارم از کجاست لطفا راهنمیایی کنید اینم سورس برنامه آقای نصیری
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 6
Nassiri.vahid@gmail.com
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
Return
7
Nassiri.vahid@gmail.com
'******************************************** ***
Dat:
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H60 , &HF4 , &H92 , &H92 , &HFE , &HFC , &H00
Data &H00 , &HFF , &HFF , &H84 , &H84 , &HFC , &H78 , &H00
Data &H00 , &H7C , &HFE , &H82 , &H82 , &H82 , &H44 , &H00
Data &H00 , &H78 , &HFC , &H84 , &H84 , &HFF , &HFF , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
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 6
Nassiri.vahid@gmail.com
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
Return
7
Nassiri.vahid@gmail.com
'******************************************** ***
Dat:
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H60 , &HF4 , &H92 , &H92 , &HFE , &HFC , &H00
Data &H00 , &HFF , &HFF , &H84 , &H84 , &HFC , &H78 , &H00
Data &H00 , &H7C , &HFE , &H82 , &H82 , &H82 , &H44 , &H00
Data &H00 , &H78 , &HFC , &H84 , &H84 , &HFF , &HFF , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
دیدگاه