Как сделать калькулятор визуал бейсик
Visual Basic калькулятор
Как это делать ты должен знать (в окне свойство объекта, или кодом Command1.Caption=»CE». естественно в поле Form onLoad(кликни два раза по форме))
У тебя должна получиться такая штука:
Теперь я хотел бы пояснить что такое Val(при прибавлении см. выше в коде), это функция, она нужна для того, чтобы комп преобразовывал символ из строки, в число, т.е., допустим если ты напишешь без нее, то при прибавлении 4+4, у тебя будет не 8, а 44. Ну вроде объяснил. Исходник программы можешь скачать отсюда
у тя недочет на command3 т.к. если ввести во второе окно 0! прога не будет радотать!
тоже что выше только русским языком. Проблема в том что на ноль делить нельзя. Но все же хотелось попытаться
а как сделать калькулятор с одной строкой?
тут тяжелого не че нет т0)) не понять это грех полнейший.
Проблемы деления на ноль нет!
просто дописать к комманд3:
If Text2.Text = 0 Then Text3.Text = «дел на 0!»
и всё! Программа отлажена. ))
Ну да или пользоваться Try Catch Finaly
Да я канешно начинающий 2 дня на проге но я не пойму от куда Command1_Click() взялось.
Добрые люди подскажите
классно! все получилось с первого раза!
Стрелочки вперед-оглавление-назад пропали 🙁 Абыдна
А-а-а. Не пропали. Это я их потелял 🙂
Напишите статью с созданием dll на VB
а можете мне кинуть файл калькулятора на adm!adm@adm-arch.ru
была бы очень признательна, так как очень хочу зачет по информатике)
adm@adm-arch.ru то есть
я вообще не могу сделать?
VB 6.0 вроде норм,а ни хрна((((
как вот мне написать text1.text = «»
он все ровно в графе пишет Text1.
Вы не пробовали через Val()?
А как корень извлекать?
кампот(compod) При добавлении If Text2.Text = 0 Then Text3.Text = «дел на 0!» После основного Text3.Text = Text1.Text / Text2.Text он все равно выдает ошибку, т.к он выполняет сначала десвие Text3.Text = Text1.Text / Text2.Text, а затем If Text2.Text = 0 Then Text3.Text = «дел на 0!», при перемены их местами, он дает нужное, но все равно выполняет 2е действие, и следовательно ошибка. Как от неё исбавиться?Ну или как при получении нужного результата, она не читала 2ю команду?
Все, не надо, нашел в следующих главах
постоянно выдает какие то ошибки((((
люди, а как сделать типа чтобы цыфры вводились не с клавы, а как на обычном калькуляторе, с кнопками?
и ещё, как сделать кнопки, поприятнее на вид. ну хотя бы как на ХР SP3
Private Sub Command1_Click()
Me.Text1.Text = Me.Text1.Text + («1»)
End Sub
Алгоритм калькулятора с вводом и выводом значений разжеван тут http://vbbook.ru/forum/viewtopic.php?id=166
Попробуй сделать через массив.
я незнаю как. я же говорю, что новичёк
желательно поскореее)))) мне завтра работу здавать(
Я уже подобное делал. Вот бы сделать чё-нибудь наподобие стандартного калькулятора в винде.
Спасибо большое! Только на кнопке + должен быть такой код:
Dim A
Dim B
A = Val(Text1.Text)
B = Val(Text2.Text)
Text3.Text = A + B
Маск, где ты прописал Dim A дам тебе советик, не делай такое объявление, лучше так Dim A as long, а так как ты объявил по умолчанию будет Variant
Согласен с Юрой. То есть будет так:
Dim A as Long, B as Long
A = Val(Text1.Text)
B = Val(Text2.Text)
Text3.Text = A + B
В VB есть встроенные функции:
Hex и Hex$
это из DEC->Hex. а наоборот?
CDec: Returns a variant with a value converted to a decimal subtype.
Пользуйся Object Browser. Клавиша F2.
разобрался сам
C = Conversion.CDec(Val(«&H» & Text1.Text))
запустил: не вводятся цифры с клавиатуры. так должно быть или я что-то не так сделал.
Все, норм, разобрался.. ) (сорри)
У меня такая жк проблема как у валеры помгите плз не мгоу гразобраться
Ошибка в коде надо писать text3 = val(text1) + val(text2)
А так же все остальные.
Dim A as Long, B as Long
A = Val(Text1.Text)
B = Val(Text2.Text)
Text3.Text = A + B
kuda eto vvodit’?
А как в описанном в этом уроке VB-калькуляторе десятичные числа переводить в двоичные и наоборот? То же самое насчёт шестнадцатиричных.
Ну ты логически сам подумай: от длины текста отнять 1.
А выглядеть это будет так: text1.text=left(text1.text,len(text1.text)-1)
Если хочешь писать серьезные проги, учи C#, C++
ReDoX, с чего ты реши что Delphi не подходит для серьёзных программ?
Почитай в интернете сколько полезных программ на нём уже написали.
Stertor, большое спс!
Edward, Существует много древних библиотек, с помощью которых не напишешь «Серьезных» программ.
ReDoX: Aimp не серьёзная программа?
я сделала калькулятор,но проблема в том,что у меня 2 текстовых поля для ввода переменных,а одно для вывода ответа,когда я нажимаю на кнопку «1»,то пишет только в одно текстовое поле,пытаюсь ввести во второе,но ничего не получается,что делать?
Private Sub Command2Click() ‘при нажатии на кнопку *, 1 текстовое поле будет умножено на второе, и это будет равно 3-ему
Text3.Text = Val(Text1.Text) * Val(Text2.Tex)
End Sub
Private Sub Command3Click() ‘при нажатии на кнопку /, 1 текстовое поле будет разделенно на второе, и это будет равно 3-ему
If Val(Text2.Text) 0 then Text3.Text = Val(Text1.Text) / Val(Text2.Tex) Else Text3.text=»Ошибка: На нуль делить нельзя»
End Sub
Допущены ошибки, вместо «Text2.Tex» нужно писать «Text2.Text»
0du14ik, Спасибо, Исправили
Как сделать калькулятор в vba excel?
Visual Basic 6.0 является языком программирования, разработанный Microsoft, который может легко изучить и использовать новичок, а также опытные программисты. Хотя он больше не поддерживается корпорацией Microsoft, тысячи приложений еще работают на нем и многое другое программное обеспечение все еще разрабатывается. Это руководство покажет вам, как создать простой калькулятор в Visual Basic 6.0.
Проекты Standard EXE дают вам несколько команд и инструментов, полезных для разработки простых, а также полу-сложных программ.
В центре экрана будет поле с большим количеством точек. Это ваша форма.Форма — это место, куда вы будете добавлять различные элементы (кнопки команд, картинки, текстовые поля и т.д.) к вашей программе.
Создайте текстовое поле справа от первой метки. Удалите текст, который появляется внутри текстового поля, изменив пустующее поле «Text» в окне свойств.
Создайте еще одну метку и измените заголовок на «Enter second number», и создайте еще одно текстовое поле для нее справа.
Перетащите и создайте четыре командные кнопки ниже этих двух меток. Измените заголовок этих командных кнопок на «Add», «Subtract», «Multiply», «Divide» соответственно.
Создайте еще одну метку с надписью «Result» и текстовое поле справа от нее под кнопками четырех команд. Это текстовое поле будет использоваться для отображения результата. При этом ваш проект будет завершен.
Вас перекинет в окно кодирования.
Код будет выглядеть следующим образом:
Код будет выглядеть следующим образом:
Кодирование будет выглядеть следующим образом:
Кодирование будет выглядеть следующим образом:
Сохраните проект и свою форму. Создайте свой проект и сохраните его в виде .exe файла на своем компьютере; запустите его, когда вы хотите!
Советы
Информация о статье
Эту страницу просматривали 35 159 раза.
Была ли эта статья полезной?
Для постоянных пользователей Excel не секрет, что в этой программе можно производить различные математические, инженерные и финансовые расчеты. Данная возможность реализуется путем применения различных формул и функций. Но, если Эксель постоянно использовать для проведения подобных расчетов, то актуальным становится вопрос организации необходимых для этого инструментов прямо на листе, что значительно повысит скорость вычислений и уровень удобства для пользователя. Давайте выясним, как сделать подобный калькулятор в Экселе.
Процедура создания калькулятора
Особенно насущной данная задача становится в случае необходимости постоянно проводить однотипные вычисления и расчеты, связанные с определенным видом деятельности. В целом все калькуляторы в Excel можно разделить на две группы: универсальные (используются для общих математических вычислений) и узкопрофильные. Последняя группа делится на множество видов: инженерные, финансовые, кредитные инвестиционные и т.д. Именно от функциональных возможностей калькулятора, в первую очередь, зависит выбор алгоритма его создания.
Способ 1: использование макросов
Прежде всего, рассмотрим алгоритмы создания пользовательских калькуляторов. Начнем с создания простейшего универсального калькулятора. Данный инструмент будет выполнять элементарные арифметические действия: сложение, умножение вычитание, деление и т. д. Он реализован с помощью макроса. Поэтому прежде, чем приступить к процедуре создания, нужно удостовериться, что у вас включены макросы и панель разработчика. Если это не так, то обязательно следует активировать работу макросов.
Sub Calculator()
Dim strExpr As String
‘ Введение данных для расчета
strExpr = InputBox(«Введите данные»)
‘ Вычисление результата
MsgBox strExpr & » = » & Application.Evaluate(strExpr)
End Sub
Вместо словосочетания «Введите данные» вы можете записать любое другое более приемлемое для вас. Именно оно будет располагаться над полем введения выражения.
После того, как код введен, файл нужно перезаписать. При этом его следует сохранить в формате с поддержкой макросов. Жмем на иконку в виде дискеты на панели инструментов редактора VBA.
Теперь при наборе выбранной комбинации горячих клавиш (в нашем случае Ctrl+Shift+V) будет запускаться окно калькулятора. Согласитесь, это намного быстрее и проще, чем каждый раз вызывать его через окно макросов.
Урок: Как создать макрос в Экселе
Способ 2: применение функций
Теперь давайте рассмотрим вариант создания узкопрофильного калькулятора. Он будет предназначен для выполнения конкретных, специфических задач и размещен непосредственно на листе Excel. Для создания этого инструмента будут применяться встроенные функции Эксель.
Для примера создадим инструмент конвертации величин массы. В процессе его создания нами будет использована функция ПРЕОБР. Данный оператор относится к инженерному блоку встроенных функций Эксель. Его задачей является преобразование величин одной меры измерения в другую. Синтаксис данной функции следующий:
«Число» — это аргумент, имеющий вид числового значения той величины, которую надо конвертировать в другую меру измерения.
«Исходная единица измерения» — аргумент, который определяет единицу измерения величины, подлежащую конвертации. Он задается специальным кодом, который соответствует определенной единице измерения.
«Конечная единица измерения» — аргумент, определяющий единицу измерения той величины, в которую преобразуется исходное число. Он также задается с помощью специальных кодов.
Нам следует подробнее остановиться на этих кодах, так как они нам понадобятся в дальнейшем при создании калькулятора. Конкретно нам понадобятся коды единиц измерения массы. Вот их перечень:
Нужно также сказать, что все аргументы данной функции можно задавать, как значениями, так и ссылками на ячейки, где они размещены.
Устанавливаем заголовки, под которыми будут размещаться данные поля, и выделяем их форматированием (заливкой и границами) для более наглядной визуализации.
В поля «Конвертируемая величина», «Исходная граница измерения» и «Конечная граница измерения» нами будут вводиться данные, а в поле «Результат конвертации» — выводиться конечный результат.
Выделяем ячейку, которая находится под наименованием «Исходная единица измерения». Снова клацаем по иконке «Проверка данных».
После того, как все данные введены, жмем на кнопку «OK».
Проблема состоит в том, что блокировка устанавливается на лист в целом. Но если мы заблокируем лист, то не сможем вводить данные в поля ввода. Поэтому нам нужно будет в свойствах формата ячеек снять возможность блокировки со всех элементов листа, потом вернуть эту возможность только ячейке для вывода результата и уже после этого заблокировать лист.
Кликаем левой кнопкой мыши по элементу на пересечении горизонтальной и вертикальной панели координат. При этом выделяется весь лист. Затем кликаем правой кнопкой мыши по выделению. Открывается контекстное меню, в котором выбираем позицию «Формат ячеек…».
Таким образом, мы создали полноценный калькулятор для конвертации величины массы в различные единицы измерения.
Кроме того, в отдельной статье рассказывается о создании ещё одного вида узкопрофильного калькулятора в Экселе для расчета платежей по кредитам.
Урок: Расчет аннуитетного платежа в Экселе
Способ 3: включение встроенного калькулятора Excel
Кроме того, в Экселе имеется собственный встроенный универсальный калькулятор. Правда, по умолчанию кнопка его запуска отсутствует на ленте или на панели быстрого доступа. Рассмотрим, как активировать её.
Над левой областью в поле «Выбрать команды» из перечня выбираем пункт «Команды не на ленте». После этого в списке инструментов левой области ищем наименование «Калькулятор». Найти будет просто, так как все названия расположены в алфавитном порядке. Затем производим выделения данного наименования.
Над правой областью находится поле «Настройка панели быстрого доступа». Оно имеет два параметра:
По умолчанию происходит настройка для всех документов. Этот параметр рекомендуется оставить без изменений, если нет предпосылок для обратного.
После того, как все настройки совершены и наименование «Калькулятор» выделено, жмем на кнопку «Добавить», которая расположена между правой и левой областью.
Как видим, в Экселе существует очень много вариантов создания калькуляторов для различных нужд. Особенно эта возможность полезна при проведении узкопрофильных вычислений. Ну, а для обычных потребностей можно воспользоваться и встроенным инструментом программы.
Мы рады, что смогли помочь Вам в решении проблемы.
Задайте свой вопрос в комментариях, подробно расписав суть проблемы. Наши специалисты постараются ответить максимально быстро.
Помогла ли вам эта статья?
Использование макросов Заходите во вкладку «Разработчик» и кликаете на иконку «Visual Basic», которая находится на ленте в блоке инструментов «Код».
Далее запускаете окно редактора VBA. При отображении центральной области серым цветом, а не белым, это означает, что поля для введения кода нет. Для того чтобы он отображался, нужно зайти в пункт меню «View» и кликнуть на «Code» в списке, который появится.
В центральной области вводите код макроса:
Dim strExpr As String
‘ Введение данных для расчета
strExpr = InputBox(«Введите данные»)
Вместо «Введенные данные» можно внести любое другое более подходящее название. Теперь нужно перезаписать файл. Сохраняете его в формате с поддержкой макросов. Нажимаете на иконку в виде дискеты на панели инструментов редактора VBA.
Должно запуститься окно сохранения документа. Переходите туда, куда хотите его сохранить. В строке «Имя файла» вносите то название, которое хочется. Обязательно в строке «Тип файла» выбираете «Книга Excel с поддержкой макросов (*xlcm)». Кликаете на «Сохранить» в нижней части окна.
Закрываете окно редактора макросов нажатием стандартного значка закрытия в виде красного квадрата с белым крестом в правом верхнем углу окна.
Для запуска вычислительного инструмента с помощью макроса, во вкладке «Разработчик» нажимаете на «Макросы» на ленте в блоке инструментов «Код».
Должно запуститься окно макросов, в котором выбираете название того макроса, который только что был создан. Выделяете его и нажимаете «Выполнить».
Должен запуститься калькулятор, который создан на основе макроса.
Для произведения в нем вычислений, нужно записать в поле нужное действие. Лучше всего использовать числовой блок клавиатуры, расположенный справа. Когда выражение будет введено, кликаете на ОК.
На экране отобразится небольшое окно, в котором и будет находиться ответ решения заданного выражения. Нажимаете на Ок.
Чтобы упростить реализацию запуска окна вычислений, нужно во вкладке «Разработчик» нажать на иконку «Макросы».
В окне макросов выбрать нужное наименование и кликнуть на «Параметры…».
Запуститься маленькое окошко, в котором можно вбить сочетание клавиш, при нажатии которых и будет запускаться калькулятор. Вписываете выбранный символ в поле «Сочетание клавиш» и нажимаете ОК.
Закрываете окно макроса.
Включение встроенного калькулятора ExcelПереходите во вкладку «Файл».
Далее в раздел «Параметры».
Затем в подраздел «Панель быстрого доступа».
В поле «Выбрать команды» нажимаете «Команды не на ленте» и ищите «Калькулятор». Кликаете на «Добавить».
Для запуска калькулятора следует нажать на одноименный значок, который расположен на панели быстрого доступа.
Калькулятор будет запущен. Функционирует он как обычный физический аналог, только на кнопки следует нажимать с помощью курсора мыши (ее левой кнопки).
Инженерный калькулятор
Начинаем разработку калькулятора, фактически аналогического инженерному калькулятору Windows XP. Единственным дополнением пока будет ListBox в котором будет отображаться ход расчётов (ох как этого не хватает стандартному калькулятору). Приложу скрин и сам проект. Буду обновлять его по ходу жизни.
А теперь хотельсь бы спланировать алгоритм какой нибуть, по которому и будут идти вычисления. в виде плана. есть предложения?
Вложения
 | Калькулятор.rar (715.0 Кб, 252 просмотров) |
Инженерный калькулятор
Привет. Подскажите как сделать переключатель форм в калькуляторе по типу Win на разные.
инженерный калькулятор
Хай, помогите сделать переводы систем счисления Bin, Oct,Dec, Hex при динамически изменяемым.
Инженерный калькулятор
Всем привет. Задумка такова: калькулятор,в форме есть ВСЕГО однин текст бокс и нужно что бы по.
Вложения
| Калькулятор1.rar (118.3 Кб, 103 просмотров) |
И я тут дал жизни кнопкам. с TextBox отлично работает, а вот ListBox. ума не приложу.
Вся проблема то в том что кажды Add начинает новую строку. а такого быть не должно. а иногда должно. Нужно как то это организовать.
По моей логике нужно дать пользователю вводить цифры сколько он хочет. Потом когда он нажмёт какой нибуть оператор, считать строку из TextBox, преобразовать в число, записать его куда нибуть. Ананалогично со вторым. третим. если жмёт равно, считаем. Походу нужен массив и некая index чтоб различать их по порядку
Вложения
| Калькулятор1.rar (721.1 Кб, 159 просмотров) |
Круто))я и не знал что так можно! Это другое дело
Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.
Инженерный калькулятор: вычисление значения функций
Здравствуйте, у меня есть элемент кода но я не знаю как к нему добавить различные.
Добавить поддержку 16й системы счисления в инженерный калькулятор
Ребята. Помогите пожалуйста. Остался заключительный этап программы, который я уже не в силах.
Инженерный калькулятор
Очень срочно нужен инженерный калькулятор, исходники, сама прога и т.д. Помогите, кто чем может.
Инженерный калькулятор
Кому не сложно помогите пожалуйста с заданием:) Используя возможности JavaScript, создайте.
Инженерный калькулятор
Нужно сделать инженерный калькулятор в Delphi. Я смог сделать только простой калькулятор, теперь.