سلام... من برنامه که یه LCD 16x2 کاراکتری رو به یه تابلو روان با فونت فارسی تبدیل کنه به زبان بیسیک نیاز دارم... لطفا کمک کنید.
با تشکر.
با تشکر.
-
-
پاسخ : درخواست تابلو روان
کدوم قسمتش رو مشکل داری؟
شروع کن مشکلاتت رو بگو تا راه حل بزاریم واسطعلم چندانکه بيشتر خواني چون عمل در تو نيست ناداني -
پاسخ : درخواست تابلو روان
سلام داداشنوشته اصلی توسط ashkan90
اگر خیلی عجله داری من قبلا یک برنامه ساده نوشتم که میشد یک متن فارسی رو توی ال سی دیه کارکتری حرکت داد ولی خیلی ساده یه اگر دوست داری برات بزارم
ولی من با آقا امید بیشتر موافقمنوشته اصلی توسط اٌمید حبیبیمولا علی (ع) میفرمایند : آسوده باش , آستین هارا بالا بزن , بر خدا توکل کن , آنگاه خدا را خواهی دید که زودتر از تو دست به کار شده است .دیدگاه
-
پاسخ : درخواست تابلو روان
چون واسه خودم نمیخوام ترجیح میدم همون آماده باشه!نوشته اصلی توسط iranesabz
ممنون میشم برام پ کنی.دیدگاه
-
پاسخ : درخواست تابلو روان
$regfile = "m32def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , _
Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2
Config Pinb.1 = Input
Dim I As Byte
Cursor Off
Deflcdchar 0 , 32 , 15 , 8 , 8 , 31 , 32 , 32 , 32 ' replace ? with number (0-7)
Deflcdchar 1 , 2 , 2 , 2 , 2 , 31 , 32 , 32 , 32 ' replace ? with number (0-7)
Deflcdchar 2 , 32 , 32 , 32 , 32 , 19 , 18 , 30 , 32 ' replace ? with number (0-7)
Deflcdchar 3 , 32 , 32 , 1 , 1 , 31 , 32 , 12 , 32 ' replace ? with number (0-7)
Deflcdchar 4 , 1 , 1 , 1 , 1 , 1 , 32 , 32 , 32 ' replace ? with number (0-7)
L10:
Cls
Bitwait Pinb.1 , Reset
Do
For I = 1 To 32
Debounce Pinb.1 , 1 , L20
Waitms 100
Shiftlcd Right
Locate 1 , 16
Lcd Chr(2)
Lcd Chr(1)
Lcd Chr(0)
Lcd Chr(4)
Lcd Chr(3)
Lcd " "
Lcd Chr(2)
Lcd Chr(1)
Lcd Chr(0)
Lcd Chr(4)
Lcd Chr(3)
Lcd " "
Lcd Chr(2)
Lcd Chr(1)
Lcd Chr(0)
Lcd Chr(4)
Lcd Chr(3)
Next
Cls
I = 0
For I = 1 To 33
Debounce Pinb.1 , 1 , L20
Waitms 100
Shiftlcd Right
Locate 2 , 15
Lcd Chr(2)
Lcd Chr(1)
Lcd Chr(0)
Lcd Chr(4)
Lcd Chr(3)
Lcd " "
Lcd Chr(2)
Lcd Chr(1)
Lcd Chr(0)
Lcd Chr(4)
Lcd Chr(3)
Lcd " "
Lcd Chr(2)
Lcd Chr(1)
Lcd Chr(0)
Lcd Chr(4)
Lcd Chr(3)
Next
Cls
Loop
L20:
Cls
Bitwait Pinb.1 , Reset
Do
For I = 1 To 11
Locate 1 , I
Lcd "YA ALI"
Waitms 150
Cls
Debounce Pinb.1 , 1 , L30
Next
For I = 1 To 11
Locate 2 , I
Lcd "YA ALI"
Waitms 150
Cls
Debounce Pinb.1 , 1 , L30
Next
Loop
L30:
Cls
Bitwait Pinb.0 , Reset
Do
Debounce Pinb.1 , 1 , L10
Display Off
Waitms 80
Display On
Waitms 80
Locate 1 , 6
Lcd "YA ALI"
Locate 2 , 6
Incr I
Lcd I
Loop
End
سلام راستش این برنامه واسه این نوشته شد که یک سری دستورات ال سی دو رو نمایش بدیم همون طور که میبینید هر برچسبی با فشردن کلید یک کاری می کنه و فقط برچسب اول بدرد شما میخوره که البته خیلی ساده نوشته شده است . امید است که بدردتون بخوره .مولا علی (ع) میفرمایند : آسوده باش , آستین هارا بالا بزن , بر خدا توکل کن , آنگاه خدا را خواهی دید که زودتر از تو دست به کار شده است .دیدگاه
دیدگاه