Написание простой программы

Друзья! Я просто в шоке. Очень давно (1990-1995 годы) я вполне легко писал программы для инженерных расчётов на Basic ? потом перешёл на TurboBasic, а ввиду отсутствия в то время литературы делал себе выписки в тетрадь и она была очень объёмная. К чему это я? Прошло тридцать лет, программированием в силу специфики моей работы я не занимался, однако сейчас возникла необходимость написать программу достаточно простого расчёта формулы с вводом данных и.... я "поплыл" как далеко всё ушло, а ведь Паскаль в своё время был для меня вполне понятен. Может сообщество окажет единовременную помощь в написании программы?
Формула не сложная

P=1-e ^ -((U*T)/S)
переменные величины U T S
В Exсel она очень неудобная, и каждый раз запускать на маломощном компе не очень-то, а вот с простым интерфейсом в виде небольшой таблички с вводом переменных и с выводом результата расчёта было бы очень удобно.
Помню (ха, ещё) как такие программки писались за полчаса, не сочтите за тяжкий труд, помогите

0

Сообщение от Quiet Snow хороший продукт. Как любой проф программер.

Кстати о профессионализме:

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

Сообщение от Quiet Snow Тестируйте

Скомпилировал для x86:

Вложения

formula.zip (36.2 Кб, 19 просмотров)

2

Сообщение от Pro_grammer Скомпилировал для x86:

Пасиба.

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

Сообщение от Pro_grammer Беда конечно не в том, что профи забыл исправить данные в повторно используемых материалах, хотя и это странно. Плохо, что этот файл висит в памяти после его закрытия, и убивать его надо диспетчером задач. Это уже косяк!

И на старуху бывает проруха. Ну тут многие согласятся, не было мотивации на полное внимание и собранность.
Сама задача не столь серьёзна как бы. Можно позволить себе такие косяки и расслабон.
Заметил конечно чётко. У тебя наверное на отдельном мониторе диспетчер постоянно висит.

1

Сообщение от Pro_grammer А оно того стоило? В современном мире вообще не важно, сколько весит программа, +- мегабайт вообще не о чем. А моя всего 115 байт. И написал я её за 3 минуты. А вы свою? Главное сейчас это скорость разработки.

Железный и главное непрошибаемый аргумент, вы зашли сразу с козырей. Следуя такой логике теперь все программы, игры, движки, числодробилки, шифрование должны быть написаны на современном HTA, то есть на электроне, дотнеты не нужны и скоро умрут, у си плас плас агония и предсмертная конвульсия, а ассемблер всё.
Странно почему этого в мире мы ещё не наблюдаем.

0

простите, это Вы о чём????

0

Сообщение от rumyn_51 простите, это Вы о чём????

Извечные вопросы прогерской толерантности и поворота правильным местом к пользователю.

Сообщение от Замабувараев Странно почему этого в мире мы ещё не наблюдаем.

Наблюдаем и очень много, не смерть озвученных ЯП, конечно, но говнософта аццки много.
Но если у меня будет выбор какой программой пользоваться, скажем веб сервис
или автономная, то без малейших колебаний выберу автономную. Аналогично если
будет выбор использовать программу написанную на WinAPI или на .NET выберу
без колебаний на WinAPI. Ну и разумеется если предложат софт написанный на ассемблере,
ну нормальными людьми, вместо софта на ВУ, выбор будет так же однозначен.
Другой вопрос что обычно этого самого выбора нет, людям просто впаривают
медленное, еле рабочее, долго загружающееся и жрущее вагоны памяти дерьмо.
За неимением альтернатив, как говрится "не до жиру, быть бы живым".

0

Сообщение от Pro_grammer забыл исправить данные в повторно используемых материалах

Это моя ошибка, не углядел.

Сообщение от Pro_grammer файл висит в памяти после его закрытия

Строго говоря, это поведение операционной системы. Я не знаю зачем Windows создаёт в программе лишние потоки типа ntdll.dll!LdrAccessResource+0x15b7. Программа будет «висеть» до тех пор, пока не завершится последний поток процесса. Можете запустить любой исполняемый файл, например notepad.exe, и посмотреть в ProcessHacker или ProcessExplorer. Я не знаю ни по какой причине система создаёт эти потоки, ни в какое время она их уничтожает. Есть наблюдение, что пощёлкивания мыши, передвижения и ввод с клавиатуры как‐то ускоряют закрытие этих потоков.

Можно конечно сделать ExitProcess(код), но у меня есть сомнения насчёт её нужности.

1

Quiet Snow программа считает, но интерфейс хотелось бы как у Замабувараев .
А вообще, всем сочувствующим и помогающим огромное спасибо

Добавлено через 10 минут
javascript:insertnick('Замабувараев','-1');

Сообщение от Quiet Snow Извечные вопросы прогерской толерантности и поворота правильным местом к пользователю.

кто круче, сноубордист или лыжник?

0

Сообщение от rumyn_51 Quiet Snow программа считает, но интерфейс хотелось бы как у Замабувараев . А вообще, всем сочувствующим и помогающим огромное спасибо

Если не секрет зачем? Посчитайте кол-во действий, скорость ввода.
С виндовыми контролами у вас появится лишь CTRL-C, CTRL-V из этих полей, по одной штучке, ... и всё.
Cам ввод же менее удобный, ни подсветки ни быстрой навигации, чтобы пилить такой кастом под винду
людям придётся сильно заморочиться, это для сравнения...
Прогу можно дописать, сделать вывод в текстовый файл всей таблицы по одному клику
и загрузки всей таблицы из текстового файла. Просто для масс расчётов и их визуализации.

0

Да, сложно мне понять это, спасибо огромное, буду пытаться "допилить" что уже сделано форумчанами

0

rumyn_51, вы пришли за удочкой или за рыбой?
Уже показали как на 4 диалектах бейсика решить вашу задачу. Попробуйте сделать по аналогии. Если возникнут вопросы - спрашивайте.

1

Сообщение от rumyn_51 кто круче, сноубордист или лыжник?

Скелетон!!!
https://ru.wikipedia.org/wiki/Скелетон

0

собственно, я про удочку и написал, что буду самостоятельно доделывать под себя и свои требования имеемое, в котором я хоть чуть-чуть смыслю. А читая отдельные специфические выражения форумчан многое не понимаю и догадываюсь, что не разберусь в этом, поэтому есть реальная помощь, которую я принял и немного уже совершенствую, причём самостоятельно. С самого начала я не просил сделать всё от и до

0

На всякий случай выложил код на гитхаб:
https://github.com/zamabuvaraeu/Formula

0

rumyn_51, а сколько максимально может быть этих n, т.е. строк в таблице?

0

как правило 2-3, но максимум не более 5

0