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

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

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

Новые блоги и статьи Все статьи Все блоги /
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .