Как в visual basic сделать калькулятор в: Как сделать калькулятор в vba 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 userform_activate()
• Width = 355
• Height = 238
• End Sub
• Private Sub webbrouser1_statustextchange(ByVal text As String)
• End Sub
• Private Sub CommandButton1_Click()
• Dim x As Double
• Dim y As Double
• Dim z As Double
• x = CDbl(TextBox1. text)
• y = CDbl(TextBox2.text)
• z = x + y
• TextBox3.text = z
• End Sub
• Private Sub CommandButton2_Click()
• Dim x As Double
• Dim y As Double
• Dim z As Double
• x = CDbl(TextBox1.text)
• y = CDbl(TextBox2.text)
• z = x — y
• TextBox3.text = z
• End Sub
• Private Sub CommandButton3_Click()
• Dim x As Double
• Dim y As Double
• Dim z As Double
• x = CDbl(TextBox1.text)
• y = CDbl(TextBox2.text)
• z = x * y
• TextBox3.text = z
• End Sub

Private Sub CommandButton4_Click()

1. Dim x As Double
2. Dim y As Double
3. Dim z As Double
4. x = CDbl(TextBox1.text)
5. y = CDbl(TextBox2.text)
6. If y 0 Then
7. z = x / y
8. TextBox3.text = z
9. Else
10. TextBox3.text = «Делить на ноль нельзя»
11. End If
12. End Sub
13. Private Sub CommandButton7_Click()
14. Dim x As Double
15. Dim y As Double
16. Dim z As Double
17. x = CDbl(TextBox1. y
18. TextBox3.text = z
19. End Sub
20. Private Sub CommandButton6_Click()
21. Dim x As Double
22. Dim y As Double
23. Dim z As Double
24. x = CDbl(TextBox1.text)
25. y = CDbl(TextBox2.text)
26. z = x * y / 100
27. TextBox3.text = z
28. End Sub
29. Private Sub CommandButton10_Click()

WebBrowser1.navigate «C:UsersгыукDocuments
.html»

• WebBrowser1.Visible = True
• End Sub
• Private Sub CommandButton11_Click()
• Width = 500
• Height = 400
• WebBrowser1.Visible = True
• CommandButton9.Visible = True
• CommandButton10.Visible = True
• End Sub
• Private Sub CommandButton9_Click()
• Dim fso As Scripting.fileSystemObject
• Dim r As Scripting.textstream
• Set fso = New Scripting.fileSystemObject

Set r = fso.OpenTextFile(«C:UsersгыукDocuments
.html», forWriting, True)

1. r.WriteLine «»
2. r. WriteLine «»
3. Dim z As Single
4. Dim x As Single
5. Dim c As Single
6. x = TextBox1.text
7. y = TextBox2.text
8. z = TextBox3.text
9. r.WriteLine «Число 1=»
10. r.WriteLine x
11. r.WriteLine «»
12. r.WriteLine «Число 2=»
13. r.WriteLine y
14. r.WriteLine «»
15. r.WriteLine «Результат=»
16. r.WriteLine z

Workbooks.Open Filename:=»C:UsersгыукDocuments
.html»

End Sub

Источник: https://infourok.ru/ctatya-na-temu-kalkulyator-na-vba-1470143.html

visual basic калькулятор

По просьбе DenJoy«я сегодня мы будем делать калькулятор. Это наверно самое простое, что может быть вBasic»е =), т.к. там используются обычные знаки. Конечно это все легко, но я понимаю DenJoy, когда он не знает, как это делать. Я сам очень недавно был таким.

Все хватит ! Приступаем к программированию. Для начала посмотрим вид калькулятора, он должен быть примерно такой:

 В верхнее левое текстовое поле будут писаться цифры. В правое — выбраный знак. Ну и в низу кнопки с цифрами.

Заготовка: 

   1. Два текстовых поля с именамиText1 и Text2. У них свойство Enabled поставьте равным False, чтобы их нельзя было изменять.

 2. Пятнадцать кнопок с их стандартными номерами. Но предупреждаю !!! У меня они

•  идут не попорядку, так что лучшескачайте мой калькулятор с исходниками, чтобы посмотреть какой номер у каждой кнопки!
• Теперь пишем код:
• » Вводим две переменные, для присвоения им значений, которые мы введем на калькулятореDim a As StringDim b As String

Private Sub Command1_Click()» При нажа на кнопку с цифрой «1», в текстовом поле появится «1»Text1.Text = Text1.Text & «1»End Sub

1. Private Sub Command11_Click()
2. » После нажатия на «*», присваиваем переменной «a» число из текстового поля №1
3. a = Text1.Text
4. » В маленькое текстовое поле, пишем знак «*»Text2. Text = «*»
5. » Отчищаем тексотовое поле №1Text1.Text = «»End Sub
6. Private Sub Command12_Click()
7. » При нажатии на «=», присваиваем переменной «b» второе значение, но тоже из текстового поля №1b = Text1.Text

» Смотрим, какой знак в текстовом поле №2 и делаем нужное действиеIf Text2.Text = «*»ThenText1.Text = a * b

End IfIf Text2.Text = «/» Then

Text1.Text = a / b

End IfIf Text2.Text = «-» Then

Text1.Text = a — b

End IfEnd Sub

Private Sub Command13_Click()

» Отчищаем все текстовые поляText1.Text = «»Text2.Text = «»

• End Sub
• Private Sub Command14_Click()» После нажатия на «-«, присваиваем переменной «a» число из текстового поля №1

a = Text1.TextText2.Text = «-«Text1.Text = «»

1. End Sub
2. Private Sub Command15_Click()» После нажатия на «/», присваиваем переменной «a» число из текстового поля №1

a = Text1. TextText2.Text = «/»Text1.Text = «»

• End Sub
• » Все что ниже можно откоментировать одинаково: при нажатии на кнопку с определенной цифрой, она отабражается в текстовом поле №1

Private Sub Command2_Click()Text1.Text = Text1.Text & «5»

End Sub

Private Sub Command3_Click()Text1.Text = Text1.Text & «4»

End Sub

Private Sub Command4_Click()Text1.Text = Text1.Text & «3»

End Sub

Private Sub Command5_Click()Text1.Text = Text1.Text & «2»

End Sub

Private Sub Command6_Click()Text1.Text = Text1.Text & «6»

End Sub

Private Sub Command7_Click()Text1.Text = Text1.Text & «0»

End Sub

Private Sub Command8_Click()Text1.Text = Text1.Text & «9»

End Sub

Private Sub Command9_Click()Text1.Text = Text1.Text & «8»

End Sub

Private Sub Command10_Click()Text1. Text = Text1.Text & «7»

End Sub

Вот, в принципе, и все. Калькулятор готов к использованию. Я сделал его минут за 5-7. Так что можете поэкспериментировать, даже если у вас очень мало времени =). Еще раз настоятельно рекомендаюскачать мой калькулятор, чтобы знать какая кнопка, что обозначает.

Источник: http://vb.narod.ru/koding/stat/vb/48.htm

Исходный код калькулятора на языке 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.

В следующих уроках мы уже будем писать программы немного посложней.

Источник: https://info-comp.ru/obucheniest/71-calcvb.html

Математические функции

• 07/20/2015
• Время чтения: 2 мин

Методы класса 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.

Abs	Возвращает абсолютное значение числа.Returns the absolute value of a number.
Acos	Возвращает угол, косинус которого равен указанному числу.Returns the angle whose cosine is the specified number.
Asin	Возвращает угол, синус которого равен указанному числу.Returns the angle whose sine is the specified number.
Atan	Возвращает угол, тангенс которого равен указанному числу.Returns the angle whose tangent is the specified number.
Atan2	Возвращает угол, тангенс которого равен отношению двух указанных чисел.Returns the angle whose tangent is the quotient of two specified numbers.
BigMul	Возвращает полное произведение 2 32-разрядных чисел.Returns the full product of two 32-bit numbers.
Ceiling	Возвращает наименьшее целочисленное значение, которое больше или равно указанному Decimal или Double.Returns the smallest integral value that’s greater than or equal to the specified Decimal or Double.
Cos	Возвращает косинус указанного угла. Returns the cosine of the specified angle.
Cosh	Возвращает гиперболический косинус указанного угла.Returns the hyperbolic cosine of the specified angle.
DivRem	Возвращает частное от 2 32-битных или 64-битовых целых чисел со знаком, а также возвращает остаток в выходном параметре.Returns the quotient of two 32-bit or 64-bit signed integers, and also returns the remainder in an output parameter.
Exp	Возвращает значение e (основание натуральных логарифмов), возведенное в указанную степень.Returns e (the base of natural logarithms) raised to the specified power.
Floor	Возвращает максимальное целое число, которое меньше или равно указанному Decimal или Doubleному числу.Returns the largest integer that’s less than or equal to the specified Decimal or Double number.
IEEERemainder	Возвращает остаток, полученный от деления указанного числа на другое заданное число. Returns the remainder that results from the division of a specified number by another specified number.
Log	Возвращает натуральный (базовый e) логарифм указанного числа или логарифм указанного числа в заданном базовом массиве.Returns the natural (base e) logarithm of a specified number or the logarithm of a specified number in a specified base.
Log10	Возвращает логарифм с основанием 10 указанного числа.Returns the base 10 logarithm of a specified number.
Max	Возвращает большее из двух чисел.Returns the larger of two numbers.
Min	Возвращает меньшее из двух чисел.Returns the smaller of two numbers.
Pow	Возвращает указанное число, возведенное в указанную степень.Returns a specified number raised to the specified power.
Round	Возвращает Decimal или Double значение, округленное до ближайшего целого значения или до указанного числа цифр дробной части. Returns a Decimal or Double value rounded to the nearest integral value or to a specified number of fractional digits.
Sign	Возвращает значение типа Integer, указывающее знак числа.Returns an Integer value indicating the sign of a number.
Sin	Возвращает синус указанного угла.Returns the sine of the specified angle.
Sinh	Возвращает гиперболический синус указанного угла.Returns the hyperbolic sine of the specified angle.
Sqrt	Возвращает квадратный корень из указанного числа.Returns the square root of a specified number.
Tan	Возвращает тангенс указанного угла.Returns the tangent of the specified angle.
Tanh	Возвращает гиперболический тангенс указанного угла.Returns the hyperbolic tangent of the specified angle.
Truncate	Вычисляет целую часть указанного Decimal или Double числа.Calculates the integral part of a specified Decimal or Double number.

Чтобы использовать эти функции без уточнения, импортируйте 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:

Imports System.Math

Пример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.

‘ Returns 1.
Dim MySign1 As Integer = Math.Sign(12)
‘ Returns -1.
Dim MySign2 As Integer = Math.Sign(-2.4)
‘ Returns 0.
Dim MySign3 As Integer = Math.Sign(0)

Пример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

Источник: https://docs.microsoft.com/ru-ru/dotnet/visual-basic/language-reference/functions/math-functions

Как создать простой калькулятор в Visual Basic 6.0

Содержимое:

Visual Basic 6.0 является языком программирования, разработанный Microsoft, который может легко изучить и использовать новичок, а также опытные программисты.

Хотя он больше не поддерживается корпорацией Microsoft, тысячи приложений еще работают на нем и многое другое программное обеспечение все еще разрабатывается.

Это руководство покажет вам, как создать простой калькулятор в Visual Basic 6.0.

Шаги

1. 1 Откройте Visual Basic 6.0 и создайте новый проект Standard EXE Project. Проекты Standard EXE дают вам несколько команд и инструментов, полезных для разработки простых, а также полу-сложных программ.
   • Вы также можете выбрать проект VB Enterprise Edition Project, который даст вам намного больше инструментов для работы. Для начинающего программиста предлагается использовать Standard EXE Project.
2. 2 Рассмотрите окно проекта. В центре экрана будет поле с большим количеством точек. Это ваша форма.Форма — это место, куда вы будете добавлять различные элементы (кнопки команд, картинки, текстовые поля и т.д.) к вашей программе.
   • Слева от окна находится панель инструментов. Панель инструментов содержит различные определенные заранее элементы любой программы. Вы можете перетащить эти элементы на форму.
   • В нижней правой части окна находится макет формы. Это определяет, где ваша программа будет отображаться на экране после того, как проект будет завершен и выполнен.
   • Посередине правее находится окно свойств, которые определяют свойство любого элемента, выбранного в форме. Вы можете изменять различные свойства, используя его. Если не выбран ни один элемент, оно отображает свойства формы.
   • В правом верхнем углу находится Project Explorer. Оно показывает различные конструкции, формы, которые включены в проект.
   • Если любой из этих полей отсутствует, вы можете добавить их, нажав на кнопку «View» на панели меню Menu.
3. 3 Перетащите метку на форму, и измените заголовок метки на «Enter first number».
   • Надпись на метке можно изменить с помощью окна свойств.
4. 4 Создайте текстовое поле справа от первой метки.
   

   Удалите текст, который появляется внутри текстового поля, изменив пустующее поле «Text» в окне свойств.

5. 5 Создайте еще одну метку и измените заголовок на «Enter second number», и создайте еще одно текстовое поле для нее справа.
6. 6 Перетащите и создайте четыре командные кнопки ниже этих двух меток.
   

   Измените заголовок этих командных кнопок на «Add», «Subtract», «Multiply», «Divide» соответственно.

7. 7 Создайте еще одну метку с надписью «Result» и текстовое поле справа от нее под кнопками четырех команд. Это текстовое поле будет использоваться для отображения результата. При этом ваш проект будет завершен.
8. 8 Чтобы начать кодирование, в Project Explorer нажмите на форму, а затем выберите крайнюю левую кнопку. Вас перекинет в окно кодирования.
   • Нажмите на список в верхнем левом углу окна кодирования. Один за другим нажимайте на все команды (Command1, Command2, и т.д.), таким образом план кодирования из них будет виден вам в вашем окне кодирования.
9. 9 Объявите переменные. Чтобы объявить:
   • Dim a, b, r as Integer
   • a является величиной, введенной в первом текстовом поле, b является величиной , введенной во втором текстовом поле и r является результатом. Вы можете использовать любые другие переменные тоже.
10. 10 Запустите кодирование для команды добавления (Command1). Код будет выглядеть следующим образом:
    • Private Sub Command1_Click()
      a = Val(Text1.Text)
      b = Val(Text2.Text)
      r = a + b
      Text3.Text = r
      End Sub
11. 11 Код для команды вычитания (Command2). Код будет выглядеть следующим образом:
    • Private Sub Command2_Click()
      a = Val(Text1.Text)
      b = Val(Text2.Text)
      r = a — b
      Text3.Text = r
      End Sub
12. 12 Код для команды умножения (Command3). Кодирование будет выглядеть следующим образом:
    • Private Sub Command3_Click()
      a = Val(Text1.Text)
      b = Val(Text2.Text)
      r = a * b
      Text3.Text = r
      End Sub
13. 13 Код для команды деления (Command4). Кодирование будет выглядеть следующим образом:
    • Private Sub Command4_Click()
      a = Val(Text1.Text)
      b = Val(Text2.Text)
      r = a / b
      Text3.Text = r
      End Sub
14. 14 Нажмите кнопку запуска или нажмите F5, чтобы выполнить свою программу.
    • Протестируйте все команды и посмотрите, работает ли ваша программа.
15. 15 Сохраните проект и свою форму. Создайте свой проект и сохраните его в виде .exe файла на своем компьютере; запустите его, когда вы хотите!

Советы

• Вы можете создавать различные вариации простого калькулятора. Попробуйте использовать окно опций вместо командных кнопок.
• Добавьте цвета на форму и текстовые поля, используя окно свойств, чтобы они выглядели красочно!
• Если есть ошибка, научитесь отлаживать программу.

Прислал: Большакова Ольга . 2017-11-12 11:04:02

Источник: http://kak-otvet.imysite.ru/33784_kak_sozdat_prostoy_kalkulyator_v_visual_basic_6_0.htm

Проект Калькулятор

Проект Калькулятор

[На главную]
[Назад на предыдущую]
Дополнение к данной странице. Примеры ученических работ

[Создание арифметического калькулятора]
Следующие страницы

[на страницу «Циклы»]

6.
Проект Калькулятор

v.2

Вместо введения. Вначале сайт задумывался, в виде некоего конспекта или
шпаргалки для старшеклассников, изучающих информатику, как профильный предмет.
Однако скорость реформ сегодня такова, что школы не успев создать предпосылок
(материальных, информационных, кадровых) для выбранного профиля, уже вынуждены
выстраивать ориентацию вдоль нового каприза
административной моды. Вспомнить о потерях времени  учителя на разработку
методик, о немалых тратах на литературу и какое-никакое оборудование, никому и в
голову не придёт. Вперёд к новым миражам. В итоге в текущем году информатики у
меня осталось по 1 часу в неделю в 5 и 8 классе. В 5 классе, согласно программе,
начали изучать текстовый редактор. Однако время не стоит на месте, и то что
десяток лет казалось чудом, теперь стало частью бытовой культуры. Оказалось, что почти все деревенские пятиклассники уже умеют довольно
уверенно набирать текст, сохранять, редактировать и перемещать файлы, могут
нарисовать несложную картинку. Эти умения работы с компьютером были выработаны
частично в начальном звене школы, частично самостоятельно. Вот тут и возникла мысль: раз уж вы такие
шустрые, то вместо сказки про белого бычка пишите текст программы. В конце концов
какая разница создавать текст в Word’е или во
встроенном текстовом редакторе языка программирования. Двоих самых продвинутых
на это и отрядили. Каково же было моё удивление, когда на следующем занятии я
обнаружил ещё одного мальчика, который принёс с собой
самоучитель Visual Basic.Net, и самостоятельно
открыв устаревшую версию Visual Basic 6 пытался
сделать простейший калькулятор, описанный в предыдущих трёх экранах.
Поэтому на вызов пришлось отвечать.

Далее будет написано, как работали над проектом Калькулятор v.2
равнецкие пятиклассники. Напомню, что на момент
начала проекта пятиклассники ещё не знали арифметических дробей, отрицательных
чисел, координат на плоскости, функций и много другого, что вроде бы необходимо.
Но вот, что получилось. Итак Калькулятор (версион два  )

Постановка задачи. Усовершенствуем Калькулятор (см экран 3) так, чтобы он:

-1. Bыполнял 4 арифметических действия, но числа вводились бы не только с
клавиатуры, но и с кнопок на форме.

-2. При этом числа должны вводиться только в одно окно, а кнопкой «Вверх»
передаваться во второе, и тогда при выполнении арифметической операции
пользователь будет видеть оба компонента.

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

Интерфейс. Создадим новый проект. Разместим на форме три текстовых окна.
Затем четыре кнопки для арифметических операций. Это уже знакомо нам по
предыдущему проекту. Можно этим объектам оставить прежние имена, а можно дать
новые. Например, ученик 5 класса Цвирко Виталий, готовясь к грядущему усложнению
кода заменил малоинформативные имена вроде txtA,
txtB на более содержательные txtRezult, txtMemory.
И он прав. Потому что через неделю вряд ли вспомнишь, какие контролы именовал
буквами А и В, тогда как имена Memory или
Divide несут большую смысловую нагрузку. Добавим ещё 10 кнопок с цифрами.
Присвоим им имена от bt1, bt2 …и т.д. до
bt9, bt0. Свойству Text в
окне свойств присвоим соответственно 1; 2; и т.д. до 9 и 0. При создании десяти
одинаковых кнопок, конечно же, лучше воспользоваться копированием. Внимание! Те
кто знаком с Visual Basic 6 будут ожидать, что
программа предложит создать массив (array) контролов,
для обработки всех десяти кнопок в одной процедуре. Нет, в
Visual Studio это будет выглядеть несколько иначе и об этом позднее. Добавим ещё
три кнопки для перемещения чисел между окнами.  Для
наглядности сведения о контролах, их свойствах и присвоенных свойствам значениях представим в
таблице.

Control	Name	Text	TextAlign
Форма	frmCalc	Цвирко Виталий	умолчание
Верхнее окно TextBox для памяти (на рис в нём 0)	txtMemory	нет текста	Right
Среднее окноTextBox для записи числа (на рис в нём 521)	txtSecondNumber		Right
Нижнее окно TextBox для ввода числа и оно же для вывода результата вычислений (на рис в нём 809)	txtRezult		Right
Кнопка сложения	btnPlus	+	умолчание
Кнопка вычитания	btnMinus	—
Кнопка умножения	btnMult	х
Кнопка деления	btnDivide	:
Кнопка «Вверх». Её нажатие означает, что ввод первого числа окончен. Введённое число сдвигается вверх, и окно очищается для ввода второго числа.	btnToUp	Вверх
Кнопка  «В память». Число из нижнего окна копируется в верхнее. При этом число ранее содержавшееся в памяти уничтожается.	btnToMemory	В память
Кнопка «Из памяти». Число из верхнего окна копируется в нижнее. При этом содержимое нижнего окна сдвигается вверх.	btnToRezult	Из памяти
Кнопка 1 и т. д.	bt1	1

Напомним, что изменять значения свойств надо в окне свойств (Properties).
Кроме перечисленного в таблице минимально необходимого набора свойств, можно
поупражняться со свойствами BackColor (фоновый цвет
кнопок и самой формы), Font (шрифт, его размер,
жирность, курсив), ForeColor (цвет букв и символов
выведенных на контролы). Однако если вы сделаете кнопку 1 ярко-красной, кнопку 4
ядовито-зелёной, а кнопку 7 нежно-розовой, то кто-нибудь непременно сочтёт вас
за глупца. Но если вы будете поскромнее в цветастости, то получится некий
объект, который возможно будет походить на варианты калькулятора, изображённые
ниже.

Как обеспечить ввод чисел с кнопок на форме. Код. Первое приближение.

Допустим мы нажимаем кнопку 4. В окне ввода (у нас это
txtRezult) должна появиться четверка. Напишем следующий код:

Private Sub bt4_Click(ByVal
sender As Object, ByVal e
As System.EventArgs) Handles bt4.Click

txtRezult.Text = bt4.Text
End Sub

При нажатии на кнопку 4 в окне ввода
действительно возникает четвёрка, но потом сколько ни жми второй четвёрки не
появляется. А дело в том, что новая четвёрка при своём появлении стирает старую.
Изменим код так, чтобы четвёрка не стирала предыдущую запись, а приписывалась к
ней.

Private Sub bt4_Click(ByVal
sender As Object, ByVal e
As System.EventArgs) Handles bt4.Click

txtRezult.Text = txtRezult.Text + bt4.Text
End Sub

Запустим проект на исполнение и убедимся, что всё происходит как надо. Затем
напишем 9 аналогичных процедур для остальных девяти цифровых кнопок, и получим
код обеспечивающий набор числа в окне ввода.

 Private Sub bt0_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles bt0.Click

txtRezult.Text = txtRezult.Text + bt0.Text

End Sub

Private Sub Bt1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Bt1.Click

txtRezult.Text = txtRezult.Text + Bt1.Text

End Sub

Private Sub Bt2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Bt2.Click

txtRezult.Text = txtRezult.Text + Bt2.Text

End Sub

Private Sub bt3_Click(ByVal sender As Object, ByVal e As System. EventArgs)
Handles bt3.Click

txtRezult.Text = txtRezult.Text + bt3.Text

End Sub

Private Sub bt4_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles bt4.Click

txtRezult.Text = txtRezult.Text + bt4.Text

End Sub

Private Sub bt5_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles bt5.Click

txtRezult.Text = txtRezult.Text + bt5.Text

End Sub

Private Sub Bt6_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Bt6.Click

txtRezult.Text = txtRezult.Text + Bt6.Text

End Sub

Private Sub bt7_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles bt7.Click

txtRezult.Text = txtRezult.Text + bt7.Text

End Sub

Private Sub bt8_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles bt8.Click

txtRezult.Text = txtRezult.Text + bt8.Text

End Sub

Private Sub Bt9_Click(ByVal sender As Object, ByVal e As System. EventArgs)
Handles Bt9.Click

txtRezult.Text = txtRezult.Text + Bt9.Text

End Sub

Как обеспечить ввод чисел с кнопок на форме. Код. Второе приближение.

Оптимизируем код. Десять процедур, похожих друг на друга, как близнецы, и
отличающихся только именем кнопки заменим одной. Эта общая процедура немного
отличается от ранее написанных процедур обработки события. Поскольку компьютер
не понимает какой контрол мы хотим обработать, заголовок процедуры придётся
вводить с клавиатуры, и сам заголовок несколько усложнится. Во-первых его надо
придумать, например, уже знакомый нам пятиклассник Виталий остановился на таком
варианте  Allbtn0to9, что означает: все кнопки от нуля до девяти.
Во-вторых перечислить все обрабатываемые кнопки. Вот так он будет выглядеть:

Private Sub Allbtn0to9(ByVal sender As Object,
ByVal e As System.EventArgs) Handles _

bt1.Click, bt2. Click, bt3.Click, bt4.Click, bt4.Click, bt5.Click, bt6.Click, _

bt7.Click, bt8.Click, bt9.Click, bt0.Click

Теперь о служебном слове Handles
(обрабатывает), посмотрите на фрагменты кода в первом приближении , там
фигурирует и Private Sub Bt9_Click (щелчок
на кнопке 9), и зачем-то казалось бы дублирующее пояснение
Handles bt9.Click (обрабатывает щелчок на
кнопке 9). И вот нам становится ясно, что имя можно придумать самим, и оно может
быть  любым, но после слова Handles необходимо указать компьютеру, какие
события мы намереваемся обрабатывать. И что удивительно, как только мы напишем
имя первой кнопки, компьютер начнёт нас понимать и предлагать свои услуги в виде
всплывающих окон. Останется только ставить запятые и щелкать на нужных пунктах.
Похоже в создание среды Visual Studio Программисты
Microsoft вложили всю свою душу.
Чем не пример для восхищения и подражания. Слишком длинную строку кода
можно переносить так: после пробела поставить нижнее тире.

Переходим к телу
процедуры. Первой строкой объявим что, мы создаём новый объект типа кнопки.
В творческом процессе выбора имени для объекта программист Виталий решил
отобразить своё личное имя. Получилось так objVitaliBtn. Возможно, не самое
лучшее имя, но родитель имеет право на прихоти в выборе названий для своих
креатур.

Dim objVitaliBtn As
Button

Во второй строке запишем что этот объект принимает сигнал о том какая
кнопка нажата. Иначе говоря объекту objVitaliBtn  присваивается значение
отправителя. Sender и с
VS и с английского переводится, как отправитель.

 objVitaliBtn
= sender

И следующим кодом припишем к тексту
окна txtRezult цифру, хранимую в свойстве кнопке text.

If txtRezult.Text = «0» Then

txtRezult.Text = objVitaliBtn.Text
Else

txtRezult.Text = txtRezult.Text + objVitaliBtn.Text
End If

Заметим, что в этом фрагменте использована
структура ветвления со следующими служебными словами:
IF. ..THEN…ELSE…END IF. Она поможет избавиться от возможного появления
в начале числа ничего не значащих нулей. Переведём с
языка VS  на русский язык её содержание.

если
в
окне txtRezult стоит только ноль
то
этот ноль заменяется цифрой стоящей на нажатой кнопке
а
иначе
к тому что
уже написано добавляется новая цифра с текста кнопки
блоку
если конец

Для более полного понимания
смысла блока если можно рассмотреть расположенную ниже схему:

Полный текст кода процедуры
будет выглядеть так:

Private Sub Allbtn0to9(ByVal sender As Object,
ByVal e As System.EventArgs) Handles _

bt1.Click, bt2.Click, bt3.Click, bt4.Click, bt4.Click, bt5.Click, bt6.Click, _

bt7.Click, bt8.Click, bt9.Click, bt0.Click

Dim objVitaliBtn As
Button

objVitaliBtn
= sender
If txtRezult. Text = «0» Then

txtRezult.Text = objVitaliBtn.Text
Else

txtRezult.Text = txtRezult.Text + objVitaliBtn.Text

End If

Для закрепления умения обрабатывать события различных контролов в одной
процедуре ученикам было предложено написать код меняющий цвет кнопки, в момент
появления над кнопкой курсора и возвращающий прежний цвет, когда курсор уводится
с поверхности кнопки. Поясним только, что появление курсора над контролом это
событие MouseEnter, а уход курсора это событие MouseLeave. Для
имён процедур Виталий выбрал такие понятные ему наборы символов как, ColorEnter
(цвет на вход) и ColorOut (цвет на выход).

 Private
Sub ColorEnter(ByVal sender As Object, ByVal e As System.EventArgs)
Handles
bt0.MouseEnter, bt1.MouseEnter, _

bt2.MouseEnter, bt3.MouseEnter, bt4.MouseEnter, bt5.MouseEnter, bt6.MouseEnter,
bt7.MouseEnter, bt8.MouseEnter, bt9.MouseEnter _

, btnDivide. MouseEnter, btnMinus.MouseEnter, btnMult.MouseEnter,
btnPlus.MouseEnter, btnToMemory.MouseEnter, _

btToRezult.MouseEnter, btToUp.MouseEnter

Dim objRed As Button

objRed = sender

objRed.BackColor = Color.Lime
End Sub

Private Sub ColorOut(ByVal sender As Object, ByVal e As System.EventArgs)
Handles bt0.MouseLeave, bt1.MouseLeave, _

bt2.MouseLeave, bt3.MouseLeave, bt4.MouseLeave, bt5.MouseLeave, bt6.MouseLeave,
bt7.MouseLeave, _

bt8.MouseLeave, bt9.MouseLeave, btnDivide.MouseLeave, btnMinus.MouseLeave,
btnMult.MouseLeave, _

btnPlus.MouseLeave, btnToMemory.MouseLeave, btToRezult.MouseLeave,
btToUp.MouseLeave

Dim objSnow As Button

objSnow = sender

objSnow.BackColor = Color.Snow
End Sub

В качестве конкретного примера приведу следующие две страницы, которые написал ученик 8 класса Равнецкой школы Садыков Козбай. На странице Создание арифметического калькулятора ученик рассказывает о своём интересе к программированию и о создании своей первой «полунастоящей» программы. Это краткое изложение его выступления на конференции «Шаг в будущее». На странице Просмотр исходного кода содержится код всех процедур арифметического калькулятора и картинки с изображением интерфейса.

[На главную]

[На предыдущую]
Примеры ученических работ

[Создание арифметического калькулятора.(Пример)]

[Код арифметического калькулятора.(Пример)]
Следующие страницы

[на страницу «Циклы»]
экран 4

Сайт управляется системой uCoz

Как сделать калькулятор в Visual Basic 6? – Wazeesupperclub.com

Wazeesupperclub.com Популярные статьи Как сделать калькулятор в Visual Basic 6?

Как сделать калькулятор в Visual Basic 6?

Откройте программное обеспечение Microsoft Visual Basic 6.0 и в разделе «Новый проект» выберите «Стандартный EXE» и нажмите «Открыть». Соответствующим образом измените размер приложения «Форма для калькулятора», и это можно сделать, изменив свойства ширины и высоты.

Как создать калькулятор в Visual Basic 2010?

Предлагается 58-секундный клип9:57Visual Basic 2010 Express Tutorial 4 – Simple Calculator Part 1 – YouTubeYouTubeНачало предложенного клипаКонец предложенного клипаИтак, с кнопкой в ​​одном месте я сначала нажму кнопку «Отправить», а затем удерживаю клавишу управления нажатой и тем более с кнопкой один поместите туда. Я сначала нажму «Отправить», а затем, удерживая клавишу управления, нажму кнопку «Добавить». Я перейду к форматированию и сделаю оба одинакового размера. Таким образом, обе кнопки теперь имеют одинаковый размер.

Как сделать код VS на калькуляторе?

Калькулятор

1. Откройте код Visual Studio.
2. Открытие палитры быстрого открытия (по умолчанию: Ctrl-P )
3. Введите калькулятор установки ext.
4. Выберите расширение калькулятора.
5. Выберите Установить.

Как сделать калькулятор в Visual Basic Excel?

Инструкции по выполнению процедуры:

1. Откройте окно редактора VBA или нажмите Alt+F11.
2. Вставьте пользовательскую форму из меню «Вставка».
3. Создайте дизайн, как показано на шагах выше.
4. Добавить процедуры, дважды щелкнув пользовательскую форму.
5. Запустите проект, нажав клавишу F5 на клавиатуре.

Как сделать калькулятор с помощью HTML?

Пример калькулятора с использованием HTML.

Как сделать калькулятор в Visual Studio Python?

Рекомендуемый 58-секундный клип42:50Как создать калькулятор с помощью Python в Visual Studio CodeYouTube

Как сделать калькулятор с помощью приложения Python?

Простой калькулятор с графическим интерфейсом, использующий Tkinter в Python

1. Импортируйте все из Tkinter, используя *.
2. Создать интерфейс для калькулятора.
3. Создайте функцию ввода, которая вводит число в поле ввода.
4. Создайте очевидную функцию, которая стирает все из поля ввода.

Как создать калькулятор в Visual Basic 6?

Щелкните Папка. Введите Калькулятор и нажмите ↵ Enter. Откройте Visual Basic 6. Откроется страница выбора проекта. Щелкните Стандартный EXE-файл. Он находится в поле выбора проекта. Щелкните Открыть. Это в правом нижнем углу окна. При этом создается новый проект. Откройте инструмент «Текстовое поле».

Как сделать арифметику даты и времени в VB6?

Арифметические операции с датами — VB6 Дата и время В большинстве случаев вам не нужны никакие специальные функции для выполнения арифметических операций с датами. Все, что вам нужно знать, это то, что целая часть в переменной Date содержит информацию о дате, а дробная часть содержит информацию о времени: «через 2 дня и 12 часов».

Является ли кнопка калькулятора массивом элементов управления в Visual Basic 6?

Хотя наша коллекция кнопок калькулятора не представляет собой массив элементов управления в терминах Visual Basic 6, с ней можно обращаться почти как с массивом, используя свойство TabIndex каждой кнопки в качестве нижнего индекса массива.

Что такое арифметические операторы в VB NET?

Арифметические операторы в Visual Basic. Арифметические операторы используются для выполнения многих знакомых арифметических операций, включающих вычисление числовых значений, представленных литералами, переменными, другими выражениями, вызовами функций и свойств и константами.

https://www.youtube.com/watch?v=zr41nMTlUIw

Написать программу для создания простого калькулятора на Visual Basic (VB.NET) — Codebun

Напишите программу для создания простого калькулятора на языке Visual Basic (VB.NET). В этой статье мы напишем программу для создания калькулятора на языке Visual Basic (VB.NET). Здесь мы создадим простой калькулятор, используя «выбор регистра». Здесь мы выполняем операции сложения, вычитания, умножения и деления.

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

 'Программа VB. Net для создания простого калькулятора
'используя "выберите регистр"
Модуль Модуль1
    Подоснова()
        Тусклый выбор Как целое число
        Dim num1 как целое число = 0
        Dim num2 как целое число = 0
        Тусклый результат As Integer = 0
        Console.WriteLine("#############################")
        Console.WriteLine(" 1: Дополнение")
        Console.WriteLine(" 2: Вычитание")
        Console.WriteLine(" 3: Умножение")
        Console.WriteLine(" 4: Деление")
        Console.WriteLine("#############################")
        Console.Write("Введите вариант: ")
        выбор = Integer.Parse(Console.ReadLine())
        Console.Write("Введите число1:")
        num1 = Integer.Parse(Console.ReadLine())
        Console.Write("Введите число2:")
        num2 = Integer.Parse(Console.ReadLine())
        Выберите вариант случая
            Случай 1
                результат = число1 + число2
            Случай 2
                результат = число1 - число2
            Случай 3
                результат = число1 * число2
            Случай 4
                результат = число1 / число2
            Дело еще
                Console. WriteLine("Неверный выбор")
        Конец выбора
        Console.WriteLine("Результат: {0}", результат)
    Конец сабвуфера
    
Конечный модуль 

Вывод

Объяснение

В приведенной выше программе мы создали модуль Module1, который содержит метод Main(). В методе Main() мы создали четыре переменные выбора: num1, num2 и результат.

мы определили «выбрать регистр» для выполнения операции. Здесь мы выбираем 3-й случай и выполняем операцию умножения и печатаем результат на экране консоли.

Работа

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

• После этого он печатает ввод выбора, который является нашей переменной выбора случая, имя которой «выбор», мы вводим данные в эту переменную с помощью «выбор = Integer.Parse(Console.ReadLine())».
• Функция readline() используется для получения пользовательского ввода с клавиатуры и выбранного нами числа, если с ним совпадает какой-либо заданный случай выбора, так что будет выполняться тело оператора выбора выбора, в противном случае будет выполняться случай по умолчанию, который показывает «недействительный выбор».