اطلاعیه

Collapse
No announcement yet.

مشکل با نوشتن font 16x16 در GLCD

Collapse
X
Collapse
 
  • صفحه of 1
  • فیلتر
  • زمان
  • Show
Clear All
new posts
قبلی template بعدی
    #1

    مشکل با نوشتن font 16x16 در GLCD

    سلام
    من تازه با ال سی دی گرافیکی شروع کردم به کار کردن که به یه مشکل عجیب برخوردم! :eek: ،همه چیز تا زمانی که با فونت 8 مینویسم درسته ولی وقتی فونت و به 16 تغییر میدم هیچی نشون نمیده :angry:
    اینم سورس برنامم:
    $regfile = "m32def.dat"
    $crystal = 1000000
    $lib "glcdKS108.lbx"
    $include "font16x16.font"
    Config Graphlcd = 128 * 64sed , Dataport = Portc , Controlport = Portd , _
    Ce = 2 , Ce2 = 3 , Cd = 6 , Rd = 5 , Reset = 1 , Enable = 4
    Config Portc = Output
    Config Portd = Output
    Cls
    Waitms 200
    Setfont Font16x16
    Lcdat 2 , 20 , "X="
    End
    اگه 16 ها رو بکنم 8 همه چیز درست میشه ولی با فونت 16 هیچی نشون نمیده (برنامه کامپایل میشه ولی تو عمل رو ال سی دی هیچی نشنون نمیده!)
    The harder I work, the luckier I get
    برچسب ها: 16x16, font, glcd, با, در, مشکل, نوشتن
    #2
    پاسخ : مشکل با نوشتن font 16x16 در GLCD

    چک کنید که ایا این فونت رو دارید اصلا
    در ضمن شما از چه دیتا شیتی واسه این lcd ها استفاده میکنید؟

    دیدگاه

      #3
      پاسخ : مشکل با نوشتن font 16x16 در GLCD

      آره فونتو تو مسیر نصب برنامه قرار دادم ولی بازم نمیشه!
      منظورتان از دیتا شیت چیه؟ چند تا دیتاشیت واسه یه قطعه هست مگه؟ از دیتاشیت خود ks0108
      The harder I work, the luckier I get

      دیدگاه

        #4
        پاسخ : مشکل با نوشتن font 16x16 در GLCD

        اگه میشه یه عکس از این lcd که خریدین بزارین ببینم
        من چند وقت پیش یکی از اینا خریدم هنوز نتونستم راش بندازم
        نمیدونم اصلا سالمه یانه
        تا حالا چند تا دیتا شیت مختلف رو امتحان کردم
        با تشکر

        دیدگاه

          #5
          پاسخ : مشکل با نوشتن font 16x16 در GLCD

          اینم عکس برای شما (با فونت 8*8)


          آقا یعنی تو این فروم کسی با فونت 16*16 کار نکرده؟؟ :angry:
          من شکم به اینه که فونتم اشکال داره اگه کسی با فونت 16*16 کار کرده و جواب گرفته میتونه یه جا پلود کنه ما هم استفاده بکنیم؟
          The harder I work, the luckier I get

          دیدگاه

            #6
            پاسخ : مشکل با نوشتن font 16x16 در GLCD

            :cry: :cry:
            هیشکی نبود کمک کنه؟
            The harder I work, the luckier I get

            دیدگاه

              #7
              پاسخ : مشکل با نوشتن font 16x16 در GLCD

              برنامه را به اینصورت بنویسید:

              $regfile = "m32def.dat"
              $crystal = 1000000
              $lib "glcdKS108.lbx"

              Config Graphlcd = 128 * 64sed , Dataport = Portc , Controlport = Portd , _
              Ce = 2 , Ce2 = 3 , Cd = 6 , Rd = 5 , Reset = 1 , Enable = 4
              Cls
              Waitms 200
              Setfont Font16x16
              Lcdat 2 , 20 , "X="
              Do
              Loop
              End
              $include "font16x16.font"
              اوژن: به معنای افکننده و شکست دهنده است
              دانایی، توانایی است-Knowledge is POWER
              برای حرفه ای شدن در الکترونیک باید با آن زندگی کرد
              وضعمان بهتر می شود، اگر همه نسبت به جامعه و اطراف خود مسوول باشیم و نگوئیم به ما چه
              قوی شدن و خوب ماندن - خوبی کردن به دیگران یک لذت ماندگار است
              اگر قرار باشد نفت و منابع خام را بدهیم و چرخ بگیریم، بهتر است چرخ را از نو اختراع کنیم
              ساعت کار بدن اکثر انسان ها کمتر از 800000 ساعت است و بعد از آن از کار می افتد

              دیدگاه

                #8
                پاسخ : مشکل با نوشتن font 16x16 در GLCD

                خیلی ممنون جناب طراح مشکلم حل شد
                The harder I work, the luckier I get

                دیدگاه

                  #9
                  پاسخ : مشکل با نوشتن font 16x16 در GLCD

                  سلام
                  می خواستم از شما بپرسم مشکلت چطوری حل شد؟؟ آخه این برنامه با اونی که خودت نوشته بودی زیاد فرق نمی کنه؟؟
                  درضمن من خودم همه راهها را امتحان کردم ولی نشد!!!!
                  میشه بیشتر توضیح بدی چیکار کردی؟
                  ممنون
                  حاصلظرب توان در ادعا مقداری ثابت است.هرچه توان انسان کمتر باشد ادعای او بیشتر است و هرچه توان انسان بیشتر شود ادعایش کمتر میگردد.(دکتر حسابی)

                  دیدگاه

                    #10
                    پاسخ : مشکل با نوشتن font 16x16 در GLCD

                    کد:
                    [left]
Declare Sub Lcdtext(byval S As String , Byval Xoffset As Byte , Byval Yoffset As Byte , Byval Fontset As Byte , Byval Inverse As Byte , Byval Rotation As Byte)

Sub Lcdtext(byval S As String , Xoffset As Byte , Yoffset As Byte , Fontset As Byte , Inverse As Byte , Rotation As Byte)
Local Tempstring As String * 1 , Temp As Byte                  'Dim local the variables
Local A As Byte , Pixels As Byte , Count As Byte , Carcount As Byte , Lus As Byte
Local Row As Byte , Byteseach As Byte , Blocksize As Byte , Dummy As Byte
Local Colums As Byte , Columcount As Byte , Rowcount As Byte , Stringsize As Byte
Local Xpos As Byte , Ypos As Byte , Pixel As Byte , Pixelcount As Byte
If Inverse > 1 Then Inverse = 0                         'There are only 4 rotation's
Stringsize = Len(s) - 1                             'Size of the text string -1 because we must start with 0
For Carcount = 0 To Stringsize                         'Loop for the numbers of caracters that must be displayed

 If Fontset = 1 Then Restore font16x16                     'Add or remove here fontset's that you need or not,
                     'this is the name that you gave to the font, NOT the filename
          'right on top.
 
 Temp = Carcount + 1                              'Cut the text string in seperate caracters
Tempstring = Mid(s , Temp , 1)
Read Row : Read Byteseach : Read Blocksize : Read Dummy             'Read the first 4 bytes from the font file
Temp = Asc(tempstring) - 32                           'Font files start with caracter 32
For Lus = 1 To Temp                               'Do dummie read to point to the correct line in the fontfile
  For Count = 1 To Blocksize
  Read Pixels
  Next Count
Next Lus
Colums = Blocksize / Row                            'Calculate the numbers of colums
Row = Row * 8                                  'Row is always 8 pixels high = 1 byte, so working with row in steps of 8.
Row = Row - 1                                  'Want to start with row=0 instead of 1
Colums = Colums - 1                               '0 degrees rotation
      For Rowcount = 0 To Row Step 8                   'Loop for numbers of rows
         A = Rowcount + Yoffset
         For Columcount = 0 To Colums                 'Loop for numbers of Colums
           Read Pixels : If Inverse = 1 Then Toggle Pixels      'Read the byte from the file and if inverse = true then invert de byte
           Xpos = Columcount                     'Do some calculation to get the caracter on the correct Xposition
           Temp = Carcount * Byteseach
           Xpos = Xpos + Temp
           Xpos = Xpos + Xoffset
             For Pixelcount = 0 To 7                'Loop for 8 pixels to be set or not
               Ypos = A + Pixelcount               'Each pixel on his own spot
               Pixel = Pixels.0                  'Set the pixel (or not)
               Pset Xpos , Ypos , Pixel              'Finaly we can set the pixel
               Shift Pixels , Right                'Shift the byte 1 bit to the right so the next pixel comes availible
             Next Pixel
         Next Columcount
      Next Rowcount
Next Carcount
End Sub

$include "font16x16.font"


[/left]
                    این چند خط برنامه رو اضافه کن بعد هر مدل فونتی که عشقت کشید توش اد کن و باهاش بنویس این برنامه می تونه توپر تو خالی و با هر زاویه ایی که بخواهی برات چیزی که می خواهی رو چاپ کنه البته یه کم اولش باید باهاش کلنجار بری تا یادش بگیری
                    همانطور كه مايل نيستم بنده كسي باشم، حاضر نيستم آقاي كسي باشم. كساني كه مخالف آزادي ديگرانند، خود لياقت آزادي را ندارند.((آبراهام لينكن))

                    قدرت شگفت انگيز نيروهاي خلاق و استعدادهاي نهفته آدمي هنگامي آشكار مي شود كه نيازي حياتي، تواناييهاي او را به فعاليت وادارد و كشش آرزويي، سراپاي وجودش را به جنب و جوش درآورد.((آبراهام لينكن))

                    [img width=343 height=100]http://www.elecdesigner.com/uploads/PRO-DESIGNER-GROUP.jpg[/img]

                    دیدگاه

                      #11
                      پاسخ : مشکل با نوشتن font 16x16 در GLCD

                      نوشته اصلی توسط طراح
                      برنامه را به اینصورت بنویسید:

                      $regfile = "m32def.dat"
                      $crystal = 1000000
                      $lib "glcdKS108.lbx"

                      Config Graphlcd = 128 * 64sed , Dataport = Portc , Controlport = Portd , _
                      Ce = 2 , Ce2 = 3 , Cd = 6 , Rd = 5 , Reset = 1 , Enable = 4
                      Cls
                      Waitms 200
                      Setfont Font16x16
                      Lcdat 2 , 20 , "X="
                      Do
                      Loop
                      End
                      $include "font16x16.font"
                      سلام استاد وقت بخیر برنامه ای که شما نوشتید
                      http://knowledgeplus.ir/userfiles/BASCOMv1.pdf رو من میخام که فونتش برزگتر 16*16 باشه با تغییر در برنامه میشه؟؟
                      راه حل چیه ممنون

                      دیدگاه

                        #12
                        پاسخ : مشکل با نوشتن font 16x16 در GLCD

                        سلام
                        آیا با تراشه های مبتنی برt6963 میتوان فونت 16*16 ایجاد کرد؟؟
                        در مثال های دیتاشیتی مربع 8*8 مثال زده

                        دیدگاه

                          #13
                          پاسخ : مشکل با نوشتن font 16x16 در GLCD

                          نوشته اصلی توسط تیبا
                          سلام
                          آیا با تراشه های مبتنی برt6963 میتوان فونت 16*16 ایجاد کرد؟؟
                          در مثال های دیتاشیتی مربع 8*8 مثال زده
                          نوشته اصلی توسط تیبا
                          سلام استاد وقت بخیر برنامه ای که شما نوشتید
                          http://knowledgeplus.ir/userfiles/BASCOMv1.pdf رو من میخام که فونتش برزگتر 16*16 باشه با تغییر در برنامه میشه؟؟
                          راه حل چیه ممنون
                          دقیقا اسم چیپ کنترلرتون رو بگید. به نظر میرسه این چیپ انواع مختلفی داره. مثلا t6963C

                          دیدگاه

                            #14
                            پاسخ : مشکل با نوشتن font 16x16 در GLCD

                            نوشته اصلی توسط Rohalamin
                            دقیقا اسم چیپ کنترلرتون رو بگید. به نظر میرسه این چیپ انواع مختلفی داره. مثلا t6963C
                            بله همونه مشکل روهم که میدونی

                            دیدگاه

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