Как сделать калькулятор в бейсике
Как сделать калькулятор в 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Переходите во вкладку «Файл».
Далее в раздел «Параметры».
Затем в подраздел «Панель быстрого доступа».
В поле «Выбрать команды» нажимаете «Команды не на ленте» и ищите «Калькулятор». Кликаете на «Добавить».
Для запуска калькулятора следует нажать на одноименный значок, который расположен на панели быстрого доступа.
Калькулятор будет запущен. Функционирует он как обычный физический аналог, только на кнопки следует нажимать с помощью курсора мыши (ее левой кнопки).
Как сделать калькулятор в vba excel?
Моделируем калькулятор с последующим выведением результатов в виде HTML страницы
Microsoft Excel имеет встроенный язык программирования — Visual Basic for Аpplications (VBA). Этот язык позволяет создавать приложения, выполняемые в среде Microsoft Office. Редактор Visual Basic for Application позволяет существенно расширить возможности Excel.
С помощью VBA можно легко и быстро создавать различные приложения, даже не являясь специалистом в области программирования.
Редактор Visual Basic for Application имеет графическую инструментальную среду, позволяющую создавать экранные формы и управляющие элементы.
С его помощью можно создавать свои собственные функции для Excel, вызываемые мастером функций, разрабатывать макросы, создавать собственные меню и многое другое.
Private Sub CommandButton4_Click()
WebBrowser1.navigate «C:UsersгыукDocuments
.html»
Set r = fso.OpenTextFile(«C:UsersгыукDocuments
.html», forWriting, True)
Workbooks.Open Filename:=»C:UsersгыукDocuments
.html»
visual basic калькулятор
По просьбе DenJoy«я сегодня мы будем делать калькулятор. Это наверно самое простое, что может быть вBasic»е =), т.к. там используются обычные знаки. Конечно это все легко, но я понимаю DenJoy, когда он не знает, как это делать. Я сам очень недавно был таким.
В верхнее левое текстовое поле будут писаться цифры. В правое — выбраный знак. Ну и в низу кнопки с цифрами.
1. Два текстовых поля с именамиText1 и Text2. У них свойство Enabled поставьте равным False, чтобы их нельзя было изменять.
Private Sub Command1_Click()» При нажа на кнопку с цифрой «1», в текстовом поле появится «1»Text1.Text = Text1.Text & «1»End Sub
» Смотрим, какой знак в текстовом поле №2 и делаем нужное действиеIf Text2.Text = «*»ThenText1.Text = a * b
End IfIf Text2.Text = «/» Then
End IfIf Text2.Text = «-» Then
Private Sub Command13_Click()
» Отчищаем все текстовые поляText1.Text = «»Text2.Text = «»
a = Text1.TextText2.Text = «-«Text1.Text = «»
a = Text1.TextText2.Text = «/»Text1.Text = «»
Private Sub Command2_Click()Text1.Text = Text1.Text & «5»
Private Sub Command3_Click()Text1.Text = Text1.Text & «4»
Private Sub Command4_Click()Text1.Text = Text1.Text & «3»
Private Sub Command5_Click()Text1.Text = Text1.Text & «2»
Private Sub Command6_Click()Text1.Text = Text1.Text & «6»
Private Sub Command7_Click()Text1.Text = Text1.Text & «0»
Private Sub Command8_Click()Text1.Text = Text1.Text & «9»
Private Sub Command9_Click()Text1.Text = Text1.Text & «8»
Private Sub Command10_Click()Text1.Text = Text1.Text & «7»
Вот, в принципе, и все. Калькулятор готов к использованию. Я сделал его минут за 5-7. Так что можете поэкспериментировать, даже если у вас очень мало времени =). Еще раз настоятельно рекомендаюскачать мой калькулятор, чтобы знать какая кнопка, что обозначает.
Исходный код калькулятора на языке Visual Basic | Info-Comp.ru — IT-блог для начинающих
Всем привет, сегодня в материале мы с Вами напишем маленькую программку на языке программирования Visual Basic, которая складывает, вычитает, умножает и делит целые числа. Это достаточно простая программа, но для обучения начинающих программистов самое оно.
Ну, давайте начнем, конечно же, у Вас должна уже быть установлена среда программирования Microsoft Visual Basic v 6.0. Запускаем среду, перед Вами окно выбора проекта, выбираем «standard.exe» и нажимаем открыть. Сейчас перед вами форма нашей с Вами программы и давайте ее наполнять.
Для начала сделайте вот что, справа в окне свойств найдите такую строку «StartUpPosition» и выберите там 1-centerowner, это для того чтобы наша программа запускалась по центру нашего монитора.
Далее давайте наполним внешний интерфейс, для этого уже слева в окне выбора объектов выберите «CommandButton», добавьте его на форму, и сделайте это 4 раза, т.е. добавьте 4 кнопки и расположите их слева направо, итого должно получиться так: Command1, Command2, Command3, Command4.
Теперь давайте мы зададим им название, делается это снова в окне свойств (справа) строка Caption.
Для этого щелкните по кнопке Command1 (она выделится) и в строке Caption окна свойств сотрите Command1 и напишите «сложение», потом щелкните (выделите) Command2 и напишите умножение, далее Command3 будет у нас деление, а Command4 вычитание.
С кнопками мы с Вами разобрались, теперь добавим 3 текстовых поля, делается также в окне добавления объекта (слева), выберите TextBox и добавьте 3 штуки, а расположите их так: Text1 и Text2 сверху, а Text3 чуть ниже.
Теперь в окне свойств (которое справа) изменим, значение поля Text, т.е. как и раньше с кнопками, выбирайте по очереди каждое текстовое поле и в окне свойств меняйте значение строки text на, да просто сотрите, что там есть и ничего не пишите.
Значение этого свойства отображается по умолчанию в текстовых полях.
Пример исходного кода программы калькулятор
А теперь осталось добавить сам код программы, для этого нажмите 2 раза в пустом месте формы и у Вас появится что-то вроде этого:
Private Sub Form_Load()
End Sub
Вы просто сотрите это и вставьте следующее:
Private Sub Command1_Click()
Dim a As Long
Dim b As Long
a = Text1.Text
b = Text2.Text
Text3.Text = a + b
End Sub
Private Sub Command2_Click()
Dim a As Long
Dim b As Long
a = Text1.Text
b = Text2.Text
Text3.Text = a * b
End Sub
Private Sub Command3_Click()
Dim a As Long
Dim b As Long
a = Text1.Text
b = Text2.Text
Text3.Text = a / b
End Sub
Private Sub Command4_Click()
Dim a As Long
Dim b As Long
a = Text1.Text
b = Text2.Text
Text3.Text = a — b
End Sub
Вот такая незамысловатая программа, теперь ее нужно проверить, в верхнем меню найдите такую кнопочку (иконку) как «start» и нажмите, если Вы все сделали правильно, то у Вас запустится программа, где будет 3 текстовых поля и 4 кнопки. Вы можете в верхние 2 поля вставить, например: в правое 50, а в левое 10 и можете проверить действие программы, нажимая на все кнопки, только учтите, она выполняет все действия только с целыми числами.
Когда мы все проверили ее можно скомпилировать в exe файл, для этого нажмите меню «файл» «Компилировать проект», потом просто укажите путь, куда его сохранить. После компиляции запустите нашу с Вами программу, и можете пробовать посчитать некоторые числа.
В этой программе мы не прописывали никаких условий, поэтому строго соблюдайте, чтобы в текстовых полях были только целые числа. Вот мы и написали первую программу на Visual Basic в среде программирования Microsoft Visual Basic v 6.0.
В следующих уроках мы уже будем писать программы немного посложней.
Математические функции
Методы класса System.Math предоставляют тригонометрические, Логарифмические и другие общие математические функции.The methods of the System.Math class provide trigonometric, logarithmic, and other common mathematical functions.
В следующей таблице перечислены методы класса System.Math.The following table lists methods of the System.Math class. Их можно использовать в программе Visual Basic.You can use these in a Visual Basic program.
Чтобы использовать эти функции без уточнения, импортируйте System.Mathое пространство имен в проект, добавив следующий код в начало исходного файла:To use these functions without qualification, import the System.Math namespace into your project by adding the following code to the top of your source file:
ПримерExample
В этом примере используется метод Abs класса Math для расчета абсолютного значения числа.This example uses the Abs method of the Math class to compute the absolute value of a number.
‘ Returns 50.3.
Dim MyNumber1 As Double = Math.Abs(50.3)
‘ Returns 50.3.
Dim MyNumber2 As Double = Math.Abs(-50.3)
ПримерExample
В этом примере используется метод Atan класса Math для вычисления значения PI.This example uses the Atan method of the Math class to calculate the value of pi.
Public Function GetPi() As Double
‘ Calculate the value of pi.
Return 4.0 * Math.Atan(1.0)
End Function
ПримерExample
В этом примере используется метод Cos класса Math, чтобы получить косинус угла.This example uses the Cos method of the Math class to return the cosine of an angle.
Public Function Sec(ByVal angle As Double) As Double
‘ Calculate the secant of angle, in radians.
Return 1.0 / Math.Cos(angle)
End Function
ПримерExample
В этом примере используется метод Exp класса Math, возвращающего значение e, возведенное в степень.This example uses the Exp method of the Math class to return e raised to a power.
Public Function Sinh(ByVal angle As Double) As Double
‘ Calculate hyperbolic sine of an angle, in radians.
Return (Math.Exp(angle) — Math.Exp(-angle)) / 2.0
End Function
ПримерExample
В этом примере используется метод Log класса Math, чтобы получить натуральный логарифм числа.This example uses the Log method of the Math class to return the natural logarithm of a number.
Public Function Asinh(ByVal value As Double) As Double
‘ Calculate inverse hyperbolic sine, in radians.
Return Math.Log(value + Math.Sqrt(value * value + 1.0))
End Function
ПримерExample
В этом примере используется метод Round класса Math для округления числа до ближайшего целого числа.This example uses the Round method of the Math class to round a number to the nearest integer.
‘ Returns 3.
Dim MyVar2 As Double = Math.Round(2.8)
ПримерExample
В этом примере используется метод Sign класса Math для определения знака числа.This example uses the Sign method of the Math class to determine the sign of a number.
ПримерExample
В этом примере используется метод Sin класса Math, чтобы получить синус угла.This example uses the Sin method of the Math class to return the sine of an angle.
Public Function Csc(ByVal angle As Double) As Double
‘ Calculate cosecant of an angle, in radians.
Return 1.0 / Math.Sin(angle)
End Function
ПримерExample
В этом примере используется метод Sqrt класса Math для вычисления квадратного корня числа.This example uses the Sqrt method of the Math class to calculate the square root of a number.
‘ Returns 2.
Dim MySqr1 As Double = Math.Sqrt(4)
‘ Returns 4.79583152331272.
Dim MySqr2 As Double = Math.Sqrt(23)
‘ Returns 0.
Dim MySqr3 As Double = Math.Sqrt(0)
‘ Returns NaN (not a number).
Dim MySqr4 As Double = Math.Sqrt(-4)
ПримерExample
В этом примере используется метод Tan класса Math, чтобы получить тангенс угла.This example uses the Tan method of the Math class to return the tangent of an angle.
Public Function Ctan(ByVal angle As Double) As Double
‘ Calculate cotangent of an angle, in radians.
Return 1.0 / Math.Tan(angle)
End Function
ТребованияRequirements
Класс: MathClass: Math
Пространство имен: SystemNamespace: System
Сборка: mscorlib (в mscorlib. dll)Assembly: mscorlib (in mscorlib.dll)
См. такжеSee also
Как создать простой калькулятор в Visual Basic 6.0
Visual Basic 6.0 является языком программирования, разработанный Microsoft, который может легко изучить и использовать новичок, а также опытные программисты.
Хотя он больше не поддерживается корпорацией Microsoft, тысячи приложений еще работают на нем и многое другое программное обеспечение все еще разрабатывается.
Это руководство покажет вам, как создать простой калькулятор в Visual Basic 6.0.