(۲۳-آبان-۱۳۸۸, ۲۲:۵۸:۴۲)elish نوشته است: [ -> ]سلام يه تابلو روان مي خوام كه مثلا happy birthday رو از سمت راست تابلو يك حرف يك حرف وارد كنه . زبانش بيسيك باشه و از دستوراتي مثل m = len (a و p = left(a,2 و ... هم داخل برنامه استفاده شه . lcd16*2 هستش . ممنونم . كمك كنيد .اینی که میخوای تابلو روان نیست که!!!
For a = 1 To 16
S = Mid(Ss , A , 1 ) : Locate 2 , A : Lcd S
Next
$regfile = "m16def.dat"
$crystal = 8000000
Config Portc = Output
Config Lcd = 16 * 2
Config Lcdbus = 4
Config Lcdpin = Pin , Rs = Pinc.0 , Db4 = Pinc.4 , Db5 = Pinc.5 , Db6 = Pinc.6 , Db7 = Pinc.7 , E = Pinc.2
Dim S As Eram String * 1 , A As Byte , D As String * 1 , M As Byte , B As Byte
Cls
Home
S = "HAPPY BIRTHDAY TO YOU"
M = Len(s)
Locate 1 , 16
For A = 16 To 1 Step -1
D = Mid(s , A , 1 ) : Locate 1 , A : Lcd D
Waitms 100
Next
End For A = 16 To 1 Step -1
D = Mid(s , A , 1 ) : Locate 1 , A : Lcd D
Waitms 100
Next
For a = 1 To 16
S = Mid(Ss , A , 1 ) : Locate 2 , A : Lcd S
Next
$regfile = "m16def.dat" : $crystal = 1000000
Config Lcdpin = Pin , Rs = Pinc.0 , Db4 = Pinc.4 , Db5 = Pinc.5 , Db6 = Pinc.6 , Db7 = Pinc.7 , E = Pinc.2
Config Lcd = 16 * 2 : Cursor Off : Cls
Dim S As String * 16 , Ss As String * 16
Dim A As Byte , D As String * 1 , M As Byte , B As Byte
S = " HAPPY BIRTHDAY "
Ss = "WWW.IRANLED.COM"
For A = 16 To 1 Step -1
D = Mid(s , A , 1 ) : Locate 1 , A : Lcd D
Waitms 200
Next
For a = 1 To 16
D = Mid(ss , A , 1 ) : Locate 2 , A : Lcd D
Waitms 200
Next
Wait 3
For A = 1 To 16
Locate 1 , A : Lcd " "
Waitms 200
Next
For A = 16 To 1 Step -1
Locate 2 , A : Lcd " "
Waitms 200
Next
Wait 3
End