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

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

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

Новые блоги и статьи Все статьи Все блоги /
Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на 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. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .