با سلام به دوستان از اونجایی که تقاضا برای تابلو روان تو سایت زیاده چرا یه با مرام پیدا نمیشه که اصول کار رو یاد بده نمیدونم چرا تا اسم تابلو روان میاد هر جایی از جواب دادن طفره میرن
از دوستان تقاضا دارم که منو راهنمایی کنن
این برنامه که تو زیر گذاشتم مال اقای حجت خاکسار که قبلا توی سایت قرار دادن من چند جاشو نفهمیدم که اگه امکان داره کامل واسم توضیح بدین
اول اینکه این متغیر lsh این وسط چیکارس و چرا تعریف شده و همچنین متغیر n
در مورد دستورات شیفت دادن هم یه توضیحی بدین
بقیه برمانه رو میدونم چی به چیه
اینم برنامه
$regfile = "M32def.dat"
$crystal = 8000000
Dim Char1 As Byte
Dim Char2 As Byte
Dim Lsh As Byte
Dim J As Byte
Dim R As Byte
Dim N As Byte
Config Porta = Output
Config Portb = Output
Porta = 0
Portb = 255
Do
Lsh = 50
For R = 0 To 8
For N = 1 To 150
For J = 0 To 7
Char1 = Lookup(j , Data1)
Char2 = Lookup(j , Data1)
Shift Char1 , Right , R
Shift Char2 , Left , Lsh
Porta = Char1 Or Char2
Portb.j = 0
Waitus 100
Portb.j = 1
Next
Next
Decr Lsh
Next
Loop
End
Data1:
Data &H00 , &H00 , &H41 , &H81 , &HFF , &H7E , &H00 , &H08
از دوستان تقاضا دارم که منو راهنمایی کنن
این برنامه که تو زیر گذاشتم مال اقای حجت خاکسار که قبلا توی سایت قرار دادن من چند جاشو نفهمیدم که اگه امکان داره کامل واسم توضیح بدین
اول اینکه این متغیر lsh این وسط چیکارس و چرا تعریف شده و همچنین متغیر n
در مورد دستورات شیفت دادن هم یه توضیحی بدین
بقیه برمانه رو میدونم چی به چیه
اینم برنامه
$regfile = "M32def.dat"
$crystal = 8000000
Dim Char1 As Byte
Dim Char2 As Byte
Dim Lsh As Byte
Dim J As Byte
Dim R As Byte
Dim N As Byte
Config Porta = Output
Config Portb = Output
Porta = 0
Portb = 255
Do
Lsh = 50
For R = 0 To 8
For N = 1 To 150
For J = 0 To 7
Char1 = Lookup(j , Data1)
Char2 = Lookup(j , Data1)
Shift Char1 , Right , R
Shift Char2 , Left , Lsh
Porta = Char1 Or Char2
Portb.j = 0
Waitus 100
Portb.j = 1
Next
Next
Decr Lsh
Next
Loop
End
Data1:
Data &H00 , &H00 , &H41 , &H81 , &HFF , &H7E , &H00 , &H08
دیدگاه