3 "туплю" при заполнении массива

@giaber · Регистрация: 16.09.2014

Студворк — интернет-сервис помощи студентам

Имеется двумерный массив MyArray(2999, 2999). В проге часто надо заполнять всю "строку" или весь "столбец" только нулями или только единицами или только двойками
Кроме этого я ничего не знаю:

Visual Basic
1
2
3
For i = 0 To 2999
     MyArray(123, i) = 1
Next x

Вопросы:
1. Существуют ли какие-то быстрые способы сделать такое заполнение?
2. Пытался замерить скорость приведённого мной цикла:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
'
Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim MyArray(2999, 2999) As Byte
Dim tmr As Double
Dim i, j As Integer
 
Private Sub cmdCommand1_Click()
tmr = GetTickCount()
For i = 0 To 2999
MyArray(123, i) = 1
Next i
lblLabel1 = GetTickCount() - tmr
End Sub

выдаёт 0 - могу ли я считать что происходит так быстро, что до второго тика дело не доходит? или у меня в коде ошибка?

3. Что именно находится в ячейках MyArray() при Dim MyArray(2999, 2999) As Byte - именно 0 или что-то другое, то есть могу ли я потом ставить условие

Visual Basic
1
If MyArray(x,y) = 0 Then ...

если я сам нули не записывал в массив

@HackerVlad · 09.11.2024, 21:27

Сообщение от giaber

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

Да, конечно 2999 интераций это очень мало для современных компьютеров и процессоров, чтобы появилась разница в скорости нужно обрабатывать миллионами, а то и десятками (или даже сотнями) миллионов интераций. Поэкпеременируйте и поставьте 3 млн вместо 3 тыс. И увидете какая скорость.

Добавлено через 40 секунд
А так 3 тысячи конечно будет обрабатывать мгновенно.

Добавлено через 22 секунды
Так что более быстрый способ вам искать не нужно.

I can · 09.11.2024, 21:29

Сообщение от giaber

если я сам нули не записывал в массив

Там нули.

I can · 09.11.2024, 21:33

Сообщение от giaber

так быстро

Вот смотри на 9 миллионах итераций какая маленькая разница

@giaber · 09.11.2024, 21:45 **[ТС]**

Всем БОЛЬШОЕ спасибо! Всё прояснили!

@Mikle Quits · 10.11.2024, 16:41

С помощью CopyMemory() можно ускорить очистку строк, но не столбцов (тут элементы в памяти расположены не подряд).
Когда я писал софтрендер, я сначала сделал очистку экрана так:

Visual Basic
1
2
3
4
5
6
7
8
9
Public Sub SR_ClearCBuffer(ByVal c As Long)
  Dim x As Long, y As Long
 
  For y = 0 To SR_Height - 1
    For x = 0 To SR_Width - 1
      CBuffer(x) = c
    Next x
  Next y
End Sub

Потом оптимизировал так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Public Sub SR_ClearCBuffer(ByVal c As Long)
  Dim x As Long, y As Long
 
  For x = 0 To SR_Width - 1
    CBuffer(x) = c
  Next x
  x = SR_Width * 4
  For y = SR_Width To SR_Width * (SR_Height - 1) Step SR_Width
    CopyMemory CBuffer(y), CBuffer(y - SR_Width), x
  Next y
End Sub

Получил ускорение в 10 раз.

@giaber · 10.11.2024, 18:52 **[ТС]**

Mikle Quits Спасибо! Записал себе в библиотеку кодов, но, к сожалению, в моём случае без столбцов теряет смысл использовать

@Mikle Quits · 10.11.2024, 19:34

Я там выше старый вариант написал по памяти неправильно. Было проще, массив то одномерный:

Visual Basic
1
2
3
4
5
6
7
Public Sub SR_ClearCBuffer(ByVal c As Long)
  Dim x As Long
 
  For x = 0 To SR_Width * SR_Height - 1
    CBuffer(x) = c
  Next x
End Sub

@The trick · 11.11.2024, 00:08

giaber, при компиляции со всеми оптимизациями твой код будет работать довольно быстро. Если после компиляции скорость не устроит то можно сделать многими способами. К примеру можно замапить массив на UDT и доступ тогда будет такой же быстрый как и в С например. Скорость нужно мерить через QPC.

@giaber · 11.11.2024, 13:24 **[ТС]**

Спасибо, The trick! Когда (и если) закончу проект потом буду шлифовать подобные нюансы

@HackerVlad · 11.11.2024, 15:23

giaber, а что у вас за проект вообще такой интересно, что вы там такое грандиозное пишите)

@giaber · 11.11.2024, 19:04 **[ТС]**

Это резалка картинки на маленькие - линиями или фреймами выбираешь нужные куски и прога сохранит их на диск. Когда-то мне понадобилось такое и, как всегда, я "скачал весь интернет", но ни одна прога не устроила меня, ну то-есть работу-то какая-то из них сделала, но все они такое убожество! И тут моя гордость возопила:"Ты гениальный программист или где!? Покажи им всем что такое нормальная прога!" И вот прошло уже 5 лет, а прога всё еще в работе, гордость куда-то спряталась, затихарилась, не видно-не слышно, и я остался один на один со своей ламерской реальностью.
Ну, а если серьёзно, то когда/если она будет сделана, то получится довольно навороченная штучка, тем более для фреймов мне The Trick такой модуль подарил - пальчики оближешь! Полупрозрачные, цветные с регулировкой на лету обоих этих параметров - красота! "Галантерейщик и кардинал - это сила!" (с)
PS
На скриншоте Leandro-вские фреймы, но The Trick-овские точно так выглядят

@testuser2 · 12.11.2024, 04:02

Быстрое заполнение будет когда есть готовый массив, заполненный двойками. Его можно скопировать целиком с помощью copymemory в целевой массив

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@giaber 101 / 38 / 0 Регистрация: 16.09.2014 Сообщений: 429
	09.11.2024, 21:45 [ТС]
	Всем БОЛЬШОЕ спасибо! Всё прояснили! 0

@giaber 101 / 38 / 0 Регистрация: 16.09.2014 Сообщений: 429
	10.11.2024, 18:52 [ТС]
	Mikle Quits Спасибо! Записал себе в библиотеку кодов, но, к сожалению, в моём случае без столбцов теряет смысл использовать 0

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	11.11.2024, 00:08
	giaber, при компиляции со всеми оптимизациями твой код будет работать довольно быстро. Если после компиляции скорость не устроит то можно сделать многими способами. К примеру можно замапить массив на UDT и доступ тогда будет такой же быстрый как и в С например. Скорость нужно мерить через QPC. 1

@giaber 101 / 38 / 0 Регистрация: 16.09.2014 Сообщений: 429
	11.11.2024, 13:24 [ТС]
	Спасибо, The trick! Когда (и если) закончу проект потом буду шлифовать подобные нюансы 0

@HackerVlad Испарился 1742 / 638 / 45 Регистрация: 10.09.2021 Сообщений: 2,769
	11.11.2024, 15:23
	giaber, а что у вас за проект вообще такой интересно, что вы там такое грандиозное пишите) 0

@giaber 101 / 38 / 0 Регистрация: 16.09.2014 Сообщений: 429
	11.11.2024, 19:04 [ТС]
	Это резалка картинки на маленькие - линиями или фреймами выбираешь нужные куски и прога сохранит их на диск. Когда-то мне понадобилось такое и, как всегда, я "скачал весь интернет", но ни одна прога не устроила меня, ну то-есть работу-то какая-то из них сделала, но все они такое убожество! И тут моя гордость возопила:"Ты гениальный программист или где!? Покажи им всем что такое нормальная прога!" И вот прошло уже 5 лет, а прога всё еще в работе, гордость куда-то спряталась, затихарилась, не видно-не слышно, и я остался один на один со своей ламерской реальностью. Ну, а если серьёзно, то когда/если она будет сделана, то получится довольно навороченная штучка, тем более для фреймов мне The Trick такой модуль подарил - пальчики оближешь! Полупрозрачные, цветные с регулировкой на лету обоих этих параметров - красота! "Галантерейщик и кардинал - это сила!" (с) PS На скриншоте Leandro-вские фреймы, но The Trick-овские точно так выглядят Миниатюры 1

@testuser2 1390 / 846 / 92 Регистрация: 08.02.2017 Сообщений: 3,612 Записей в блоге: 2
	12.11.2024, 04:02
	Быстрое заполнение будет когда есть готовый массив, заполненный двойками. Его можно скопировать целиком с помощью copymemory в целевой массив 0