اطلاعیه

Collapse
No announcement yet.

ال سی دی گرافی رو راه انداختم اما اشتباه نشون میده.

Collapse
X
 
  • فیلتر
  • زمان
  • Show
Clear All
new posts

    ال سی دی گرافی رو راه انداختم اما اشتباه نشون میده.

    سلام. من این سوال رو تو قسمت ال سی دی ها هم کردم اما جوابی ندادند بهم.
    سلام من یه ال سی دی گرافیکی مدل TS12864 گرفتم . برای راهاندازیش بهب یک مشکل برخوردم.من هم عکس رو میتونم روش نمایش بدم هم نوشته رو اما موقع نمایش فقط یه تیکه از عکس رو نشون میده و همون رو رو ال سی دی چند بار تکرار میکنه. نوشته رو هم همینطور. این هم کدی هست که استفاده میکنم
    کد: [انتخاب]



    $regfile = "m16def.dat"
    $crystal = 1000000
    $lib "glcdKS108.lib"

    Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portd , _
    Ce = 4 , Ce2 = 3 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2
    $include "font8x8.font"
    Setfont Font8x8
    Cls


    Do
    Showpic 0 , 0 , Ax

    Wait 2
    Cls

    Lcdat 1 , 1 , "goftoman.owrang.net
    Wait 1
    Loop

    Ax:
    $bgf "pics.bgf"

    کسی میدونه مشکل از کجاست؟

    #2
    پاسخ : ال سی دی گرافی رو راه انداختم اما اشتباه نشون میده.

    سلام
    این هم یک کده برای ال سی دی گرافیکی شاید بتونه کمکت بکنه
    در ضمن در قسمت line جای x1,x2,y1,y2 عدد بزار ببین درست کار می کنه؟
    اگر درست کار نکرد مشکل حتما توی سیم بندی هست احتمالا روی برد برد راه انداختی؟
    کد:
    '---------------------------------------------------------------
    'Digital Graph Drawer <Graph.bas>
    'Programmer: Behnam Zakizadeh (Behnamzaki@hotmail.com) AVR64.com
    'Compiler: BASCOM 1.11.9.1
    'Creation Date: Aug 26, 2009 (1388.06.04)
    'Copyright: (C) 2009 By www.avr64.com
    'Licence: This Is A Free Firmware, Ver: 1.00
    '---------------------------------------------------------------
    $regfile = "m32def.dat"
    $crystal = 8000000
    $hwstack = 64
    $swstack = 64
    $framesize = 64
    
    Dim W As Word
    $lib "glcdKS108.lbx"
    'Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portc , Ce = 4 , Ce2 = 3 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2
    Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portd , Ce2 = 3 , Ce = 2 , Cd = 5 , Rd = 7 , Reset = 1 , Enable = 6
    '--------------------------------------------------------------
    Dim A As Byte , B As Byte
    Dim X1 As Byte , X2 As Byte , Y1 As Byte , Y2 As Byte
    Dim Arr(26) As Byte , Temp(26) As Byte
    Dim S As Byte
    Dim Index As Byte
    Dim Index2 As Byte
    Dim Tmp As Byte
    '-------------------- Main Prog Start Here:
    
    
    Do
    '  Cls
      Showpic 0 , 0 , Pic1
     
         Line(x1 , Y1) -(x2 , Y2) , 255
      Waitms 500                        'Scan Speed
    Loop
    End
    Pic1:
    $bgf "Grid.bgf"
    پیروزی یعنی : توانایی رفتن از یک شکست ، به شکستی دیگر بدون از دست دادن اشتیاق . . .
    ------------------------------------------------------------ - - -
    صبرت که تمام شد نرو!
    "معرفت"
    تازه از آن لحظه آغاز می شود...

    دیدگاه


      #3
      پاسخ : ال سی دی گرافی رو راه انداختم اما اشتباه نشون میده.

      تشکر . آره سیم کشی برد بردممشکل داشت.

      دیدگاه

      لطفا صبر کنید...
      X