سلام – چگونه مي توان يك عبارت بر روي ال سي دي كاراكتري مثلا 2*16 به چرخش در آوريم يعني مثلا عبارت hello world از چپ وارد شود واز راست خارج شود دوباره از چپ وارشود و...........
در كد ويژن چطور اين كار رو انجام بدم ؟؟
سلام – چگونه مي توان يك عبارت بر روي ال سي دي كاراكتري مثلا 2*16 به چرخش در آوريم يعني مثلا عبارت hello world از چپ وارد شود واز راست خارج شود دوباره از چپ وارشود و...........
در كد ويژن چطور اين كار رو انجام بدم ؟؟
پس كجا رفتيد ؟؟
$regfile = "m16def.dat"
$crystal = 8000000
$sim
Config Lcdpin = Pin , Db4 = Portc.1 , Db5 = Portc.2 , Db6 = Portc.3 , Db7 = Portc.4_
, E = Portd.2 , Rs = Portd.3
Config Lcd = 16 * 2
Dim A As String * 10
Dim B As String * 1
Dim L As Byte
Dim I As Byte , W As Byte
Dim Y As Byte , X As Byte
Cls
Home
A = "tabriz"
L = Len(a)
For I = 1 To L
B = Mid(a , I , 1)
Y = 16 - I
For W = 1 To Y
X = 16 - W
Locate 1 , X
Lcd B
Incr X
Locate 1 , X
Lcd ""
Waitms 50
Next
Next
Wait 3
End
ایتدا میکرو و فرکانس و شبیه سازی سریع را تعیین می کنیم. دستورات با علامت $ جزو دستورات کامپایلر حساب میشنود و هیچ کدی تولید نمی کنند.
دستورات پیکربندی lcd بعد از انها آمده است .
متغیر رشته ای A با طول حداکثر 10 کاراکتر برای گرفتن متن تعریف شده است .
متغیر رشته ای B هم برای گرفتن کاراکترهای جدا شده از متغیر a تعریف شده است .
دستور mid هم از کاراکتر i ام متغیر a به طول یک واحد در متغیر b قرار می دهد و ...
اگه میخای متن رو تغیر بدی به جای تبریز میتونی هر چیز دیگه ای حداکثر 10 کاراکتری بزاری
اگه مدار رو بنندی میبینی یه ایرادی داره که باید روش فکر کنی و خودت برنامه رو درست کنی !
سلام این برنامه رو با c هم میشه بگید.
dim p as byte
do
for p=1 to 16
locate 1 , p
lcd "hello word
wait 1
next
loop
end
Www.Cmuiran.ir