M3R
12-08-2009, 15:59
با سلام.
من این برنامه رو از اینترنت گرفتم که رو lcd یه خط رو نشون میده که بالا و پایین میشه.
$regfile = "2313def.dat"
$crystal = 4000000
$sim
Config Portd = Output
Dim Mbar As Byte
Cursor Off
Deflcdchar 0 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 6
Deflcdchar 1 , 32 , 32 , 32 , 32 , 32 , 32 , 6 , 6
Deflcdchar 2 , 32 , 32 , 32 , 32 , 32 , 6 , 6 , 6
Deflcdchar 3 , 32 , 32 , 32 , 32 , 6 , 6 , 6 , 6
Deflcdchar 4 , 32 , 32 , 32 , 6 , 6 , 6 , 6 , 6
Deflcdchar 5 , 32 , 32 , 6 , 6 , 6 , 6 , 6 , 6
Deflcdchar 6 , 32 , 6 , 6 , 6 , 6 , 6 , 6 , 6
Deflcdchar 7 , 6 , 6 , 6 , 6 , 6 , 6 , 6 , 6
Cls
Do
Portd = 255
Locate 1 , 16
Lcd " "
Waitms 100
For Mbar = 0 To 7 Step 1
Locate 1 , 16
Lcd Chr(mbar)
Waitms 100
Next Mbar
For Mbar = 6 To 0 Step -1
Locate 1 , 16
Lcd Chr(mbar)
Waitms 100
Next Mbar
Portd = 0
Waitms 100
Loop
End
Lcd Chr(mbar) اینو نفهمیدم چطوری نشون میده؟؟؟؟؟:huh:
آخه اون کاراکترها رو که تو این ریجستر نریخته که رو lcd داره این ریجستر رو نشون میده.
من این برنامه رو از اینترنت گرفتم که رو lcd یه خط رو نشون میده که بالا و پایین میشه.
$regfile = "2313def.dat"
$crystal = 4000000
$sim
Config Portd = Output
Dim Mbar As Byte
Cursor Off
Deflcdchar 0 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 6
Deflcdchar 1 , 32 , 32 , 32 , 32 , 32 , 32 , 6 , 6
Deflcdchar 2 , 32 , 32 , 32 , 32 , 32 , 6 , 6 , 6
Deflcdchar 3 , 32 , 32 , 32 , 32 , 6 , 6 , 6 , 6
Deflcdchar 4 , 32 , 32 , 32 , 6 , 6 , 6 , 6 , 6
Deflcdchar 5 , 32 , 32 , 6 , 6 , 6 , 6 , 6 , 6
Deflcdchar 6 , 32 , 6 , 6 , 6 , 6 , 6 , 6 , 6
Deflcdchar 7 , 6 , 6 , 6 , 6 , 6 , 6 , 6 , 6
Cls
Do
Portd = 255
Locate 1 , 16
Lcd " "
Waitms 100
For Mbar = 0 To 7 Step 1
Locate 1 , 16
Lcd Chr(mbar)
Waitms 100
Next Mbar
For Mbar = 6 To 0 Step -1
Locate 1 , 16
Lcd Chr(mbar)
Waitms 100
Next Mbar
Portd = 0
Waitms 100
Loop
End
Lcd Chr(mbar) اینو نفهمیدم چطوری نشون میده؟؟؟؟؟:huh:
آخه اون کاراکترها رو که تو این ریجستر نریخته که رو lcd داره این ریجستر رو نشون میده.