подключить MT-12864A

вот мое подключение. НЕ РАБОТАЕТ.
интерсную фигню заметил..... если убрать строчку "Config Graphlcd = 128 * 64sed....." и все связанное с графикой, светодиод мигает.
только напишешь - фиг !

'-----------------------------------------------------------------------------------
$regfile = "m32def.dat"
$crystal = 8000000

$lib "glcdKS108_4133melt.LIB"
Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portc , Ce = 2 , Ce2 = 1 , Cd = 3 , Rd = 0 , Reset = 4 , Enable = 5
Config Adc = Single , Prescaler = Auto , Reference = Internal

' Name MT12864-A ATmega32
'CE =CS1 Chip select pin 15 pin 24 PC2
'CE2=CS2 Chip select second chip pin 16 pin 23 PC1
'CD=Data/instruction pin 4 pin 25 PC3
'RD=Read pin 5 pin 22 PC0
'RESET = reset pin 17 pin 26 PC4
'ENABLE= Chip Enable pin 6 pin 27 PC5
Start Adc

Config Pind.6 = Output '
R_led Alias Portd.6
Config Pind.5 = Output '
G_led Alias Portd.5

Reset R_led
Set G_led
Waitms 200

Setfont Font8x8

Do
Cls
Waitms 200

Lcdat 1 , 1 , "Just Testing"
Lcdat 3 , 80 , "123"

G_led = Not G_led
Waitms 200

Loop

End 'end program

$include "font8x8.font"

'-----------------------------------------------------------------------------------

Отредактировано seadog (2010-09-17 20:39:18)

Поделиться62012-04-23 14:58:07

Автор: Skull
Активный участник
Откуда: Мариуполь
Зарегистрирован: 2007-03-24
Приглашений: 0
Сообщений: 576
Уважение: [+43/-5]
Позитив: [+106/-1]
Пол: Мужской
Возраст: 46 [1979-10-04]
Провел на форуме:
11 дней 9 часов
Последний визит:
2026-09-22 04:29:58

max Ты мог бы сбросить библиотеку еще раз ? ее нигде не смог найти, и по твоей ссылке тоже нет.

Поделиться72012-04-23 15:43:12

Автор: max
Активный участник
Откуда: Барнаул
Зарегистрирован: 2007-03-08
Приглашений: 0
Сообщений: 664
Уважение: [+63/-1]
Позитив: [+173/-9]
Пол: Мужской
Возраст: 41 [1985-03-29]
Провел на форуме:
5 месяцев 4 дня
Последний визит:
2024-04-08 06:22:50

Не вопрос.

Поделиться82012-04-23 15:57:54

Автор: Skull
Активный участник
Откуда: Мариуполь
Зарегистрирован: 2007-03-24
Приглашений: 0
Сообщений: 576
Уважение: [+43/-5]
Позитив: [+106/-1]
Пол: Мужской
Возраст: 46 [1979-10-04]
Провел на форуме:
11 дней 9 часов
Последний визит:
2026-09-22 04:29:58

Спасибо!!!

Поделиться92012-04-23 16:35:11

Автор: max
Активный участник
Откуда: Барнаул
Зарегистрирован: 2007-03-08
Приглашений: 0
Сообщений: 664
Уважение: [+63/-1]
Позитив: [+173/-9]
Пол: Мужской
Возраст: 41 [1985-03-29]
Провел на форуме:
5 месяцев 4 дня
Последний визит:
2024-04-08 06:22:50

Не за что.

Поделиться102012-04-23 17:43:36

Автор: Skull
Активный участник
Откуда: Мариуполь
Зарегистрирован: 2007-03-24
Приглашений: 0
Сообщений: 576
Уважение: [+43/-5]
Позитив: [+106/-1]
Пол: Мужской
Возраст: 46 [1979-10-04]
Провел на форуме:
11 дней 9 часов
Последний визит:
2026-09-22 04:29:58

Все равно не растет кокос. Дисп WG12864A-YGH-TEA На экране мусор в 4 ряда. При разных действиях по разному. кварц-11059200, припаяно верно.... Мож у кого примерчик есть ? Не пойму, то ли лыжи не едут, то ли я.....

Отредактировано Skull (2012-04-23 17:47:24)

Поделиться112014-11-28 22:17:53

Автор: Ev3658
Активный участник
Откуда: Кстово, Нижег.обл.
Зарегистрирован: 2013-03-30
Приглашений: 0
Сообщений: 1429
Уважение: [+317/-4]
Позитив: [+342/-4]
Пол: Мужской
Возраст: 44 [1982-06-29]
Провел на форуме:
13 дней 0 часов
Последний визит:
2026-09-15 00:07:04

Расжился 12864B, библиотека не качается уже (
Поделитесь вкуснятиной пожалуйста, а я в замен не забуду прикрепить фотографию того гидравлического монстра СССР, где дисплей будет трудится )))

Поделиться122014-11-28 22:35:57

Автор: max
Активный участник
Откуда: Барнаул
Зарегистрирован: 2007-03-08
Приглашений: 0
Сообщений: 664
Уважение: [+63/-1]
Позитив: [+173/-9]
Пол: Мужской
Возраст: 41 [1985-03-29]
Провел на форуме:
5 месяцев 4 дня
Последний визит:
2024-04-08 06:22:50

http://bascom.at.ua/load/1-1-0-14

Поделиться132014-11-28 23:50:08

Автор: Ev3658
Активный участник
Откуда: Кстово, Нижег.обл.
Зарегистрирован: 2013-03-30
Приглашений: 0
Сообщений: 1429
Уважение: [+317/-4]
Позитив: [+342/-4]
Пол: Мужской
Возраст: 44 [1982-06-29]
Провел на форуме:
13 дней 0 часов
Последний визит:
2026-09-15 00:07:04

max написал(а):

http://bascom.at.ua/load/1-1-0-14

Наткнулся тут на чудное подключение, эта библиотека сможет работать по такой схеме?

ист.

Отредактировано Ev3658 (2014-11-28 23:53:59)

Поделиться142014-11-29 08:38:33

Автор: Александр Д.
Модератор
Зарегистрирован: 2009-04-14
Приглашений: 0
Сообщений: 2503
Уважение: [+304/-12]
Позитив: [+450/-66]
Пол: Мужской
Возраст: 47 [1978-11-18]
Провел на форуме:
1 месяц 20 дней
Последний визит:
Сегодня 16:38:59

а какой у вас контроллер в дисплее?
на последней схеме подключение дисплея на основе ST7920
пользовался, нормальный

'Подключено последовательной шиной, вывод 15 (Psb) подключить на минус
Сброс дисплея я не использовал, просто никуда не подключен

Отредактировано Александр Д. (2014-11-29 08:41:13)

Поделиться152014-11-29 08:39:04

Автор: Александр Д.
Модератор
Зарегистрирован: 2009-04-14
Приглашений: 0
Сообщений: 2503
Уважение: [+304/-12]
Позитив: [+450/-66]
Пол: Мужской
Возраст: 47 [1978-11-18]
Провел на форуме:
1 месяц 20 дней
Последний визит:
Сегодня 16:38:59

Код:

'Подключено последовательной шиной, вывод 15 (Psb) подключить на минус       

' ---  Инициализация ST7920  -1  ----------------------
Sclk_glcd = 0 : Sid_glcd = 0
Waitms 100                       ' обязательно.  100 для ЖКИ       

' ---  Инициализация ST7920  -2  ----------------------
Glcd_data = &B_0011_0100 : Gosub Lcdcommand       ' E&HTENDEN instruction
Glcd_data = &B_0011_0000 : Gosub Lcdcommand       ' GRAGIC display Off
Glcd_data = &B_0000_0110 : Gosub Lcdcommand       ' Entry Mode Set
Glcd_data = &B_0000_1100 : Gosub Lcdcommand       ' Выкл Курсор и мигание 

символа
Glcd_data = &B_0000_0001 : Gosub Lcdcommand       ' Clear Text Display
Waitms 5
Glcd_data = &B_0011_0100 : Gosub Lcdcommand       ' EXTENDEN instruction
Glcd_data = &B_0011_0110 : Gosub Lcdcommand       ' GRAGIC display On


Gosub Lcdimgcls                  ' очистка графической памяти ЖКИ          

Font = 0
Lcdstr$ = " ПОДНИМАЮ ШТОК" : Y_lcd = 0 : X_lcd = 0 : Gosub Print_lcd



'====================*********************************************************

=====================
Print_lcd:                       ' по вертикали 0-7 симв., по гориз.- 0-7 

блоков
   ' Память ЖКИ организована извратно: по горизонтали блоками по 16 точек  

(8+8 бит)
   ' Преобразуем номера позиции в физический адрес памяти ЖКИ

   If Y_lcd > 3 Then             ' нижняя половина ЖКИ
      X_lcd = X_lcd + 8
      Y_lcd = Y_lcd - 4
   End If
   Y_lcd = Y_lcd * 8 : Y_lcd = Y_lcd + 128
   Lcdx = X_lcd + 128


   For Count = 1 To Len(lcdstr$)
      Simvol_1$ = Mid(lcdstr$ , Count , 1) : Mybyte = Asc(simvol_1$) -32 : 

Temp_w1 = Mybyte * 8       ' Адрес левого символа
      Incr Count
      Simvol_2$ = Mid(lcdstr$ , Count , 1) : Mybyte = Asc(simvol_2$) -32 : 

Temp_w2 = Mybyte * 8       ' Адрес правого символа

      Lcdy = Y_lcd
      For Temp3 = 0 To 7         '  8 по вертикали

         Mybyte_lf = Lookup(temp_w1 , Shrift_8x8)
         If Font = 1 Then        ' делаем символы жирными - копируем точку 

правее
            Mybyte = Mybyte_lf : Shift Mybyte , Right , 1
            Mybyte_lf = Mybyte_lf Or Mybyte
         End If
         Mybyte_rt = Lookup(temp_w2 , Shrift_8x8)
         If Font = 1 Then        ' делаем символы жирными - копируем точку 

правее
            Mybyte = Mybyte_rt : Shift Mybyte , Right , 1
            Mybyte_rt = Mybyte_rt Or Mybyte
         End If

         Glcd_data = Lcdy : Gosub Lcdcommand : Glcd_data = Lcdx : Gosub 

Lcdcommand       '   X=16      16 точек по горизонтали
         Glcd_data = Mybyte_lf : Gosub Lcdwrite : Glcd_data = Mybyte_rt : 

Gosub Lcdwrite
         ' левая половина блока - Lf, правая половина блока = Rt
         Incr Lcdy
         Incr Temp_w1 : Incr Temp_w2
      Next
      Incr Lcdx

   Next
   Lcdstr$ = ""
Return


'====================*********************************************************

=====================
Lcdimgcls:                       ' --  Очистка графической памяти ST7920  --
   Mybyte = 0
   For Lcdx = &H80 To &H8F
      For Lcdy = &H80 To &H9F
         Glcd_data = Lcdy : Gosub Lcdcommand : Glcd_data = Lcdx : Gosub 

Lcdcommand
         Glcd_data = Mybyte : Gosub Lcdwrite : Glcd_data = Mybyte : Gosub 

Lcdwrite
      Next
   Next
Return


'====================*********************************************************

=====================
Lcdcommand:                      ' Записать команду -----------------------
   Sclk_glcd = 0 : Sid_glcd = 0

   Temp = &B11111000 : Gosub Shiftout_sub8       ' Команда RW=0 RS=0
   Temp = Glcd_data : Gosub Shiftout_sub4       ' передаём Старшие 4 бита MSB
   Temp = 0 : Gosub Shiftout_sub4       ' передаём 4 нуля

   Temp = Glcd_data : Shift Temp , Left , 4 : Gosub Shiftout_sub4       ' 

передаём младшие 4 бита LSB
   Temp = 0 : Gosub Shiftout_sub4       ' передаём 4 нуля

   Sclk_glcd = 0 : Sid_glcd = 0
   Waitus Delay_us_glcd
Return



'====================*********************************************************

=====================
Lcdwrite:                        ' Записать данные -----------------------
   Sclk_glcd = 0 : Sid_glcd = 0

   Temp = &B11111010 : Gosub Shiftout_sub8       ' данные RW=0 RS=1
   Temp = Glcd_data : Gosub Shiftout_sub4       ' передаём Старшие 4 бита MSB
   Temp = 0 : Gosub Shiftout_sub4       ' передаём 4 нуля

   Shift Glcd_data , Left , 4 : Temp = Glcd_data : Gosub Shiftout_sub4       ' 

передаём младшие 4 бита LSB
   Temp = 0 : Gosub Shiftout_sub4       ' передаём 4 нуля

   Sclk_glcd = 0 : Sid_glcd = 0
   Waitus Delay_us_glcd
Return



'====================*********************************************************

=====================
Shiftout_sub4:
   Shiftout Sid_glcd , Sclk_glcd , Temp , 1 , 4
Return

Shiftout_sub8:
   Shiftout Sid_glcd , Sclk_glcd , Temp , 1 , 8
Return






Shrift_8x8:

   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 32 

( )
   Data &H40 , &H40 , &H40 , &H40 , &H40 , &H00 , &H40 , &H00       '  code 33 

(!)
   Data &H28 , &H28 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 ' Code 34(")
   Data &H24 , &H24 , &H7E , &H28 , &HFC , &H48 , &H48 , &H00       '  code 35 

(#)
   Data &H10 , &H3C , &H50 , &H30 , &H18 , &H14 , &H78 , &H10       '  code 36 

($)
   Data &H64 , &H68 , &H08 , &H10 , &H20 , &H2C , &H4C , &H00       '  code 37 

(%)
   Data &H30 , &H48 , &H48 , &H34 , &H48 , &H4C , &H32 , &H00       '  code 38 

(&)
   Data &H10 , &H10 , &H20 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 39 

(')
   Data &H00 , &H04 , &H08 , &H08 , &H08 , &H08 , &H04 , &H00       '  code 40 

(()
   Data &H00 , &H40 , &H20 , &H20 , &H20 , &H20 , &H40 , &H00       '  code 41 

())
   Data &H00 , &H10 , &H54 , &H38 , &H38 , &H54 , &H10 , &H00       '  code 42 

(*)
   Data &H00 , &H08 , &H08 , &H3E , &H08 , &H08 , &H00 , &H00       '  code 43 

(+)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H20 , &H20 , &H40       '  code 44 

(,)
   Data &H00 , &H00 , &H00 , &H7C , &H00 , &H00 , &H00 , &H00       '  code 45 

(-)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H20 , &H20 , &H00       '  code 46 

(.)
   Data &H08 , &H10 , &H10 , &H10 , &H10 , &H10 , &H20 , &H20       '  code 47 

(/)
   Data &H30 , &H48 , &H48 , &H48 , &H48 , &H48 , &H30 , &H00       '  code 48 

(0)
   Data &H10 , &H30 , &H10 , &H10 , &H10 , &H10 , &H38 , &H00       '  code 49 

(1)
   Data &H70 , &H08 , &H08 , &H10 , &H20 , &H40 , &H78 , &H00       '  code 50 

(2)
   Data &H70 , &H08 , &H08 , &H30 , &H08 , &H08 , &H70 , &H00       '  code 51 

(3)
   Data &H08 , &H18 , &H28 , &H48 , &H7C , &H08 , &H08 , &H00       '  code 52 

(4)
   Data &H78 , &H40 , &H40 , &H70 , &H08 , &H08 , &H70 , &H00       '  code 53 

(5)
   Data &H30 , &H48 , &H40 , &H70 , &H48 , &H48 , &H30 , &H00       '  code 54 

(6)
   Data &H78 , &H08 , &H10 , &H10 , &H20 , &H20 , &H40 , &H00       '  code 55 

(7)
   Data &H30 , &H48 , &H48 , &H30 , &H48 , &H48 , &H30 , &H00       '  code 56 

(8)
   Data &H30 , &H48 , &H48 , &H38 , &H08 , &H08 , &H30 , &H00       '  code 57 

(9)
   Data &H00 , &H00 , &H20 , &H20 , &H00 , &H20 , &H20 , &H00       '  code 58 

(:)
   Data &H00 , &H00 , &H20 , &H20 , &H00 , &H20 , &H20 , &H40       '  code 59 

(;)
   Data &H00 , &H00 , &H0C , &H30 , &H40 , &H30 , &H0C , &H00       ' code 60( 

< )
   Data &H00 , &H00 , &H00 , &HFC , &H00 , &HFC , &H00 , &H00       ' code 61( 

= )
   Data &H00 , &H00 , &H60 , &H18 , &H04 , &H18 , &H60 , &H00       'code 62( 

> )
   Data &H38 , &H44 , &H04 , &H08 , &H10 , &H00 , &H10 , &H00       '  code 63 

(?)
   Data &H1C , &H22 , &H4D , &H55 , &H55 , &H4E , &H20 , &H1C       '  code 64 

(@)
   Data &H18 , &H18 , &H24 , &H24 , &H7E , &H42 , &H42 , &H00       '  code 65 

(A)
   Data &H70 , &H48 , &H48 , &H78 , &H44 , &H44 , &H78 , &H00       '  code 66 

(B)
   Data &H1C , &H22 , &H40 , &H40 , &H40 , &H22 , &H1C , &H00       '  code 67 

(C)
   Data &H78 , &H44 , &H42 , &H42 , &H42 , &H44 , &H78 , &H00       '  code 68 

(D)
   Data &H7C , &H40 , &H40 , &H78 , &H40 , &H40 , &H7C , &H00       '  code 69 

(E)
   Data &H7C , &H40 , &H40 , &H78 , &H40 , &H40 , &H40 , &H00       '  code 70 

(F)
   Data &H1C , &H22 , &H40 , &H4E , &H42 , &H22 , &H1E , &H00       '  code 71 

(G)
   Data &H42 , &H42 , &H42 , &H7E , &H42 , &H42 , &H42 , &H00       '  code 72 

(H)
   Data &H70 , &H20 , &H20 , &H20 , &H20 , &H20 , &H70 , &H00       '  code 73 

(I)
   Data &H70 , &H10 , &H10 , &H10 , &H10 , &H10 , &H60 , &H00       '  code 74 

(J)
   Data &H44 , &H48 , &H50 , &H60 , &H50 , &H48 , &H44 , &H00       '  code 75 

(K)
   Data &H40 , &H40 , &H40 , &H40 , &H40 , &H40 , &H78 , &H00       '  code 76 

(L)
   Data &H42 , &H66 , &H5A , &H5A , &H42 , &H42 , &H42 , &H00       '  code 77 

(M)
   Data &H42 , &H62 , &H52 , &H4A , &H46 , &H42 , &H42 , &H00       '  code 78 

(N)
   Data &H18 , &H24 , &H42 , &H42 , &H42 , &H24 , &H18 , &H00       '  code 79 

(O)
   Data &H78 , &H44 , &H44 , &H44 , &H78 , &H40 , &H40 , &H00       '  code 80 

(P)
   Data &H18 , &H24 , &H42 , &H42 , &H4A , &H24 , &H1C , &H02       '  code 81 

(Q)
   Data &H78 , &H44 , &H44 , &H78 , &H50 , &H48 , &H44 , &H00       '  code 82 

(R)
   Data &H3C , &H40 , &H40 , &H38 , &H04 , &H04 , &H78 , &H00       '  code 83 

(S)
   Data &H7C , &H10 , &H10 , &H10 , &H10 , &H10 , &H10 , &H00       '  code 84 

(T)
   Data &H42 , &H42 , &H42 , &H42 , &H42 , &H42 , &H3C , &H00       '  code 85 

(U)
   Data &H42 , &H42 , &H42 , &H24 , &H24 , &H18 , &H18 , &H00       '  code 86 

(V)
   Data &H49 , &H49 , &H55 , &H55 , &H55 , &H22 , &H22 , &H00       '  code 87 

(W)
   Data &H48 , &H48 , &H30 , &H30 , &H30 , &H48 , &H48 , &H00       '  code 88 

(X)
   Data &H44 , &H28 , &H28 , &H10 , &H10 , &H10 , &H10 , &H00       '  code 89 

(Y)
   Data &H78 , &H08 , &H10 , &H20 , &H20 , &H40 , &H78 , &H00       '  code 90 

(Z)
   Data &H00 , &H70 , &H40 , &H40 , &H40 , &H40 , &H70 , &H00       '  code 91 

([)
   Data &H40 , &H20 , &H20 , &H20 , &H20 , &H20 , &H10 , &H10       '  code 92 

(\)
   Data &H00 , &H38 , &H08 , &H08 , &H08 , &H08 , &H38 , &H00       '  code 93 

(])
   Data &H10 , &H28 , &H44 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 94 

(^)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H7E       '  code 95 

(_)
   Data &H08 , &H08 , &H04 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 96 

(`)
   Data &H00 , &H00 , &H30 , &H08 , &H38 , &H48 , &H38 , &H00       '  code 97 

(a)
   Data &H40 , &H40 , &H70 , &H48 , &H48 , &H48 , &H70 , &H00       '  code 98 

(b)
   Data &H00 , &H00 , &H30 , &H40 , &H40 , &H40 , &H30 , &H00       '  code 99 

(c)
   Data &H08 , &H08 , &H38 , &H48 , &H48 , &H48 , &H38 , &H00       '  code 

100 (d)
   Data &H00 , &H00 , &H30 , &H48 , &H78 , &H40 , &H38 , &H00       '  code 

101 (e)
   Data &H00 , &H30 , &H40 , &H70 , &H40 , &H40 , &H40 , &H00       '  code 

102 (f)
   Data &H00 , &H00 , &H38 , &H48 , &H48 , &H38 , &H08 , &H30       '  code 

103 (g)
   Data &H40 , &H40 , &H70 , &H48 , &H48 , &H48 , &H48 , &H00       '  code 

104 (h)
   Data &H40 , &H00 , &H40 , &H40 , &H40 , &H40 , &H40 , &H00       '  code 

105 (i)
   Data &H10 , &H00 , &H30 , &H10 , &H10 , &H10 , &H10 , &H60       '  code 

106 (j)
   Data &H40 , &H40 , &H48 , &H50 , &H60 , &H50 , &H48 , &H00       '  code 

107 (k)
   Data &H40 , &H40 , &H40 , &H40 , &H40 , &H40 , &H60 , &H00       '  code 

108 (l)
   Data &H00 , &H00 , &H76 , &H49 , &H49 , &H49 , &H49 , &H00       '  code 

109 (m)
   Data &H00 , &H00 , &H70 , &H48 , &H48 , &H48 , &H48 , &H00       '  code 

110 (n)
   Data &H00 , &H00 , &H30 , &H48 , &H48 , &H48 , &H30 , &H00       '  code 

111 (o)
   Data &H00 , &H00 , &H70 , &H48 , &H48 , &H48 , &H70 , &H40       '  code 

112 (p)
   Data &H00 , &H00 , &H38 , &H48 , &H48 , &H48 , &H38 , &H0C       '  code 

113 (q)
   Data &H00 , &H00 , &H50 , &H60 , &H40 , &H40 , &H40 , &H00       '  code 

114 (r)
   Data &H00 , &H00 , &H70 , &H40 , &H20 , &H10 , &H70 , &H00       '  code 

115 (s)
   Data &H00 , &H40 , &HF0 , &H40 , &H40 , &H40 , &H30 , &H00       '  code 

116 (t)
   Data &H00 , &H00 , &H48 , &H48 , &H48 , &H48 , &H38 , &H00       '  code 

117 (u)
   Data &H00 , &H00 , &H44 , &H28 , &H28 , &H28 , &H10 , &H00       '  code 

118 (v)
   Data &H00 , &H00 , &H49 , &H49 , &H55 , &H36 , &H22 , &H00       '  code 

119 (w)
   Data &H00 , &H00 , &H50 , &H20 , &H20 , &H20 , &H50 , &H00       '  code 

120 (x)
   Data &H00 , &H00 , &H44 , &H28 , &H28 , &H10 , &H10 , &H10       '  code 

121 (y)
   Data &H00 , &H00 , &H70 , &H10 , &H20 , &H40 , &H70 , &H00       '  code 

122 (z)
   Data &H00 , &H04 , &H08 , &H08 , &H10 , &H08 , &H08 , &H04       '  code 

123 ({)
   Data &H20 , &H20 , &H20 , &H20 , &H20 , &H20 , &H20 , &H20       '  code 

124 (|)
   Data &H00 , &H20 , &H10 , &H10 , &H08 , &H10 , &H10 , &H20       '  code 

125 (})
   Data &H00 , &H00 , &H00 , &H32 , &H4C , &H00 , &H00 , &H00       '  code 

126 (~)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

127 ( )

   Data &H00 , &H7E , &H7E , &H3C , &H3C , &H18 , &H18 , &H00       '  code 

128 (вниз1)
   Data &H00 , &H18 , &H18 , &H3C , &H3C , &H7E , &H7E , &H00       '  code 

129 (вверх1)
   Data &H00 , &H06 , &H1E , &H7E , &H7E , &H1E , &H06 , &H00       '  code 

130 (влево1)
   Data &H00 , &H60 , &H78 , &H7E , &H7E , &H78 , &H60 , &H00       '  code 

131 (вправо1)

   Data &H77 , &H49 , &H5D , &H49 , &H41 , &H41 , &H41 , &H7F       '  code 

132 (Батарея разряжена)
   Data &H77 , &H49 , &H5D , &H49 , &H41 , &H7F , &H7F , &H7F       '  code 

133 (Батарея заканчивается
   Data &H36 , &H63 , &H77 , &H7F , &H7F , &H7F , &H63 , &H7F       '  code 

134 (Батарея полная)

   Data &H0F , &H21 , &H31 , &HF9 , &H31 , &H21 , &H0F , &H00       '  code 

135 (Вход. Дверь справа)
   Data &HF0 , &H84 , &H86 , &HBF , &H86 , &H84 , &HF0 , &H00       '  code 

136 (Выход. Дверь слева)
   Data &H7E , &HC3 , &H91 , &H91 , &H9D , &H81 , &HC3 , &H7E       '  code 

137 (часы)
   Data &H8C , &H92 , &H10 , &H10 , &H10 , &H12 , &H0C , &H00       '  code 

138 (градусы `C)
   Data &H24 , &H7E , &H42 , &H42 , &H24 , &H18 , &H18 , &H18       '  code 

139 (Вилка в розетку)

   Data &H0E , &H22 , &H12 , &HFA , &H12 , &H22 , &H02 , &H0E       '  code 

140 (Вход2. Дверь справа)
   Data &HE0 , &H88 , &H90 , &HBE , &H90 , &H88 , &H80 , &HE0       '  code 

141(Вход2. Дверь слева)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

142 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

143 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

144 (?)
   Data &H08 , &H08 , &H04 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

145 (‘)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

146 (’)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

147 (“)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

148 (”)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

149 (•)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

150 (–)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

151 (—)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

152 (?)
   Data &H75 , &H27 , &H25 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

153 (™)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

154 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

155 (›)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

156 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

157 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

158 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

159 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

160 ( )
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

161 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

162 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

163 (?)
   Data &H00 , &H44 , &H38 , &H28 , &H38 , &H44 , &H00 , &H00       '  code 

164 (¤)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

165 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

166 (¦)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

167 (§)
   Data &H28 , &H7C , &H40 , &H40 , &H78 , &H40 , &H40 , &H7C       '  code 

168 (Ё)
   Data &H3C , &H42 , &H99 , &HA1 , &HA1 , &H99 , &H42 , &H3C       '  code 

169 (©)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

170 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

171 («)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

172 (¬)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

173 ()
   Data &H3C , &H42 , &HB9 , &HA5 , &HB9 , &HA5 , &H42 , &H3C       '  code 

174 (®)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

175 (?)
   Data &H10 , &H28 , &H10 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

176 (°)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

177 (±)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

178 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

179 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

180 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

181 (µ)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

182 (¶)
   Data &H28 , &H7C , &H40 , &H60 , &H40 , &H40 , &H7C , &H00       '  code 

183 (·)
   Data &H28 , &H00 , &H30 , &H48 , &H78 , &H40 , &H38 , &H00       '  code 

184 (ё)

   Data &H48 , &H6B , &H6B , &H58 , &H58 , &H48 , &H4B , &H00       '  code 

185 (Номер №)

   Data &H00 , &H00 , &H12 , &H24 , &H48 , &H24 , &H12 , &H00       '  code 

186 (<< Влево2)
   Data &H00 , &H00 , &H48 , &H24 , &H12 , &H24 , &H48 , &H00       '  code 

187 (>> Вправо2)
   Data &H00 , &H10 , &H28 , &H44 , &H10 , &H28 , &H44 , &H00       '  code 

188 (Вверх2)
   Data &H00 , &H44 , &H28 , &H10 , &H44 , &H28 , &H10 , &H00       '  code 

189 (Вниз2)

   Data &H10 , &H10 , &H7C , &H38 , &H92 , &H82 , &H82 , &HFE       '  code 

190 (Вовнутрь)
   Data &HFE , &H82 , &H82 , &H92 , &H38 , &H7C , &H10 , &H10       '  code 

191 (Наружу)


   Data &H38 , &H44 , &H84 , &H84 , &HFC , &H84 , &H84 , &H00       ' сode 

192(А)
   Data &HF8 , &H80 , &H80 , &HF8 , &H84 , &H84 , &HF8 , &H00       '  code 

193 (Б)
   Data &HF0 , &H88 , &H88 , &HF0 , &H88 , &H88 , &HF0 , &H00       '  code 

194 (В)
   Data &H78 , &H48 , &H40 , &H40 , &H40 , &H40 , &H40 , &H00       '  code 

195 (Г)
   Data &H38 , &H48 , &H48 , &H48 , &H48 , &H48 , &HFC , &H84       '  code 

196 (Д)
   Data &H7C , &H40 , &H40 , &H78 , &H40 , &H40 , &H7C , &H00       '  code 

197 (Е)
   Data &H92 , &H92 , &H54 , &H38 , &H54 , &H92 , &H92 , &H00       ' сode 198 

(Ж)
   Data &H30 , &H48 , &H08 , &H30 , &H08 , &H08 , &H70 , &H00       '  code 

199 (З)
   Data &H84 , &H8C , &H94 , &H94 , &HA4 , &HC4 , &H84 , &H00       '  code 

200 (И)
   Data &H52 , &H46 , &H4A , &H4A , &H52 , &H62 , &H42 , &H00       '  code 

201 (Й)
   Data &H44 , &H48 , &H50 , &H60 , &H50 , &H48 , &H44 , &H00       '  code 

202 (К)
   Data &H3C , &H64 , &H44 , &H44 , &H44 , &H44 , &HC4 , &H00       '  code 

203 (Л)
   Data &HC6 , &HC6 , &HAA , &HAA , &H92 , &H92 , &H82 , &H00       '  code 

204 (М)
   Data &H84 , &H84 , &H84 , &HFC , &H84 , &H84 , &H84 , &H00       '  code 

205 (Н)
   Data &H30 , &H48 , &H84 , &H84 , &H84 , &H48 , &H30 , &H00       '  code 

206 (О)
   Data &H7C , &H44 , &H44 , &H44 , &H44 , &H44 , &H44 , &H00       '  code 

207 (П)
   Data &H78 , &H44 , &H44 , &H44 , &H78 , &H40 , &H40 , &H00       '  code 

208 (Р)
   Data &H1C , &H22 , &H40 , &H40 , &H40 , &H22 , &H1C , &H00       '  code 

209 (С)
   Data &H7C , &H10 , &H10 , &H10 , &H10 , &H10 , &H10 , &H00       '  code 

210 (T)
   Data &H84 , &H84 , &H84 , &H7C , &H04 , &H04 , &H78 , &H00       '  code 

211 (У)
   Data &H08 , &H3E , &H49 , &H49 , &H49 , &H3E , &H08 , &H00       '  code 

212 (Ф)
   Data &H48 , &H48 , &H30 , &H30 , &H30 , &H48 , &H48 , &H00       '  code 

213 (Х)
   Data &H44 , &H44 , &H44 , &H44 , &H44 , &H44 , &H7E , &H02       '  code 

214 (Ц)
   Data &H44 , &H44 , &H44 , &H3C , &H04 , &H04 , &H04 , &H00       '  code 

215 (Ч)
   Data &H49 , &H49 , &H49 , &H49 , &H49 , &H49 , &H7F , &H00       '  code 

216 (Ш)
   Data &H49 , &H49 , &H49 , &H49 , &H49 , &H49 , &H7F , &H01       '  code 

217 (Щ)
   Data &H70 , &H10 , &H10 , &H1C , &H12 , &H12 , &H1C , &H00       '  code 

218 (Ъ)
   Data &H42 , &H42 , &H42 , &H72 , &H4A , &H4A , &H72 , &H00       '  code 

219 (Ы)
   Data &H80 , &H80 , &H80 , &HF0 , &H88 , &H88 , &HF0 , &H00       '  code 

220 (Ь)
   Data &H78 , &H04 , &H02 , &H3E , &H02 , &H04 , &H78 , &H00       '  code 

221 (Э)
   Data &H4C , &H52 , &H52 , &H72 , &H52 , &H52 , &H4C , &H00       '  code 

222 (Ю)
   Data &H78 , &H88 , &H88 , &H78 , &H48 , &H88 , &H88 , &H00       '  code 

223 (Я)

   Data &H00 , &H00 , &H30 , &H08 , &H38 , &H48 , &H38 , &H00       '  code 

224 (а)
   Data &H38 , &H40 , &H70 , &H48 , &H48 , &H48 , &H30 , &H00       '  code 

225 (б)
   Data &H00 , &H00 , &H70 , &H48 , &H70 , &H48 , &H70 , &H00       '  code 

226 (в)
   Data &H00 , &H00 , &H70 , &H50 , &H40 , &H40 , &H40 , &H00       '  code 

227 (г)
   Data &H00 , &H00 , &H18 , &H28 , &H28 , &H28 , &H7C , &H44       '  code 

228 (?)
   Data &H00 , &H00 , &H30 , &H48 , &H78 , &H40 , &H38 , &H00       '  code 

229 (?)
   Data &H00 , &H00 , &H49 , &H2A , &H1C , &H2A , &H49 , &H00       '  code 

230 (?)
   Data &H00 , &H00 , &H70 , &H10 , &H20 , &H10 , &H70 , &H00       '  code 

231 (?)
   Data &H00 , &H00 , &H48 , &H58 , &H68 , &H68 , &H48 , &H00       '  code 

232 (?)
   Data &H38 , &H00 , &H48 , &H58 , &H68 , &H68 , &H48 , &H00       '  code 

233 (?)
   Data &H00 , &H00 , &H48 , &H50 , &H60 , &H50 , &H48 , &H00       '  code 

234 (?)
   Data &H00 , &H00 , &H38 , &H28 , &H28 , &H28 , &H48 , &H00       '  code 

235 (?)
   Data &H00 , &H00 , &H44 , &H6C , &H54 , &H54 , &H44 , &H00       '  code 

236 (?)
   Data &H00 , &H00 , &H48 , &H48 , &H78 , &H48 , &H48 , &H00       '  code 

237 (?)
   Data &H00 , &H00 , &H30 , &H48 , &H48 , &H48 , &H30 , &H00       '  code 

238 (?)
   Data &H00 , &H00 , &H78 , &H48 , &H48 , &H48 , &H48 , &H00       '  code 

239 (?)
   Data &H00 , &H00 , &H70 , &H48 , &H48 , &H48 , &H70 , &H40       '  code 

240 (?)
   Data &H00 , &H00 , &H30 , &H40 , &H40 , &H40 , &H30 , &H00       '  code 

241 (?)
   Data &H00 , &H00 , &H7C , &H10 , &H10 , &H10 , &H10 , &H00       '  code 

242 (?)
   Data &H00 , &H00 , &H90 , &H90 , &H90 , &H70 , &H10 , &H60       '  code 

243 (у)
   Data &H08 , &H08 , &H3E , &H49 , &H49 , &H49 , &H3E , &H08       '  code 

244 (?)
   Data &H00 , &H00 , &H50 , &H20 , &H20 , &H50 , &H50 , &H00       '  code 

245 (?)
   Data &H00 , &H00 , &H48 , &H48 , &H48 , &H48 , &H7C , &H04       '  code 

246 (?)
   Data &H00 , &H00 , &H48 , &H48 , &H38 , &H08 , &H08 , &H00       '  code 

247 (ч)
   Data &H00 , &H00 , &H54 , &H54 , &H54 , &H54 , &H7C , &H00       '  code 

248 (ш)
   Data &H00 , &H00 , &H54 , &H54 , &H54 , &H54 , &H7E , &H02       '  code 

249 (щ)
   Data &H00 , &H00 , &H60 , &H20 , &H38 , &H24 , &H38 , &H00       '  code 

250 (ъ)
   Data &H00 , &H00 , &H44 , &H44 , &H64 , &H54 , &H64 , &H00       '  code 

251 (ы)
   Data &H00 , &H00 , &H40 , &H40 , &H70 , &H48 , &H70 , &H00       '  code 

252 (ь)
   Data &H00 , &H00 , &H60 , &H10 , &H70 , &H10 , &H60 , &H00       '  code 

253 (э)
   Data &H00 , &H00 , &H4C , &H52 , &H72 , &H52 , &H4C , &H00       '  code 

254 (ю)
   Data &H00 , &H00 , &H38 , &H48 , &H38 , &H28 , &H48 , &H00       '  code 

255 (я)


'(
' Отображаем картинку коровы
Restore Risunok_korova   ' Читаем из Flash памяти контроллера

For Lcdy = 128 To 159                                       'отобразим верхнюю 

половину рисунка
For Lcdx = 128 To 135                                    ' 128 to 135 = верх
Read Mybyte_lf : Read Mybyte_rt
Glcd_data =Lcdy : gosub Lcdcommand  : Glcd_data =Lcdx : gosub Lcdcommand
Glcd_data =Mybyte_lf : gosub lcdwrite                                     ' 

левая половина, Старщая = H
Glcd_data =Mybyte_rt : gosub lcdwrite                                     ' 

правая половина, Младшая= L
Next
Next

For Lcdy = 128 To 159                                       'отобразим нижнюю 

половину рисунка
For Lcdx = 136 To 143                                    ' 136 to 143 = низ
Read Mybyte_lf : Read Mybyte_rt
Glcd_data =Lcdy : gosub Lcdcommand  : Glcd_data =Lcdx : gosub Lcdcommand
Glcd_data =Mybyte_lf : gosub lcdwrite                                     ' 

левая половина, Старщая = H
Glcd_data =Mybyte_rt : gosub lcdwrite Mybyte_rt                                

    ' правая половина, Младшая= L
Next
Next
Wait 2
')

Отредактировано Александр Д. (2014-11-29 19:08:58)

Поделиться162014-11-29 09:47:24

Автор: sasha_1973
Администратор
Откуда: Киев
Зарегистрирован: 2012-10-30
Приглашений: 0
Сообщений: 2536
Уважение: [+930/-17]
Позитив: [+796/-23]
Пол: Мужской
Возраст: 53 [1973-08-08]
Провел на форуме:
1 месяц 1 день
Последний визит:
2026-09-20 08:37:55

Сань, простынку лучше под спойлерок заныкать.

Наконец лёд тронулся!

Начали потихонько выкладывать наработки, а не посылать в гуглю!

Поделиться172014-11-29 10:38:48

Автор: Ev3658
Активный участник
Откуда: Кстово, Нижег.обл.
Зарегистрирован: 2013-03-30
Приглашений: 0
Сообщений: 1429
Уважение: [+317/-4]
Позитив: [+342/-4]
Пол: Мужской
Возраст: 44 [1982-06-29]
Провел на форуме:
13 дней 0 часов
Последний визит:
2026-09-15 00:07:04

Какое чудесное доброе утро мозг уже опух до обеда.
На LCD написано:
12864B V2.0
Made in China 2014 10
На плате три ляпёшки. Возможно Built-in Controller KS0108 or compatible

Добавлено спустя 1 часа 23 минуты 35 секунд 3014 года до нашей эры:

Александр Д. написал(а):

'Подключено последовательной шиной, вывод 15 (Psb) подключить на минус

Код:

 ---  Инициализация ST7920  -1  ----------------------
Sclk_glcd = 0 : Sid_glcd = 0
Waitms 100                       ' обязательно.  100 для ЖКИ       

' ---  Инициализация ST7920  -2  ----------------------
Glcd_data = &B_0011_0100 : Gosub Lcdcommand       ' E&HTENDEN instruction
Glcd_data = &B_0011_0000 : Gosub Lcdcommand       ' GRAGIC display Off
Glcd_data = &B_0000_0110 : Gosub Lcdcommand       ' Entry Mode Set
Glcd_data = &B_0000_1100 : Gosub Lcdcommand       ' Выкл Курсор и мигание 

символа
Glcd_data = &B_0000_0001 : Gosub Lcdcommand       ' Clear Text Display
Waitms 5
Glcd_data = &B_0011_0100 : Gosub Lcdcommand       ' EXTENDEN instruction
Glcd_data = &B_0011_0110 : Gosub Lcdcommand       ' GRAGIC display On

Gosub Lcdimgcls                  ' очистка графической памяти ЖКИ          

Font = 0
Lcdstr$ = " ПОДНИМАЮ ШТОК" : Y_lcd = 0 : X_lcd = 0 : Gosub Print_lcd


'====================*********************************************************

=====================
Print_lcd:                       ' по вертикали 0-7 симв., по гориз.- 0-7 

блоков
   ' Память ЖКИ организована извратно: по горизонтали блоками по 16 точек  

(8+8 бит)
   ' Преобразуем номера позиции в физический адрес памяти ЖКИ

   If Y_lcd > 3 Then             ' нижняя половина ЖКИ
      X_lcd = X_lcd + 8
      Y_lcd = Y_lcd - 4
   End If
   Y_lcd = Y_lcd * 8 : Y_lcd = Y_lcd + 128
   Lcdx = X_lcd + 128

   For Count = 1 To Len(lcdstr$)
      Simvol_1$ = Mid(lcdstr$ , Count , 1) : Mybyte = Asc(simvol_1$) -32 : 

Temp_w1 = Mybyte * 8       ' Адрес левого символа
      Incr Count
      Simvol_2$ = Mid(lcdstr$ , Count , 1) : Mybyte = Asc(simvol_2$) -32 : 

Temp_w2 = Mybyte * 8       ' Адрес правого символа

      Lcdy = Y_lcd
      For Temp3 = 0 To 7         '  8 по вертикали

         Mybyte_lf = Lookup(temp_w1 , Shrift_8x8)
         If Font = 1 Then        ' делаем символы жирными - копируем точку 

правее
            Mybyte = Mybyte_lf : Shift Mybyte , Right , 1
            Mybyte_lf = Mybyte_lf Or Mybyte
         End If
         Mybyte_rt = Lookup(temp_w2 , Shrift_8x8)
         If Font = 1 Then        ' делаем символы жирными - копируем точку 

правее
            Mybyte = Mybyte_rt : Shift Mybyte , Right , 1
            Mybyte_rt = Mybyte_rt Or Mybyte
         End If

         Glcd_data = Lcdy : Gosub Lcdcommand : Glcd_data = Lcdx : Gosub 

Lcdcommand       '   X=16      16 точек по горизонтали
         Glcd_data = Mybyte_lf : Gosub Lcdwrite : Glcd_data = Mybyte_rt : 

Gosub Lcdwrite
         ' левая половина блока - Lf, правая половина блока = Rt
         Incr Lcdy
         Incr Temp_w1 : Incr Temp_w2
      Next
      Incr Lcdx

   Next
   Lcdstr$ = ""
Return

'====================*********************************************************

=====================
Lcdimgcls:                       ' --  Очистка графической памяти ST7920  --
   Mybyte = 0
   For Lcdx = &H80 To &H8F
      For Lcdy = &H80 To &H9F
         Glcd_data = Lcdy : Gosub Lcdcommand : Glcd_data = Lcdx : Gosub 

Lcdcommand
         Glcd_data = Mybyte : Gosub Lcdwrite : Glcd_data = Mybyte : Gosub 

Lcdwrite
      Next
   Next
Return

'====================*********************************************************

=====================
Lcdcommand:                      ' Записать команду -----------------------
   Sclk_glcd = 0 : Sid_glcd = 0

   Temp = &B11111000 : Gosub Shiftout_sub8       ' Команда RW=0 RS=0
   Temp = Glcd_data : Gosub Shiftout_sub4       ' передаём Старшие 4 бита MSB
   Temp = 0 : Gosub Shiftout_sub4       ' передаём 4 нуля

   Temp = Glcd_data : Shift Temp , Left , 4 : Gosub Shiftout_sub4       ' 

передаём младшие 4 бита LSB
   Temp = 0 : Gosub Shiftout_sub4       ' передаём 4 нуля

   Sclk_glcd = 0 : Sid_glcd = 0
   Waitus Delay_us_glcd
Return


'====================*********************************************************

=====================
Lcdwrite:                        ' Записать данные -----------------------
   Sclk_glcd = 0 : Sid_glcd = 0

   Temp = &B11111010 : Gosub Shiftout_sub8       ' данные RW=0 RS=1
   Temp = Glcd_data : Gosub Shiftout_sub4       ' передаём Старшие 4 бита MSB
   Temp = 0 : Gosub Shiftout_sub4       ' передаём 4 нуля

   Shift Glcd_data , Left , 4 : Temp = Glcd_data : Gosub Shiftout_sub4       ' 

передаём младшие 4 бита LSB
   Temp = 0 : Gosub Shiftout_sub4       ' передаём 4 нуля

   Sclk_glcd = 0 : Sid_glcd = 0
   Waitus Delay_us_glcd
Return


'====================*********************************************************

=====================
Shiftout_sub4:
   Shiftout Sid_glcd , Sclk_glcd , Temp , 1 , 4
Return

Shiftout_sub8:
   Shiftout Sid_glcd , Sclk_glcd , Temp , 1 , 8
Return




Shrift_8x8:

   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 32 

( )
   Data &H40 , &H40 , &H40 , &H40 , &H40 , &H00 , &H40 , &H00       '  code 33 

(!)
   Data &H28 , &H28 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 ' Code 34(")
   Data &H24 , &H24 , &H7E , &H28 , &HFC , &H48 , &H48 , &H00       '  code 35 

(#)
   Data &H10 , &H3C , &H50 , &H30 , &H18 , &H14 , &H78 , &H10       '  code 36 

($)
   Data &H64 , &H68 , &H08 , &H10 , &H20 , &H2C , &H4C , &H00       '  code 37 

(%)
   Data &H30 , &H48 , &H48 , &H34 , &H48 , &H4C , &H32 , &H00       '  code 38 

(&)
   Data &H10 , &H10 , &H20 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 39 

(')
   Data &H00 , &H04 , &H08 , &H08 , &H08 , &H08 , &H04 , &H00       '  code 40 

(()
   Data &H00 , &H40 , &H20 , &H20 , &H20 , &H20 , &H40 , &H00       '  code 41 

())
   Data &H00 , &H10 , &H54 , &H38 , &H38 , &H54 , &H10 , &H00       '  code 42 

(*)
   Data &H00 , &H08 , &H08 , &H3E , &H08 , &H08 , &H00 , &H00       '  code 43 

(+)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H20 , &H20 , &H40       '  code 44 

(,)
   Data &H00 , &H00 , &H00 , &H7C , &H00 , &H00 , &H00 , &H00       '  code 45 

(-)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H20 , &H20 , &H00       '  code 46 

(.)
   Data &H08 , &H10 , &H10 , &H10 , &H10 , &H10 , &H20 , &H20       '  code 47 

(/)
   Data &H30 , &H48 , &H48 , &H48 , &H48 , &H48 , &H30 , &H00       '  code 48 

(0)
   Data &H10 , &H30 , &H10 , &H10 , &H10 , &H10 , &H38 , &H00       '  code 49 

(1)
   Data &H70 , &H08 , &H08 , &H10 , &H20 , &H40 , &H78 , &H00       '  code 50 

(2)
   Data &H70 , &H08 , &H08 , &H30 , &H08 , &H08 , &H70 , &H00       '  code 51 

(3)
   Data &H08 , &H18 , &H28 , &H48 , &H7C , &H08 , &H08 , &H00       '  code 52 

(4)
   Data &H78 , &H40 , &H40 , &H70 , &H08 , &H08 , &H70 , &H00       '  code 53 

(5)
   Data &H30 , &H48 , &H40 , &H70 , &H48 , &H48 , &H30 , &H00       '  code 54 

(6)
   Data &H78 , &H08 , &H10 , &H10 , &H20 , &H20 , &H40 , &H00       '  code 55 

(7)
   Data &H30 , &H48 , &H48 , &H30 , &H48 , &H48 , &H30 , &H00       '  code 56 

(8)
   Data &H30 , &H48 , &H48 , &H38 , &H08 , &H08 , &H30 , &H00       '  code 57 

(9)
   Data &H00 , &H00 , &H20 , &H20 , &H00 , &H20 , &H20 , &H00       '  code 58 

(
   Data &H00 , &H00 , &H20 , &H20 , &H00 , &H20 , &H20 , &H40       '  code 59 

(
   Data &H00 , &H00 , &H0C , &H30 , &H40 , &H30 , &H0C , &H00       ' code 60( 

< )
   Data &H00 , &H00 , &H00 , &HFC , &H00 , &HFC , &H00 , &H00       ' code 61( 

= )
   Data &H00 , &H00 , &H60 , &H18 , &H04 , &H18 , &H60 , &H00       'code 62( 

> )
   Data &H38 , &H44 , &H04 , &H08 , &H10 , &H00 , &H10 , &H00       '  code 63 

(?)
   Data &H1C , &H22 , &H4D , &H55 , &H55 , &H4E , &H20 , &H1C       '  code 64 

(@)
   Data &H18 , &H18 , &H24 , &H24 , &H7E , &H42 , &H42 , &H00       '  code 65 

(A)
   Data &H70 , &H48 , &H48 , &H78 , &H44 , &H44 , &H78 , &H00       '  code 66 

(B)
   Data &H1C , &H22 , &H40 , &H40 , &H40 , &H22 , &H1C , &H00       '  code 67 

(C)
   Data &H78 , &H44 , &H42 , &H42 , &H42 , &H44 , &H78 , &H00       '  code 68 

(D)
   Data &H7C , &H40 , &H40 , &H78 , &H40 , &H40 , &H7C , &H00       '  code 69 

(E)
   Data &H7C , &H40 , &H40 , &H78 , &H40 , &H40 , &H40 , &H00       '  code 70 

(F)
   Data &H1C , &H22 , &H40 , &H4E , &H42 , &H22 , &H1E , &H00       '  code 71 

(G)
   Data &H42 , &H42 , &H42 , &H7E , &H42 , &H42 , &H42 , &H00       '  code 72 

(H)
   Data &H70 , &H20 , &H20 , &H20 , &H20 , &H20 , &H70 , &H00       '  code 73 

(I)
   Data &H70 , &H10 , &H10 , &H10 , &H10 , &H10 , &H60 , &H00       '  code 74 

(J)
   Data &H44 , &H48 , &H50 , &H60 , &H50 , &H48 , &H44 , &H00       '  code 75 

(K)
   Data &H40 , &H40 , &H40 , &H40 , &H40 , &H40 , &H78 , &H00       '  code 76 

(L)
   Data &H42 , &H66 , &H5A , &H5A , &H42 , &H42 , &H42 , &H00       '  code 77 

(M)
   Data &H42 , &H62 , &H52 , &H4A , &H46 , &H42 , &H42 , &H00       '  code 78 

(N)
   Data &H18 , &H24 , &H42 , &H42 , &H42 , &H24 , &H18 , &H00       '  code 79 

(O)
   Data &H78 , &H44 , &H44 , &H44 , &H78 , &H40 , &H40 , &H00       '  code 80 

(P)
   Data &H18 , &H24 , &H42 , &H42 , &H4A , &H24 , &H1C , &H02       '  code 81 

(Q)
   Data &H78 , &H44 , &H44 , &H78 , &H50 , &H48 , &H44 , &H00       '  code 82 

(R)
   Data &H3C , &H40 , &H40 , &H38 , &H04 , &H04 , &H78 , &H00       '  code 83 

(S)
   Data &H7C , &H10 , &H10 , &H10 , &H10 , &H10 , &H10 , &H00       '  code 84 

(T)
   Data &H42 , &H42 , &H42 , &H42 , &H42 , &H42 , &H3C , &H00       '  code 85 

(U)
   Data &H42 , &H42 , &H42 , &H24 , &H24 , &H18 , &H18 , &H00       '  code 86 

(V)
   Data &H49 , &H49 , &H55 , &H55 , &H55 , &H22 , &H22 , &H00       '  code 87 

(W)
   Data &H48 , &H48 , &H30 , &H30 , &H30 , &H48 , &H48 , &H00       '  code 88 

(X)
   Data &H44 , &H28 , &H28 , &H10 , &H10 , &H10 , &H10 , &H00       '  code 89 

(Y)
   Data &H78 , &H08 , &H10 , &H20 , &H20 , &H40 , &H78 , &H00       '  code 90 

(Z)
   Data &H00 , &H70 , &H40 , &H40 , &H40 , &H40 , &H70 , &H00       '  code 91 

([)
   Data &H40 , &H20 , &H20 , &H20 , &H20 , &H20 , &H10 , &H10       '  code 92 

(\)
   Data &H00 , &H38 , &H08 , &H08 , &H08 , &H08 , &H38 , &H00       '  code 93 

(])
   Data &H10 , &H28 , &H44 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 94 

(^)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H7E       '  code 95 

(_)
   Data &H08 , &H08 , &H04 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 96 

(`)
   Data &H00 , &H00 , &H30 , &H08 , &H38 , &H48 , &H38 , &H00       '  code 97 

(a)
   Data &H40 , &H40 , &H70 , &H48 , &H48 , &H48 , &H70 , &H00       '  code 98 

(b)
   Data &H00 , &H00 , &H30 , &H40 , &H40 , &H40 , &H30 , &H00       '  code 99 

(c)
   Data &H08 , &H08 , &H38 , &H48 , &H48 , &H48 , &H38 , &H00       '  code 

100 (d)
   Data &H00 , &H00 , &H30 , &H48 , &H78 , &H40 , &H38 , &H00       '  code 

101 (e)
   Data &H00 , &H30 , &H40 , &H70 , &H40 , &H40 , &H40 , &H00       '  code 

102 (f)
   Data &H00 , &H00 , &H38 , &H48 , &H48 , &H38 , &H08 , &H30       '  code 

103 (g)
   Data &H40 , &H40 , &H70 , &H48 , &H48 , &H48 , &H48 , &H00       '  code 

104 (h)
   Data &H40 , &H00 , &H40 , &H40 , &H40 , &H40 , &H40 , &H00       '  code 

105 (i)
   Data &H10 , &H00 , &H30 , &H10 , &H10 , &H10 , &H10 , &H60       '  code 

106 (j)
   Data &H40 , &H40 , &H48 , &H50 , &H60 , &H50 , &H48 , &H00       '  code 

107 (k)
   Data &H40 , &H40 , &H40 , &H40 , &H40 , &H40 , &H60 , &H00       '  code 

108 (l)
   Data &H00 , &H00 , &H76 , &H49 , &H49 , &H49 , &H49 , &H00       '  code 

109 (m)
   Data &H00 , &H00 , &H70 , &H48 , &H48 , &H48 , &H48 , &H00       '  code 

110 (n)
   Data &H00 , &H00 , &H30 , &H48 , &H48 , &H48 , &H30 , &H00       '  code 

111 (o)
   Data &H00 , &H00 , &H70 , &H48 , &H48 , &H48 , &H70 , &H40       '  code 

112 (p)
   Data &H00 , &H00 , &H38 , &H48 , &H48 , &H48 , &H38 , &H0C       '  code 

113 (q)
   Data &H00 , &H00 , &H50 , &H60 , &H40 , &H40 , &H40 , &H00       '  code 

114 (r)
   Data &H00 , &H00 , &H70 , &H40 , &H20 , &H10 , &H70 , &H00       '  code 

115 (s)
   Data &H00 , &H40 , &HF0 , &H40 , &H40 , &H40 , &H30 , &H00       '  code 

116 (t)
   Data &H00 , &H00 , &H48 , &H48 , &H48 , &H48 , &H38 , &H00       '  code 

117 (u)
   Data &H00 , &H00 , &H44 , &H28 , &H28 , &H28 , &H10 , &H00       '  code 

118 (v)
   Data &H00 , &H00 , &H49 , &H49 , &H55 , &H36 , &H22 , &H00       '  code 

119 (w)
   Data &H00 , &H00 , &H50 , &H20 , &H20 , &H20 , &H50 , &H00       '  code 

120 (x)
   Data &H00 , &H00 , &H44 , &H28 , &H28 , &H10 , &H10 , &H10       '  code 

121 (y)
   Data &H00 , &H00 , &H70 , &H10 , &H20 , &H40 , &H70 , &H00       '  code 

122 (z)
   Data &H00 , &H04 , &H08 , &H08 , &H10 , &H08 , &H08 , &H04       '  code 

123 ({)
   Data &H20 , &H20 , &H20 , &H20 , &H20 , &H20 , &H20 , &H20       '  code 

124 (|)
   Data &H00 , &H20 , &H10 , &H10 , &H08 , &H10 , &H10 , &H20       '  code 

125 (})
   Data &H00 , &H00 , &H00 , &H32 , &H4C , &H00 , &H00 , &H00       '  code 

126 (~)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

127 ( )

   Data &H00 , &H7E , &H7E , &H3C , &H3C , &H18 , &H18 , &H00       '  code 

128 (вниз1)
   Data &H00 , &H18 , &H18 , &H3C , &H3C , &H7E , &H7E , &H00       '  code 

129 (вверх1)
   Data &H00 , &H06 , &H1E , &H7E , &H7E , &H1E , &H06 , &H00       '  code 

130 (влево1)
   Data &H00 , &H60 , &H78 , &H7E , &H7E , &H78 , &H60 , &H00       '  code 

131 (вправо1)

   Data &H77 , &H49 , &H5D , &H49 , &H41 , &H41 , &H41 , &H7F       '  code 

132 (Батарея разряжена)
   Data &H77 , &H49 , &H5D , &H49 , &H41 , &H7F , &H7F , &H7F       '  code 

133 (Батарея заканчивается
   Data &H36 , &H63 , &H77 , &H7F , &H7F , &H7F , &H63 , &H7F       '  code 

134 (Батарея полная)

   Data &H0F , &H21 , &H31 , &HF9 , &H31 , &H21 , &H0F , &H00       '  code 

135 (Вход. Дверь справа)
   Data &HF0 , &H84 , &H86 , &HBF , &H86 , &H84 , &HF0 , &H00       '  code 

136 (Выход. Дверь слева)
   Data &H7E , &HC3 , &H91 , &H91 , &H9D , &H81 , &HC3 , &H7E       '  code 

137 (часы)
   Data &H8C , &H92 , &H10 , &H10 , &H10 , &H12 , &H0C , &H00       '  code 

138 (градусы `C)
   Data &H24 , &H7E , &H42 , &H42 , &H24 , &H18 , &H18 , &H18       '  code 

139 (Вилка в розетку)

   Data &H0E , &H22 , &H12 , &HFA , &H12 , &H22 , &H02 , &H0E       '  code 

140 (Вход2. Дверь справа)
   Data &HE0 , &H88 , &H90 , &HBE , &H90 , &H88 , &H80 , &HE0       '  code 

141(Вход2. Дверь слева)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

142 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

143 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

144 (?)
   Data &H08 , &H08 , &H04 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

145 (‘)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

146 (’)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

147 (“)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

148 (”)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

149 (•)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

150 (–)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

151 (—)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

152 (?)
   Data &H75 , &H27 , &H25 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

153 (™)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

154 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

155 (›)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

156 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

157 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

158 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

159 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

160 ( )
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

161 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

162 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

163 (?)
   Data &H00 , &H44 , &H38 , &H28 , &H38 , &H44 , &H00 , &H00       '  code 

164 (¤)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

165 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

166 (¦)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

167 (§)
   Data &H28 , &H7C , &H40 , &H40 , &H78 , &H40 , &H40 , &H7C       '  code 

168 (Ё)
   Data &H3C , &H42 , &H99 , &HA1 , &HA1 , &H99 , &H42 , &H3C       '  code 

169 (©)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

170 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

171 («)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

172 (¬)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

173 ()
   Data &H3C , &H42 , &HB9 , &HA5 , &HB9 , &HA5 , &H42 , &H3C       '  code 

174 (®)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

175 (?)
   Data &H10 , &H28 , &H10 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

176 (°)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

177 (±)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

178 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

179 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

180 (?)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

181 (µ)
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00       '  code 

182 (¶)
   Data &H28 , &H7C , &H40 , &H60 , &H40 , &H40 , &H7C , &H00       '  code 

183 (·)
   Data &H28 , &H00 , &H30 , &H48 , &H78 , &H40 , &H38 , &H00       '  code 

184 (ё)

   Data &H48 , &H6B , &H6B , &H58 , &H58 , &H48 , &H4B , &H00       '  code 

185 (Номер №)

   Data &H00 , &H00 , &H12 , &H24 , &H48 , &H24 , &H12 , &H00       '  code 

186 (<< Влево2)
   Data &H00 , &H00 , &H48 , &H24 , &H12 , &H24 , &H48 , &H00       '  code 

187 (>> Вправо2)
   Data &H00 , &H10 , &H28 , &H44 , &H10 , &H28 , &H44 , &H00       '  code 

188 (Вверх2)
   Data &H00 , &H44 , &H28 , &H10 , &H44 , &H28 , &H10 , &H00       '  code 

189 (Вниз2)

   Data &H10 , &H10 , &H7C , &H38 , &H92 , &H82 , &H82 , &HFE       '  code 

190 (Вовнутрь)
   Data &HFE , &H82 , &H82 , &H92 , &H38 , &H7C , &H10 , &H10       '  code 

191 (Наружу)

   Data &H38 , &H44 , &H84 , &H84 , &HFC , &H84 , &H84 , &H00       ' сode 

192(А)
   Data &HF8 , &H80 , &H80 , &HF8 , &H84 , &H84 , &HF8 , &H00       '  code 

193 (Б)
   Data &HF0 , &H88 , &H88 , &HF0 , &H88 , &H88 , &HF0 , &H00       '  code 

194 (В)
   Data &H78 , &H48 , &H40 , &H40 , &H40 , &H40 , &H40 , &H00       '  code 

195 (Г)
   Data &H38 , &H48 , &H48 , &H48 , &H48 , &H48 , &HFC , &H84       '  code 

196 (Д)
   Data &H7C , &H40 , &H40 , &H78 , &H40 , &H40 , &H7C , &H00       '  code 

197 (Е)
   Data &H92 , &H92 , &H54 , &H38 , &H54 , &H92 , &H92 , &H00       ' сode 198 

(Ж)
   Data &H30 , &H48 , &H08 , &H30 , &H08 , &H08 , &H70 , &H00       '  code 

199 (З)
   Data &H84 , &H8C , &H94 , &H94 , &HA4 , &HC4 , &H84 , &H00       '  code 

200 (И)
   Data &H52 , &H46 , &H4A , &H4A , &H52 , &H62 , &H42 , &H00       '  code 

201 (Й)
   Data &H44 , &H48 , &H50 , &H60 , &H50 , &H48 , &H44 , &H00       '  code 

202 (К)
   Data &H3C , &H64 , &H44 , &H44 , &H44 , &H44 , &HC4 , &H00       '  code 

203 (Л)
   Data &HC6 , &HC6 , &HAA , &HAA , &H92 , &H92 , &H82 , &H00       '  code 

204 (М)
   Data &H84 , &H84 , &H84 , &HFC , &H84 , &H84 , &H84 , &H00       '  code 

205 (Н)
   Data &H30 , &H48 , &H84 , &H84 , &H84 , &H48 , &H30 , &H00       '  code 

206 (О)
   Data &H7C , &H44 , &H44 , &H44 , &H44 , &H44 , &H44 , &H00       '  code 

207 (П)
   Data &H78 , &H44 , &H44 , &H44 , &H78 , &H40 , &H40 , &H00       '  code 

208 (Р)
   Data &H1C , &H22 , &H40 , &H40 , &H40 , &H22 , &H1C , &H00       '  code 

209 (С)
   Data &H7C , &H10 , &H10 , &H10 , &H10 , &H10 , &H10 , &H00       '  code 

210 (T)
   Data &H84 , &H84 , &H84 , &H7C , &H04 , &H04 , &H78 , &H00       '  code 

211 (У)
   Data &H08 , &H3E , &H49 , &H49 , &H49 , &H3E , &H08 , &H00       '  code 

212 (Ф)
   Data &H48 , &H48 , &H30 , &H30 , &H30 , &H48 , &H48 , &H00       '  code 

213 (Х)
   Data &H44 , &H44 , &H44 , &H44 , &H44 , &H44 , &H7E , &H02       '  code 

214 (Ц)
   Data &H44 , &H44 , &H44 , &H3C , &H04 , &H04 , &H04 , &H00       '  code 

215 (Ч)
   Data &H49 , &H49 , &H49 , &H49 , &H49 , &H49 , &H7F , &H00       '  code 

216 (Ш)
   Data &H49 , &H49 , &H49 , &H49 , &H49 , &H49 , &H7F , &H01       '  code 

217 (Щ)
   Data &H70 , &H10 , &H10 , &H1C , &H12 , &H12 , &H1C , &H00       '  code 

218 (Ъ)
   Data &H42 , &H42 , &H42 , &H72 , &H4A , &H4A , &H72 , &H00       '  code 

219 (Ы)
   Data &H80 , &H80 , &H80 , &HF0 , &H88 , &H88 , &HF0 , &H00       '  code 

220 (Ь)
   Data &H78 , &H04 , &H02 , &H3E , &H02 , &H04 , &H78 , &H00       '  code 

221 (Э)
   Data &H4C , &H52 , &H52 , &H72 , &H52 , &H52 , &H4C , &H00       '  code 

222 (Ю)
   Data &H78 , &H88 , &H88 , &H78 , &H48 , &H88 , &H88 , &H00       '  code 

223 (Я)

   Data &H00 , &H00 , &H30 , &H08 , &H38 , &H48 , &H38 , &H00       '  code 

224 (а)
   Data &H38 , &H40 , &H70 , &H48 , &H48 , &H48 , &H30 , &H00       '  code 

225 (б)
   Data &H00 , &H00 , &H70 , &H48 , &H70 , &H48 , &H70 , &H00       '  code 

226 (в)
   Data &H00 , &H00 , &H70 , &H50 , &H40 , &H40 , &H40 , &H00       '  code 

227 (г)
   Data &H00 , &H00 , &H18 , &H28 , &H28 , &H28 , &H7C , &H44       '  code 

228 (?)
   Data &H00 , &H00 , &H30 , &H48 , &H78 , &H40 , &H38 , &H00       '  code 

229 (?)
   Data &H00 , &H00 , &H49 , &H2A , &H1C , &H2A , &H49 , &H00       '  code 

230 (?)
   Data &H00 , &H00 , &H70 , &H10 , &H20 , &H10 , &H70 , &H00       '  code 

231 (?)
   Data &H00 , &H00 , &H48 , &H58 , &H68 , &H68 , &H48 , &H00       '  code 

232 (?)
   Data &H38 , &H00 , &H48 , &H58 , &H68 , &H68 , &H48 , &H00       '  code 

233 (?)
   Data &H00 , &H00 , &H48 , &H50 , &H60 , &H50 , &H48 , &H00       '  code 

234 (?)
   Data &H00 , &H00 , &H38 , &H28 , &H28 , &H28 , &H48 , &H00       '  code 

235 (?)
   Data &H00 , &H00 , &H44 , &H6C , &H54 , &H54 , &H44 , &H00       '  code 

236 (?)
   Data &H00 , &H00 , &H48 , &H48 , &H78 , &H48 , &H48 , &H00       '  code 

237 (?)
   Data &H00 , &H00 , &H30 , &H48 , &H48 , &H48 , &H30 , &H00       '  code 

238 (?)
   Data &H00 , &H00 , &H78 , &H48 , &H48 , &H48 , &H48 , &H00       '  code 

239 (?)
   Data &H00 , &H00 , &H70 , &H48 , &H48 , &H48 , &H70 , &H40       '  code 

240 (?)
   Data &H00 , &H00 , &H30 , &H40 , &H40 , &H40 , &H30 , &H00       '  code 

241 (?)
   Data &H00 , &H00 , &H7C , &H10 , &H10 , &H10 , &H10 , &H00       '  code 

242 (?)
   Data &H00 , &H00 , &H90 , &H90 , &H90 , &H70 , &H10 , &H60       '  code 

243 (у)
   Data &H08 , &H08 , &H3E , &H49 , &H49 , &H49 , &H3E , &H08       '  code 

244 (?)
   Data &H00 , &H00 , &H50 , &H20 , &H20 , &H50 , &H50 , &H00       '  code 

245 (?)
   Data &H00 , &H00 , &H48 , &H48 , &H48 , &H48 , &H7C , &H04       '  code 

246 (?)
   Data &H00 , &H00 , &H48 , &H48 , &H38 , &H08 , &H08 , &H00       '  code 

247 (ч)
   Data &H00 , &H00 , &H54 , &H54 , &H54 , &H54 , &H7C , &H00       '  code 

248 (ш)
   Data &H00 , &H00 , &H54 , &H54 , &H54 , &H54 , &H7E , &H02       '  code 

249 (щ)
   Data &H00 , &H00 , &H60 , &H20 , &H38 , &H24 , &H38 , &H00       '  code 

250 (ъ)
   Data &H00 , &H00 , &H44 , &H44 , &H64 , &H54 , &H64 , &H00       '  code 

251 (ы)
   Data &H00 , &H00 , &H40 , &H40 , &H70 , &H48 , &H70 , &H00       '  code 

252 (ь)
   Data &H00 , &H00 , &H60 , &H10 , &H70 , &H10 , &H60 , &H00       '  code 

253 (э)
   Data &H00 , &H00 , &H4C , &H52 , &H72 , &H52 , &H4C , &H00       '  code 

254 (ю)
   Data &H00 , &H00 , &H38 , &H48 , &H38 , &H28 , &H48 , &H00       '  code 

255 (я)

'(
' Отображаем картинку коровы
Restore Risunok_korova   ' Читаем из Flash памяти контроллера

For Lcdy = 128 To 159                                       'отобразим верхнюю 

половину рисунка
For Lcdx = 128 To 135                                    ' 128 to 135 = верх
Read Mybyte_lf : Read Mybyte_rt
Glcd_data =Lcdy : gosub Lcdcommand  : Glcd_data =Lcdx : gosub Lcdcommand
Glcd_data =Mybyte_lf : gosub lcdwrite                                     ' 

левая половина, Старщая = H
Glcd_data =Mybyte_rt : gosub lcdwrite                                     ' 

правая половина, Младшая= L
Next
Next

For Lcdy = 128 To 159                                       'отобразим нижнюю 

половину рисунка
For Lcdx = 136 To 143                                    ' 136 to 143 = низ
Read Mybyte_lf : Read Mybyte_rt
Glcd_data =Lcdy : gosub Lcdcommand  : Glcd_data =Lcdx : gosub Lcdcommand
Glcd_data =Mybyte_lf : gosub lcdwrite                                     ' 

левая половина, Старщая = H
Glcd_data =Mybyte_rt : gosub lcdwrite Mybyte_rt                                

    ' правая половина, Младшая= L
Next
Next
Wait 2

Чёт я не понял, так это всего то регистры сдвига???? Просто забиваем паровоз битов, нажимаем защёлку и всё? А сколько бит, а какая последовательность, а почему небо синее :crazyfun:
Добавлено спустя 2 часа 23 минуты 35 секунд:

Эх, знаний не хватает, а у Китая видимо проблемы с кремнием, неужели трудно добавить регистр сдвига на эту прожорливую шину данных? :canthearyou:
Добавлено спустя 3 часа 23 минуты 35 секунд от рождеста христова:

Вот вам ещё чуток вкусностей:

Код:

 * Graphic LCD Test Program *
' * AVR Used is ATmega8535 *
' * LCD is SG12232C *
'
$regfile = "m8535.DAT"
$crystal = 12800000
'
Porta = &B11111111
Portb = &B00000011
'
$lib "glcdKS108-SG12232C.LBX
'
Config Graphlcd = 128 * 64sed , Dataport = Portc , Controlport = Portd , Ce = 3 , Ce2 = 2 , Cd = 6 , Rd = 5 , Reset = 4 , Enable = 7
'
Cls
'
Dim Y As Byte
Setfont Font8x8
'
Lcdat 1 , 1 , "1234567890"
Lcdat 2 , 32 , "ABCDEFG" , 1
'
Line(28 , 20) -(94 , 31) , 1

Circle(12 , 20) , 9 , 1
'
For Y = 1 To 12
Circle(105 , 16) , Y , 1
Next
'
Pset 105 , 16 , 1
End
'
$include "font8x8.font"

Библиотека
Шрифт 1 2
用сточник

Добавлено спустя 4 часа 12 минут 40 секунд:
Поправьте меня, если я не правильно понял.

Отсылаю в шину данных по 8 бит 8 раз - рисую линию от верха до низа в начале экрана, дальше защёлку надо сделать или 8 бит по 8 раз и так ещё 128 раз, а дальше защёлка?
У меня на экране U1 U2 U3 - три чипа, возможно U1 - в него идёт шина 8 бит, не контроллер 108, а неведомая адская китаская головоломка.
Есть опыт работы с 8 битными регистрами сдвига, если правилньо понял, первая вертикальная прорисованная строка 8бит*8раз будет в конце экрана?Получается буквы надо прорисовывать в обратном направлении?
Как переключаются эти контроллеры? Сами? У меня нет переключалки на выводах.

Отредактировано Ev3658 (2014-11-29 14:51:28)

Поделиться182014-11-29 19:13:38

Автор: Александр Д.
Модератор
Зарегистрирован: 2009-04-14
Приглашений: 0
Сообщений: 2503
Уважение: [+304/-12]
Позитив: [+450/-66]
Пол: Мужской
Возраст: 47 [1978-11-18]
Провел на форуме:
1 месяц 20 дней
Последний визит:
Сегодня 16:38:59

sasha_1973 написал(а):

Сань, простынку лучше под спойлерок заныкать.

я минут 20 пытался этот код вставить. форум ругается, что-то типа "не из того места". Только в Firefox и прямым текстом и получилось отправить
сейчас спокойно легло в теги... очередные глюки форума а до этого два дня был мне недоступен, а потом неделю не пускал по моим логину/паролю!

sasha_1973 написал(а):

Наконец лёд тронулся! Начали потихонько выкладывать наработки, а не посылать в гуглю!

есть еще свой код для русификации ЖКИ 240*128 с контроллером T6963C и свои рисованные шрифты 16x14 точек

ps
вот опять: "Неверный источник. Вы попали на эту страницу из несанкционированного источника. Пожалуйста, вернитесь и попробуйте еще раз. Если проблема остается: попробуйте отключить антивирус и(или) фаервол"
только из firefox смог отправить сообщение

Поделиться192014-11-29 19:16:18

Автор: Александр Д.
Модератор
Зарегистрирован: 2009-04-14
Приглашений: 0
Сообщений: 2503
Уважение: [+304/-12]
Позитив: [+450/-66]
Пол: Мужской
Возраст: 47 [1978-11-18]
Провел на форуме:
1 месяц 20 дней
Последний визит:
Сегодня 16:38:59

Ev3658 написал(а):

Чёт я не понял, так это всего то регистры сдвига???? Просто забиваем паровоз битов, нажимаем защёлку и всё? А сколько бит, а какая последовательность, а почему небо синее
Отредактировано Ev3658 (Сегодня 14:51:28)

давайте даташит дам. На англицком, но за 4 дня я его раскурил вдоль и поперёк

Поделиться202014-11-29 20:02:53

Автор: Ev3658
Активный участник
Откуда: Кстово, Нижег.обл.
Зарегистрирован: 2013-03-30
Приглашений: 0
Сообщений: 1429
Уважение: [+317/-4]
Позитив: [+342/-4]
Пол: Мужской
Возраст: 44 [1982-06-29]
Провел на форуме:
13 дней 0 часов
Последний визит:
2026-09-15 00:07:04

Александр Д. написал(а):

давайте даташит дам.....к

Не могу найти, у меня с тремя чипами, модель видимо новая и неизвестно, может SPI уже есть даже!
Добавлено спустя 1 час 58 минут 4 секунды:
Вот блин, клоаку взял :tired:
Контроллер - ST7920
Кто сталкивался вот с таким? Разумеется передней панельки нет, но расположение ляпёшкообразных микросхем идентичное.
http://robotbase.en.alibaba.com/product … Board.html
Вот такие контакты:

Добавлено спустя 3 часа 53 минуты 48 секунд:

УРА :crazyfun: ЗАШАМАНИЛ!!!!!!!

Но оказывается он ещё и SPI может работать. Может кто видел описание? Рылся целые сутки, но нигде не встречал, всё какое-то не то.
По соседству впитал опыт - ST7920 графический ЖКИ 128*64 и Bascom

Отредактировано Ev3658 (2014-11-29 23:57:14)

Поделиться212014-11-30 02:08:24

Автор: sasha_1973
Администратор
Откуда: Киев
Зарегистрирован: 2012-10-30
Приглашений: 0
Сообщений: 2536
Уважение: [+930/-17]
Позитив: [+796/-23]
Пол: Мужской
Возраст: 53 [1973-08-08]
Провел на форуме:
1 месяц 1 день
Последний визит:
2026-09-20 08:37:55

Ev3658 написал(а):

Но оказывается он ещё и SPI может работать. Может кто видел описание? Рылся целые сутки, но нигде не встречал, всё какое-то не то.

Здесь вариант работы по SPI

Поделиться222014-12-01 10:15:19

Автор: Ev3658
Активный участник
Откуда: Кстово, Нижег.обл.
Зарегистрирован: 2013-03-30
Приглашений: 0
Сообщений: 1429
Уважение: [+317/-4]
Позитив: [+342/-4]
Пол: Мужской
Возраст: 44 [1982-06-29]
Провел на форуме:
13 дней 0 часов
Последний визит:
2026-09-15 00:07:04

Александр Д. написал(а):

давайте даташит дам.

дай-дай-дай :crazyfun:

Поделиться232014-12-12 01:33:18

Автор: Ev3658
Активный участник
Откуда: Кстово, Нижег.обл.
Зарегистрирован: 2013-03-30
Приглашений: 0
Сообщений: 1429
Уважение: [+317/-4]
Позитив: [+342/-4]
Пол: Мужской
Возраст: 44 [1982-06-29]
Провел на форуме:
13 дней 0 часов
Последний визит:
2026-09-15 00:07:04

Ёпт... ну меня и разбросало в двух темах!!!!! Вот так вот держать закладки открытыми несколько суток, извините за хаос :shine:
Скоро покажу готовенькое всё!
Вот плата:

плата

Поделиться242014-12-12 10:00:04

Автор: Skull
Активный участник
Откуда: Мариуполь
Зарегистрирован: 2007-03-24
Приглашений: 0
Сообщений: 576
Уважение: [+43/-5]
Позитив: [+106/-1]
Пол: Мужской
Возраст: 46 [1979-10-04]
Провел на форуме:
11 дней 9 часов
Последний визит:
2026-09-22 04:29:58

А че это будет ? )

Поделиться252014-12-13 23:38:05

Автор: Ev3658
Активный участник
Откуда: Кстово, Нижег.обл.
Зарегистрирован: 2013-03-30
Приглашений: 0
Сообщений: 1429
Уважение: [+317/-4]
Позитив: [+342/-4]
Пол: Мужской
Возраст: 44 [1982-06-29]
Провел на форуме:
13 дней 0 часов
Последний визит:
2026-09-15 00:07:04

Это будет управлять 14ю клапанами гидравлики и делать умный вид дисплеем ), фотки обязательно выложу! Гидравлический колайдер, во!

Поделиться262017-03-30 21:55:05

Автор: Nord
Администратор
Откуда: Россия
Зарегистрирован: 2016-01-19
Приглашений: 0
Сообщений: 2851
Уважение: [+598/-12]
Позитив: [+674/-1]
Пол: Мужской
Провел на форуме:
2 месяца 9 дней
Последний визит:
Сегодня 15:44:38

Выложил в очередной раз библиотеки...
http://www.fayloobmennik.net/6924586

Найти их оказалось довольно сложно...
Где-то ссылка похе..на, на xxxx.ua зарегистрироваться - легче самому съездить...

Предложение к Администрации: сделать раздел для закачки подобных вещей.
Разумеется - под кардинальным контролем, т.к. понятно, что серверные объемы не резиновые.

Поделиться272017-03-30 22:08:31

Автор: radan
Администратор
Откуда: Лисичанск
Зарегистрирован: 2007-01-25
Приглашений: 0
Сообщений: 1570
Уважение: [+359/-0]
Позитив: [+222/-4]
Пол: Мужской
Возраст: 56 [1970-03-27]
Провел на форуме:
1 месяц 4 дня
Последний визит:
2022-03-07 13:49:39

Nord написал(а):

едложение к Администрации: сделать раздел для закачки подобных вещей.
Разумеется - под кардинальным контролем, т.к. понятно, что серверные объемы не резиновые.

На этом форуме не получится из за движка.
Лучше на нашем сайте это делать. http://bascom.at.ua/
Только нужно проплатить его, чтобы отключить рекламу, а я всё никак не выделю свободных средств.

Поделиться282017-03-30 22:27:42

Автор: Nord
Администратор
Откуда: Россия
Зарегистрирован: 2016-01-19
Приглашений: 0
Сообщений: 2851
Уважение: [+598/-12]
Позитив: [+674/-1]
Пол: Мужской
Провел на форуме:
2 месяца 9 дней
Последний визит:
Сегодня 15:44:38

radan написал(а):

Лучше на нашем сайте это делать. http://bascom.at.ua/Только нужно проплатить его, чтобы отключить рекламу, а я всё никак не выделю свободных средств.

Вот там как раз у меня зарегистрироваться не получилось в первую очередь...
Реклама - уже на десятом месте...
Кое-как, путем регистрации на Яндексе, получил разовый доступ и утянул искомое...
На все-про-все ушло более получаса с перекурами и матюками...
Остальные ссылки, приведенные в данной теме - мертвые (кроме моей последней )...

Отредактировано Nord (2017-03-30 22:28:32)

Страница: 1

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

Меню навигации

Пользовательские ссылки

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

подключить MT-12864A

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

Поделиться12010-09-15 12:08:08

Поделиться22010-09-15 15:47:30

Поделиться32010-09-16 22:06:29

Поделиться42010-09-17 19:36:41

Поделиться52010-09-17 20:25:04

Поделиться62012-04-23 14:58:07

Поделиться72012-04-23 15:43:12

Поделиться82012-04-23 15:57:54

Поделиться92012-04-23 16:35:11

Поделиться102012-04-23 17:43:36

Поделиться112014-11-28 22:17:53

Поделиться122014-11-28 22:35:57

Поделиться132014-11-28 23:50:08

Поделиться142014-11-29 08:38:33

Поделиться152014-11-29 08:39:04

Поделиться162014-11-29 09:47:24

Поделиться172014-11-29 10:38:48

Поделиться182014-11-29 19:13:38

Поделиться192014-11-29 19:16:18

Поделиться202014-11-29 20:02:53

Поделиться212014-11-30 02:08:24

Поделиться222014-12-01 10:15:19

Поделиться232014-12-12 01:33:18

Поделиться242014-12-12 10:00:04

Поделиться252014-12-13 23:38:05

Поделиться262017-03-30 21:55:05

Поделиться272017-03-30 22:08:31

Поделиться282017-03-30 22:27:42