Общие вопросы и приёмы эффективного программирования на 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, что и это тоже не очевидно?
Эта такая же аксиома, как и то, что в Бейсике, как и в большинстве языков программирования в качестве десятичного разделителя используется точка.

Новые блоги и статьи Все статьи Все блоги /
Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .