Администрация форума не несёт ответственности за достоверность информации и оставляет за собой право редактировать или в особых случаях даже удалять посты без предупреждения. Спасибо за понимание.

Программирование ATMEL в BASCOM.

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » Программирование ATMEL в BASCOM. » Дисплеи и индикация » Прошу помощи LCD LGM12641BS1, BASCOM + Proteus 7.4 SP3 + LCD

Прошу помощи LCD LGM12641BS1, BASCOM + Proteus 7.4 SP3 + LCD

Страница: 1

Сообщений 1 страница 24 из 24

1

  • Автор: aneroid
  • Новичок
  • Зарегистрирован: 2010-11-16
  • Приглашений: 0
  • Сообщений: 5
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    9 часов 18 минут
  • Последний визит:
    2011-07-24 17:15:57

Уважаемые форумчане, кому-то этот вопрос уже наверное набил искомину, но я перерыл кучу форумов а ответа так и не нашел.
Как правильно подключать гаф. LCD LGM12641BS1 в Протеусе через BASCOM ? А то у меня на экран вообще ничего не выводиться.
Мучаюсь уже давно ...
Вот кусок кода из BASCOM AVR 1.11.9.0

Код:
regfile = "m16def.dat"                                     ' specify the used micro
$crystal = 8000000                                          ' used crystal frequency
'$baud = 9600                                                ' use baud rate
'$hwstack = 32                                               ' default use 32 for the hardware stack
'$swstack = 10                                               ' default use 10 for the SW stack
'$framesize = 40                                             ' default use 40 for the frame space


'some routines to control the display are in the glcdKS108.lib file
$lib "glcdKS108.lib"


'Wait 2
'print "Config"                                             ' printing will still work as only the receiver pin is disabled

'First we define that we use a graphic LCD
Config Graphlcd = 128 * 64sed , Dataport = Portc , Controlport = Portd , Ce = 2 , Ce2 = 3 , Cd = 4 , Rd = 5 , Wr = 5 , Reset = 7 , Enable = 6 , Mode = 8
'The dataport is the portname that is connected to the data lines of the LCD
'The controlport is the portname which pins are used to control the lcd
'CE =CS1  Chip select
'CE2=CS2  Chip select second chip
'CD=Data/instruction
'RD=Read
'RESET = reset
'ENABLE= Chip Enable


Setfont Font8x8

'Portd.2 = Output
'Portd.3 = Output

'Dim variables (y not used)
Dim X As Byte , Y As Byte

Cls
Waitms 100

Print "Config"                                              ' printing will still work as only the receiver pin is disabled
Waitms 1000
Cls
Waitms 200
Print "Cls"
Cls

Пытаюсь  вставить скрин из Протеуса и чего-то не получается (((

Отредактировано aneroid (2010-11-30 15:15:55)

0

2

  • Автор: Роман
  • Активный участник
  • Роман
  • Откуда: Уфа
  • Зарегистрирован: 2010-07-13
  • Приглашений: 0
  • Сообщений: 70
  • Уважение: [+1/-1]
  • Позитив: [+2/-1]
  • Пол: Мужской
  • Возраст: 36 [1989-11-11]
  • Провел на форуме:
    1 день 22 часа
  • Последний визит:
    2012-10-30 21:10:32

Как обычный 128*64 попробуй может получица, в справке по баскому есть пример ищи Config grsflcd вроде)

Отредактировано Роман (2010-11-30 20:27:04)

0

3

  • Автор: dmm
  • Активный участник
  • Зарегистрирован: 2007-01-28
  • Приглашений: 0
  • Сообщений: 323
  • Уважение: [+33/-2]
  • Позитив: [+0/-0]
  • Провел на форуме:
    3 дня 7 часов
  • Последний визит:
    2015-06-15 20:35:32

Все работало с такой строкой из примера:
Config Graphlcd = 128 * 64sed , Dataport = Portc , Controlport = Portd , Ce = 2 , Ce2 = 3 , Cd = 4 , Rd = 5 , Wr = 5 , Reset = 7 , Enable = 6 , Mode = 8
Есть отличие!

0

4

  • Автор: aneroid
  • Новичок
  • Зарегистрирован: 2010-11-16
  • Приглашений: 0
  • Сообщений: 5
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    9 часов 18 минут
  • Последний визит:
    2011-07-24 17:15:57

Спасибо за ответы!
Роман, а вы бы не могли привести часть кода, касающуюся дисплея в вашем примере?

dmm, я что-то не нашел отличий- ?

Отредактировано aneroid (2010-12-01 11:23:13)

0

5

  • Автор: Роман
  • Активный участник
  • Роман
  • Откуда: Уфа
  • Зарегистрирован: 2010-07-13
  • Приглашений: 0
  • Сообщений: 70
  • Уважение: [+1/-1]
  • Позитив: [+2/-1]
  • Пол: Мужской
  • Возраст: 36 [1989-11-11]
  • Провел на форуме:
    1 день 22 часа
  • Последний визит:
    2012-10-30 21:10:32

$regfile = "m8def.dat"
$crystal = 8000000

Config Graphlcd = 128 * 64 , Dataport = Portd , Controlport = Portc , _
Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 8

Dim X As Byte , Y As Byte , I As Integer

Cls

Cursor Off

Locate 1 , 1

Lcd "MCS Electronics"

Wait 1

0

6

  • Автор: dmm
  • Активный участник
  • Зарегистрирован: 2007-01-28
  • Приглашений: 0
  • Сообщений: 323
  • Уважение: [+33/-2]
  • Позитив: [+0/-0]
  • Провел на форуме:
    3 дня 7 часов
  • Последний визит:
    2015-06-15 20:35:32

Вот тестовая программа с которой я проверял работу индикатора с контроллером KS108.
Все сразу заработало, включая рисовку линий и окружностей.
$regfile = "m644def.dat"                ' specify the used micro
$crystal = 16000000                     ' used crystal frequency
$baud = 9600                            ' use baud rate
$hwstack = 32                           ' default use 32 for the hardware stack
$swstack = 10                           ' default use 10 for the SW stack
$framesize = 40                         ' default use 40 for the frame space
$lib "glcdKS108.lib"

Dim X As Byte , Y As Byte
Dim S As String * 32

Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portc , Ce = 1 , Ce2 = 0 , Cd = 4 , Rd = 3 , Reset = 2 , Enable = 5

'выводы индикатора (порт):      14(PA7)...7(PA0) ,                        15(PC1), 16(PC0) , 4(PC4) , 5(PC3) , 17(PC2)   , 6(PC5)
'-----------------------------------------------------------------------------------------
Clkpr = &B10000000                      'прескалер разрешить (m644)
Clkpr = &B00000001                      'установить прескалер = 1 (m644)
Print "Config"                          ' printing will still work as only the receiver pin is disabled
Wait 2
Print "Cls"
Cls
Wait 1
'----------------
'установка шрифта, который будет использоваться далее
Setfont Font8x8                         'базовый шрифт
'LCDAT Y , COL, value
'Сol = 1-128 - номер колонки, Y - 1-8 номер строки, value - отображенмое значение
'-------------- 1234567890123456
Lcdat 1 , 1 , " КИРИЛЛИЧЕСКИЙ  "
Lcdat 2 , 1 , "   ФОНТ 8х8" , 1         'текст с инверсией
Lcdat 3 , 1 , "------1234------"
Lcdat 4 , 1 , "НОРМА и СТАНДАРТ" , 1    'текст с инверсией
Setfont Font6x8                         'тонкий шрифт
'-------------- 123456789012345678901
Lcdat 5 , 1 , " LATIN Latin QWERTYui"
Lcdat 6 , 1 , "Font 6x8 1234567890.X" , 1       'текст с инверсией
Wait 5
'----------------
Cls
Setfont Font16x12                       'УСТАНОВКА УКАЗАТЕЛЯ НА ФОНТ, КОТОРЫЙ БУДЕТ ИСПОЛЬЗОВАТЬСЯ ПО УМОЛЧАНИЮ ДАЛЕЕ
'              1234567890
Lcdat 1 , 1 , "  LATIN  "
Lcdat 3 , 1 , "  16x12" , 1             'текст с инверсией
Lcdat 5 , 1 , "+12.3456mV"
Wait 5
'----------------
Cls
Setfont Font16x16                       'УСТАНОВКА УКАЗАТЕЛЯ НА ФОНТ, КОТОРЫЙ БУДЕТ ИСПОЛЬЗОВАТЬСЯ ПО УМОЛЧАНИЮ ДАЛЕЕ
'              12345678
Lcdat 1 , 1 , " LATIN "
Lcdat 3 , 1 , " 16x16 " , 1             ' will inverse the text
           S = "-333.4V"
Lcdat 5 , 10 , S , 1                    'УКАЗЫВАЕМ РЯД И ПЕРВУЮ ПОЗИЦИЮ
Wait 5

'Now use a different font
'Setfont Font8x8
'since the 16*16 font uses 2 rows, show on row 3
'Lcdat 1 , 1 , "2345"
'Lcdat 2 , 56 , "2345656"
'Wait 1
'Line(2 , 3) -(120 , 63) , 1             'make line
'Wait 2
'Line(0 , 0) -(127 , 63) , 1
'
'For Y = 1 To 20
'   Circle(30 , 30) , Y , 1
'   Waitms 100
'Next

Wait 1
Glcdcmd &H3E , 1 : Glcdcmd &H3E , 2     ' both displays off
Wait 1
Glcdcmd &H3F , 1 : Glcdcmd &H3F , 2     'both on
'GLCDCMD accepts an additional param to select the chip
'With multiple, GLCDCMD statements, it is best to specify the chip only the first time
Showpic 0 , 0 , Pl1                     'show a comnpressed picture
Wait 1
Showpic 0 , 0 , Pl2                     'show a comnpressed picture
Wait 1
Setfont Font8x8
Mc:
   Y = Y + 1                            'вывод цифры
   Waitms 250
   S = Str(y)
Lcdat 7 , 50 , S , 1                    'в позицию
Goto Mc
End                                     'end program

'подключение файлов шрифтов
$include "R0808f.bas"
$include "font6x8.font"
$include "font16x16.font"
$include "z1612.bas"

'подключение файлов картинок
Pl1:
$bgf "r12864.bgf"
Pl2:
$bgf "rn12864.bgf"

+1

7

  • Автор: aneroid
  • Новичок
  • Зарегистрирован: 2010-11-16
  • Приглашений: 0
  • Сообщений: 5
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    9 часов 18 минут
  • Последний визит:
    2011-07-24 17:15:57

Уважаемый dmm, спасибо за пример. Обязательно попробую. А какой именно индикатор вы использовали?
У меня не получается почему-то с LGM12641BS1R с другими вроде проблем небыло, хотя пробовал, конечно не все.
А надо бы именно с этим индикатором.(
И не могли бы вы кинуть мне на мыло нужные для работы примера файлы, а то компилятор ругается...(

$include "R0808f.bas"
$include "font6x8.font"
$include "font16x16.font"
$include "z1612.bas"

Pl1:
$bgf "r12864.bgf"
Pl2:
$bgf "rn12864.bgf"

Еще раз спасибо.

Отредактировано aneroid (2010-12-02 23:41:02)

0

8

  • Автор: dmm
  • Активный участник
  • Зарегистрирован: 2007-01-28
  • Приглашений: 0
  • Сообщений: 323
  • Уважение: [+33/-2]
  • Позитив: [+0/-0]
  • Провел на форуме:
    3 дня 7 часов
  • Последний визит:
    2015-06-15 20:35:32

У меня был индикатор FDCG12864B (93x70мм) - стандартный
Вот два файла фонтов, а остальные можно закоментировать
BFG сделать просто: картинка заружается в Paint, вырезается нужный кусок и сохраняется как черно-белое. Загружаешь а BASCOM и спомощью Graphic Converter создаешь, что тебе нужно.

Код:
'0808F.BAS из файла 0808f.bmp (128 x 112)
Font8x8:
DATA 1,8,8,0
Data &h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00
Data &h00,&h06,&h5F,&h5F,&h06,&h00,&h00,&h00
Data &h00,&h07,&h07,&h00,&h07,&h07,&h00,&h00
Data &h14,&h7F,&h7F,&h14,&h7F,&h7F,&h14,&h00
Data &h24,&h2E,&h6B,&h6B,&h3A,&h12,&h00,&h00
Data &h46,&h66,&h30,&h18,&h0C,&h66,&h62,&h00
Data &h30,&h7A,&h4F,&h5D,&h37,&h7A,&h48,&h00
Data &h00,&h04,&h07,&h03,&h00,&h00,&h00,&h00
Data &h00,&h1C,&h3E,&h63,&h41,&h00,&h00,&h00
Data &h00,&h41,&h63,&h3E,&h1C,&h00,&h00,&h00
Data &h08,&h2A,&h3E,&h1C,&h3E,&h2A,&h08,&h00
Data &h00,&h08,&h08,&h3E,&h3E,&h08,&h08,&h00
Data &h00,&h40,&h70,&h30,&h00,&h00,&h00,&h00
Data &h00,&h08,&h08,&h08,&h08,&h08,&h08,&h00
Data &h00,&h00,&h30,&h30,&h00,&h00,&h00,&h00
Data &h60,&h30,&h18,&h0C,&h06,&h03,&h01,&h00

Data &h3E,&h7F,&h59,&h4D,&h7F,&h3E,&h00,&h00
Data &h42,&h42,&h7F,&h7F,&h40,&h40,&h00,&h00
Data &h62,&h73,&h59,&h49,&h6F,&h66,&h00,&h00
Data &h22,&h63,&h49,&h49,&h7F,&h36,&h00,&h00
Data &h18,&h1C,&h16,&h13,&h7F,&h7F,&h10,&h00
Data &h27,&h67,&h45,&h45,&h7D,&h39,&h00,&h00
Data &h3C,&h7E,&h4B,&h49,&h79,&h30,&h00,&h00
Data &h03,&h63,&h71,&h19,&h0F,&h07,&h00,&h00
Data &h36,&h7F,&h49,&h49,&h7F,&h36,&h00,&h00
Data &h06,&h4F,&h49,&h69,&h3F,&h1E,&h00,&h00
Data &h00,&h00,&h36,&h36,&h00,&h00,&h00,&h00
Data &h00,&h40,&h76,&h36,&h00,&h00,&h00,&h00
Data &h08,&h1C,&h36,&h63,&h41,&h00,&h00,&h00
Data &h00,&h14,&h14,&h14,&h14,&h14,&h14,&h00
Data &h00,&h41,&h63,&h36,&h1C,&h08,&h00,&h00
Data &h02,&h03,&h51,&h59,&h0F,&h06,&h00,&h00

Data &h3E,&h7F,&h41,&h5D,&h5D,&h1F,&h1E,&h00
Data &h7C,&h7E,&h13,&h13,&h7E,&h7C,&h00,&h00
Data &h41,&h7F,&h7F,&h49,&h49,&h7F,&h36,&h00
Data &h1C,&h3E,&h63,&h41,&h41,&h63,&h22,&h00
Data &h41,&h7F,&h7F,&h41,&h63,&h7F,&h1C,&h00
Data &h41,&h7F,&h7F,&h49,&h5D,&h41,&h63,&h00
Data &h41,&h7F,&h7F,&h49,&h1D,&h01,&h03,&h00
Data &h1C,&h3E,&h63,&h41,&h51,&h73,&h72,&h00
Data &h7F,&h7F,&h08,&h08,&h7F,&h7F,&h00,&h00
Data &h00,&h41,&h7F,&h7F,&h41,&h00,&h00,&h00
Data &h30,&h70,&h40,&h41,&h7F,&h3F,&h01,&h00
Data &h41,&h7F,&h7F,&h08,&h1C,&h77,&h63,&h00
Data &h41,&h7F,&h7F,&h41,&h40,&h60,&h70,&h00
Data &h7F,&h7F,&h06,&h0C,&h06,&h7F,&h7F,&h00
Data &h7F,&h7F,&h06,&h0C,&h18,&h7F,&h7F,&h00
Data &h1C,&h3E,&h63,&h41,&h63,&h3E,&h1C,&h00

Data &h41,&h7F,&h7F,&h49,&h09,&h0F,&h06,&h00
Data &h1E,&h3F,&h21,&h71,&h7F,&h5E,&h00,&h00
Data &h41,&h7F,&h7F,&h19,&h39,&h6F,&h46,&h00
Data &h26,&h67,&h4D,&h59,&h7B,&h32,&h00,&h00
Data &h03,&h41,&h7F,&h7F,&h41,&h03,&h00,&h00
Data &h3F,&h7F,&h40,&h40,&h7F,&h3F,&h00,&h00
Data &h1F,&h3F,&h60,&h60,&h3F,&h1F,&h00,&h00
Data &h7F,&h7F,&h30,&h18,&h30,&h7F,&h7F,&h00
Data &h63,&h77,&h1C,&h08,&h1C,&h77,&h63,&h00
Data &h07,&h4F,&h78,&h78,&h4F,&h07,&h00,&h00
Data &h67,&h73,&h59,&h4D,&h47,&h63,&h71,&h00
Data &h00,&h7F,&h7F,&h41,&h41,&h00,&h00,&h00
Data &h01,&h03,&h06,&h0C,&h18,&h30,&h60,&h00
Data &h00,&h41,&h41,&h7F,&h7F,&h00,&h00,&h00
Data &h08,&h0C,&h06,&h03,&h06,&h0C,&h08,&h00
Data &h80,&h80,&h80,&h80,&h80,&h80,&h80,&h80

Data &h00,&h00,&h03,&h07,&h04,&h00,&h00,&h00
Data &h20,&h74,&h54,&h54,&h3C,&h78,&h40,&h00
Data &h41,&h7F,&h7F,&h44,&h44,&h7C,&h38,&h00
Data &h38,&h7C,&h44,&h44,&h6C,&h28,&h00,&h00
Data &h30,&h78,&h48,&h49,&h3F,&h7F,&h40,&h00
Data &h38,&h7C,&h54,&h54,&h5C,&h18,&h00,&h00
Data &h48,&h7E,&h7F,&h49,&h03,&h02,&h00,&h00
Data &h18,&hBC,&hA4,&hA4,&hF8,&h7C,&h04,&h00
Data &h41,&h7F,&h7F,&h08,&h04,&h7C,&h78,&h00
Data &h00,&h44,&h7D,&h7D,&h40,&h00,&h00,&h00
Data &h40,&hC4,&h84,&hFD,&h7D,&h00,&h00,&h00
Data &h41,&h7F,&h7F,&h10,&h38,&h6C,&h44,&h00
Data &h00,&h41,&h7F,&h7F,&h40,&h00,&h00,&h00
Data &h7C,&h7C,&h0C,&h18,&h0C,&h7C,&h78,&h00
Data &h7C,&h7C,&h04,&h04,&h7C,&h78,&h00,&h00
Data &h38,&h7C,&h44,&h44,&h7C,&h38,&h00,&h00

Data &h84,&hFC,&hF8,&hA4,&h24,&h3C,&h18,&h00
Data &h18,&h3C,&h24,&hA4,&hF8,&hFC,&h84,&h00
Data &h44,&h7C,&h78,&h44,&h1C,&h18,&h00,&h00
Data &h48,&h5C,&h54,&h54,&h74,&h24,&h00,&h00
Data &h00,&h04,&h3E,&h7F,&h44,&h24,&h00,&h00
Data &h3C,&h7C,&h40,&h40,&h3C,&h7C,&h40,&h00
Data &h1C,&h3C,&h60,&h60,&h3C,&h1C,&h00,&h00
Data &h3C,&h7C,&h60,&h30,&h60,&h7C,&h3C,&h00
Data &h44,&h6C,&h38,&h10,&h38,&h6C,&h44,&h00
Data &h1C,&hBC,&hA0,&hA0,&hFC,&h7C,&h00,&h00
Data &h4C,&h64,&h74,&h5C,&h4C,&h64,&h00,&h00
Data &h08,&h08,&h3E,&h77,&h41,&h41,&h00,&h00
Data &h00,&h00,&h00,&h77,&h77,&h00,&h00,&h00
Data &h41,&h41,&h77,&h3E,&h08,&h08,&h00,&h00
Data &h0C,&h02,&h02,&h1C,&h20,&h20,&h18,&h00
Data &h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00

Data &hFF,&hFF,&hFF,&hFF,&hFF,&hFF,&hFF,&hFF
Data &h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00
Data &h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00
Data &hFE,&h1E,&h20,&h20,&h1E,&h3E,&h20,&h00
Data &h7F,&h04,&h08,&h7F,&h00,&h2F,&h29,&h2F
Data &h00,&h00,&h00,&h18,&h18,&h00,&h00,&h00
Data &h06,&h0F,&h09,&h09,&h0F,&h06,&h00,&h00
Data &h04,&h34,&h34,&hF7,&h34,&h34,&h04,&h00
Data &h02,&h3A,&h3A,&hFB,&h3A,&h3A,&h02,&h00
Data &h08,&h28,&h28,&hEF,&h28,&h28,&h08,&h00
Data &h1C,&h1C,&h1C,&h7F,&h3E,&h1C,&h08,&h00
Data &h08,&h1C,&h3E,&h7F,&h1C,&h1C,&h1C,&h00
Data &h08,&h0C,&h7E,&h7F,&h7E,&h0C,&h08,&h00
Data &h08,&h18,&h3F,&h7F,&h3F,&h18,&h08,&h00
Data &h08,&h7F,&h3E,&h1C,&h08,&h7F,&h7F,&h08
Data &h08,&h08,&h08,&h08,&h08,&h08,&h08,&h08

Data &h00,&h00,&h00,&hF8,&hF8,&h18,&h18,&h18
Data &h18,&h18,&h18,&hF8,&hF8,&h18,&h18,&h18
Data &h18,&h18,&h18,&hF8,&hF8,&h00,&h00,&h00
Data &h00,&h00,&h00,&hFF,&hFF,&h00,&h00,&h00
Data &h00,&h00,&hF0,&h08,&h04,&hC4,&h24,&h24
Data &h24,&h24,&hE4,&h04,&h04,&hE4,&h24,&h24
Data &h24,&h24,&hC4,&h04,&h08,&hF0,&h00,&h00
Data &h00,&h00,&hFF,&h00,&h00,&hFF,&h00,&h00
Data &h78,&hFE,&hF9,&h89,&hF9,&hFE,&h78,&h00
Data &hF8,&h78,&hF8,&h18,&h18,&h18,&h18,&h3C
Data &h7E,&h42,&h42,&h7E,&h3C,&h00,&h00,&h00
Data &h32,&h0A,&h0A,&h32,&h42,&h42,&h32,&h00
Data &h70,&h58,&h4C,&h46,&h4C,&h58,&h70,&h00
Data &h04,&h14,&h04,&h14,&h04,&h14,&h04,&h00
Data &h41,&h41,&h41,&h63,&h36,&h1C,&h08,&h00
Data &h41,&h41,&h41,&h41,&h41,&h41,&h41,&h41

Data &h00,&h00,&h00,&hFF,&hFF,&h18,&h18,&h18
Data &h18,&h18,&h18,&hFF,&hFF,&h18,&h18,&h18
Data &h18,&h18,&h18,&hFF,&hFF,&h00,&h00,&h00
Data &h18,&h18,&h18,&h18,&h18,&h18,&h18,&h18
Data &h00,&h00,&hFF,&h00,&h00,&hE7,&h24,&h24
Data &h24,&h24,&hE7,&h00,&h00,&hE7,&h24,&h24
Data &h24,&h24,&hE7,&h00,&h00,&hFF,&h00,&h00
Data &h24,&h24,&h24,&h24,&h24,&h24,&h24,&h24
Data &h08,&h08,&h08,&h08,&h3E,&h22,&h22,&h22
Data &h22,&h22,&h22,&h3E,&h08,&h08,&h08,&h08
Data &h00,&h4E,&h5F,&h71,&h01,&h71,&h5F,&h4E
Data &h00,&h00,&h78,&h20,&h10,&h08,&h04,&h00
Data &h00,&h70,&h38,&h1C,&h38,&h70,&h00,&h00
Data &h00,&h1C,&h38,&h70,&h38,&h1C,&h00,&h00
Data &h00,&h44,&h6C,&h7C,&h38,&h10,&h00,&h00
Data &h00,&h10,&h38,&h7C,&h6C,&h44,&h00,&h00

Data &h00,&h00,&h00,&h1F,&h1F,&h18,&h18,&h18
Data &h18,&h18,&h18,&h1F,&h1F,&h18,&h18,&h18
Data &h18,&h18,&h18,&h1F,&h1F,&h00,&h00,&h00
Data &h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00
Data &h00,&h00,&h0F,&h10,&h20,&h23,&h24,&h24
Data &h24,&h24,&h27,&h20,&h20,&h27,&h24,&h24
Data &h24,&h24,&h23,&h20,&h10,&h0F,&h00,&h00
Data &h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00
Data &h00,&h08,&h08,&h0C,&h02,&h02,&h0C,&h02
Data &h02,&h0C,&h02,&h02,&h0C,&h08,&h08,&h00
Data &h00,&h08,&h08,&h08,&h08,&h7F,&h7F,&h00
Data &h7F,&h7F,&h08,&h08,&h08,&h08,&h00,&h00
Data &h48,&h48,&h28,&h18,&h3E,&h22,&h22,&h22
Data &h22,&h22,&h22,&h3E,&h18,&h28,&h48,&h48
Data &h08,&h08,&h08,&h08,&h3E,&h22,&h22,&h22
Data &h22,&h22,&h22,&h3E,&h18,&h28,&h48,&h48

Data &h7C,&h7E,&h13,&h11,&h11,&h7F,&h7F,&h00
Data &h41,&h7F,&h7F,&h49,&h49,&h7B,&h33,&h00
Data &h41,&h7F,&h7F,&h49,&h49,&h7F,&h36,&h00
Data &h41,&h7F,&h7F,&h41,&h01,&h03,&h03,&h00
Data &h40,&h7C,&h7E,&h43,&h41,&h7F,&h7F,&h40
Data &h41,&h7F,&h7F,&h49,&h5D,&h41,&h63,&h40
Data &h63,&h77,&h1C,&h7F,&h1C,&h77,&h63,&h00
Data &h22,&h63,&h49,&h49,&h7F,&h36,&h00,&h00
Data &h7F,&h7F,&h30,&h18,&h0C,&h7F,&h7F,&h00
Data &h7E,&h7E,&h31,&h19,&h0D,&h7E,&h7E,&h00
Data &h41,&h7F,&h7F,&h08,&h1C,&h77,&h63,&h00
Data &h40,&h7E,&h3E,&h03,&h01,&h7F,&h7F,&h00
Data &h7F,&h7F,&h06,&h0C,&h06,&h7F,&h7F,&h00
Data &h7F,&h7F,&h08,&h08,&h08,&h7F,&h7F,&h00
Data &h3E,&h7F,&h41,&h41,&h41,&h7F,&h3E,&h00
Data &h7F,&h7F,&h01,&h01,&h01,&h7F,&h7F,&h00

Data &h41,&h7F,&h7F,&h49,&h09,&h0F,&h06,&h00
Data &h1C,&h3E,&h63,&h41,&h41,&h63,&h22,&h00
Data &h03,&h41,&h7F,&h7F,&h41,&h03,&h00,&h00
Data &h27,&h6F,&h48,&h48,&h48,&h7F,&h3F,&h00
Data &h0E,&h1F,&h51,&h7F,&h51,&h1F,&h0E,&h00
Data &h63,&h77,&h1C,&h08,&h1C,&h77,&h63,&h00
Data &h7F,&h7F,&h40,&h40,&h7F,&hFF,&hC0,&h00
Data &h07,&h0F,&h08,&h08,&h08,&h7F,&h7F,&h00
Data &h7F,&h7F,&h40,&h7F,&h40,&h7F,&h7F,&h00
Data &h7F,&h7F,&h40,&h7F,&h40,&h7F,&hFF,&hC0
Data &h07,&h03,&h7F,&h7F,&h48,&h78,&h30,&h00
Data &h7F,&h7F,&h48,&h78,&h30,&h7F,&h7F,&h00
Data &h01,&h7F,&h7F,&h49,&h48,&h78,&h30,&h00
Data &h22,&h63,&h49,&h49,&h6B,&h3E,&h1C,&h00
Data &h7F,&h7F,&h08,&h7F,&h41,&h7F,&h3E,&h00
Data &h46,&h6F,&h39,&h19,&h19,&h7F,&h7F,&h00

Data &h20,&h74,&h54,&h54,&h3C,&h78,&h40,&h00
Data &h34,&h7E,&h4A,&h4A,&h4A,&h7B,&h31,&h00
Data &h44,&h7C,&h7C,&h54,&h54,&h7C,&h28,&h00
Data &h44,&h7C,&h7C,&h44,&h04,&h0C,&h0C,&h00
Data &h40,&h78,&h7C,&h44,&h7C,&h7C,&h40,&h00
Data &h38,&h7C,&h54,&h54,&h5C,&h18,&h00,&h00
Data &h44,&h6C,&h38,&h7C,&h38,&h6C,&h44,&h00
Data &h28,&h6C,&h44,&h54,&h54,&h7C,&h28,&h00
Data &h7C,&h7C,&h60,&h30,&h18,&h7C,&h7C,&h00
Data &h7C,&h7C,&h62,&h32,&h1A,&h7C,&h7C,&h00
Data &h44,&h7C,&h7C,&h10,&h38,&h6C,&h44,&h00
Data &h40,&h78,&h7C,&h04,&h04,&h7C,&h7C,&h00
Data &h7C,&h7C,&h18,&h30,&h18,&h7C,&h7C,&h00
Data &h7C,&h7C,&h10,&h10,&h10,&h7C,&h7C,&h00
Data &h38,&h7C,&h44,&h44,&h7C,&h38,&h00,&h00
Data &h7C,&h7C,&h04,&h04,&h04,&h7C,&h7C,&h00

Data &h84,&hFC,&hFC,&hA4,&h24,&h3C,&h18,&h00
Data &h38,&h7C,&h44,&h44,&h6C,&h28,&h00,&h00
Data &h0C,&h44,&h7C,&h7C,&h44,&h0C,&h00,&h00
Data &h1C,&hBC,&hA0,&hA0,&hA0,&hFC,&h7C,&h00
Data &h18,&h3C,&hA4,&hFC,&hA4,&h3C,&h18,&h00
Data &h44,&h6C,&h38,&h10,&h38,&h6C,&h44,&h00
Data &h7C,&h7C,&h40,&h40,&h7C,&hFC,&hC0,&h00
Data &h0C,&h1C,&h10,&h10,&h10,&h7C,&h7C,&h00
Data &h7C,&h7C,&h40,&h7C,&h40,&h7C,&h7C,&h00
Data &h7C,&h7C,&h40,&h7C,&h40,&h7C,&hFC,&hC0
Data &h0C,&h04,&h7C,&h7C,&h50,&h70,&h20,&h00
Data &h7C,&h7C,&h50,&h70,&h20,&h7C,&h7C,&h00
Data &h04,&h7C,&h7C,&h54,&h50,&h70,&h20,&h00
Data &h28,&h6C,&h44,&h54,&h54,&h7C,&h38,&h00
Data &h7C,&h7C,&h10,&h7C,&h44,&h7C,&h38,&h00
Data &h48,&h7C,&h34,&h14,&h14,&h7C,&h7C,&h00
Код:
'Z1612.BAS
'знакогенератор фонта размером 16х12 точек (YxX)
'сформирован программой GLCDtool.exe из BMP-файла
'пересыпан вручную с помощью Multi-Edit.exe
'
'---
Font16x12:
Data 2 , 12 , 24 , 0                    'два ряда, 12 байт в ряду, всего 24 байта, позитив
'
'20h
Data &h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00
Data &h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00
'21h
Data &h00,&h00,&h00,&h00,&h7C,&hFF,&hFF,&h7C,&h00,&h00,&h00,&h00
Data &h00,&h00,&h00,&h00,&h00,&h33,&h33,&h00,&h00,&h00,&h00,&h00
'22h
Data &h00,&h00,&h00,&h3C,&h3C,&h00,&h00,&h3C,&h3C,&h00,&h00,&h00
Data &h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00
'23h
Data &h00,&h00,&h10,&h90,&hF0,&h7E,&h1E,&h90,&hF0,&h7E,&h1E,&h10
Data &h00,&h02,&h1E,&h1F,&h03,&h02,&h1E,&h1F,&h03,&h02,&h00,&h00
'24h
Data &h00,&h00,&h78,&hFC,&hCC,&hFF,&hFF,&hCC,&hCC,&h88,&h00,&h00
Data &h00,&h00,&h04,&h0C,&h0C,&h3F,&h3F,&h0C,&h0F,&h07,&h00,&h00
'25h
Data &h00,&h00,&h38,&h38,&h38,&h00,&h80,&hC0,&hE0,&h70,&h38,&h1C
Data &h00,&h30,&h38,&h1C,&h0E,&h07,&h03,&h01,&h38,&h38,&h38,&h00
'26h
Data &h00,&h00,&h00,&hB8,&hFC,&hC6,&hE2,&h3E,&h1C,&h00,&h00,&h00
Data &h00,&h00,&h1F,&h3F,&h31,&h21,&h37,&h1E,&h1C,&h36,&h22,&h00
'27h
Data &h00,&h00,&h00,&h00,&h27,&h3F,&h1F,&h00,&h00,&h00,&h00,&h00
Data &h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00
'28h
Data &h00,&h00,&h00,&hF0,&hFC,&hFE,&h07,&h01,&h01,&h00,&h00,&h00
Data &h00,&h00,&h00,&h03,&h0F,&h1F,&h38,&h20,&h20,&h00,&h00,&h00
'29h
Data &h00,&h00,&h00,&h01,&h01,&h07,&hFE,&hFC,&hF0,&h00,&h00,&h00
Data &h00,&h00,&h00,&h20,&h20,&h38,&h1F,&h0F,&h03,&h00,&h00,&h00
'2ah
Data &h00,&h00,&h98,&hB8,&hE0,&hF8,&hF8,&hE0,&hB8,&h98,&h00,&h00
Data &h00,&h00,&h0C,&h0E,&h03,&h0F,&h0F,&h03,&h0E,&h0C,&h00,&h00
'2bh
Data &h00,&h00,&h80,&h80,&h80,&hF0,&hF0,&h80,&h80,&h80,&h00,&h00
Data &h00,&h00,&h01,&h01,&h01,&h0F,&h0F,&h01,&h01,&h01,&h00,&h00
'2ch
Data &h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00
Data &h00,&h00,&h00,&h00,&hB8,&hF8,&h78,&h00,&h00,&h00,&h00,&h00
'2dh
Data &h00,&h00,&h80,&h80,&h80,&h80,&h80,&h80,&h80,&h80,&h00,&h00
Data &h00,&h00,&h01,&h01,&h01,&h01,&h01,&h01,&h01,&h01,&h00,&h00
'2eh
Data &h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00
Data &h00,&h00,&h00,&h00,&h38,&h38,&h38,&h00,&h00,&h00,&h00,&h00
'2fh
Data &h00,&h00,&h00,&h00,&h00,&h80,&hC0,&hE0,&h70,&h38,&h1C,&h0E
Data &h00,&h18,&h1C,&h0E,&h07,&h03,&h01,&h00,&h00,&h00,&h00,&h00
'---
'30h
Data &h00,&hF8,&hFE,&h06,&h03,&h83,&hC3,&h63,&h33,&h1E,&hFE,&hF8
Data &h00,&h07,&h1F,&h1E,&h33,&h31,&h30,&h30,&h30,&h18,&h1F,&h07
'31h
Data &h00,&h00,&h00,&h0C,&h0C,&h0E,&hFF,&hFF,&h00,&h00,&h00,&h00
Data &h00,&h00,&h00,&h30,&h30,&h30,&h3F,&h3F,&h30,&h30,&h30,&h00
'32h
Data &h00,&h1C,&h1E,&h07,&h03,&h03,&h83,&hC3,&hE3,&h77,&h3E,&h1C
Data &h00,&h30,&h38,&h3C,&h3E,&h37,&h33,&h31,&h30,&h30,&h30,&h30
'33h
Data &h00,&h0C,&h0E,&h07,&hC3,&hC3,&hC3,&hC3,&hC3,&hE7,&h7E,&h3C
Data &h00,&h0C,&h1C,&h38,&h30,&h30,&h30,&h30,&h30,&h39,&h1F,&h0E
'34h
Data &h00,&hC0,&hE0,&h70,&h38,&h1C,&h0E,&h07,&hFF,&hFF,&h00,&h00
Data &h00,&h03,&h03,&h03,&h03,&h03,&h03,&h03,&h3F,&h3F,&h03,&h03
'35h
Data &h00,&h3F,&h7F,&h63,&h63,&h63,&h63,&h63,&h63,&hE3,&hC3,&h83
Data &h00,&h0C,&h1C,&h38,&h30,&h30,&h30,&h30,&h30,&h38,&h1F,&h0F
'36h
Data &h00,&hC0,&hF0,&hF8,&hDC,&hCE,&hC7,&hC3,&hC3,&hC3,&h80,&h00
Data &h00,&h0F,&h1F,&h39,&h30,&h30,&h30,&h30,&h30,&h39,&h1F,&h0F
'37h
Data &h00,&h03,&h03,&h03,&h03,&h03,&h03,&hC3,&hF3,&h3F,&h0F,&h03
Data &h00,&h00,&h00,&h00,&h30,&h3C,&h0F,&h03,&h00,&h00,&h00,&h00
'38h
Data &h00,&h00,&hBC,&hFE,&hE7,&hC3,&hC3,&hC3,&hE7,&hFE,&hBC,&h00
Data &h00,&h0F,&h1F,&h39,&h30,&h30,&h30,&h30,&h30,&h39,&h1F,&h0F
'39h
Data &h00,&h3C,&h7E,&hE7,&hC3,&hC3,&hC3,&hC3,&hC3,&hE7,&hFE,&hFC
Data &h00,&h00,&h00,&h30,&h30,&h30,&h38,&h1C,&h0E,&h07,&h03,&h00
'3ah
Data &h00,&h00,&h00,&h00,&h70,&h70,&h70,&h00,&h00,&h00,&h00,&h00
Data &h00,&h00,&h00,&h00,&h1C,&h1C,&h1C,&h00,&h00,&h00,&h00,&h00
'3bh
Data &h00,&h00,&h00,&h00,&h70,&h70,&h70,&h00,&h00,&h00,&h00,&h00
Data &h00,&h00,&h00,&h00,&h9C,&hFC,&h7C,&h00,&h00,&h00,&h00,&h00
'3ch
Data &h00,&h00,&hC0,&hE0,&hF0,&h38,&h1C,&h0E,&h07,&h03,&h00,&h00
Data &h00,&h00,&h00,&h01,&h03,&h07,&h0E,&h1C,&h38,&h30,&h00,&h00
'3dh
Data &h00,&h00,&h60,&h60,&h60,&h60,&h60,&h60,&h60,&h60,&h60,&h00
Data &h00,&h00,&h06,&h06,&h06,&h06,&h06,&h06,&h06,&h06,&h06,&h00
'3eh
Data &h00,&h00,&h03,&h07,&h0E,&h1C,&h38,&hF0,&hE0,&hC0,&h00,&h00
Data &h00,&h00,&h30,&h38,&h1C,&h0E,&h07,&h03,&h01,&h00,&h00,&h00
'3fh
Data &h00,&h1C,&h1E,&h07,&h03,&h83,&hC3,&hE3,&h77,&h3E,&h1C,&h00
Data &h00,&h00,&h00,&h00,&h00,&h37,&h37,&h00,&h00,&h00,&h00,&h00
'---
'40h
Data &h00,&hF8,&hFE,&h07,&hF3,&hFB,&h1B,&hFB,&hFB,&h07,&hFE,&hF8
Data &h00,&h0F,&h1F,&h18,&h33,&h37,&h36,&h37,&h37,&h36,&h03,&h01
'41h
Data &h00,&h00,&h00,&hE0,&hFC,&h1F,&h1F,&hFC,&hE0,&h00,&h00,&h00
Data &h00,&h38,&h3F,&h07,&h06,&h06,&h06,&h06,&h07,&h3F,&h38,&h00
'42h
Data &h00,&hFF,&hFF,&hC3,&hC3,&hC3,&hC3,&hE7,&hFE,&hBC,&h00,&h00
Data &h00,&h3F,&h3F,&h30,&h30,&h30,&h30,&h30,&h39,&h1F,&h0F,&h00
'43h
Data &h00,&hF0,&hFC,&h0E,&h07,&h03,&h03,&h03,&h07,&h0E,&h0C,&h00
Data &h00,&h03,&h0F,&h1C,&h38,&h30,&h30,&h30,&h38,&h1C,&h0C,&h00
'44h
Data &h00,&hFF,&hFF,&h03,&h03,&h03,&h03,&h07,&h0E,&hFC,&hF0,&h00
Data &h00,&h3F,&h3F,&h30,&h30,&h30,&h30,&h38,&h1C,&h0F,&h03,&h00
'45h
Data &h00,&hFF,&hFF,&hC3,&hC3,&hC3,&hC3,&hC3,&hC3,&h03,&h03,&h00
Data &h00,&h3F,&h3F,&h30,&h30,&h30,&h30,&h30,&h30,&h30,&h30,&h00
'46h
Data &h00,&hFF,&hFF,&hC3,&hC3,&hC3,&hC3,&hC3,&hC3,&h03,&h03,&h00
Data &h00,&h3F,&h3F,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00
'47h
Data &h00,&hF0,&hFC,&h0E,&h07,&h03,&hC3,&hC3,&hC3,&hC7,&hC6,&h00
Data &h00,&h03,&h0F,&h1C,&h38,&h30,&h30,&h30,&h30,&h3F,&h3F,&h00
'48h
Data &h00,&hFF,&hFF,&hC0,&hC0,&hC0,&hC0,&hC0,&hC0,&hFF,&hFF,&h00
Data &h00,&h3F,&h3F,&h00,&h00,&h00,&h00,&h00,&h00,&h3F,&h3F,&h00
'49h
Data &h00,&h00,&h00,&h03,&h03,&hFF,&hFF,&h03,&h03,&h00,&h00,&h00
Data &h00,&h00,&h00,&h30,&h30,&h3F,&h3F,&h30,&h30,&h00,&h00,&h00
'4ah
Data &h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&hFF,&hFF,&h00
Data &h00,&h0E,&h1E,&h38,&h30,&h30,&h30,&h30,&h38,&h1F,&h07,&h00
'4bh
Data &h00,&hFF,&hFF,&hC0,&hE0,&hF0,&h38,&h1C,&h0E,&h07,&h03,&h00
Data &h00,&h3F,&h3F,&h00,&h01,&h03,&h07,&h0E,&h1C,&h38,&h30,&h00
'4ch
Data &h00,&hFF,&hFF,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00
Data &h00,&h3F,&h3F,&h30,&h30,&h30,&h30,&h30,&h30,&h30,&h30,&h00
'4dh
Data &h00,&hFF,&hFF,&h1E,&h78,&hE0,&hE0,&h78,&h1E,&hFF,&hFF,&h00
Data &h00,&h3F,&h3F,&h00,&h00,&h01,&h01,&h00,&h00,&h3F,&h3F,&h00
'4eh
Data &h00,&hFF,&hFF,&h0E,&h38,&hF0,&hC0,&h00,&h00,&hFF,&hFF,&h00
Data &h00,&h3F,&h3F,&h00,&h00,&h00,&h03,&h07,&h1C,&h3F,&h3F,&h00
'4fh
Data &h00,&hF0,&hFC,&h0E,&h07,&h03,&h03,&h07,&h0E,&hFC,&hF0,&h00
Data &h00,&h03,&h0F,&h1C,&h38,&h30,&h30,&h38,&h1C,&h0F,&h03,&h00
'---
'50h
Data &h00,&hFF,&hFF,&h83,&h83,&h83,&h83,&h83,&hC7,&hFE,&h7C,&h00
Data &h00,&h3F,&h3F,&h01,&h01,&h01,&h01,&h01,&h01,&h00,&h00,&h00
'51h
Data &h00,&hF0,&hFC,&h0E,&h07,&h03,&h03,&h07,&h0E,&hFC,&hF0,&h00
Data &h00,&h03,&h0F,&h1C,&h38,&h30,&h36,&h3E,&h1C,&h3F,&h33,&h00
'52h
Data &h00,&hFF,&hFF,&h83,&h83,&h83,&h83,&h83,&hC7,&hFE,&h7C,&h00
Data &h00,&h3F,&h3F,&h01,&h01,&h03,&h07,&h0F,&h1D,&h38,&h30,&h00
'53h
Data &h00,&h3C,&h7E,&hE7,&hC3,&hC3,&hC3,&hC3,&hC7,&h8E,&h0C,&h00
Data &h00,&h0C,&h1C,&h38,&h30,&h30,&h30,&h30,&h39,&h1F,&h0F,&h00
'54h
Data &h00,&h00,&h03,&h03,&h03,&hFF,&hFF,&h03,&h03,&h03,&h00,&h00
Data &h00,&h00,&h00,&h00,&h00,&h3F,&h3F,&h00,&h00,&h00,&h00,&h00
'55h
Data &h00,&hFF,&hFF,&h00,&h00,&h00,&h00,&h00,&h00,&hFF,&hFF,&h00
Data &h00,&h07,&h1F,&h38,&h30,&h30,&h30,&h30,&h38,&h1F,&h07,&h00
'56h
Data &h00,&h07,&h3F,&hF8,&hC0,&h00,&h00,&hC0,&hF8,&h3F,&h07,&h00
Data &h00,&h00,&h00,&h01,&h0F,&h3E,&h3E,&h0F,&h01,&h00,&h00,&h00
'57h
Data &h00,&hFF,&hFF,&h00,&h00,&h80,&h80,&h00,&h00,&hFF,&hFF,&h00
Data &h00,&h3F,&h3F,&h1C,&h06,&h03,&h03,&h06,&h1C,&h3F,&h3F,&h00
'588
Data &h00,&h03,&h0F,&h1C,&h30,&hE0,&hE0,&h30,&h1C,&h0F,&h03,&h00
Data &h00,&h30,&h3C,&h0E,&h03,&h01,&h01,&h03,&h0E,&h3C,&h30,&h00
'59h
Data &h00,&h03,&h0F,&h3C,&hF0,&hC0,&hC0,&hF0,&h3C,&h0F,&h03,&h00
Data &h00,&h00,&h00,&h00,&h00,&h3F,&h3F,&h00,&h00,&h00,&h00,&h00
'5ah
Data &h00,&h03,&h03,&h03,&h03,&hC3,&hE3,&h33,&h1F,&h0F,&h03,&h00
Data &h00,&h30,&h3C,&h3E,&h33,&h31,&h30,&h30,&h30,&h30,&h30,&h00
'5bh
Data &h00,&h00,&h00,&hFF,&hFF,&h03,&h03,&h03,&h03,&h00,&h00,&h00
Data &h00,&h00,&h00,&h3F,&h3F,&h30,&h30,&h30,&h30,&h00,&h00,&h00
'5ch
Data &h00,&h0E,&h1C,&h38,&h70,&hE0,&hC0,&h80,&h00,&h00,&h00,&h00
Data &h00,&h00,&h00,&h00,&h00,&h00,&h01,&h03,&h07,&h0E,&h1C,&h18
'5dh
Data &h00,&h00,&h00,&h03,&h03,&h03,&h03,&hFF,&hFF,&h00,&h00,&h00
Data &h00,&h00,&h00,&h30,&h30,&h30,&h30,&h3F,&h3F,&h00,&h00,&h00
'5eh
Data &h00,&h60,&h70,&h38,&h1C,&h0E,&h07,&h0E,&h1C,&h38,&h70,&h60
Data &h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00
'5fh
Data &h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00
Data &h00,&hC0,&hC0,&hC0,&hC0,&hC0,&hC0,&hC0,&hC0,&hC0,&hC0,&hC0
'---
'60h
Data &h00,&h00,&h00,&h00,&h00,&h3E,&h7E,&h4E,&h00,&h00,&h00,&h00
Data &h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00
'61h
Data &h00,&h00,&h40,&h60,&h60,&h60,&h60,&h60,&h60,&hE0,&hC0,&h00
Data &h00,&h1C,&h3E,&h33,&h33,&h33,&h33,&h33,&h33,&h3F,&h3F,&h00
'62h
Data &h00,&hFF,&hFF,&hC0,&h60,&h60,&h60,&h60,&hE0,&hC0,&h80,&h00
Data &h00,&h3F,&h3F,&h30,&h30,&h30,&h30,&h30,&h38,&h1F,&h0F,&h00
'63h
Data &h00,&h80,&hC0,&hE0,&h60,&h60,&h60,&h60,&h60,&hC0,&h80,&h00
Data &h00,&h0F,&h1F,&h38,&h30,&h30,&h30,&h30,&h30,&h18,&h08,&h00
'64h
Data &h00,&h80,&hC0,&hE0,&h60,&h60,&h60,&hE0,&hC0,&hFF,&hFF,&h00
Data &h00,&h0F,&h1F,&h38,&h30,&h30,&h30,&h30,&h30,&h3F,&h3F,&h00
'65h
Data &h00,&h80,&hC0,&hE0,&h60,&h60,&h60,&h60,&h60,&hC0,&h80,&h00
Data &h00,&h0F,&h1F,&h3B,&h33,&h33,&h33,&h33,&h33,&h13,&h01,&h00
'66h
Data &h00,&hC0,&hC0,&hFC,&hFE,&hC7,&hC3,&hC3,&h03,&h00,&h00,&h00
Data &h00,&h00,&h00,&h3F,&h3F,&h00,&h00,&h00,&h00,&h00,&h00,&h00
'67h
Data &h00,&h80,&hC0,&hE0,&h60,&h60,&h60,&h60,&h60,&hE0,&hE0,&h00
Data &h00,&h03,&hC7,&hCE,&hCC,&hCC,&hCC,&hCC,&hE6,&h7F,&h3F,&h00
'68h
Data &h00,&hFF,&hFF,&hC0,&h60,&h60,&h60,&hE0,&hC0,&h80,&h00,&h00
Data &h00,&h3F,&h3F,&h00,&h00,&h00,&h00,&h00,&h3F,&h3F,&h00,&h00
'69h
Data &h00,&h00,&h00,&h00,&h60,&hEC,&hEC,&h00,&h00,&h00,&h00,&h00
Data &h00,&h00,&h00,&h30,&h30,&h3F,&h3F,&h30,&h30,&h00,&h00,&h00
'6ah
Data &h00,&h00,&h00,&h00,&h00,&h00,&h60,&hEC,&hEC,&h00,&h00,&h00
Data &h00,&h00,&h00,&h60,&hE0,&hC0,&hC0,&hFF,&h7F,&h00,&h00,&h00
'6bh
Data &h00,&h00,&hFF,&hFF,&h00,&h80,&hC0,&hE0,&h60,&h00,&h00,&h00
Data &h00,&h00,&h3F,&h3F,&h03,&h07,&h0F,&h1C,&h38,&h30,&h00,&h00
'6ch
Data &h00,&h00,&h00,&h00,&h03,&hFF,&hFF,&h00,&h00,&h00,&h00,&h00
Data &h00,&h00,&h00,&h30,&h30,&h3F,&h3F,&h30,&h30,&h00,&h00,&h00
'6dh
Data &h00,&hE0,&hC0,&hE0,&hE0,&hC0,&hC0,&hE0,&hE0,&hC0,&h80,&h00
Data &h00,&h3F,&h3F,&h00,&h00,&h3F,&h3F,&h00,&h00,&h3F,&h3F,&h00
'6eh
Data &h00,&h00,&hE0,&hE0,&h60,&h60,&h60,&h60,&hE0,&hC0,&h80,&h00
Data &h00,&h00,&h3F,&h3F,&h00,&h00,&h00,&h00,&h00,&h3F,&h3F,&h00
'6fh
Data &h00,&h80,&hC0,&hE0,&h60,&h60,&h60,&h60,&hE0,&hC0,&h80,&h00
Data &h00,&h0F,&h1F,&h38,&h30,&h30,&h30,&h30,&h38,&h1F,&h0F,&h00
'---
'70h
Data &h00,&hE0,&hE0,&h60,&h60,&h60,&h60,&h60,&hE0,&hC0,&h80,&h00
Data &h00,&hFF,&hFF,&h0C,&h18,&h18,&h18,&h18,&h1C,&h0F,&h07,&h00
'71h
Data &h00,&h80,&hC0,&hE0,&h60,&h60,&h60,&h60,&h60,&hE0,&hE0,&h00
Data &h00,&h07,&h0F,&h1C,&h18,&h18,&h18,&h18,&h0C,&hFF,&hFF,&h00
'72h
Data &h00,&h00,&hE0,&hE0,&hC0,&h60,&h60,&h60,&h60,&hE0,&hC0,&h00
Data &h00,&h00,&h3F,&h3F,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00
'73h
Data &h00,&hC0,&hE0,&h60,&h60,&h60,&h60,&h60,&h40,&h00,&h00,&h00
Data &h00,&h11,&h33,&h33,&h33,&h33,&h33,&h3F,&h1E,&h00,&h00,&h00
'74h
Data &h00,&h60,&h60,&hFE,&hFE,&h60,&h60,&h60,&h00,&h00,&h00,&h00
Data &h00,&h00,&h00,&h1F,&h3F,&h30,&h30,&h30,&h30,&h00,&h00,&h00
'75h
Data &h00,&hE0,&hE0,&h00,&h00,&h00,&h00,&h00,&h00,&hE0,&hE0,&h00
Data &h00,&h0F,&h1F,&h38,&h30,&h30,&h30,&h30,&h18,&h3F,&h3F,&h00
'76h
Data &h00,&h60,&hE0,&h80,&h00,&h00,&h00,&h00,&h80,&hE0,&h60,&h00
Data &h00,&h00,&h01,&h07,&h1E,&h38,&h38,&h1E,&h07,&h01,&h00,&h00
'77h
Data &h00,&hE0,&hE0,&h00,&h00,&hE0,&hE0,&h00,&h00,&hE0,&hE0,&h00
Data &h00,&h07,&h1F,&h38,&h1C,&h0F,&h0F,&h1C,&h38,&h1F,&h07,&h00
'78h
Data &h00,&h60,&hE0,&hC0,&h80,&h00,&h80,&hC0,&hE0,&h60,&h00,&h00
Data &h00,&h30,&h38,&h1D,&h0F,&h07,&h0F,&h1D,&h38,&h30,&h00,&h00
'79h
Data &h00,&h00,&h60,&hE0,&h80,&h00,&h00,&h80,&hE0,&h60,&h00,&h00
Data &h00,&h00,&h00,&h81,&hE7,&h7E,&h1E,&h07,&h01,&h00,&h00,&h00
'7ah
Data &h00,&h60,&h60,&h60,&h60,&h60,&hE0,&hE0,&h60,&h20,&h00,&h00
Data &h00,&h30,&h38,&h3C,&h36,&h33,&h31,&h30,&h30,&h30,&h00,&h00
'7bh
Data &h00,&h00,&h80,&hC0,&hFC,&h7E,&h07,&h03,&h03,&h03,&h00,&h00
Data &h00,&h00,&h00,&h01,&h1F,&h3F,&h70,&h60,&h60,&h60,&h00,&h00
'7ch
Data &h00,&h00,&h00,&h00,&h00,&hFF,&hFF,&h00,&h00,&h00,&h00,&h00
Data &h00,&h00,&h00,&h00,&h00,&h3F,&h3F,&h00,&h00,&h00,&h00,&h00
'7dh
Data &h00,&h00,&h03,&h03,&h03,&h07,&h7E,&hFC,&hC0,&h80,&h00,&h00
Data &h00,&h00,&h60,&h60,&h60,&h70,&h3F,&h1F,&h01,&h00,&h00,&h00
'7eh
Data &h00,&h10,&h18,&h0C,&h04,&h0C,&h18,&h10,&h18,&h0C,&h04,&h00
Data &h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00,&h00
'7fh
Data &h00,&h00,&h80,&hC0,&h60,&h30,&h30,&h60,&hC0,&h80,&h00,&h00
Data &h00,&h0F,&h0F,&h0C,&h0C,&h0C,&h0C,&h0C,&h0C,&h0F,&h0F,&h00
'---

+1

9

  • Автор: aneroid
  • Новичок
  • Зарегистрирован: 2010-11-16
  • Приглашений: 0
  • Сообщений: 5
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    9 часов 18 минут
  • Последний визит:
    2011-07-24 17:15:57

Уважаемый dmm, большое спасибо, но не подскажите ли какой индикатор вы выбрали в Протеусе для вашего примера.
Это очень важно для меня.
Спасибо.

0

10

  • Автор: dmm
  • Активный участник
  • Зарегистрирован: 2007-01-28
  • Приглашений: 0
  • Сообщений: 323
  • Уважение: [+33/-2]
  • Позитив: [+0/-0]
  • Провел на форуме:
    3 дня 7 часов
  • Последний визит:
    2015-06-15 20:35:32

протеусом не пользуюсь. даже не знаю как он выглядит. считаю, напрасная трата времени - только отвлекает.
компилятор - программатор - прототип в железе (на это время трачу, очень себя оправдывает ) - осциллограф - документация на микросхемы. Для проверки неясных мест использую программный симулятор Bascom. Вообще все новые (для меня) и важные функциональные блоки отлаживаются отдельно с тестовой программе, а затем используются в большой, если удалось достичь положительного результата. Чтобы потом уже гнать рутину и не копаться с неработающей аппаратной частью. И вообще думать,
как соответсвует результат твоим действиям.

+1

11

  • Автор: amv2000
  • Активный участник
  • amv2000
  • Откуда: Ростовская обл.
  • Зарегистрирован: 2010-10-24
  • Приглашений: 0
  • Сообщений: 117
  • Уважение: [+7/-0]
  • Позитив: [+2/-0]
  • Пол: Мужской
  • Провел на форуме:
    3 дня 15 часов
  • Последний визит:
    2016-03-12 23:44:11

В целях ознакомления с графическим ЖК попробовал программку

Код:
$regfile = "m32def.dat"                                     'заголовочный файл для определения типа контроллера
$crystal = 16000000                                         'для рассчета времени задержки при компиляции, частоту выставляем фьюзами
$lib "glcdks108.lib"                                        'подгружаем библиотеку для контроллера KS0108
 $hwstack = 40
 $swstack = 40
 $framesize = 40

 Wait 2

 Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portc , Ce = 0 , Ce2 = 1 , Cd = 2 , Rd = 3 , Enable = 4 , Reset = 2

 Dim X As Word , Y As Word

 Cls

 Wait 1

 'Setfont Font8x8

 Showpic 1 , 1 , Plaatje1
 Lcdat 1 , 1 , "   HELLO WORLD   " , 1
 Do
 Lcdat 8 , 1 , "avrprojects.net " , 1                       '1 = inverse text
 Wait 1
 Lcdat 8 , 1 , "avrprojects.net "                           'none = normal text
 Wait 1
 Loop
 End

 Plaatje1:
 'Include The Picture Data
 $bgf "pic_AVR.bgf"

На выходе помеха, подскажите пожалуйста не пойму в чем грабли...

Отредактировано amv2000 (2011-07-24 16:54:11)

0

12

  • Автор: dmm
  • Активный участник
  • Зарегистрирован: 2007-01-28
  • Приглашений: 0
  • Сообщений: 323
  • Уважение: [+33/-2]
  • Позитив: [+0/-0]
  • Провел на форуме:
    3 дня 7 часов
  • Последний визит:
    2015-06-15 20:35:32

1 Посмотри эту тему выше. Там работающий проект!
2 Где у тебя подключается файл фонтов. В библиотеке их нет!

0

13

  • Автор: amv2000
  • Активный участник
  • amv2000
  • Откуда: Ростовская обл.
  • Зарегистрирован: 2010-10-24
  • Приглашений: 0
  • Сообщений: 117
  • Уважение: [+7/-0]
  • Позитив: [+2/-0]
  • Пол: Мужской
  • Провел на форуме:
    3 дня 15 часов
  • Последний визит:
    2016-03-12 23:44:11

Пример выше пробовал не находит файл фонтов 6Х8 и 16Х16, если закомментировать то ошибка метка не найдена по этим фонтам...
Не пойму перед чем прописывать подключение фонтов , попробовал опытным путем перед файлом графики появилось изображение, но вверху точки а нижняя мигающая строка пишет каракули....описания видел только у поляков, а по польски я как и по китайски никак.
Порты подключать можно любые или нет? размер файла графики любой?перед чем подгружаются фонты они же как я понимаю шрифты и где их брать?

Код:
Cls

 Wait 1

 Setfont Font8x8


 Showpic 1 , 1 , Plaatje1
 Lcdat 1 , 1 , "   HELLO WORLD   " , 1
 Do
 Lcdat 8 , 1 , "avrprojects.net " , 1                       '1 = inverse text
 Wait 1
 Lcdat 8 , 1 , "avrprojects.net "                           'none = normal text
 Wait 1
 Loop
 End
 $include "font8x8.font"
 Plaatje1:
 'Include The Picture Data
 $bgf "pic_AVR.bgf"

Отредактировано amv2000 (2011-07-25 22:29:42)

0

14

  • Автор: amv2000
  • Активный участник
  • amv2000
  • Откуда: Ростовская обл.
  • Зарегистрирован: 2010-10-24
  • Приглашений: 0
  • Сообщений: 117
  • Уважение: [+7/-0]
  • Позитив: [+2/-0]
  • Пол: Мужской
  • Провел на форуме:
    3 дня 15 часов
  • Последний визит:
    2016-03-12 23:44:11

на нижней строке все равно почему то вместо надписи avrprojects.net, какие то каракули

Код:
Lcdat 8 , 1 , "avrprojects.net " , 1                        '1 = inverse text
Wait 1
Lcdat 8 , 1 , "avrprojects.net "                            'none = normal text

И остались вопросы размер файла я так понимаю ограничивается размером ЖК экрана,порты можно выбирать по желанию или в библиотеке только определенные ?где подставлять фонты(шрифты) и есть ли шрифты с поддержкой кирилицы?Извините за надоедание хочется докопаться до сути...

Отредактировано amv2000 (2011-07-26 20:24:40)

0

15

  • Автор: dmm
  • Активный участник
  • Зарегистрирован: 2007-01-28
  • Приглашений: 0
  • Сообщений: 323
  • Уважение: [+33/-2]
  • Позитив: [+0/-0]
  • Провел на форуме:
    3 дня 7 часов
  • Последний визит:
    2015-06-15 20:35:32

1 размер любой, но не больше экрана или располагать так, чтобы, чтобы катинка не вылазила
  за границы экрана. размер записывается в заголовке BFG-файла
2 используется два целых и любых порта (но не любые линии портов)
3 BPG и font начинается с метки. Команды установки:
  Showpic 0 , 0 , Pl1                     'указатель на метку Pl1
  Setfont Font8x8                         'указатель на метку Font8x8
4 в примере выше шрифт 8х8 кириллический от 20h до FFh
  шрифт 16х8 только латинский символы от 20h до 7Fh

0

16

  • Автор: amv2000
  • Активный участник
  • amv2000
  • Откуда: Ростовская обл.
  • Зарегистрирован: 2010-10-24
  • Приглашений: 0
  • Сообщений: 117
  • Уважение: [+7/-0]
  • Позитив: [+2/-0]
  • Пол: Мужской
  • Провел на форуме:
    3 дня 15 часов
  • Последний визит:
    2016-03-12 23:44:11

Спасибо в целом и общем принцип понятен, а нижняя строка видимо из за шрифтов загагулины рисует...
Вот только думаю два порта на ЖК дисплей не жирно для него, смотрю модуль от nokia 3310  всего пятью проводами подключается только экран меньше 48Х84, ну это смотря какие цели преследовать, как показометр то, что надо. Пожалуй рубрика эксперименты продолжается буду пробовать 3310 завести.

0

17

  • Автор: AleksanderG
  • Активный участник
  • Откуда: Нетешин
  • Зарегистрирован: 2010-09-02
  • Приглашений: 0
  • Сообщений: 114
  • Уважение: [+2/-0]
  • Позитив: [+11/-0]
  • Провел на форуме:
    2 дня 14 часов
  • Последний визит:
    2024-02-04 20:12:44

Mrshilov обновите пожалуста ссылку на файлы проекта. Предыдущая ссылка истек срок. Если можно не на ифолдер, а то у нас с ним на Украине проблемма.Спасибо.

0

18

  • Автор: AleksanderG
  • Активный участник
  • Откуда: Нетешин
  • Зарегистрирован: 2010-09-02
  • Приглашений: 0
  • Сообщений: 114
  • Уважение: [+2/-0]
  • Позитив: [+11/-0]
  • Провел на форуме:
    2 дня 14 часов
  • Последний визит:
    2024-02-04 20:12:44

Mrshilov спасибо за ссылку. В файле фонт 8х8 кирилица есть, а в протеусе крякообразные завитушки. По латинице тоже вопрос. С заглавными буквами все в порядке, а с прописными опять-же проблемма.

0

19

  • Автор: AleksanderG
  • Активный участник
  • Откуда: Нетешин
  • Зарегистрирован: 2010-09-02
  • Приглашений: 0
  • Сообщений: 114
  • Уважение: [+2/-0]
  • Позитив: [+11/-0]
  • Провел на форуме:
    2 дня 14 часов
  • Последний визит:
    2024-02-04 20:12:44

dmm - а где взять $include "R0808f.bas" ?

0

20

  • Автор: AleksanderG
  • Активный участник
  • Откуда: Нетешин
  • Зарегистрирован: 2010-09-02
  • Приглашений: 0
  • Сообщений: 114
  • Уважение: [+2/-0]
  • Позитив: [+11/-0]
  • Провел на форуме:
    2 дня 14 часов
  • Последний визит:
    2024-02-04 20:12:44

И $include "z1612.bas" тоже не понятно где взять?

0

21

  • Автор: amv2000
  • Активный участник
  • amv2000
  • Откуда: Ростовская обл.
  • Зарегистрирован: 2010-10-24
  • Приглашений: 0
  • Сообщений: 117
  • Уважение: [+7/-0]
  • Позитив: [+2/-0]
  • Пол: Мужской
  • Провел на форуме:
    3 дня 15 часов
  • Последний визит:
    2016-03-12 23:44:11
AleksanderG написал(а):

не понятно где взять?

Они выше в начале даны

Отредактировано amv2000 (2012-10-17 19:30:41)

0

22

  • Автор: AleksanderG
  • Активный участник
  • Откуда: Нетешин
  • Зарегистрирован: 2010-09-02
  • Приглашений: 0
  • Сообщений: 114
  • Уважение: [+2/-0]
  • Позитив: [+11/-0]
  • Провел на форуме:
    2 дня 14 часов
  • Последний визит:
    2024-02-04 20:12:44

dmm - я попробывал в вашем исходнике убрать $include "R0808f.bas" и $include "z1612.bas". Все фонты заменить на 8х8. Отлично работает кирилица как прописные так и заглавные. А вот $include "R0808f.bas" на помешало-бы заиметь. Я так понимаю это программа изменения размерности шрифтов на Font6x8 Font16x12. А вообще за работу спасибо.

0

23

  • Автор: amv2000
  • Активный участник
  • amv2000
  • Откуда: Ростовская обл.
  • Зарегистрирован: 2010-10-24
  • Приглашений: 0
  • Сообщений: 117
  • Уважение: [+7/-0]
  • Позитив: [+2/-0]
  • Пол: Мужской
  • Провел на форуме:
    3 дня 15 часов
  • Последний визит:
    2016-03-12 23:44:11
AleksanderG написал(а):

А вот $include "R0808f.bas" на помешало-бы заиметь.

Ещё раз повторюсь, выше пост 8, даны два файла первый

Код:
'0808F.BAS из файла 0808f.bmp (128 x 112)
Font8x8:
DATA 1,8,8,0

другой

Код:
'Z1612.BAS
'знакогенератор фонта размером 16х12 точек (YxX)
'сформирован программой GLCDtool.exe из BMP-файла
'пересыпан вручную с помощью Multi-Edit.exe
'
'---
Font16x12:

Скопируйте, поменяйте расширение на Bas. Первый R0808f.bas, второй z1612.bas

Отредактировано amv2000 (2012-10-17 19:39:08)

0

24

  • Автор: AleksanderG
  • Активный участник
  • Откуда: Нетешин
  • Зарегистрирован: 2010-09-02
  • Приглашений: 0
  • Сообщений: 114
  • Уважение: [+2/-0]
  • Позитив: [+11/-0]
  • Провел на форуме:
    2 дня 14 часов
  • Последний визит:
    2024-02-04 20:12:44

Я вижу что $include "R0808f.bas" это и есть $include "font6x8.font"(только 8х8), а $include "z1612.bas" это тоже самое что и $include "font16x16.font". Тогда не понятно зачем вызывать повтором одни и теже инклюды? Работает или с одними или с другими.

0

Страница: 1

Вы здесь » Программирование ATMEL в BASCOM. » Дисплеи и индикация » Прошу помощи LCD LGM12641BS1, BASCOM + Proteus 7.4 SP3 + LCD