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

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

А вы просто не умеете работать с PureBasic.
Тупо скачайте мой архив, там уже всё сделано за вас.

У тебя EXE запакован UPX'ом

Реальный размер 23552 байт после распаковки.

@Pro_grammer · 15.04.2021, 12:22

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

и в русском варианте это запятая, а не точка.

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

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

То есть это не оригинальная программа, выдаваемая компилятором.

Вы будете рассказывать заказчику, как получился exe?

Или расскажете ему, что неделю бились с простой программой вычисления корней только потому, что она теперь на целых 4 кб меньше размером?

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

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

У тебя EXE запакован UPX'ом

Да, и что?

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

. А вы пользователю исходники даёте, а не программу?

@The trick · 15.04.2021, 12:28

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

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

Или я что-то не то делаю, либо у тебя вообще не работает с вещественными числами. Я и точку и запятую пробовал

. Но а вообще разделитель целой и дробной части должен быть тот который установлен в системе.

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

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

Да, и что?

Ну так тут же смотрим выхлоп компилятора, а не упаковщика.

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

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

Да, и что?

Мы всё сравниваем размеры программ, получаемых компиляторами или уже перешли на сторонний софт с упаковщиками?

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

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

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

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

Или я что-то не то делаю, либо у тебя вообще не работает с вещественными числами. Я и точку и запятую пробовал .

У него просто Val в коде, который вообще отбрасыват дробную часть.

@The trick · 15.04.2021, 12:32

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

У него просто Val в коде, который вообще отбрасыват дробную часть.

Это в PB VAL отбрасывает дробную часть? Спасибо, буду знать. В VB6 это более продумано. Там VAL "съедает" точку как разделитель целой и дробной части, а CDbl (и подобные) учитывают региональные настройки. VAL удобнее использовать для всяких файлов настроек чтобы работало одинаково между разными региональными настройками, а CDbl (CStr) для GUI.

@locm · 15.04.2021, 12:35

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

Конечно нужно.

Задача была получить минимальный размер приложения не используя рантайм? Про ресурсы и локализацию ничего не было. Так что это придумали вы.
Откажитесь от ресурсов. Они не нужны в данном проекте.

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

1. Расскажите мне, что делает рантайм в вашем исполняемом файле, зачем он там нужен?

Не знаете для чего нужен рантайм?
Инициализация/деинициализация объектов программы включая динамические строки, т. к. они используются в программе, очистка памяти и т. д.

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

Такой маленький размер вашей программы получается только в этом конкретном случае.

Изначальную задачу вы не забыли? Или пытаетесь подстроить под себя?

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

Я не очень хорошо понимаю, почему ваша программа делает ту же работу, даже меньше, но занимает в 6 раз больше размера.

Вы пишите на WinAPI. А код на PB с использованием кроссплатформенной библиотеки. Если написать на WinAPI, то размер будет как у вашей программы или может даже меньше.

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

Вы выдумываете или не договариваете.

У меня встречный вопрос. Почему у вашей программы приложения в папке Debug весят больше чем в папке Release? Это будет ответ на вопрос.

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

Реальный размер 23552 байт после распаковки.

Я уже написал. Используется кроссплатформенная библиотека. Естественно что размер exe будет больше чем если писать на WinAPI.

@The trick · 15.04.2021, 12:39

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

Я уже написал. Используется кроссплатформенная библиотека. Естественно что размер exe будет больше чем если писать на WinAPI.

Я это понимаю, но зачем делать упаковку для просмотра выхлопа компилятора? Это нечестно.

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

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

Инициализация/деинициализация объектов программы включая динамические строки, т. к. они используются в программе

Не увидел в вашем однострочнике каких‐то объектов, которые нужно инициализировать и деинициализировать. У вас даже нет динамических строк, тупо литеральные константы отправляются в функцию MsgBox.
Зачем нужен рантайм в этом однострочнике, который транслируется всего лишь в четыре push и один call — решительно непонятно.

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

А код на PB с использованием кроссплатформенной библиотеки.

Я тоже пишу кроссплатформенно, потому что винапи уже давно кроссплатформенно.

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

Если написать на WinAPI, то размер будет как у вашей программы или может даже меньше.

Покажите, посмотрю. Наверняка Я буду публично посрамлён и плача убегу.

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

Используется кроссплатформенная библиотека. Естественно что размер exe будет больше

Есть ли смысл дёргать эту оболочку, которая не может просто оттранслировать вызовы в ОС, но и добавляет какой‐то оуверхед? Почему бы сразу не вызывать ОС?

@Pro_grammer · 15.04.2021, 13:00

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

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

Просто ты написал кривую программу, и теперь обвиняешь пользователя, который привык ставить точку вместо запятой?
Молодец!

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

Ну так тут же смотрим выхлоп компилятора, а не упаковщика.

Что это принципиально меняет?
Ну 100КБ exe? 200? это ни кого уже давно не волнует.
Вопрос в другом - так писать программы на БЕЙСИКЕ, как это делает Замабувараев нельзя.
Это противоречит здравому смыслу. Так можно писать абсолютно на всём, хоть на FASM, хоть на Си. И ты свободно мог бы так же написать на VB6- написать руками окна, обработку событий, работу со строками. Что в этом сложного? Любой так может, и в PureBasic так можно, элементарно всё написать на API.
Но для чего карпеть сутки над тем, что можно сделать за несколько минут? Кто может внятно это объяснить?

@The trick · 15.04.2021, 13:20

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

Просто ты написал кривую программу, и теперь обвиняешь пользователя, который привык ставить точку вместо запятой?

Не нужно. Твоя программа не лучше. Единственная проблема у него это неверное сообщение об ошибке. В остальном он правильно говорит что разделитель должен быть тот который установлен в системе и не важно к чему лично ты там привык.

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

Что это принципиально меняет?
Ну 100КБ exe? 200? это ни кого уже давно не волнует.

Меняет. Тут идет сравнение компиляторов, а не упаковщиков. Конечного пользователя безусловно это в большинстве случаев не волнует.

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

Вопрос в другом - так писать программы на БЕЙСИКЕ, как это делает Замабувараев нельзя.
Это противоречит здравому смыслу. Так можно писать абсолютно на всём, хоть на FASM, хоть на Си. И ты свободно мог бы так же написать на VB6- написать руками окна, обработку событий, работу со строками. Что в этом сложного? Любой так может, и в PureBasic так можно, элементарно всё написать на API.
Но для чего карпеть сутки над тем, что можно сделать за несколько минут? Кто может внятно это объяснить?

Погоди, ты что-то не туда опять идешь куда-то. Ты спросил - как исключить рантайм, тебе скинули код без рантайма. Ты сам попросил код без рантайма. Сам начал сравнивать выхлопы и размеры. В чем тогда проблема?

@Замабувараев · 15.04.2021, 13:26 **[ТС]**

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

который привык ставить точку вместо запятой?

Программам, которые меняют DPI экранных шрифтов, меняют и не учитывают в региональных настройках десятичный разделитель, рисуют мурзилкообразные цветовые схемы, игнорируя мои установки, рисуют кнопки цветами «Серое на сером» вместо COLOR_BTNFACE и так далее, — таким программам место в корзине.

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

так писать программы на БЕЙСИКЕ, как это делает Замабувараев нельзя.

Это описано в документации и папке с примерами программ, а значит можно.

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

Так можно писать абсолютно на всём, хоть на FASM, хоть на Си.

На си, ассемблере и VB6 так писать можно, а FreeBASIC вдруг оказался под запретом. Странно.

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

Но для чего карпеть сутки над тем, что можно сделать за несколько минут? Кто может внятно это объяснить?

Ну сделали бы сразу в коде за три секунды x1 = (-b ± Sqr(b^2 - 4ac)) / 2a, и готово.

@locm · 15.04.2021, 13:40

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

Зачем нужен рантайм в этом однострочнике, который транслируется всего лишь в четыре push и один call — решительно непонятно.

А зачем он нужен в FB что вы отказались от строк и перешли на ресурсы и указатели?

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

Я тоже пишу кроссплатформенно, потому что винапи уже давно кроссплатформенно.

С таким же успехом можно запустить DOS приложение в DosBox и сказать что написал приложение под винду!
Сможете ли вы из под вайна работать с API Linux?

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

Есть ли смысл дёргать эту оболочку, которая не может просто оттранслировать вызовы в ОС

Именно это и делает.

@locm · 15.04.2021, 13:50

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

Покажите, посмотрю. Наверняка Я буду публично посрамлён и плача убегу.

Вы сами это написали!

@Pro_grammer · 15.04.2021, 13:59

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

разделитель должен быть тот который установлен в системе и не важно к чему лично ты там привык.

Бред. Ты сам это понимаешь, только не знаю, для чего упорствуешь.
Если я не верно ввел разделитель, то программа как минимум должна меня об этом предупредить, а нормальная сама исправить - это делается элементарно, даже начинающими.
Но вопрос вообще не о том. Лично я не собирался писать реальную программу, думаю и он тоже не особо.
Вопрос в размере, это правда. И этот размер совершенно не оправдывает затраты на его достижение.
Про это я и сказал
Смысл какой было повторять то, что уже и так ясно?
Как ясно и то, что для нормального сравнения эту программу на PureBasic тоже надо написать на чистом API, вот тогда будет честное сравнение именно компиляторов. Или опять не согласен?

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

На си, ассемблере и VB6 так писать можно, а FreeBASIC вдруг оказался под запретом. Странно.

Просто FreeBasic это не Бейсик.
Стас пытался привести его хоть как то к нормальному виду своей библиотекой win9, и это как то даже работает.
Но ТА-ДАМ! Если подключить эту библиотеку к проекту, то exe сразу внезапно вырастет в размере до 60 КБ.
Такова плата за простоту разработки. Но я считаю это нормально.

@The trick · 15.04.2021, 14:22

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

Бред. Ты сам это понимаешь, только не знаю, для чего упорствуешь.
Если я не верно ввел разделитель, то программа как минимум должна меня об этом предупредить, а нормальная сама исправить - это делается элементарно, даже начинающими.

Ты читал о чем я написал? Ты прочти сначала, а потом цитируй:

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

Единственная проблема у него это неверное сообщение об ошибке.

У тебя программа вообще не позволяет никакой разделитель использовать. Программы должны использовать для GUI тот разделитель который установлен в системе. Будешь спорить с этим?

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

Вопрос в размере, это правда. И этот размер совершенно не оправдывает затраты на его достижение.
Про это я и сказал
Смысл какой было повторять то, что уже и так ясно?

Погоди, с тобой никто не спорил насчет того затратно это (по усилиям и по времени). Тебе высказал претензию за использование UPX. Все.

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

Как ясно и то, что для нормального сравнения эту программу на PureBasic тоже надо написать на чистом API, вот тогда будет честное сравнение именно компиляторов. Или опять не согласен?

Согласен, именно нормального сравнения, а не UPX.

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

Вы уложились в 8704 байт, отлично!
Осталось только исправить недочёты и вновь убедиться, что исполняемый файл не разжирел.

Если в предыдущем примере навигация с клавиатуры работала, то здесь уже не работают ни Tab, ни Shift+Tab.
Как и в предыдущем примере нет мнемонических клавиш, кнопки не работают по Enter или Esc.
Клавиатура под запретом? (Подсказка: поместите шаблон диалога в ресурсы программы, тогда всю клавиатурную возню берёт на себя Windows.)

Нет возможности ввода вещественных чисел.

Вот этот код неправильный:

PureBasic
1
2
3
4
While GetMessage_(msg.MSG, #Null, 0, 0 ) 
  TranslateMessage_(msg) 
  DispatchMessage_(msg) 
Wend

Не учитывает, что при ошибке GetMessage возвращает -1.

Нет манифеста с dpiAware: на больших DPI будет размытие.
Нет значков у исполняемого файла и главного окна.

@Pro_grammer · 15.04.2021, 14:37

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

Тебе высказал претензию за использование UPX.

На каком основании?
Я об этом честно написал, перед тем как выложить.

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

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

Просто FreeBasic это не Бейсик

Здравствуйте, как вам там в 1964 году? До сих пор приходится вводить команды LIST, RUN, LET и нумеровать строки?

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

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

Но ТА-ДАМ! Если подключить эту библиотеку к проекту, то exe сразу внезапно вырастет в размере до 60 КБ.

То вам нужен маленький размер, то не нужен. Странно.

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

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

вы отказались от строк и перешли на ресурсы и указатели?

Давайте проясним эти момент.
Нет никакого отказа от строк. Строки создаются в программе и заполняются данными извне.
Весь текст, который должен быть локализован, следует хранить не коде программы, а где‐нибудь в другом месте. Одно из таких мест — это ресурсы программы.

@The trick · 15.04.2021, 14:49

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

На каком основании?

На том основании что у Замабувараев не было никаких упаковщиков - он показал выхлоп компилятора как есть. Я не понимаю о чем тут может быть спор. Он сделал файл в фрибейсике как ты его его попросил (без рантайма), ты же скинул ему пожатый UPX'ом файл из PB в сравнение. Не находишь это странным?

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

Я об этом честно написал, перед тем как выложить.

Ну так и приложил бы оба файла иначе это необъективно. Из твоего описания это вообще неочевидно, просто написал "Да и размер exe не на много больше, особенно с UPX". Делал ли ты UPX в итоговом EXE из этого высказывание непонятно.

@Pro_grammer · 15.04.2021, 15:00

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

Ну так и приложил бы оба файла

UPX распаковывается UPX, что и это тоже не очевидно?
Эта такая же аксиома, как и то, что в Бейсике, как и в большинстве языков программирования в качестве десятичного разделителя используется точка.

Новые блоги и статьи Все статьи Все блоги /
Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .	20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .
"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .