PIC18+TFT_320QWT_mikroBasic

[Yurkin2014]

повторяю - проблема с поворотом экрана!

А какой командой Вы его поворачиваете?

[Dtolok]

Yurkin2014, AM и ID по адресу 11h

[shindax]

...С внуком таблицу умножения проходим. Короче 7 на 9 =

А смысл? В свете заявления:

...Ассемблер - для извращенцев, в СИ - также иногда через жопу гланды удаляют (по листингу одно - после транслятора другое - порой нечитаемый код (абырвалг-главрыба)...

учите внука сразу на калькуляторе счтитать. И следом, а какой-такой "читаемый код" Вы хотели увидеть после обработки Си-исходника компилятором?

[Yurkin2014]

AM и ID по адресу 11h

И таки, чтобы развеять последние сомнения, хорошо бы строчку из Вашей программы увидеть. Как Вы, например, устанавливаете АМ=1 ?

[anatol378]

shindax, отправляйся в эротическое путешествие, критикан недоношенный. Два раза в теме пернул и не по теме.

Как Вы, например, устанавливаете АМ=1

Присоединяюсь к вопросу. Режим Entry Mode (R11h) (POR = 6830h) с страницы 33 даташита.

[Dtolok]

инициализация

Write_Command_Data(0x0007,0x0021)
Write_Command_Data(0x0000,0x0001)
Write_Command_Data(0x0007,0x0023)
Write_Command_Data(0x0010,0x0001)
delay_ms(30)
Write_Command_Data(0x0007,0x0033)

Write_Command_Data(0x0011,0x6830) 'вертикально горизонтально
Write_Command_Data(0x0002,0x0600)
Write_Command_Data(0x0001,0x2B3F) ' %0010101100111111
Write_Command_Data(0x0010,0x0000)
Write_Command(0x0022)

[Dtolok]

и по какой то причине не читает регистр

sub procedure Write_Command(dim Wcommand as word)
TFT_RD = 1
TFT_RS = 0
TFT_DP_Hi = wcommand ›› 8
TFT_DP_Lo = wcommand
TFT_WR = 0
TFT_WR = 1
end sub

sub procedure Write_Data(dim Wdata as word)
TFT_RD = 1
TFT_RS = 1
TFT_DP_Hi = Wdata ›› 8
TFT_DP_Lo = wdata
TFT_WR = 0
TFT_WR = 1
end sub
sub function Read_Data () as word
dim PLo, PHi as byte
result = 0
TFT_WR = 1
TFT_RS = 1
TRISD = %11111111
TRISC = %11111111
asm
nop
end asm
TFT_RD = 0
Delay_Ms(5)
PHi = TFT_DP_Hi
PLo = TFT_DP_Lo
TFT_RD = 1
TRISD = 0
TRISC = 0
PHi = PHi ‹‹ 8
result = PHi + PLo
end sub
sub function Read_Addr_Data(dim Addr as word) as word
result = 0
TFT_CS = 0
write_Command(Addr)
result = Read_Data ()
TFT_CS = 1
end sub

[STM32F0]

инициализация

И это всё? Скудновато! У ПИКа памяти не хватает, на остальное?

[Dtolok]

пробовал и более расширенно

' Write_Command_Data(0x0000,0x0001)
' Write_Command_Data(0x0003,0xA8A4 ) '
' Write_Command_Data(0x000C,0x0000)
' Write_Command_Data(0x000D,0x800C)
' Write_Command_Data(0x000E,0x2B00)
' Write_Command_Data(0x001E,0x00B7)
' '
' Write_Command_Data(0x0001,%0010101100111111) '2B 3F %0010101100111111
' '
' Write_Command_Data(0x0002,0x0600)
' Write_Command_Data(0x0010,0x0000)
' '
' Write_Command_Data(0x0011,0x683 'вертикально горизонтально
' '
' Write_Command_Data(0x0005,0x0000)
' Write_Command_Data(0x0006,0x0000)
' Write_Command_Data(0x0016,0xEF1C)
' Write_Command_Data(0x0017,0x0003)
' Write_Command_Data(0x0007,0x0033) ' 233
' Write_Command_Data(0x000B,0x0000)
' Write_Command_Data(0x000F,0x0000)
' Write_Command_Data(0x0041,0x0000)
' Write_Command_Data(0x0042,0x0000)
' Write_Command_Data(0x0048,0x0000)
' Write_Command_Data(0x0049,0x013F)
' Write_Command_Data(0x004A,0x0000)
' Write_Command_Data(0x004B,0x0000)
' Write_Command_Data(0x0044,0xEF95)
' Write_Command_Data(0x0045,0x0000)
' Write_Command_Data(0x0046,0x013F)
' Write_Command_Data(0x0030,0x0707)
' Write_Command_Data(0x0031,0x0204)
' Write_Command_Data(0x0032,0x0204)
' Write_Command_Data(0x0033,0x0502)
' Write_Command_Data(0x0034,0x0507)
' Write_Command_Data(0x0035,0x0204)
' Write_Command_Data(0x0036,0x0204)
' Write_Command_Data(0x0037,0x0502)
' Write_Command_Data(0x003A,0x0302)
' Write_Command_Data(0x003B,0x0302)
' Write_Command_Data(0x0023,0x0000)
' Write_Command_Data(0x0024,0x0000)
' Write_Command_Data(0x0025,0x8000)
' Write_Command_Data(0x004f,0x0000)
' Write_Command_Data(0x004e,0x0000)
' Write_Command(0x0022)

[Dtolok]

по регистру 0001 - реакция есть а по 0011 нет... и не получается причитать данные из 0000 .