Общие вопросы и приёмы эффективного программирования на 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 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .	сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.	сукцессия 43. Вторая научная статья за месяц- прайминг и гатгил anaschu 25.07.2026 две стороны одной монеты	Более приземисто - Эстафету хвоста в .cdl (деревья эстафеты в сад). Hrethgir 24.07.2026 В будущем, после написания блока инверсии обхода дерева (эстафеты хвоста), я планирую вернуться к нашему прошлому разговору о том, обладают ли знания целеполаганием. Тогда я пришел к выводу, что. . .
Вот представьте что вам дали бессмертие. kumehtar 24.07.2026 Вот представьте что вам дали бессмертие, ничего более не меняя. Вообще ничего, только бессмертие в нынешнем виде. Рады были бы? Что бы вы тут делали всё это время? Никакой пенсии. Никакого нового. . .	сукцессия 41 anaschu 24.07.2026 Численная верификация бифуркации в агентной модели лесной сукцессии: от одного параметра к ансамблю Автор: пользователь @Shumilov_AS \| Раздел: Прикладная математика / Численные методы Кратко. . .	сукцессия 40. Ансамблевая кластерная параметризаци, часть 1. anaschu 24.07.2026 Пр# Сопровождение научной статьи ИИ-ассистентом: подготовка публикации и калибровка агентно-ориентированной модели сукцессии микоризных систем Полевые заметки о двухнедельной совместной работе. . .	Теория всего 12. ВГК на планете в стратегической игре "терра" anaschu 21.07.2026 ### Главные семантические изменения и дешифровка новой физики 1. `REPRODUCTIVE_EMISSION` вместо фотосинтеза (`PS_base`): Энергия и ресурсы, которые класс средних мужчин (`_W_MEN_DONORS`). . .