lcd گرافیکی k0108 در بیسکام

[zavar]

من lcd گرافیکی k0108 را در بیسکام جواب نمیگیرم اگر کسی جواب گرفته کمک کنه

[هنرفر]

تو پروتئوس تست کردید یا عملی؟ال سی دی گرافیکی تو پروتئوس با بسکام جواب نمیده.نمیدونم چرا..

[zavar]

تو پروتئوس من یک فایل از اینترنت گرفتم با بیسکام بود که تو پروتئوسم جواب میداد اما وقتی با کامپایلر خودم کامپایل کردم دیگه جواب نداد چند تا کامپایلر دیگه هم تست کردم نشد شما عملی ازش جواب گرفتی؟البته همین مدلk0108 را میگما

[zavar]

کسی نیست به ما کمک کنه

[MEYSAMHL]

سلام من با این نوع ال سی دی ks108 کار کردم .... البته عملی جواب گرفتم ولی همون برنامه عملی رو توی پروتئوس تست کردم جواب نداد .... به هر حال عملی مهم بود که جواب گرفتم.
مشکل شما شاید یکی از گزینه های زیر باشه :
1-پیکر بندی اشتباه ال سی دی در بسکام که با دستور زیر انجام میشه
Config Graphlcd = 128 * 64sed , Dataport = Portc , Controlport = Portd , Ce = 3 , _
Ce2 = 4 , Cd = 6 , Rd = 5 , Reset = 2 , Enable = 7
شاید یکی از پایه ها رو اشتباه زده باشید

2-مهمترین بخش .....>>>> فراخوانی کتابخانه مربوط به این نوع از ال سی دی ها در بسکام
$lib "glcdks108.lib"

3- اگه روی ال سی دی عبارات نامفهوم نوشته میشه حتما این دستور رو در برنامه ننوشتید
$include "font8x8.font"
Setfont Font8x8

4- اخرین حدس >>>> اگر همه ی مراحل بالا رو درست انجام دادید ممکنه lcd شما از نوعی که بسکام ساپرت میکنه نباشه .

من با این برنامه(زیر) جواب گرفتم و هنوز هم باهاش کار میکنم اگه این برنامه رو لود کردید و جواب نگرفتید مشکل شما مربوط به مورد های 1 و 4 که بالا نوشتم میشه و مشکل از برنامه نیست .

$crystal = 8000000
$regfile = "m32def.dat"
$lib "glcdks108.lib"

Config Graphlcd = 128 * 64sed , Dataport = Portc , Controlport = Portd , Ce = 3 , _
Ce2 = 4 , Cd = 6 , Rd = 5 , Reset = 2 , Enable = 7
Cls
$include "font8x8.font"
Setfont Font8x8
do
"cls:Lcdat 5 , 64 ,"kavir electronic
wait 1
loop

[morteza_rk]

سلام

من هم مثل شماها نمی تونستم LCD گرافیکی نوع ks108 رو با پروتیوس شبیه سازی کنم (البته در عمل مشکلی نبود). مشکل هم از کتابخونه ی بسکام هست! اما یکی از دوستان توی همین سایت راهنمائیم کرد و کتابخونه هایی بهم داد که این مشکل رفع شد.

اگه توی همین سایت جستجو کنید قطعا اون تاپیکی رو که من مشکلم توش حل شد پیدا می کنید. منم سعی می کنم که تا فردا خودم لینکشو بذارم. اما الان وقتم کمه.

موفق باشید.

[zavar]

اگه لینکشا بذارید ممنون میشم من واقعا احتیاج دارم ممنون

[zavar]

با سلام مشگل حل شد این کتابخونه را به جای کتابخونه بیسکام کپی کنید درست میشهlib.rar
با تشکر از راهنمایی آقای morteza_rk

[mehdi29665]

سلام
من این برنامه رو تست کردم جواب داد

$regfile = "M16def.dat"
$crystal = 8000000
$lib "GLCD.lbx"
Config Graphlcd = 128 * 64 , Dataport = Porta , Controlport = Portc , Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 6
Dim X As Byte , Y As Byte , Sx As Byte , Sy As Byte
cursor off
Cls
X = Rnd(125)
Y = Rnd(60)

Do

If Sx = 0 Then Incr X Else Decr X
If Sy = 0 Then Incr Y Else Decr Y
Pset X , Y , 255
Waitms 5
If X = 125 Then Sx = 1
If Y = 63 Then Sy = 1
If X = 1 Then Sx = 0
If Y = 1 Then Sy = 0

Loop

End

- - - Updated - - -

اینم اتصالات و نوع ال سی دی در پروتئوس

[mehdi29665]

سلام
من این برنامه رو تست کردم جواب داد

$regfile = "M16def.dat"
$crystal = 8000000
$lib "GLCD.lbx"
Config Graphlcd = 128 * 64 , Dataport = Porta , Controlport = Portc , Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 6
Dim X As Byte , Y As Byte , Sx As Byte , Sy As Byte
cursor off
Cls
X = Rnd(125)
Y = Rnd(60)

Do

If Sx = 0 Then Incr X Else Decr X
If Sy = 0 Then Incr Y Else Decr Y
Pset X , Y , 255
Waitms 5
If X = 125 Then Sx = 1
If Y = 63 Then Sy = 1
If X = 1 Then Sx = 0
If Y = 1 Then Sy = 0

Loop

End

- - - Updated - - -

اینم اتصالات و نوع ال سی دی در پروتئوس

البته عکس اضافه نشد ولی اتصلات داخل برنامه مشخصه و نوع ال سی دی هم lm4228 میباشد