سلام.
داداشی از خوشی این که عربی نمیوفتم تو پُست خودم نمی گنجم.
کد:
$regfile = "M32def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2
Config Lcd = 16 * 2
Cls
Dim A As String * 10
Dim Pice As String * 1
Dim L As Byte
Dim W As Byte
Dim X As Byte
Dim Y As Byte
Dim I As Byte
Deflcdchar 0 , 32 , 1 , 1 , 1 , 1 , 1 , 1 , 32 ' replace [x] with number (0-7)
Deflcdchar 1 , 32 , 1 , 1 , 1 , 31 , 32 , 10 , 32 ' replace [x] with number (0-7)
Deflcdchar 2 , 32 , 32 , 32 , 1 , 1 , 2 , 12 , 32 ' replace [x] with number (0-7)
Deflcdchar 3 , 32 , 4 , 4 , 4 , 4 , 4 , 4 , 32 ' replace [x] with number (0-7)
Deflcdchar 4 , 32 , 32 , 17 , 21 , 17 , 17 , 31 , 32 ' replace [x] with number (0-7)
Deflcdchar 5 , 32 , 32 , 3 , 5 , 7 , 1 , 2 , 4 ' replace [x] with number (0-7)
Deflcdchar 6 , 32 , 1 , 1 , 1 , 31 , 32 , 10 , 32 ' replace [x] with number (0-7)
Deflcdchar 7 , 32 , 31 , 2 , 4 , 8 , 18 , 8 , 7 ' replace [x] with number (0-7)
Cursor Off
Locate 1 , 1 : Lcd "Www.IranLed.Com" : Locate 2 , 1 : Lcd "h.unique" : Wait 2 : Cls
Do
Y = 16
For I = 0 To 7 Step 1
Locate 1 , Y
Lcd Chr(i)
Decr Y
Waitms 500
Next I
Wait 2 : Cls : Wait 1
Locate 1 , 9 : Lcd Chr(7) ; Chr(6) ; Chr(5) ; Chr(4) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(0) : Wait 1 : Cls : Wait 1
Locate 1 , 9 : Lcd Chr(7) ; Chr(6) ; Chr(5) ; Chr(4) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(0) : Wait 1 : Cls : Wait 1
Locate 1 , 9 : Lcd Chr(7) ; Chr(6) ; Chr(5) ; Chr(4) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(0) : Wait 1
For Y = 9 To 16 Step 1
Locate 1 , Y
Lcd " "
Waitms 500
Next Y
Locate 1 , 9 : Lcd Chr(7) ; Chr(6) ; Chr(5) ; Chr(4) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(0) : Wait 1 : Cls : Wait 1
Locate 1 , 9 : Lcd Chr(7) ; Chr(6) ; Chr(5) ; Chr(4) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(0) : Wait 1 : Cls : Wait 1
Locate 1 , 9 : Lcd Chr(7) ; Chr(6) ; Chr(5) ; Chr(4) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(0) : Wait 1
Loop
End
نکته : شبیه ساز و سورس رو پیوست کردم.
