Общие вопросы и приёмы эффективного программирования на BASIC

@Замабувараев · Регистрация: 18.12.2014

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

Вот как создать кнопку:

PureBasic
1
2
3
4
5
6
7
8
9
10
Dim hwndButton As HWND = CreateWindow( _
    WC_BUTTON,
    "Текст кнопки", _
    WS_CHILD Or BS_BITMAP Or BS_PUSHBUTTON Or WS_CLIPSIBLINGS, _
    10, 10, 100, 50, _
    hwndMainForm, _
    Cast(HMENU, 1000), _
    hInst, _
    NULL _
)

@Pro_grammer · 09.04.2021, 16:34

Сообщение от Замабувараев

Вот видите, строка пересоздаётся, а не динамически расширяется.

Вы просто не умеете это делать. Если нужна конкатенация строк, то есть CopyMemoryString:

PureBasic
1
2
3
4
5
*Buffer = AllocateMemory(1000)
*Pointer = *Buffer
  CopyMemoryString("Hello", @*Pointer)
  CopyMemoryString(" World!")  ; Эта строка встанет сразу после "Hello"
 Debug PeekS(*Buffer)         ; Ответ "Hello World!"

И не надо ни каких велосипедов если вам нужны указатели на строки. Но в 99% программисты на Basic ни какие указатели не юзают, работать со строками очень комфортно и полностью безопасно.

Добавлено через 5 минут

Сообщение от The trick

Не враньё:

Ещё раз повторяю, Враньё!

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
s.s = ""
Debug @s
Debug s
s.s = "Hello World"
Debug @s
Debug s
s.s = ""
Debug @s
Debug s
s.s = "Hello"
Debug @s
Debug s

Тут 4 раза меняется значение s разной длины, и ВСЕГДА будет один и тот же указатель.

Сообщение от The trick

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

Ну и мне то как программисту что от этого? Или может PRINT выдаст другую строку или ещё какая напасть

Ваши надуманные проблемы - это ВАШИ проблемы и не более того. Абсолютно безопасный и валидный код.

@Замабувараев · 09.04.2021, 16:35 **[ТС]**

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

Враньё!
В этом случае одна и та же строка.

Вот доказательства.

Memory Viewer неудобная:
Всегда поверх всех окон, бесит (относится и к окну Debug тоже). Нельзя было сделать отдельной панелью, что ли.
Нельзя щёлкнуть ПКМ на переменной и выбрать «Показать память по адресу», нужно вручную вводить диапазон памяти.
Все эти окна закрываются когда отладка заканчивается, почему нельзя их оставить?

Память на пятой строке, видно расположение данных двух строк:

Code
1
2
3
4
5
6
7
8
9
10
11
12
00000000022B0880  48 00 65 00 6C 00 6C 00 6F 00 20 00 57 00 6F 00  H.e.l.l.o. .W.o.
00000000022B0890  72 00 6C 00 64 00 21 00 00 00 00 00 00 00 00 00  r.l.d.!.........
00000000022B08A0  00 00 00 00 00 00 00 00 23 08 38 64 0B 40 00 0C  ........#.8d.@..
00000000022B08B0  54 00 68 00 65 00 72 00 65 00 49 00 73 00 53 00  T.h.e.r.e.I.s.S.
00000000022B08C0  74 00 72 00 69 00 6E 00 67 00 00 00 00 00 00 00  t.r.i.n.g.......
00000000022B08D0  00 00 00 00 00 00 00 00 4F 09 39 08 0B 40 00 00  ........O.9..@..
00000000022B08E0  50 01 2B 02 00 00 00 00 50 01 2B 02 00 00 00 00  P.+.....P.+.....
00000000022B08F0  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
00000000022B0900  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
00000000022B0910  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
00000000022B0920  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
00000000022B0930  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................

После седьмой строки пустая строка записалась на место символа H:

Code
1
2
3
4
5
6
7
8
9
10
11
12
00000000022B0880  00 00 65 00 6C 00 6C 00 6F 00 20 00 57 00 6F 00  ..e.l.l.o. .W.o.
00000000022B0890  72 00 6C 00 64 00 21 00 00 00 00 00 00 00 00 00  r.l.d.!.........
00000000022B08A0  00 00 00 00 00 00 00 00 23 08 38 64 0B 40 00 0C  ........#.8d.@..
00000000022B08B0  54 00 68 00 65 00 72 00 65 00 49 00 73 00 53 00  T.h.e.r.e.I.s.S.
00000000022B08C0  74 00 72 00 69 00 6E 00 67 00 00 00 00 00 00 00  t.r.i.n.g.......
00000000022B08D0  00 00 00 00 00 00 00 00 4F 09 39 08 0B 40 00 00  ........O.9..@..
00000000022B08E0  50 01 2B 02 00 00 00 00 50 01 2B 02 00 00 00 00  P.+.....P.+.....
00000000022B08F0  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
00000000022B0900  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
00000000022B0910  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
00000000022B0920  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
00000000022B0930  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................

После 16 строки, видно, что «Hello World!» записалась в другое место:

Code
1
2
3
4
5
6
7
8
9
10
11
12
00000000022B0880  10 09 2B 02 00 00 00 00 50 01 2B 02 00 00 00 00  ..+.....P.+.....
00000000022B0890  72 00 6C 00 64 00 21 00 00 00 00 00 00 00 00 00  r.l.d.!.........
00000000022B08A0  00 00 00 00 00 00 00 00 23 08 38 64 0B 40 00 0C  ........#.8d.@..
00000000022B08B0  54 00 68 00 65 00 72 00 65 00 49 00 73 00 53 00  T.h.e.r.e.I.s.S.
00000000022B08C0  74 00 72 00 69 00 6E 00 67 00 00 00 00 00 00 00  t.r.i.n.g.......
00000000022B08D0  00 00 00 00 00 00 00 00 23 08 38 64 0B 40 00 0E  ........#.8d.@..
00000000022B08E0  48 00 65 00 6C 00 6C 00 6F 00 20 00 57 00 6F 00  H.e.l.l.o. .W.o.
00000000022B08F0  72 00 6C 00 64 00 21 00 00 00 00 00 00 00 00 00  r.l.d.!.........
00000000022B0900  00 00 00 00 00 00 00 00 4C 09 39 0B 0B 40 00 00  ........L.9..@..
00000000022B0910  50 01 2B 02 00 00 00 00 80 08 2B 02 00 00 00 00  P.+......+.....
00000000022B0920  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................
00000000022B0930  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  ................

Отладочное окно:

Code
1
2
Это та же самая строка
Это уже другая строка!

@The trick · 09.04.2021, 16:37

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

Вы просто не умеете это делать. Если нужна конкатенация строк, то есть CopyMemoryString:

Pro_grammer, ну вообще-то тут дискуссия идет по поводу выгоды от выделения памяти в стеке. Тот код что ты предложил с таким же успехом можно и для копирования в стек использовать. Ты это осознаешь?

@Замабувараев · 09.04.2021, 16:43 **[ТС]**

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

Ещё раз повторяю, Враньё!

Сделайте так:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Procedure TestValueString2()
  s.s = ""
  s2.s = "59585858589485lkdlfmvldkfmvldkfmv"
  Debug @s
  Debug s
  s.s = "Hello World"
  Debug @s
  Debug s
  s.s = ""
  Debug @s
  Debug s
  s.s = "Hello"
  Debug @s
  Debug s
EndProcedure

@The trick · 09.04.2021, 16:45

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

Ещё раз повторяю, Враньё!

Ну что за детский сад. Не веришь - твое дело. Я открыл код в 64 битном компиляторе и получил такой результат. Пребывай и дальше в заблуждении.

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

Ну и мне то как программисту что от этого?

Ну тебе-то может быть ничего, другим, кто понимает о чем речь идет в этой дискуссии, это показатель. У Замабувараева код просто записывает нуль терминал, а у тебя происходит то что я написал. Это показатель того о чем мы тут дискутируем. Опять-таки можешь не соглашаться и упираться - вещи от этого другими не станут.

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

Ваши надуманные проблемы - это ВАШИ проблемы и не более того. Абсолютно безопасный и валидный код.

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

@Замабувараев · 09.04.2021, 16:48 **[ТС]**

А и ещё в PureBasic при наборе текста выскакивает подсказка с ключевыми словами, но при нажатии на Enter он не вставляет это слово, а переводит на новую строку. Самая удобная IDE в мире!

@Pro_grammer · 09.04.2021, 16:49

Сообщение от Замабувараев

Сделайте так:

Стесняюсь спросить, для чего?

Сообщение от The trick

по поводу выгоды от выделения памяти в стеке.

Ну и какая выгода?
Три страницы кода Замабувараева выгоднее чем обычное присвоение строки переменной?
Не смешите мои тапки

@The trick · 09.04.2021, 16:55

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

Ну и какая выгода?

Мне лень в сотый раз писать об этом. Почитай дискуссию еще раз.

@Замабувараев · 09.04.2021, 17:06 **[ТС]**

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

Стесняюсь спросить, для чего?

Тогда он не сможет «расширить» строку, потому что там занято, и вынужден будет создать новую.

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

Три страницы кода Замабувараева

Выгоднее. Посмотреть на размер исполняемого файла, он удивит вас своей лаконичностью.

@Pro_grammer · 09.04.2021, 18:35

Сообщение от The trick

Мне лень в сотый раз писать об этом. Почитай дискуссию еще раз.

Ох уж эта загадочность посвящённых

Смех да и только.
Вся суть вот тут:

Сообщение от Замабувараев

Тогда он не сможет «расширить» строку, потому что там занято, и вынужден будет создать новую.

Ну и что? Если новую, что и любому понятно, когда выделенной памяти не хватает, и кусок занят, то надо искать новый кусок памяти, куда строка влезет, не станет же компилятор ради этой строки затирать другие строки. Это нормальное поведение.
Есть приём выделения сразу максимально нужной памяти под строку, дарю бесплатно:
s.s = Space(1000)
И ваш пример чудесным образом начинает работать правильно:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
s.s = Space(1000)
 s2.s = "59585858589485lkdlfmvldkfmvldkfmv"
  Debug @s
  Debug s
  s.s = "Hello World"
  Debug @s
  Debug s
  s.s = ""
  Debug @s
  Debug s
  s.s = "Hello"
  Debug @s
  Debug s

Сообщение от Замабувараев

Посмотреть на размер исполняемого файла

Кому это надо?
А реальная польза какая? Пока вижу только вред, первое это то, что чем больше кода, тем больше ошибок.
И второе, все прямые действия с памятью не безопасны, и некоторые ошибки могут вылезти позже в ходе работы приложения.

@locm · 09.04.2021, 19:21

Сообщение от Замабувараев

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

Почему?
Знаете чем статические массивы и строки отличаются от статических? Первые могут менять размер, а у вторых фиксированный размер? Строка в вашем коде меняет свой размер? Меняет! Тогда почему считаете ее не динамической?

Сообщение от Замабувараев

Вот видите, строка пересоздаётся, а не динамически расширяется.

Строка динамическая, а то что указатель на ее изменяется это нормально.

Сообщение от Замабувараев

Проблема в том, что взятие указателя вроде бы на одну и ту же переменную даёт разные результаты.

Пока не меняется содержимое строки, указатель тот же. Если изменилось, ничего не мешает его снова получить.

Сообщение от Замабувараев

Пока вы будете выходить из блокировки, цена в биржевом стакане изменится, все несут убытки.

То есть цена на бирже меняется каждые 0.000000001 секунд?
Знаете что пинг у сети и реакция человека намного больше этого значения?

Сообщение от The trick

Не враньё

Таки вранье!

Общие вопросы и приёмы эффективного программирования на BASIC

@locm · 09.04.2021, 19:27

Сообщение от Замабувараев

А и ещё в PureBasic при наборе текста выскакивает подсказка с ключевыми словами, но при нажатии на Enter он не вставляет это слово, а переводит на новую строку.

Файл -> Настройки -> Горячие клавиши -> Вставить выбранное слово из окна Авто-завершения.
Выбираете там Enter.

@Замабувараев · 09.04.2021, 19:52 **[ТС]**

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

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

Но тогда по терминологии locm строка перестаёт быть динамической! Это будет пересоздаваемая строка.

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

s.s = Space(1000)

Оно тысячу раз скопирует туда пробел, который потом всё равно перезапишут, — неэффективно.
Выгоднее завести буфер, установить в нём первый символ нулевым, и не тратить время на заполнение оставшихся 999 символов.

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

И ваш пример чудесным образом начинает работать правильно:

Плохо, когда работает правильно или неправильно в зависимости от контекста.

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

Кому это надо?

Мой принцип прост: «Не платить за то, что не используется». Мне надо, чтобы в исполняемом файле не было мёртвого кода, от которого екзешник переходит в категорию BloatWare.

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

И второе, все прямые действия с памятью не безопасны, и некоторые ошибки могут вылезти позже в ходе работы приложения.

Уже изобретены RAII, владеющие объекты, мудрые указатели.

Добавлено через 3 минуты

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

Если изменилось

И как узнать изменилось ли? Это каждый раз проверять надо?

@locm · 09.04.2021, 19:55

Сообщение от Замабувараев

Но тогда по терминологии locm строка перестаёт быть динамической!

Не приписывайте мне свои домыслы!
В сети есть определение динамического массива https://ru.wikipedia.org/wiki/Динамический_массив
У строки похожее определение.

@Замабувараев · 09.04.2021, 20:18 **[ТС]**

А когда после присваивания строка не изменила размер, а стала указывать на другую область памяти — это тоже динамическая строка?
Если так, то почему строка на стэке, которая будет указывать на другую область памяти из стэка — не динамическая?

Добавлено через 11 минут

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

Знаете что пинг у сети и реакция человека намного больше этого значения?

Так вы же не реакцию человека проверяете. Вы пишете автоматическую программу, который должна действовать чем быстрее тем лучше.
Если ваш бот реагирует за 0.01 секунд, а чей‐то другой за 0.001 секунд, то понятно, что чужой бот быстрее купит бумагу по выгодному курсу, а вы проигрываете.
Следовательно, вам все эти задержки необходимо убирать вовсе.
Пинг сети уменьшают переходом на оптику, уменьшением физического расстояния между сервером бота и сервером биржи, протягиванием этой оптики прямо от серверов бота до серверов биржи.

@The trick · 09.04.2021, 20:35

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

Ох уж эта загадочность посвящённых Смех да и только.

Ну да, для того кому лень читать тему, для того конечно это загадочно

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

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

Pro_grammer, ты понимаешь что ты не в тему пишешь? Во-вторых, не нужно свои заблуждения тут выдавать за истину - твой пример ничего не показывает, а выводы которые ты сделал - ошибочны. Я дам тебе возможность, чтобы ты сам осознал это.

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

А реальная польза какая?

Реальную пользу уже выше написали, только кому-то видимо лень читать тему сначала.

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

Таки вранье!

Вот еще один неверующий. locm, я то думал что ты разбираешься с тем как работает динамическая память, но увы. Я привел уже выше пример или ты думаешь я его фотошопил что-ли? Самому не смешно?

Мне что делать что-ли нечего?
Вот, для неверующих специально видео даже записал:

@Замабувараев · 09.04.2021, 20:43 **[ТС]**

Сообщение от The trick

Вот еще один неверующий.

Видимо, у них стоит x86, а там Capacity строки может быть побольше.

@The trick · 09.04.2021, 22:03

Сообщение от Замабувараев

Видимо, у них стоит x86, а там Capacity строки может быть побольше.

Да это неважно, просто это синтетический пример и такое поведение только частный случай. Когда строк будет несколько, или если менеджер хипа поменяется там все гораздо печальнее будет.

По факту код получился такой:

C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
void __noreturn start()
{
  memset(&hHeap, 0, 0x30ui64);
  qword_1400051E0 = (__int64)GetModuleHandleW(0i64);
  hHeap = HeapCreate(0, 0x1000ui64, 0i64);
  sub_140002030();
  StrAlloc(&g_pszString, L"Hello World");
  g_pszString2 = g_pszString;
  StrAlloc(&g_pszString, L"Hello");
  g_pszString2 = g_pszString;
  StrAlloc(&g_pszString, &pszNullStr);
  g_pszString2 = g_pszString;
  sub_1400010D8();
  sub_140002090();
  HeapDestroy(hHeap);
  ExitProcess(uExitCode);
}
 
size_t __fastcall StrAlloc(LPWSTR *ppStr, LPCWSTR psz)
{
  WCHAR *pszNewStr; // rax
  size_t szLen; // [rsp+20h] [rbp-18h]
  LPCWSTR Str; // [rsp+48h] [rbp+10h]
 
  Str = psz;
  szLen = 0i64;
  if ( psz )
  {
    szLen = wcslen(psz);
    if ( *ppStr )
      pszNewStr = (WCHAR *)HeapReAlloc(g_hHeap, 0, *ppStr, 2 * szLen + 10);
    else
      pszNewStr = (WCHAR *)HeapAlloc(g_hHeap, 0, 2 * szLen + 10);
    *ppStr = pszNewStr;
    StrCpy(*ppStr, Str, szLen);
  }
  else if ( *ppStr )
  {
    HeapFree(g_hHeap, 0, *ppStr);
    *ppStr = NULL;
  }
  return 2 * szLen + 2;
}

@Pro_grammer · 09.04.2021, 22:23

Сообщение от The trick

твой пример ничего не показывает

Мой пример показывает то, что надо показать - указатель на строку не меняется, если изначально достаточно выделено памяти. А раз я могу изменить строку как угодно, то это динамическая строка. За это и разговор. О чем ты там себе придумал, и что там было вначале темы - это меня не волнует от слова вообще. Я лично только за это.

Сообщение от The trick

там все гораздо печальнее будет.

Да что будет печальнее то?
Ну изменится указатель на строку, и что, в чем печаль? Что от этого строка перестала быть динамической и я не смогу изменить её размер? Ещё раз, не смешите мои тапки.

@The trick · 09.04.2021, 22:32

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

Мой пример показывает то, что надо показать - указатель на строку не меняется, если изначально достаточно выделено памяти.

Нет. Твой пример это не показывает, ты заблуждаешься. Посмотри во что по факту скомпилировался код.

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

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

Ну изменится, а ты утверждал что нет. Вот в этом и вся соль. Ну смешно же, сначала писал что мы врем, городим чушь, что указатель не меняется, а теперь когда ему показали что это его заблуждение пишет - "Ну изменится указатель на строку, и что, в чем печаль". Как это расценивать? Это ты городишь чушь тут.

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

Что от этого строка перестала быть динамической и я не смогу изменить её размер? Ещё раз, не смешите мои тапки.

Ты вообще споришь о чем-то своем и от этого тебе смешно видимо. Посмотри что ты цитируешь и на что отвечаешь, а то ты последнее время жжешь тут

Новые блоги и статьи Все статьи Все блоги /
20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .	"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.
Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .	Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .	Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .

@Замабувараев COM‐пропагандист 936 / 785 / 149 Регистрация: 18.12.2014 Сообщений: 2,256 Записей в блоге: 4
	09.04.2021, 16:48 [ТС]
	А и ещё в PureBasic при наборе текста выскакивает подсказка с ключевыми словами, но при нажатии на Enter он не вставляет это слово, а переводит на новую строку. Самая удобная IDE в мире! 1