پاسخ : led چشمک زن در کنار برنامه اصلی
این همون برنامه است
منتها کارکتراش رو فارسی کردم
همراه با ارور ها...
این همون برنامه است
منتها کارکتراش رو فارسی کردم
همراه با ارور ها...
کد:
$regfile = "M8def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = _
Portb.5 , E = Portd.2 , Rs = Portd.3
Config Lcd = 16 * 2
Config Keyboard = Pinb.1 , Data = Pinb.0 , Keydata = Keydata
Config Portd = Output
Config Timer1 = Timer , Prescale = 1
Enable Interrupts
Enable Timer1
Start Timer1
Enable Ovf1
On Ovf1 Led
Dim A As Byte
Waitms 500
Cls
Deflcdchar 7 , 32 , 1 , 1 , 1 , 29 , 21 , 29 , 1 ' replace ? with number (0-7)
Deflcdchar 6 , 32 , 32 , 32 , 4 , 31 , 32 , 24 , 32 ' replace ? with number (0-7)
Deflcdchar 5 , 32 , 32 , 32 , 2 , 1 , 5 , 5 , 7 ' replace ? with number (0-7)
Deflcdchar 4 , 32 , 32 , 32 , 32 , 28 , 20 , 28 , 32 ' replace ? with number (0-7)
Deflcdchar 3 , 4 , 8 , 18 , 18 , 31 , 32 , 32 , 32 ' replace ? with number (0-7)
Deflcdchar 2 , 32 , 32 , 32 , 32 , 3 , 4 , 18 , 30 ' replace ? with number (0-7)
Cls
Locate 1 , 5
Lcd Chr(2) ; Chr(3) ; Chr(4) ; Chr(5) ; Chr(6) ; Chr(7)
Main:
A = Getatkbd()
Select Case A:
Case 81:
Gosub Q
Case 87:
Gosub W
Case 69:
Gosub E
Case 82:
Gosub R
Case 84:
Gosub T
Case 89:
Gosub Y
Case 85:
Gosub U
Case 73:
Gosub I
Case 79:
Gosub O
Case 80:
Gosub P
Case 219:
Gosub Je
Case 221:
Gosub Che
Case 65:
Gosub Ae
Case 83:
Gosub S
Case 68:
Gosub D
Case 70:
Gosub F
Case 71:
Gosub G
Case 72:
Gosub H
Case 74:
Gosub J
Case 75:
Gosub K
Case 76:
Gosub L
Case 186:
Gosub Ke
Case 222:
Gosub Ge
Case 90:
Gosub Z
Case 88:
Gosub X
Case 67:
Gosub C
Case 86:
Gosub V
Case 66:
Gosub B
Case 78:
Gosub N
Case 77:
Gosub M
Case 192:
Gosub Pe
Case 220:
Gosub Jhe
Case 50:
Lowerline
Case 56:
Home
Case 44:
Cls
Home
Case 52:
Shiftcursor Left
Case 54:
Shiftcursor Right
Case 13:
Lowerline
Case 9:
Shiftcursor Right , 4
Case 8:
Shiftcursor Left
Lcd " ";
Shiftcursor Left
Case Else Lcd String(1 , A)
End Select
jmp main
End 'end program
Keydata:
'normal keys lower case
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 27 , 0 , 0 , 0 , 0 , 9 , 9 , &H5E , 0
Data 0 , 0 , 0 , 0 , 0 , 113 , 49 , 0 , 0 , 0 , 122 , 115 , 97 , 119 , 50 , 0
Data 0 , 99 , 120 , 100 , 101 , 52 , 51 , 0 , 0 , 32 , 118 , 102 , 116 , 114 , 53 , 0
Data 0 , 110 , 98 , 104 , 103 , 121 , 54 , 7 , 8 , 44 , 109 , 106 , 117 , 55 , 56 , 0
Data 0 , 44 , 107 , 105 , 111 , 48 , 57 , 0 , 0 , 46 , 45 , 108 , 48 , 112 , 43 , 0
Data 0 , 0 , 0 , 0 , 0 , 92 , 0 , 0 , 0 , 0 , 13 , 0 , 0 , 92 , 0 , 0
Data 0 , 60 , 0 , 0 , 0 , 0 , 8 , 0 , 0 , 49 , 0 , 52 , 55 , 0 , 0 , 0
Data 48 , 44 , 50 , 53 , 54 , 56 , 0 , 0 , 0 , 43 , 51 , 45 , 42 , 57 , 0 , 0
'shifted keys UPPER case
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 81 , 33 , 0 , 0 , 0 , 90 , 83 , 65 , 87 , 34 , 0
Data 0 , 67 , 88 , 68 , 69 , 0 , 35 , 0 , 0 , 32 , 86 , 70 , 84 , 82 , 37 , 0
Data 0 , 78 , 66 , 72 , 71 , 89 , 38 , 0 , 0 , 76 , 77 , 74 , 85 , 47 , 40 , 0
Data 0 , 59 , 75 , 73 , 79 , 61 , 41 , 0 , 0 , 58 , 95 , 76 , 48 , 80 , 63 , 0
Data 0 , 0 , 0 , 0 , 0 , 96 , 0 , 0 , 0 , 0 , 13 , 94 , 0 , 42 , 0 , 0
Data 0 , 62 , 0 , 0 , 0 , 8 , 0 , 0 , 49 , 0 , 52 , 55 , 0 , 0 , 0 , 0
Data 48 , 44 , 50 , 53 , 54 , 56 , 0 , 0 , 0 , 43 , 51 , 45 , 42 , 57 , 0 , 0
Led:
Incr L
If L=< 100 Then
Portd.4 = 0
elseIf L> 100 Then
Portd.4 = 1
End If
if l=200 then l=0
Return
Q:
Deflcdchar 0 , 2 , 32 , 2 , 5 , 7 , 20 , 20 , 28 ' replace 0 with number (0-7)
Cls
Lcd Chr(0)
Return
W:
Deflcdchar 0 , 32 , 32 , 2 , 5 , 7 , 20 , 20 , 28 ' replace 0 with number (0-7)
Cls
Lcd Chr(0)
Return
E:
Deflcdchar 0 , 32 , 4 , 10 , 32 , 17 , 31 , 32 , 32 ' replace 0 with number (0-7)
Cls
Lcd Chr(0)
Return
R:
Deflcdchar 0 , 3 , 32 , 7 , 5 , 7 , 17 , 17 , 31 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
T:
Deflcdchar 0 , 32 , 1 , 32 , 3 , 19 , 31 , 32 , 32 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
Y:
Deflcdchar 0 , 2 , 32 , 7 , 4 , 15 , 8 , 8 , 15 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
U:
Deflcdchar 0 , 32 , 32 , 7 , 4 , 15 , 8 , 8 , 15 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
I:
Deflcdchar 0 , 32 , 2 , 5 , 5 , 31 , 5 , 5 , 2 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
O:
Deflcdchar 0 , 4 , 32 , 4 , 10 , 1 , 6 , 8 , 7 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
P:
Deflcdchar 0 , 32 , 32 , 4 , 10 , 1 , 6 , 8 , 7 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
Je:
Deflcdchar 0 , 4 , 10 , 1 , 6 , 8 , 10 , 8 , 7 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
Che:
Deflcdchar 0 , 4 , 10 , 2 , 12 , 17 , 18 , 17 , 12 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
Ae:
Deflcdchar 0 , 21 , 32 , 21 , 31 , 8 , 4 , 18 , 30 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
S:
Deflcdchar 0 , 32 , 32 , 21 , 31 , 8 , 4 , 18 , 30 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
D:
Deflcdchar 0 , 32 , 32 , 32 , 3 , 2 , 17 , 17 , 14 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
F:
Deflcdchar 0 , 32 , 32 , 32 , 32 , 17 , 31 , 32 , 4 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
G:
Deflcdchar 0 , 32 , 1 , 1 , 1 , 1 , 1 , 17 , 14 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
H:
Deflcdchar 0 , 1 , 31 , 16 , 4 , 4 , 4 , 4 , 4 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
J:
Deflcdchar 0 , 32 , 32 , 10 , 32 , 17 , 31 , 32 , 32 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
K:
Deflcdchar 0 , 32 , 32 , 4 , 32 , 17 , 17 , 17 , 31 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
L:
Deflcdchar 0 , 32 , 2 , 5 , 5 , 31 , 16 , 16 , 16 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
Ke:
Deflcdchar 0 , 32 , 1 , 2 , 4 , 6 , 3 , 17 , 31 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
Ge:
Deflcdchar 0 , 2 , 5 , 10 , 4 , 6 , 3 , 17 , 31 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
Z:
Deflcdchar 0 , 8 , 8 , 10 , 8 , 10 , 13 , 9 , 31 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
X:
Deflcdchar 0 , 8 , 8 , 8 , 8 , 10 , 13 , 9 , 31 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
C:
Deflcdchar 0 , 32 , 1 , 32 , 1 , 1 , 3 , 6 , 28 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
V:
Deflcdchar 0 , 32 , 32 , 32 , 1 , 1 , 3 , 6 , 28 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
B:
Deflcdchar 0 , 4 , 32 , 4 , 6 , 3 , 1 , 3 , 6 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
N:
Deflcdchar 0 , 32 , 32 , 4 , 6 , 3 , 1 , 3 , 6 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
M:
Pe:
Deflcdchar 0 , 32 , 32 , 32 , 17 , 31 , 32 , 10 , 4 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
Jhe:
Deflcdchar 0 , 2 , 5 , 32 , 1 , 1 , 1 , 2 , 12 ' replace ? with number (0-7)
Cls
Lcd Chr(0)
Return
دیدگاه