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

@The trick · 19.04.2021, 13:13

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

Тогда проводник не сможет показывать значок и версию в описании. А ещё манифест для высокого DPI.

Так насколько я понял тут минимальный размер нужно получить. Одной секции .text достаточно для этого приложения.

@Замабувараев · 19.04.2021, 14:31 **[ТС]**

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

Одной секции .text достаточно для этого приложения.

Сделал так:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
/* This linker script snippet is passed to ld as an implicit linker script that
   should augment the linker's default linker script. It's supposed to drop the
   objinfo section (FB compile time information) that may be added to some/all
   objects if objinfo was enabled in fbc, since this information is just bloat
   in the final binary. */
SECTIONS
{
    /DISCARD/ :
    {
        *(.fbctinf)
    }
    
    .text :
    {
        *(.text) *(.rdata) *(.idata)
    }
}

Получил екзешник 1536 байт из кода, который только вызывает MessageBox и ExitProcess.
Однако секцию .idata объединять не хочет, в файле остаются .text и .idata.

@Pro_grammer · 19.04.2021, 14:31

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

тут минимальный размер нужно получить.

Не знаю, как у FB, но в PB поддержка DPI вообще не влияет на размер exe.
Манифест дописан туда, где раньше были 0

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

@Замабувараев · 19.04.2021, 14:37 **[ТС]**

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

Манифест дописан туда, где раньше были 0

Дописан — в смысле екзешник поправлен после создания?

@The trick · 19.04.2021, 14:48

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

Получил екзешник 1536 байт из кода, который только вызывает MessageBox и ExitProcess.
Однако секцию .idata объединять не хочет, в файле остаются .text и .idata.

Странно, студийный линкер все без проблем объединяет.

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

Не знаю, как у FB, но в PB поддержка DPI вообще не влияет на размер exe.
Манифест дописан туда, где раньше были 0

Это из-за файлового выравнивания секций (0x200 - по умолчанию).

@locm · 19.04.2021, 15:20

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

Получил екзешник 1536 байт из кода, который только вызывает MessageBox и ExitProcess.

На PB 1КБ. Если выровнять секции по границе 16 байт будет, будет еще меньше.

@Замабувараев · 20.04.2021, 05:41 **[ТС]**

А у меня не получается объединить секции .text и .idata.

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

Я уверен, что вы сделаете ещё меньше и жду вашего результата.

@Pro_grammer · 20.04.2021, 06:25

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

Я уверен, что вы сделаете ещё меньше

Я решу эту задачу в 2 строки (против ваших 160):

PureBasic
1
2
InitNetwork()
MessageBox_(0,GetHTTPHeader("https://www.cyberforum.ru/"),@"Header",0)

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

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

Я решу эту задачу в 2 строки (против ваших 160):

А результат где?

@Pro_grammer · 20.04.2021, 06:40

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

вот вам программа

И ещё вопрос по самой программе (вроде уже было такое с другой программой):
Почему она не закрывается после выполнения задачи? Я закрыл диалоговое окно, больше она не нужна, но она продолжает висеть в памяти.

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

А результат где?

Так запустите, есть же у вас PureBasic

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

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

Так запустите, есть же у вас PureBasic

Нет, мне нужен екзешник.

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

Почему она не закрывается после выполнения задачи?

Которая скачивает страницу с сайта? Коробка сообщений пытается показать очень длинный текст страницы, идёт большая внутренняя работа в потрохах WinAPI, но результат не умещается и коробка сообщений сбоит.

@Pro_grammer · 20.04.2021, 07:31

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

Коробка сообщений пытается показать очень длинный текст страницы

Та у вас там ещё должен быть текст страницы?
Просто у меня только заголовок показывает и всё.

Потому этот код тоже только заголовок показывает

PureBasic
1
2
InitNetwork()
MessageBox_(0,GetHTTPHeader("https://www.cyberforum.ru/"),@"Header",0)

Для скачивания всей страницы естественно кода будет больше. Где то на 5-7 строк.

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

но результат не умещается и коробка сообщений сбоит

Согласен, проверил на своём коде, результат аналогичный.
Значит нужно сбросить в файл и уже содержимое файла вывести на экран.

@Pro_grammer · 20.04.2021, 07:39

Вот так будет с показом результата в файле

PureBasic
1
2
3
4
5
6
7
InitNetwork()
MessageBox_(0,GetHTTPHeader("https://www.cyberforum.ru/"),@"Header",0)
If ReceiveHTTPFile("https://www.cyberforum.ru/", GetTemporaryDirectory() + "url.txt")
     RunProgram(GetTemporaryDirectory() + "url.txt")
  Else
      MessageBox_(0,@"Ошибка доступа к сайту",@"Content",0)
EndIf

@Замабувараев · 20.04.2021, 12:02 **[ТС]**

78ио969лшовазжт

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

Для скачивания всей страницы естественно кода будет больше. Где то на 5-7 строк.

Эти пять‐семь строчек кода на выходе дают 50 килобайт.
А где же езкешник на 2048 байт?

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

InitNetwork()

Зачем вообще существуют такие «операторы» и «команды»? PureBasic прекрасно видит какие функции есть в коде и может самостоятельно внутри себя вставить необходимые инициализации.

@Pro_grammer · 20.04.2021, 14:05

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

Эти пять‐семь строчек кода на выходе дают 50 килобайт.

Мне кажется вы отстали от жизни лет на 20

Кого сейчас волнуют лишние 50 - 250 КБ? У меня HDD на 2TБ и оперативки 16 Гиг.
Но даже комп 20 летней давности под WinXP легко запустит мою программу на Пурике

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

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

То же самое меня всегда удивляло наличие в FB таких конструкций как
#include once "InputDataDialogProc.bi"
#include once "win\commctrl.bi"
#include once "win\ole2.bi"
#include once "windows.bi"

и т.п.
Неужто FreeBasic сам не видит какие функции есть в коде и не может самостоятельно открыть нужную библиотеку?

@Замабувараев · 20.04.2021, 14:47 **[ТС]**

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

Неужто FreeBasic сам не видит какие функции есть в коде и не может самостоятельно открыть нужную библиотеку?

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

@locm · 20.04.2021, 14:57

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

Это не библиотеки, это файлы с исходным кодом.

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

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

прекрасно видит какие функции есть в коде и может самостоятельно внутри себя вставить необходимые

@Замабувараев · 20.04.2021, 15:14 **[ТС]**

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

Кого сейчас волнуют лишние 50 - 250 КБ? У меня HDD на 2TБ и оперативки 16 Гиг.

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

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

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

Пусть FB просканирует папку с заголовочными файлами

Нет, компилятор должен сканировать только те файлы, которые указали явно.
Иначе у вас будет Ambiguous Function Names (конфликт имён) для сторонних функций.

@Pro_grammer · 20.04.2021, 15:31

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

Есть ли у вас ещё какие‐нибудь доводы

Скорость разработки + кросплатформенные решения против экономии в 50 КБ.
Я на ваш последний код потратил 2 минуты, и он будет работать на всех 3-х системах.
Вы будете писать свой ещё неделю, и скорее всего на MAC так и не допишите, допустите неизбежно несколько ошибок, т.е. большой код требует всестороннего и тщательного тестирования. В моём коде 10 строк, там и тестировать нечего и исправить легко.
Но ваш на 50 КБ меньше. Есть ли сейчас в этом смысл, сами то как думаете?
В разумных пределах. Я тоже против, когда "Hello World!" занимает 60 MБ, но + 200-300КБ, т.е. exe-шники Делфи меня уже вполне устраивают на сегодняшний день

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

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

Иначе у вас будет Ambiguous Function Names (конфликт имён) для сторонних функций.

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

@Замабувараев · 20.04.2021, 15:57 **[ТС]**

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

кросплатформенные решения

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

он будет работать на всех 3-х системах

Так это вы отстали от жизни лет на 20: винапи уже давно кроссплатформенное.

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

Но ваш на 50 КБ меньше. Есть ли сейчас в этом смысл, сами то как думаете?

Вы просто боитесь выйти из зоны комфорта и всего того, чего нет в IDE.

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

Пусть FB просканирует папку с заголовочными файлами

То есть на каждый файл в моём проекте компилятор будет читать 1290 файлов, результат которых всё равно будет использован только в нескольких случаях? Хорошая попытка прорекламировать SSD, но нет.

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

Просто переименуй.

Ну вот опять этот визуальный мусор с подчёркиваниями.

Новые блоги и статьи Все статьи Все блоги /
Установка ChatGPT (Codex) на Windows без использования Microsoft Store Fabien159 28.10.2026 Здравствуйте всем читающим! Опишу процесс установки ChatGPT (Codex) на Windows, если по каким-то причинам у вас не получается устанавить его через Microsoft Store. И так: 1. Скачиваем с. . .	Программное добавление префикса в нумерацию документов Maks 27.10.2026 Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .	После закрытия оутлука продолжает висеть процесс в диспетчере задач Maks 27.10.2026 С недавнего времени в продакшене возникла проблема: при закрытии оутлука в диспетчере задач продолжал висеть процесс outlook. exe. Проблема возникла после установки MS Office 2021 LTSC на машинах, под. . .	Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный AmbA 26.10.2026 Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. https:/ / youtu. be/ VpfFZSUDGnQ. . .
Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .