|
ayoob_911
کاربر جدید
وضعيت: آفلاين
18 اسفند ماه ، 1388
تعداد ارسالها: 2
امتياز: 3
تشکر کرده: 0
تشکر شده 0 بار در 0 پست
|
 ارسال شده در: چهارشنبه، 19 اسفند ماه ، 1388 19:32:33 موضوع مطلب: مشکل نوشتن رشته مورد نظر در تابلو |
|
|
با سلام و عرض قدر دانی به استاد لاچینی .
می خواستم طریقه خواندن از جدول نظاره را با توجه به کلمات ورودی که در خود سورس داریم را راهنمایی کنید
من با توجه به سورس تابلو 16 *128 شما توانستم چنین کدی را بنویسم 
ولی مشکل در سرعت برنامه دارم که باعث کندی در تصویر می شود. یه فایل زیب هم با سورس معمولی خودتان و این برنامه و شبیه سازش گذاشتم
پیش پیش متشکر و سال نو شما مبارک باد
| :كد |
$regfile = "m16def.dat"
$crystal = 1000000
Config Porta = Output
Config Portb = Output
Config Portc = Output
Config Portd = Output
Dim Scan As Byte
Dim I As Word
Dim Refresh As Byte
Dim T As Byte
Dim B As Byte
Dim D As Word
Dim U As Word
Dim S As Word
Dim M As Long
Dim E As Word
Dim A As Word
Dim Stringin As String * 50 , Zz As Long , Z As Long
Dim Stringlen As Word , Stringlenn As Long , Jj As Long
Dim Stringo As String * 1 , Stringoo As String * 1
Dim Mo As Long , Ss As Long , No1 As Word , No2 As Word , No3 As Word , No4 As Word , No5 As Word
Do
Stringin = "싂 12122 "
Stringlen = Len(stringin)
For S = 1 To Stringlen
For Refresh = 1 To 5
Scan = &H1
For I = 0 To 7
For Ss = Stringlen To 0 Step -1
Stringoo = Mid(stringin , Ss , 1)
D = I * 2
U = D + 1
For Jj = S To 0 Step -1
No2 = S - Jj
If Ss = No2 Then
B = Jj
Goto Prsh
Else
Portc = 0
Portd = 0
End If
Prsh:
Next
If Stringoo = "Ï" Then Gosub Dd
If Stringoo = "ã" Then Gosub Mm
If Stringoo = "Ç" Then Gosub Aa
If Stringoo = "1" Then Gosub L1
If Stringoo = "2" Then Gosub L2
If Stringoo = " " Then Gosub Spa
Portb = 2 ^ B
Portb = 0
Next
Prshh:
Porta = Scan
Rotate Scan , Left , 1
Waitms 1
Porta = 0
Next
Next
Next
Loop
Dd:
Portc = Lookup(u , Dlbl)
Portd = Lookup(d , Dlbl)
Return
Mm:
Portc = Lookup(u , Mclbl)
Portd = Lookup(d , Mclbl)
Return
Aa:
Portc = Lookup(u , Aclbl)
Portd = Lookup(d , Aclbl)
Return
L2:
Portc = Lookup(u , Lbl2)
Portd = Lookup(d , Lbl2)
Return
L1:
Portc = Lookup(u , Lbl1)
Portd = Lookup(d , Lbl1)
Return
Spa:
Portc = Lookup(u , Spac)
Portd = Lookup(d , Spac)
Return
Spac:
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
'Ï
Dlbl:
Data &H00 , &H00 , &H3C , &H00 , &H38 , &H00 , &H38 , &H38 , &H18 , &H70 , &H1C , &HE0 , &H1F , &HC0 , &H0F , &H80
Mclbl:
Data &H07 , &H00 , &H07 , &H00 , &H0F , &H00 , &H1F , &H80 , &H19 , &HC0 , &H18 , &HC0 , &H1F , &HC0 , &H0F , &H80
Aclbl:
Data &H00 , &H00 , &H00 , &H00 , &H01 , &HFF , &H03 , &HFE , &H07 , &HFC , &H07 , &H00 , &H07 , &H00 , &H07 , &H00
Lbl1:
Data &H80 , &H10 , &HC0 , &H18 , &HFF , &HFC , &HFF , &HFE , &HFF , &HFE , &HC0 , &H00 , &H80 , &H00 , &H00 , &H00
Lbl2:
Data &HC0 , &H18 , &HF0 , &H1C , &HFC , &H0E , &HCF , &H06 , &HC3 , &HCE , &HC0 , &HFC , &HC0 , &H38 , &H00 , &H00
|
|
|
سوالات رايج مربوط به تالارهاي گفتمان
جستجو
گروههاي كاربري
مشخصات
ورود به سيستم و كنترل پيغامهاي شخصي
ورود به سيستم
