RDX-0154, кто работал?

Поделиться12012-12-26 20:59:15

Автор: Viktor us5
Участник
Зарегистрирован: 2012-02-08
Приглашений: 0
Сообщений: 12
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
6 часов 31 минуту
Последний визит:
2013-01-16 22:10:51

Может есть у кого наработки по этому дисплейчику, контроллер UC1601s.

Поделиться22012-12-27 19:37:14

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

На С видел http://svetomuzyka.narod.ru/project/UC1601s.html
На Bascom http://www.elektroda.pl/rtvforum/topic1533158.html

Отредактировано amv2000 (2012-12-27 19:43:06)

0

Поделиться32012-12-30 11:41:08

Автор: Viktor us5
Участник
Зарегистрирован: 2012-02-08
Приглашений: 0
Сообщений: 12
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
6 часов 31 минуту
Последний визит:
2013-01-16 22:10:51

Спасибо, попробую!

0

Поделиться42012-12-31 23:46:52

Автор: Viktor us5
Участник
Зарегистрирован: 2012-02-08
Приглашений: 0
Сообщений: 12
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
6 часов 31 минуту
Последний визит:
2013-01-16 22:10:51

Всех, С НАСТУПАЮЩИМ, И НАСТУПИВШИМ НОВЫМ ГОДОМ!!!!
Сегодня было немножко времени, получись сделать инициализацию, и засветить все пиксели.... будем копать дальше.
Кстати, 0x70 адрес индикатора, у поляков неправильно!

0

Поделиться52013-01-01 23:31:54

Автор: Viktor us5
Участник
Зарегистрирован: 2012-02-08
Приглашений: 0
Сообщений: 12
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
6 часов 31 минуту
Последний визит:
2013-01-16 22:10:51

Сегодня немножко позанимался с дисплеем..... не могу перевести дисплей в режим записи данных.
Как перевести в bascom строку из Си
i2c_start(0x70,0,0); // 0x70 адрес индикатора, команда, запись
0х70 адрес дисплея
а вот после запятой........ что с ним делать, дисплей упорно не хочет принимать данные.
пытаюсь его стереть пробелами &H00 -не получается.

0

Поделиться62013-01-02 00:05:12

Автор: alex_r61
Активный участник
Откуда: Ростов на Дону
Зарегистрирован: 2010-10-18
Приглашений: 0
Сообщений: 172
Уважение: [+8/-0]
Позитив: [+0/-0]
Пол: Мужской
Провел на форуме:
5 дней 2 часа
Последний визит:
2018-10-12 12:36:29

Там всё просто: R_W чтение(0), запись(1),
C_D 1-данные/0-команда. В файле graphic.c всё
расписано. 70 - читаем команду, 71 - пишем команду,
72 - читаем данные, 73 - пишем.

0

Поделиться72013-01-02 13:31:02

Автор: Viktor us5
Участник
Зарегистрирован: 2012-02-08
Приглашений: 0
Сообщений: 12
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
6 часов 31 минуту
Последний визит:
2013-01-16 22:10:51

Спасибо! Что то начало получаться
Получилось очистить дисплей и вывести картинку

исходник

$regfile = "m128def.dat" ' the used chip

$crystal = 16000000

$baud = 19200 ' baud rate

$lib "i2c_extended.lib"

Config Scl = Portc.1 ' we need to provide the SCL pin name

Config Sda = Portc.2 ' we need to provide the SDA pin name

Config Portc = Output
Set Portc.0

Portc.0 Alias Res_lcd
Portc.1 Alias Scl_lcd
Portc.2 Alias Sda_lcd

Declare Sub 154_clear()
Declare Sub 154_picture()
'Dim Lsb As Byte , Msb As Byte
Dim 154_column As Word
Dim 154_row_loop As Byte 'öèêë ñòðîêè
Dim 154_col_loop As Word 'öèêë ñòîëáöîâ
Dim 154_col_data As Byte 'äàííûå ñòîëáöîâ
'Adress = 8d
'Adress = Hex(adress)
Reset Portc.0
Waitms 10
Set Portc.0
Waitms 10

I2cinit

I2cstart 'rozpocze;cie transmisji
I2cwbyte &H70
I2cwbyte &HE2 '?????????????????????????
I2cstop

Waitms 100

I2cstart 'rozpocze;cie transmisji
I2cwbyte &H70
I2cwbyte &H3B 'Bias 6
I2cwbyte &H81
I2cwbyte &H7C ' pot.
I2cwbyte &HAF 'display ON
I2cwbyte &H60 'na pozycje 100
'I2cwbyte &HA5 'set all pixel ON
'I2cwbyte &H01 'column adres
'I2cwbyte &H10 'column adres
'I2cwbyte &HC4 'Lcd control
I2cwbyte &HB0 'page adres - numer rze;du
I2cwbyte &HC6
I2cstop

Do

Set Portc.3
Waitms 100
Call 154_clear()
Reset Portc.3
Restore Rabbit 'âûáèðàåì êàðòèíêó
Call 154_picture() 'âûâîäèì åå
Waitms 100

Loop

End 'end program

'=================================================
Sub 154_clear()
I2cstart
I2cwbyte &H70 'ïåðåäà÷à êîìàíä
I2cwbyte &HB0 ' ñòðàíèöà 0
I2cwbyte &H00 ' êîëîíêà 0
I2cwbyte &H10 ' ???????????
I2cstop

I2cstart
I2cwbyte &H72 'çàïèñü äàííûõ
For 154_column = 0 To 1056 'çàïîëíÿåì äèñïëåé
I2cwbyte &H00 'ïðîáåëàìè
Next 154_column
I2cstop
End Sub
'======================== Âûâîä ðèñóíêà íà äèñïëåé =============================

Sub 154_picture()
'Restore Rabbit 'âûáèðàåì êàðòèíêó
For 154_row_loop = 64 To 71 'âûâîäèì ñ 0 ïî 7 ñòðîêè
I2cstart
I2cwbyte &H70 'ïåðåäà÷à êîìàíä
I2cwbyte &H01 ' ñòðàíèöà 0
I2cwbyte &H00 ' êîëîíêà 0
I2cwbyte &H10 ' ???????????
I2cstop

I2cstart
I2cwbyte &H72

For 154_col_loop = 1 To 133 'ñ÷èòûâàåì è âûâîäèì
Read 154_col_data 'êàæäûé áàéò ñòðîêè
I2cwbyte 154_col_data
Next 154_col_loop
I2cstop

Next 154_row_loop
Wait 5
End Sub
'=============================== Ïðèìåð êàðòèíêè ===============================

Rabbit:

Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &HC0 , &HC0 , &HC0 , &HC0 , &HC0 , &HE0 '5 ñòðîêà
Data &H70 , &HF0 , &HFE , &HFF , &HFF , &H0F , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &HFE , &HFF , &H01 , &H70 , &H7C , &H0E , &H07 , &H03 , &H01 , &H01 , &H01 , &H00 , &H00 , &H00
Data &H6C , &HFF , &HFF , &H0F , &H00 , &H01 , &H03 , &H07 , &H0E , &H1F , &H1F , &H1E , &H0E , &H1C , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H0F , &HFF , &HE0 , &H00 , &H80 , &H80 , &HC0 , &HC0 , &HC0 , &HE0 , &H80 , &HA0
Data &HA0 , &HA0 , &HF0 , &HF0 , &HF0 , &HF0 , &HD0 , &H40 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &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 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00

Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H0D , &H1F , &H3B , &H76 , &HE0 '6 ñòðîêà
Data &HC0 , &H83 , &H9F , &HBF , &HFF , &HF8 , &HC0 , &H80 , &H80 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H03 , &HFF , &HF8 , &HFE , &H1C , &H18 , &H18 , &H18 , &HD8 , &HCC , &HCC , &H6C , &H6C , &H6C
Data &H2C , &H36 , &H37 , &HB7 , &HF6 , &HFC , &HFE , &HFE , &HFE , &HFE , &HFE , &HFE , &HFE , &HFE , &HFC , &HEC
Data &HE8 , &HF3 , &HFE , &HFE , &HDE , &H0F , &H07 , &H07 , &H07 , &H03 , &H03 , &H03 , &H01 , &H01 , &H01 , &H01
Data &H01 , &H01 , &H00 , &H00 , &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 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00

Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '7 ñòðîêà
Data &H01 , &H01 , &H01 , &H01 , &H01 , &H01 , &H01 , &H03 , &H07 , &H07 , &H1F , &H3E , &H7C , &HEC , &HD8 , &HB8
Data &HB8 , &HF8 , &HF8 , &HF8 , &HFF , &HF7 , &HFE , &H8C , &H3E , &HFC , &HF0 , &HB0 , &H60 , &HE0 , &HE0 , &HE0
Data &HE0 , &HE0 , &HF0 , &HF1 , &HFF , &HDF , &HDF , &HFF , &HFF , &HFF , &HFF , &H69 , &H71 , &H79 , &HFF , &HEF
Data &HE7 , &HE3 , &H07 , &H03 , &H01 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &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 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00

Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '8 ñòðîêà
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H01
Data &H01 , &H01 , &H01 , &H01 , &H01 , &H01 , &H00 , &H00 , &H00 , &H00 , &H01 , &H03 , &H07 , &H06 , &H0C , &H0C
Data &H0F , &H0F , &H0F , &H0F , &H07 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H01 , &H03 , &H03 , &H03 , &H01
Data &H01 , &H01 , &H00 , &H00 , &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 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &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 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00

Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '1 ñòðîêà
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H80 , &HC0 , &HC0 , &HC0 , &HC0 , &H80 , &H80 , &H80 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H80 , &HE0 , &HF8 , &H1C , &H04 , &H1C , &H78 , &HE0 , &H80 , &H00
Data &H00 , &H00 , &H00 , &H00 , &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 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &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 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00

Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '2 ñòðîêà
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H03 , &H1F , &HFC , &HE0 , &H80 , &H01 , &H01 , &H01 , &H03 , &H03 , &H06 , &H2E , &HFC , &HB8 , &H70
Data &HE0 , &H80 , &H00 , &H00 , &H00 , &H00 , &HFC , &HFF , &HF7 , &HE0 , &H00 , &HE0 , &HF0 , &H00 , &H07 , &HFF
Data &HFC , &H00 , &H00 , &H00 , &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 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &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 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00

Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '3 ñòðîêà
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H80 , &H80 , &HC0 , &HE0 , &H60 , &H70 , &H30
Data &H30 , &H18 , &H18 , &H18 , &H1B , &H1F , &H1F , &H3C , &H78 , &H70 , &HE0 , &HC0 , &H98 , &H38 , &HE7 , &HFE
Data &HFB , &H8F , &H3E , &HF0 , &HE0 , &HC0 , &H83 , &HFF , &HFC , &H03 , &H0F , &H3D , &HFF , &HE0 , &HF8 , &HFF
Data &H3F , &H00 , &H00 , &H00 , &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 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &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 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00

Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 '4 ñòðîêà
Data &H00 , &H00 , &H00 , &H80 , &HC0 , &HF8 , &HFC , &H3E , &H0F , &H03 , &H01 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H80 , &HC0 , &H40 , &H00 , &H00 , &H80 , &H80 , &HC0 , &HC1 , &HE3 , &H63 , &H67 , &H6F
Data &H1F , &HFF , &HF8 , &H60 , &H01 , &H03 , &H07 , &H07 , &H03 , &H00 , &H00 , &H02 , &H06 , &H07 , &H0F , &H1C
Data &H18 , &H30 , &H70 , &HE0 , &HC0 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &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 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00

'=========================================================================================================================

странно, почему вместо коментов каракули ?

Отредактировано Viktor us5 (2013-01-02 16:38:34)

0

Поделиться82013-01-02 13:40:40

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

Viktor us5 написал(а):

странно, почему вместо коментов каракули ?

При копировании кода язык нужно выбирать русский.

0

Поделиться92013-01-02 20:54:31

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

Да хорошо бы отредактировать код, и вопрос где и почём брали дисплей?

0

Поделиться102013-01-09 12:34:53

Автор: Viktor us5
Участник
Зарегистрирован: 2012-02-08
Приглашений: 0
Сообщений: 12
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
6 часов 31 минуту
Последний визит:
2013-01-16 22:10:51

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

Да хорошо бы отредактировать код, и вопрос где и почём брали дисплей?

Что ни делал, всё равно, при копировании кода, кракозяблики вместо кирилицы.....
Дисплей покупал здесь http://www.microchip.ua/ около 10$ с подсветкой.

Инициализация дисплея.

Код:

'========================= ИНИЦИАЛИЗАЦИЯ ДИСПЛЕЯ ===============================
'-------------------------------------------------------------------------------------
 Reset Portc.0
 Waitms 10
 Set Portc.0
 Waitms 10

I2cinit

I2cstart                                                    'rozpocze;cie transmisji
  I2cwbyte Komanda
  I2cwbyte &HE2                                             'Системный сброс
I2cstop

Waitms 10

I2cstart                                                    'rozpocze;cie transmisji
      I2cwbyte Komanda
      I2cwbyte &H3B                                         'настройка BIAS для LCD
      I2cwbyte &H81                                         'установить VBIAS потенциометр (двойная команда)
      I2cwbyte &H7C                                         ' значение потенциометра 124 ((от 0 до 255))
      I2cwbyte &HAF                                         'Включить дисплей
      I2cwbyte &HC6                                         'настройка дисплея, грузим с верху вниз, слева направо
     'I2cwbyte &HA7                                          'включить инверсию дисплея
     
I2cstop

Очистка дисплея

Код:

'==================== очистка дисплея ==========================================
Sub 154_clear()
   I2cstart
   I2cwbyte Komanda                                         'передача команд &H70
   I2cwbyte &HB0                                            ' страница 0
   I2cwbyte &H00                                            ' колонка 0
   I2cwbyte &H10                                            ' коллонка
   I2cstop

I2cstart
 I2cwbyte Danie                                             'запись данных  &H72
      For 154_column = 0 To 1056                            'заполняем дисплей
        I2cwbyte &H00                                       'пробелам
     Next 154_column
I2cstop
End Sub

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

за координаты отвечает это:
I2cwbyte &HB0 ' страница 0 ... номер строчки от &HB0 до &HB8
I2cwbyte &H00 ' колонка Lsb ... столбик двигается от 00 до 0F потом начинается бред
I2cwbyte &H10 ' коллонка Msb ... тут вообще не понятно

0

Поделиться112013-01-09 20:23:52

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

Попробуйте так

Код:

'-----------------------------------------------------------
'                     EADOGM128.BAS
'               (c) 1995-2008 MCS Electronics
' micro : banned68
' demo  : SPI graphical display US1601s
' IMPORTANT : SPI only allows the WRITE mode. THis mean that setting pixels is not possible.
'             for this reason commands as PSET, LINE and CIRCLE are not supported.
'             best option would be to display pictures
' fonts and images are compatible to KS108
'-----------------------------------------------------------
'$regfile = "m168def.dat"                                    ' ATbanned68
$crystal = 20000000
$regfile = "m32def.Dat"

$lib "US1601s.lib"

'the display was connected with these pins
'the best option is to control the reset line of the LCD with the micro so you can reset it controlled at startup
Config Graphlcd = 128 * 64eadogm , Cs1 = Portc.6 , A0 = Portc.5 , Si = Portc.4 , Sclk = Portc.3 , Rst = Portc.7

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Dim B As Byte , J As Byte
Dim K As Byte , X As Word , Y As Word

  Config Timer2 = Pwm , Compare Pwm = Clear Down , Prescale = 1
Ocr2 = 100
Start Timer2
Enable Interrupts
 Gosub _init_lcd
Cls

'specify the font we want to use
Setfont Font8x8tt


'You can use locate but the columns have a range from 1-128
'When you want to show somthing on the LCD, use the LCDAT command
'LCDAT Y , COL, value
Lcdat 1 , 1 , "11111111"
Lcdat 2 , 1 , "88888888"
Lcdat 3 , 1 , "www.serwis.tv" , 1
Waitms 3000
Dim I As Byte

Rem contrast
For I = 0 To &H70
   Glcdcmd &H81
   Glcdcmd I
   Lcdat 4 , 1 , "kontrast=" ; Hex(i)
   Waitms 50
Next I


Showpic 0 , 0 , Plaatje

Rem inverse display
For I = 0 To 10
   Glcdcmd &HA6                                             'inverse display
   Wait 1
   Glcdcmd &HA7                                             'normal display
   Wait 1
Next I


For I = 110 To 130
  Lcdat 1 , 1 , I
  Waitms 500
  Cls 1 , 1 , 24 , 255                                      'clear inverse
  Waitms 500
Next

Waitms 3000
Showpic 0 , 0 , Plaatje

Setfont My12_16
Cls
Lcdat 1 , 1 , "112345678"                                   'a bigger font
Waitms 3000

Setfont Font8x8tt

Showpic 0 , 0 , Plaatje
Waitms 3000
Do
  Gosub Touch                                               'optional touch screen
Loop

End

'portc.0-portc.3 pin 1-4
Touch:
Setfont Font8x8tt
   Start Adc
   Waitms 200
'   Config Portc.0 = Output                                  'Bottom
'   Config Portc.2 = Output                                  'Top
'   Set Portc.0                                              'High
'   Reset Portc.2                                            'Low
'   Config Pinc.1 = Input                                    'left as input
'   Config Pinc.3 = Input                                    'right as input
   Waitms 80
   Y = Getadc(3)
   Y = Y - 365
   If Y > 640 Then Y = 0
'   Config Portc.1 = Output                                  'Left
'   Config Portc.3 = Output                                  'Right
'   Set Portc.3
'   Reset Portc.1
'   Config Pinc.0 = Input
'   Config Pinc.2 = Input
   Waitms 80
   X = Getadc(0)
   X = X - 196
   If X > 800 Then X = 0
   Lcdat 1 , 1 , "X : " ; X
   Lcdat 1 , 74 , "Y : " ; Y
   Waitms 500
Return



Plaatje:
'include the picture data

$bgf "ks108.bgf"

'include used fonts
$include "font8x8TT.font"
$include "my12_16.font"

0

Поделиться122013-01-09 21:41:09

Автор: Viktor us5
Участник
Зарегистрирован: 2012-02-08
Приглашений: 0
Сообщений: 12
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
6 часов 31 минуту
Последний визит:
2013-01-16 22:10:51

Этот вариант не проходит,
В общем, вся сложность для меня, как менять два значения одновременно.
Вот например точка 0 (по Х) будет выглядеть как
I2cwbyte &H00 ' колонка Lsb
I2cwbyte &H10 ' коллонка Msb