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

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

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

Новые блоги и статьи Все статьи Все блоги /
[golang] Состояние гонки (race condition) alhaos 10.06.2026 Состояние гонки (race condition) Состояние гонки (Race Condition) — это ошибка, возникающая при одновременном доступе нескольких горутин к одним и тем же данным без должной синхронизации. При этом. . .	Взрослые отношения, и почему они не получаются kumehtar 09.06.2026 Когда в детстве ребёнок не получает от родителей чего-то важного, он лишается не просто приятных переживаний, а основы для формирования определённых внутренних качеств и навыков. Если ребёнок не. . .	[golang] Worker Pool alhaos 09.06.2026 Worker Pool Worker Pool — паттерн конкурентной обработки задач в Go. Суть: фиксированное количество горутин-воркеров читают задачи из общего канала и пишут результаты в общий канал результатов. . . .	[golang] Pipeline alhaos 08.06.2026 Pipeline Pipeline — паттерн конкурентной обработки данных в Go. Суть: данные проходят через цепочку независимых стадий, каждая из которых работает в своей горутине и общается с соседями через. . .
Свет внутри себя kumehtar 07.06.2026 Пусть это будет здесь lIs4oanZS9Y	Программа для com-порта Uhbif79 05.06.2026 Всем привет, давно хотел изучить Qt, начинал, бросал, потом снова начинал. И сейчас вот смог написать свою первую программу. До этого имел опыт программирования микроконтроллеров, писал прошивки на. . .	Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .