Общие вопросы и приёмы эффективного программирования на 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

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

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

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

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