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

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

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

Новые блоги и статьи Все статьи Все блоги /
попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .

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