۲۰-دى-۱۳۸۶, ۰۹:۰۳:۳۳
۰۱-بهمن-۱۳۸۶, ۱۶:۳۷:۰۵
ممنونم آقا هادی
راستش من می خوام lcd را که با گفتم راه بندازم بعد از کلی کلنجار رفتن فقط تونستم back light را روشن کنم ، تمام پایه ها را تست اهمی کردم و همه چی مرتبه اما روی lcd هیچی نمایش داده نمی شه حتی یه نقطه ، برنامه ای که نوشتم اینه:
$regfile = "m32def.dat"
$crystal = 8000000
$lib "glcdks108.lbx"
$include "font8*8.font"
Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portc , Ce1 = 0 , Ce2 = 1 , Cd = 3 , Rd = 4 , Reset = 2 , Enable = 5
Dim A1 As Word
Dim X As Integer
Dim Y As Integer
Dim S As Single
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Cls
Line(64 , 32) -(127 , 32) , 255 'vertical axes
Line(2 , 0) -(2 , 63) , 255 'horizontal axes
Line(2 , 0) -(4 , 6) , 255 'pointer vertical
Line(2 , 0) -(0 , 6) , 255
Line(125 , 32) -(121 , 34) , 255 'pointer horizontal
Line(125 , 32) -(121 , 30) , 255
Lcdat 1 , 3 , "A" 'label of vertical axes
Lcdat 124 , 33 , "t" 'label of horizontal axes
Do
For X = 4 To 127
A1 = Getadc(0)
S = A1 / 4
Y = 64 - Int(s)
Line(x , 0) -(x , 32) , 0
Pset X , Y , 1
Pset X , 32 , 1
Waitms 1
Next
Loop
End
راستش من می خوام lcd را که با گفتم راه بندازم بعد از کلی کلنجار رفتن فقط تونستم back light را روشن کنم ، تمام پایه ها را تست اهمی کردم و همه چی مرتبه اما روی lcd هیچی نمایش داده نمی شه حتی یه نقطه ، برنامه ای که نوشتم اینه:
$regfile = "m32def.dat"
$crystal = 8000000
$lib "glcdks108.lbx"
$include "font8*8.font"
Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portc , Ce1 = 0 , Ce2 = 1 , Cd = 3 , Rd = 4 , Reset = 2 , Enable = 5
Dim A1 As Word
Dim X As Integer
Dim Y As Integer
Dim S As Single
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Cls
Line(64 , 32) -(127 , 32) , 255 'vertical axes
Line(2 , 0) -(2 , 63) , 255 'horizontal axes
Line(2 , 0) -(4 , 6) , 255 'pointer vertical
Line(2 , 0) -(0 , 6) , 255
Line(125 , 32) -(121 , 34) , 255 'pointer horizontal
Line(125 , 32) -(121 , 30) , 255
Lcdat 1 , 3 , "A" 'label of vertical axes
Lcdat 124 , 33 , "t" 'label of horizontal axes
Do
For X = 4 To 127
A1 = Getadc(0)
S = A1 / 4
Y = 64 - Int(s)
Line(x , 0) -(x , 32) , 0
Pset X , Y , 1
Pset X , 32 , 1
Waitms 1
Next
Loop
End
۰۲-بهمن-۱۳۸۶, ۰۴:۱۸:۰۸
در پورت c شما tag را disable کردید؟
تو پروتوس جواب گرفتید؟
پایه های 18 و 3 رو به هم وصل کردید؟با مقاومتی؟
الان ولتاژ روی پایه 3 چند هست؟
تو پروتوس جواب گرفتید؟
پایه های 18 و 3 رو به هم وصل کردید؟با مقاومتی؟
الان ولتاژ روی پایه 3 چند هست؟
۰۳-بهمن-۱۳۸۶, ۰۰:۲۶:۰۸
پایه 3 و 18 را با یک پتانسیو متر 10 کیلو به هم وصل کردم .
پروتوس هم که تازه فهمیدم چی هست و حتی محیطش را تا حالا ندیدم.
می مونه غیر فعال کردن تگ در پورت c که این کار هم انجام ندادم چرا باید غیر فعال بشه؟
ممنون از راهنماییتون .
پروتوس هم که تازه فهمیدم چی هست و حتی محیطش را تا حالا ندیدم.
می مونه غیر فعال کردن تگ در پورت c که این کار هم انجام ندادم چرا باید غیر فعال بشه؟
ممنون از راهنماییتون .
۰۳-بهمن-۱۳۸۶, ۰۰:۳۶:۴۳
مرسی
۰۳-بهمن-۱۳۸۶, ۱۶:۳۷:۴۹
age jtag ro disable nakoni nemitoni az in port khoroji begiri
۰۳-بهمن-۱۳۸۶, ۱۶:۴۰:۳۲
ممنون از راهنماییتون ، تگش را غیر فعال می کنم و امتحان می کنم .
فقط یه سوال به نظر شما برنامه ای که نوشتم مشکلی نداره؟
فقط یه سوال به نظر شما برنامه ای که نوشتم مشکلی نداره؟
۰۳-بهمن-۱۳۸۶, ۱۸:۱۷:۰۰
:cry: :cry: :cry:
دوباره سلام ، من همین الان 3 تا برنامه را چک کردم ، یعنی آی سی را باهاشون پروگرم کردم اما دریغ از یه نقطه روی LCD ، برنامه ها را از همین بحث برداشتم برنامه هایی که دوستان گفته بودن جواب گرفتن . دست آخر شک کردم نکنه اشتباه پروگرم می کنم .
پروگرمر منSKT300 هست .اول IC را پروگرم می کنم بعد که bascom پیغام identify داد پروگرمر را از مدار جدا می کنم ، اونوقت باید lcd یه چیزی نشون بده ! غیر از اینه:
برنامه هایی هم که اجرا نشد به شرح زیره:
$regfile = "m32def.dat"
$lib "glcdks108.lbx"
$crystal = 8000000
Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portc , Ce1 = 0 , Ce2 = 1 , Cd = 3 , Rd = 4 , Reset = 2 , Enable = 5
Setfont Font8x8
$include "font8x8.font"
Cls
Locate 1 , 1 : Lcd "hello WORLD"
Circle(40 , 40) , 15 , 255
End
و دیگری:
$regfile = "m32def.dat"
$crystal = 8000000
$lib "glcdKS108.lbx"
Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portc , Ce1 = 0 , Ce2 = 1 , Cd = 3 , Rd = 4 , Reset = 2 , Enable = 5
Cls
Setfont Font8x8
Lcdat 1 , 1 , "1234567890123456"
Wait 1
End
$include "font8x8.font"
یکی به من بگه مشکلم کجاست . ضمننا تگ پورت c را هم disable کردم.
دوباره سلام ، من همین الان 3 تا برنامه را چک کردم ، یعنی آی سی را باهاشون پروگرم کردم اما دریغ از یه نقطه روی LCD ، برنامه ها را از همین بحث برداشتم برنامه هایی که دوستان گفته بودن جواب گرفتن . دست آخر شک کردم نکنه اشتباه پروگرم می کنم .
پروگرمر منSKT300 هست .اول IC را پروگرم می کنم بعد که bascom پیغام identify داد پروگرمر را از مدار جدا می کنم ، اونوقت باید lcd یه چیزی نشون بده ! غیر از اینه:
برنامه هایی هم که اجرا نشد به شرح زیره:
$regfile = "m32def.dat"
$lib "glcdks108.lbx"
$crystal = 8000000
Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portc , Ce1 = 0 , Ce2 = 1 , Cd = 3 , Rd = 4 , Reset = 2 , Enable = 5
Setfont Font8x8
$include "font8x8.font"
Cls
Locate 1 , 1 : Lcd "hello WORLD"
Circle(40 , 40) , 15 , 255
End
و دیگری:
$regfile = "m32def.dat"
$crystal = 8000000
$lib "glcdKS108.lbx"
Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portc , Ce1 = 0 , Ce2 = 1 , Cd = 3 , Rd = 4 , Reset = 2 , Enable = 5
Cls
Setfont Font8x8
Lcdat 1 , 1 , "1234567890123456"
Wait 1
End
$include "font8x8.font"
یکی به من بگه مشکلم کجاست . ضمننا تگ پورت c را هم disable کردم.
۰۴-بهمن-۱۳۸۶, ۰۰:۵۲:۲۳
سلام
ببین اول بگو ببینیم lcd روشن میشه یا نه؟
اگه روشن میشه یه برنامه بنویس که مثلا یه led روشن و خاموش شه بعد ببین این برنامه عمل میکنه یا نه با این کار شما میتونی تست کنی که ic پرگرام میشه یا نه
اگه led روشن شد یعنی مشکل از سخت افزار هست بعد همه پایه ها رو تست کن ببین درست وصل کردی یا نه
ولتاژ پایه 3 رو هم بگیر ببین چند هست باید حدود 7- ولت باشه
درست میشه نگران نباش
شما اولیش نیستی که مشکل داری اخریش هم نیستی
من تا چند روز پیش با یه دونه از این lcd ها مشکل داشتم خبرش رو بده
ببین اول بگو ببینیم lcd روشن میشه یا نه؟
اگه روشن میشه یه برنامه بنویس که مثلا یه led روشن و خاموش شه بعد ببین این برنامه عمل میکنه یا نه با این کار شما میتونی تست کنی که ic پرگرام میشه یا نه
اگه led روشن شد یعنی مشکل از سخت افزار هست بعد همه پایه ها رو تست کن ببین درست وصل کردی یا نه
ولتاژ پایه 3 رو هم بگیر ببین چند هست باید حدود 7- ولت باشه
درست میشه نگران نباش
شما اولیش نیستی که مشکل داری اخریش هم نیستی

من تا چند روز پیش با یه دونه از این lcd ها مشکل داشتم خبرش رو بده
۰۴-بهمن-۱۳۸۶, ۱۶:۴۸:۱۹
از توجه شما یک دنیا ممنون .
ولتاژ پایه 3 حدود 12- ولته و خود lcd هم روشن میشه ، الان led ندارم که امتحان کنم یه برنامه برای lcd text می نویسم امتحان می کنم و خبرشا می دم!!!!!!!!!!!!!!!!!!!!!!
ولتاژ پایه 3 حدود 12- ولته و خود lcd هم روشن میشه ، الان led ندارم که امتحان کنم یه برنامه برای lcd text می نویسم امتحان می کنم و خبرشا می دم!!!!!!!!!!!!!!!!!!!!!!
۰۴-بهمن-۱۳۸۶, ۲۳:۱۲:۴۴
سلام
ولتاژ پایه 3 رو به حدود 7- کاهش بدید به قول اقا هادی ممکنه شما با رنگ سفید رو سفید مینویسید برا همین چیزی معلوم نیست
در ضمن جمله قشنگی از شریعتی نوشتید!
ولتاژ پایه 3 رو به حدود 7- کاهش بدید به قول اقا هادی ممکنه شما با رنگ سفید رو سفید مینویسید برا همین چیزی معلوم نیست
در ضمن جمله قشنگی از شریعتی نوشتید!