Наверное как-то так. Совета прошу в ASM недопонимаю.

'==================================================================
Загрузка_верх_1:
  R_1 = 0 : G_1 = 0 : B_1 = 0 : R_2 = 0 : G_2 = 0 : B_2 = 0
  Oe = 1
  For U = 1 To 16                                           ' Загружаем 16 байт (одну строку)
      For W = 0 To 7
          Temp = Data1(u). W
          '---------------------------------------------------------------------------------
          If U = 1 Or U = 2 Or U = 3 Or U = 4 Or U = 5 And Temp = 1 Then
              R_1 = 1 : B_1 = 1                             'Фиолетовый
          End If
          '---------------------------------------------------------------------------------
          If U = 6 Or U = 7 Or U = 8 Or U = 9 Or U = 10 And Temp = 1 Then
              G_1 = 1 : B_1 = 1                             'Голубой
          End If
          '----------------------------------------------------------------------------------
          If U = 11 Or U = 12 Or U = 13 Or U = 14 Or U = 15 Or U = 16 And Temp = 1 Then
              R_1 = 1                                       'Красный
          End If
          '----------------------------------------------------------------------------------
          Clk = 1 : Clk = 0                                 ' Передаём тактовый импульс
          R_1 = 0 : G_1 = 0 : B_1 = 0
      Next W
   Next U
'-----------------------------------------------------------------------------------------=
  Pulseout Portg , 3 , 5
  Oe = 0
Return
'============================================================

Нет даташита. Сколько по времени тактуха.
Может нужно писать задержки.
Или:
          Clk = 1                                 ' Передаём тактовый импульс
          R_1 = 0 : G_1 = 0 : B_1 = 0
          Clk = 0
стоку Clk = 1 : Clk = 0                                 ' Передаём тактовый импульс
заменить на Pulseout Portb , 7 , 5                             'Clk Alias Portb.7
Надежда на то, что уже ктото делал.

Отредактировано rom-i (2025-11-01 16:58:42)

Не правильно поняли. В образце последовательность. В релале каждый байт разукрашивать. Лучше бит.
Вот почему выбрано байтовое условие.
Например:
   Select case u
       Case 1 To 5 : ---
Или же:
   Select case u
        Case 1: ---
        Так 16 вариантов
Как это рассматриваете?

Отредактировано rom-i (2025-11-01 19:26:03)

Nord
Картинки выкладывают на этих матрицах.
На этой матрице можно нарисовать картинку. Но вопрос стал как ее разукрасить?

Отредактировано rom-i (2025-11-01 21:08:44)

Передача по HUB75:
OE = 1 гасится матрица, что бы не было помех.
Дальше как SPI но данных сразу 6. Вот в чем вся проблема. R1,G1,B1 входы цветов верхних 16 строк, R2,G2,B2 соответсвенно нижних 16. Выставил 1 или 0 на нужных входах, тактнул Clk. Набил в данном случае 128 раз.
Строки выбираются входами A, B, C, D в обычном двоичном формате сразу для верха, и низа одновременно.
Выставил номер строки от 0000 до 1111, клацнул входом переноса данных регистров сдвига в выходные буфера.
OE = 0 включаем выходные драйвера светодиодов. По сути обычная динамическая индикация строчками.
Переключает их для равномерности свечения таймер
По ночалу писал обычным Shiftout. Годится для одного порта. Просто хоть как-то подружится с этой матрицей одним цветом. На ASM не работают If. Нельзя в текстовой стоке поменять цвета.
Есть еще одна засада. Шрифты берутся из обычного встоенного в Баском фонтэдитора. В нем символы пишутся столбиками, а передача идет строчками. Добавляется еще один буферный массив для переворачивания символов.
Верняя сттрока у меня часы. Для нее отдельный двухбайтный буфер. Изменяющиеся символы побитно сдвигаюся вниз. Следующая цифра заменяет предидущую. Красиво выглядит на секундах. Да, и сама строка появляется при первом включении построчно сверху в низ.

Отредактировано rom-i (2025-11-03 10:16:47)