Как написать калькулятор на vba - Правописание и грамматика

Загрузить PDF

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

Шаги

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

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

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

Перетащите и создайте четыре командные кнопки ниже этих двух меток. Измените заголовок этих командных кнопок на «Add», «Subtract», «Multiply», «Divide» соответственно.
7

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

Сохраните проект и свою форму. Создайте свой проект и сохраните его в виде .exe файла на своем компьютере; запустите его, когда вы хотите!

Реклама

Советы

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

Об этой статье

Эту страницу просматривали 72 546 раз.

Была ли эта статья полезной?

Источник

Calculator using Excel VBA UserForm

Effortlessly
Manage Your Projects

120+ Project Management Templates

Seamlessly manage your projects with our powerful & multi-purpose templates for project management.

120+ PM Templates Includes:

Calculator using Excel VBA UserForm :Project Objective

Calculator using Excel VBA UserForm. Following is the step by step detailed explanation to automate this project using VBA. How we are doing calculations, clear the text, etc.

Calculator using Excel VBA

How we are going to develop this project module(The KEY steps)
Design of the Calculator
Code and explantion for each control
Final VBA Module Code(Macro)
Display Calculator on the WorkSheet
Instructions to Execute the Procedure
Download the Project Workbook – Excel Macro File

How we are going to develop this project module (The KEY steps) :

To createc calculator, you can see the design of the userform in the section. Let me explain the key steps to develop this caculator project. We are going to write multiple procedure s for multiple controls with the below approach.

Step 1: Create UserForm: we have to first create the userform from the Insert menu in VBA Editor.
Step 2: Place toolbox controls on the created userform: Place required controls on the userform. You can drag the controls from the toolbox and drop controls on the userform.
Step 3: Set properties and alignment of all controls: Properties of each control has set. It is shown in the design section.
Step 4: Clear Button: It is used to clear the display area.
Step 5: Back Button : It is used to go back one digit.
Step 6: Divide (/) Button: It is used for division.
Step 7: Multiplcation (*) Button: It is used for multiplication.
Step 8: Minus (-) Button: It is used for subtraction.
Step 9: Add (+) Button: It is used for addition.
Step 10: Dot (.) Button : It is used to add dot to the number.
Step 11: One (1) Button: It is used to display number 1.
Step 12: Two (2) Button: It is used to display number 2.
Step 13: Three (3) Button: It is used to display number 3.
Step 14: Four (4) Button: It is used to display number 4.
Step 15: Five (5) Button: It is used to display number 5.
Step 16: six (6) Button: It is used to display number 6.
Step 17: Seven (7) Button: It is used to display number 7.
Step 18: Eight (8) Button: It is used to display number 8.
Step 19: Nine (9) Button: It is used to display number 9.
Step 20: Zero (0) Button: It is used to display number .0
Step 21: EqualTo (=) Button: It is used to perform all calculations like addition, substraction, multiplcation, etc .
Step 22: Textbox: It is used to display result.

Design of the Calculator :

Now, let us see the design of the calculator project of each control properties and their values on the userform:

Control	Property	Value
UserForm	Name	frmCalculator
Frame	Name	displayFrame
TextBox	Name	txtDisplay
	Enabled	False
	SpecialEffect	0-frmSpecialEffectFlat
	TextAlign	3-frmTextAlignRight
TextBox	Name	txtRes
	Value	0
	Enabled	False
	SpecialEffect	0-frmSpecialEffectFlat
	TextAlign	3-frmTextAlignRight
	EnterKeyBehavior	True
CommandButton	Name	cmdBtnclr
	Caption	Clear
CommandButton	Name	cmdBtnBak
	Caption	Back
CommandButton	Name	cmdBtnDvd
	Caption	/
CommandButton	Name	cmdBtnMult
	Caption	*
CommandButton	Name	cmdBtnMns
	Caption	–
CommandButton	Name	cmdBtnAdd
	Caption	+
CommandButton	Name	cmdBtnDot
	Caption	.
CommandButton	Name	cmdBtnEql
	Caption	=
CommandButton	Name	cmdBtn1
	Caption	1
CommandButton	Name	cmdBtn2
	Caption	2
CommandButton	Name	cmdBtn3
	Caption	3
CommandButton	Name	cmdBtn4
	Caption	4
CommandButton	Name	cmdBtn5
	Caption	5
CommandButton	Name	cmdBtn6
	Caption	6
CommandButton	Name	cmdBtn7
	Caption	7
CommandButton	Name	cmdBtn8
	Caption	8
CommandButton	Name	cmdBtn9
	Caption	9
CommandButton	Name	cmdBtn0
	Caption	0

This is what I used to create calculator design. By changing or setting all the above properties and values of control the form will be looking like below.

Code and explantion for each control:

Step 1: Create userform and do its initialization by double clicking on the userform and add the below code.

Private Sub UserForm_Initialize()
    txtRes.MaxLength = 10
    txtDisplay.MaxLength = 10
End Sub

In the above code we are setting maximum lenth of display numbers is 10. You can change this number.

Step 2: Double click on the textbox (Value-txtRes) and add the following code. Double click on the ‘ Textbox’ and add the below code.

Private Sub txtRes_Change()
     If txtRes.TextLength > 10 Then
        MsgBox "Its Too long to calculate value.", vbInformation
        txtRes.Text = Left(txtRes.Text, 10)
        Exit Sub
    End If
End Sub

In the above code we are displaying message when displaying numbers are exceeding 10.

Step 3: Set properties as mentioned above and do the alignment of all controls as shown above in the screenshot.

Step 4: Double click on the ‘Clear Button’ and add the below code.

Private Sub cmdBtnclr_Click()
    txtRes = 0: txtDisplay = Empty
End Sub

Step 5: Double click on the ‘ Back Button ‘ and add the below code.

Private Sub cmdBtnBak_Click()
    If txtRes <> 0 And txtRes <> "" Then txtRes = Left(txtRes, Len(txtRes) - 1)
End Sub

Step 6: Double click on the ‘ Divide (/) Button’ and add the below code.

Private Sub cmdBtnDvd_Click()
    If txtRes <> 0 Then
        txtDisplay = txtRes
        txtRes = 0
        calVal = "Divide"
    End If
End Sub

Step 7: Double click on the ‘ Multiplcation (*) Button’ and add the below code.

Private Sub cmdBtnMult_Click()
    If txtRes <> 0 Then
        txtDisplay = txtRes
        txtRes = 0
        calVal = "Multiplication"
    End If
End Sub

Step 8: Double click on the ‘ Minus (-) Button’ and add the below code.

Private Sub cmdBtnMns_Click()
    If txtRes <> 0 Then
        txtDisplay = txtRes
        txtRes = 0
        calVal = "Minus"
    End If
End Sub

Step 9: Double click on the ‘ Add (+) Button’ and add the below code.

Private Sub cmdBtnAdd_Click()
    If txtRes <> 0 Then
        txtDisplay = txtRes
        txtRes = 0
        calVal = "Add"
    End If
End Sub

Step 10: Double click on the ‘ Dot (.) Button ‘ and add the below code.

Private Sub cmdBtnDot_Click()
    If txtRes <> 0 Then txtRes = txtRes + "."
End Sub

Step 11: Double click on the ‘ One (1) Button’ and add the below code.

Private Sub cmdBtn1_Click()
    If txtRes = 0 Then
        txtRes = cmdBtn1.Caption
    Else
        txtRes = txtRes + cmdBtn1.Caption
    End If
End Sub

Step 12: Double click on the ‘ Two (2) Button’ and add the below code.

Private Sub cmdBtn2_Click()
    If txtRes = 0 Then
        txtRes = cmdBtn2.Caption
    Else
        txtRes = txtRes + cmdBtn2.Caption
    End If
End Sub

Step 13: Double click on the ‘ Three (3) Button’ and add the below code.

Private Sub cmdBtn3_Click()
    If txtRes = 0 Then
        txtRes = cmdBtn3.Caption
    Else
        txtRes = txtRes + cmdBtn3.Caption
    End If
End Sub

Step 14: Double click on the ‘ Four (4) Button’ and add the below code.

Private Sub cmdBtn4_Click()
    If txtRes = 0 Then
        txtRes = cmdBtn4.Caption
    Else
        txtRes = txtRes + cmdBtn4.Caption
    End If
End Sub

Step 15: Double click on the ‘ Five (5) Button’ and add the below code.

Private Sub cmdBtn5_Click()
    If txtRes = 0 Then
        txtRes = cmdBtn5.Caption
    Else
        txtRes = txtRes + cmdBtn5.Caption
    End If
End Sub

Step 16: Double click on the ‘ six (6) Button’ and add the below code.

Private Sub cmdBtn6_Click()
    If txtRes = 0 Then
        txtRes = cmdBtn6.Caption
    Else
        txtRes = txtRes + cmdBtn6.Caption
    End If
End Sub

Step 17: Double click on the ‘ Seven (7) Button’ and add the below code.

Private Sub cmdBtn7_Click()
    If txtRes = 0 Then
        txtRes = cmdBtn7.Caption
    Else
        txtRes = txtRes + cmdBtn7.Caption
    End If
End Sub

Step 18: Double click on the ‘ Eight (8) Button’ and add the below code.

Private Sub cmdBtn8_Click()
    If txtRes = 0 Then
        txtRes = cmdBtn8.Caption
    Else
        txtRes = txtRes + cmdBtn8.Caption
    End If
End Sub

Step 19: Double click on the ‘ Nine (9) Button’ and add the below code.

Private Sub cmdBtn9_Click()
    If txtRes = 0 Then
        txtRes = cmdBtn9.Caption
    Else
        txtRes = txtRes + cmdBtn9.Caption
    End If
End Sub

Step 20: Double click on the ‘ Zero (0) Button’ and add the below code.

Private Sub cmdBtn0_Click()
    txtRes = txtRes + cmdBtn0.Caption
End Sub

Step 21: Double click on the ‘ EqualTo (=) Button’ and add the below code.

'21. Final Calculations
Private Sub cmdBtnEql_Click()
On Error GoTo ErrOcccered
    'Dim txtRes As Long
    
    If txtDisplay = "Cannot divide by Zero" Then txtDisplay = Empty
    
    If txtRes <> "" And calVal <> "" Then
        FNum = Val(txtDisplay): SNum = Val(txtRes)
        Select Case calVal
            Case "Add"
                txtRes = FNum + SNum
            Case "Minus"
                txtRes = FNum - SNum
            Case "Multiplication"
                txtRes = FNum * SNum
            Case "Divide"
                If SNum = 0 Then
                    txtRes = "Cannot divide by Zero"
                Else
                    txtRes = FNum / SNum
                End If
            Case Else
                
        End Select
        txtdisplay = Empty
    End If
ErrOcccered:

End Sub

Final VBA Module Code(Macro):

Please find the following procedures to create calender project. Please these procedures after creation of the design (as shown in the above) and right click on the userform select ciew code and place it.

‘Variable Declaration
Public tmpVar As String
Public calVal As String

'1. Assign Maximum length to diplay numbers
Private Sub UserForm_Initialize()
    txtRes.MaxLength = 10
    txtTo display.MaxLength = 10
End Sub

'2. To displaying message when exceeding more then 10 numbers on the To display area.
Private Sub txtRes_Change()
     If txtRes.TextLength > 10 Then
        MsgBox "Its Too long to calculate value.", vbInformation
        txtRes.Text = Left(txtRes.Text, 10)
        Exit Sub
    End If
End Sub

'3. Settings properties of the userform.

'4. To clear data in the To display field
Private Sub cmdBtnclr_Click()
    txtRes = 0: txtdisplay = Empty
End Sub

'5. To go back one step.
Private Sub cmdBtnBak_Click()
    If txtRes <> 0 And txtRes <> "" Then txtRes = Left(txtRes, Len(txtRes) - 1)
End Sub

'6. For divide symbol
Private Sub cmdBtnDvd_Click()
    If txtRes <> 0 Then
        txtdisplay = txtRes
        txtRes = 0
        calVal = "Divide"
    End If
End Sub

' 7. For multiplication symbol
Private Sub cmdBtnMult_Click()
    If txtRes <> 0 Then
        txtdisplay = txtRes
        txtRes = 0
        calVal = "Multiplication"
    End If
End Sub

'8. For minus symbol
Private Sub cmdBtnMns_Click()
    If txtRes <> 0 Then
        txtdisplay = txtRes
        txtRes = 0
        calVal = "Minus"
    End If
End Sub

'9. For addition symbol
Private Sub cmdBtnAdd_Click()
    If txtRes <> 0 Then
        txtdisplay = txtRes
        txtRes = 0
        calVal = "Add"
    End If
End Sub

'10. Add Dot to the To display area
Private Sub cmdBtnDot_Click()
    If txtRes <> 0 Then txtRes = txtRes + "."
End Sub

'11. To display Number 1.
Private Sub cmdBtn1_Click()
    If txtRes = 0 Then
        txtRes = cmdBtn1.Caption
    Else
        txtRes = txtRes + cmdBtn1.Caption
    End If
End Sub

'12. To display Number 2.
Private Sub cmdBtn2_Click()
    If txtRes = 0 Then
        txtRes = cmdBtn2.Caption
    Else
        txtRes = txtRes + cmdBtn2.Caption
    End If
End Sub

'13. To display Number 3.
Private Sub cmdBtn3_Click()
    If txtRes = 0 Then
        txtRes = cmdBtn3.Caption
    Else
        txtRes = txtRes + cmdBtn3.Caption
    End If
End Sub

'14. To display Number 4.
Private Sub cmdBtn4_Click()
    If txtRes = 0 Then
        txtRes = cmdBtn4.Caption
    Else
        txtRes = txtRes + cmdBtn4.Caption
    End If
End Sub

'15. To display Number 5.
Private Sub cmdBtn5_Click()
    If txtRes = 0 Then
        txtRes = cmdBtn5.Caption
    Else
        txtRes = txtRes + cmdBtn5.Caption
    End If
End Sub

'16. To display Number 6.
Private Sub cmdBtn6_Click()
    If txtRes = 0 Then
        txtRes = cmdBtn6.Caption
    Else
        txtRes = txtRes + cmdBtn6.Caption
    End If
End Sub
'17. To display Number 7.
Private Sub cmdBtn7_Click()
    If txtRes = 0 Then
        txtRes = cmdBtn7.Caption
    Else
        txtRes = txtRes + cmdBtn7.Caption
    End If
End Sub

'18. To display Number 8.
Private Sub cmdBtn8_Click()
    If txtRes = 0 Then
        txtRes = cmdBtn8.Caption
    Else
        txtRes = txtRes + cmdBtn8.Caption
    End If
End Sub
'19. To display Number 9.
Private Sub cmdBtn9_Click()
    If txtRes = 0 Then
        txtRes = cmdBtn9.Caption
    Else
        txtRes = txtRes + cmdBtn9.Caption
    End If
End Sub

'20. To display Number 0.
Private Sub cmdBtn0_Click()
    txtRes = txtRes + cmdBtn0.Caption
End Sub

'21. Final Calculations
Private Sub cmdBtnEql_Click()
On Error GoTo ErrOcccered
    'Dim txtRes As Long
    
    If txtDisplay = "Cannot divide by Zero" Then txtDisplay = Empty
    
    If txtRes <> "" And calVal <> "" Then
        FNum = Val(txtDisplay): SNum = Val(txtRes)
        Select Case calVal
            Case "Add"
                txtRes = FNum + SNum
            Case "Minus"
                txtRes = FNum - SNum
            Case "Multiplication"
                txtRes = FNum * SNum
            Case "Divide"
                If SNum = 0 Then
                    txtRes = "Cannot divide by Zero"
                Else
                    txtRes = FNum / SNum
                End If
            Case Else
                
        End Select
        txtdisplay = Empty
    End If
ErrOcccered:

End Sub

Display Calculator on the WorkSheet:

Here are steps to display calculator on the userform.

Place any shape by clicking on insert menu from illustrations group.
Right click on the shape, selct assign macro.
select the shape name from the available list and click on OK button.
Now, go to the Developer tab.
Design Mode should be turned off from the Controls group.
Now, go back to the shape and click on the created shape to see the calculator on the userform.

Instructions to Execute the Procedure:

You can download the below file and see the code and execute it.

Open VBA Editor window or Press Alt+F11.
Insert userform from the Insert menu.
Create design as shown in theabove steps..
Add Procedures by double clicking on userform.
Run the project by hitting F5 key from the keyboard.
hit the numbers on the calculator and see the output on the display area.
And als you can use keyboard keys(up, down, left, right and enter to display numbers.

Download the Calculator Project – Excel VBA Project<:

Here is the Excel macro workbook file to explore the calculator project yourself.
Calculator using Excel VBA

Effortlessly Manage Your Projects and Resources

120+ Professional Project Management Templates!

A Powerful & Multi-purpose Templates for project management. Now seamlessly manage your projects, tasks, meetings, presentations, teams, customers, stakeholders and time. This page describes all the amazing new features and options that come with our premium templates.

Save Up to 85% LIMITED TIME OFFER

All-in-One Pack
120+ Project Management Templates

Essential Pack
50+ Project Management Templates

Excel Pack
50+ Excel PM Templates

PowerPoint Pack
50+ Excel PM Templates

MS Word Pack
25+ Word PM Templates

Ultimate Project Management Template

Ultimate Resource Management Template

Project Portfolio Management Templates

By PNRaoLast Updated: March 2, 2023

12 Comments

Krishnaprasad Menon
January 2, 2016 at 9:52 AM — Reply

Very nice application.. Thank you very much
rahul
August 19, 2016 at 9:27 AM — Reply
Imran
September 27, 2016 at 7:25 PM — Reply

Awsome .I was thinking it can only be develped in VB6
Kim
May 11, 2017 at 8:26 AM — Reply

Thanks. It helps me a lot
SACHIN
May 30, 2018 at 8:57 AM — Reply
anurup
July 7, 2018 at 11:00 AM — Reply

what is txtres and txtdisplay variable in here??
PNRao
July 27, 2018 at 9:55 PM — Reply

txtDisplay is the main text box used to display the entering values, and the txtRes is the textbox used to display the Result.
Godwin Inyene
September 26, 2018 at 1:32 AM — Reply

I love this project, please is there any how we can conmunicate cause there are some section where I got loss.
thanks
I am sticking at a place that is I can’t understand have you used two text boxes or one, if two then where you drop the second text box (is it inside the main text box, the display one).
need help
Rey
November 22, 2018 at 10:44 AM — Reply

I’ve got an error, “Compile error. Variable not defined” and highlight blue in calVal=
Private Sub cmdBtnAdd_Click()
If txtRes 0 Then
txtDisplay = txtRes
txtRes = 0
calVal = “Add”
End If
End Sub
PNRao
July 4, 2019 at 7:09 PM — Reply

please reenter the double quotation marks.
PPP
May 12, 2020 at 8:32 PM — Reply

Effectively Manage Your
Projects and Resources

With Our Professional and Premium Project Management Templates!

ANALYSISTABS.COM provides free and premium project management tools, templates and dashboards for effectively managing the projects and analyzing the data.

We’re a crew of professionals expertise in Excel VBA, Business Analysis, Project Management. We’re Sharing our map to Project success with innovative tools, templates, tutorials and tips.

Project Management

Excel VBA

Download Free Excel 2007, 2010, 2013 Add-in for Creating Innovative Dashboards, Tools for Data Mining, Analysis, Visualization. Learn VBA for MS Excel, Word, PowerPoint, Access, Outlook to develop applications for retail, insurance, banking, finance, telecom, healthcare domains.

Page load link

Go to Top

Источник

Download Article

This wikiHow teaches you how to use Microsoft’s Visual Basic 6.0 to create a simple calculator that can add, subtract, multiply, and divide. Keep in mind that Visual Basic 6.0 is no longer used by modern computers, so you’ll need to have it installed and running on your computer in order to be able to use it.

1
Create a new folder for your calculator. To house all of your calculator’s necessary files, do the following:
- Go to the location in which you want to save your VB6 calculator.
- Right-click a blank space.
- Select New in the drop-down menu.
- Click Folder.
- Type in Calculator and press ↵ Enter.
2

Open Visual Basic 6. This will bring up the project selection page.

Advertisement
3

Click Standard EXE. It’s in the project selection field.
4

Click Open. This is in the bottom-right corner of the window. Doing so creates a new project.

1

Open the «Text Box» tool. Click the ab button on the left-hand side of the window.
2
Create a text box. Click and drag your mouse down and right to draw an outline of the text box, then release the mouse button when the text box is the proper size.
- Ideally, your text box will be significantly longer than it is tall.
3

Copy the text box. Click once the text box to select it, then press Ctrl+C to copy it.
4
Paste in the text box twice. Press Ctrl+V twice to do so. You should see your pasted text boxes appear in the upper-right side of the page.
- If prompted to create a new control array after pasting in a text box, click No.
5
Arrange the text boxes in a stack. Click and drag the text box in the top-left side of the page down to the bottom slot, then move the second text box from the top-left side of the page into the middle slot. You should now have a stack of three text boxes.^[1]
- The order in which you do this is important; if you place the text box you pasted second in the middle, it will cause your coding later to malfunction.
6
Remove the text boxes’ default text. To do so:
- Click a text box.
- Click the text field to the right of the «Text» heading in the «Properties» pane on the right side of the window.
- Press Delete.
- Repeat with the other two text boxes.
7
Create three label boxes. Click the A button in the left-hand toolbar, then do the following:
- Resize the label box to your preferred size.
- Select the label box, then copy it.
- Paste twice the label box.
8

Place the label boxes to the left of the text boxes. Click and drag each label box to sit to the left of each text box.
9
Edit the top label box’s caption. To do so:
- Click the top label box.
- Click the text box to the right of the «Caption» heading in the «Properties» pane on the right side of the window.
- Type in Number 1.
10
Edit the other two label boxes’ captions. You’ll label them like so:
- Click the middle label box, then change its caption to Number 2.
- Click the bottom label box, then change its caption to Result.
11
Make the label boxes transparent. This isn’t necessary, but it will make your calculator more visually appealing:
- Select a label box.
- Click the «BackStyle» drop-down box in the «Properties» pane.
- Click Transparent in the drop-down menu.
12
Title your calculator. To change the text that appears at the top of the calculator’s window when you run it, do the following:
- Click a blank space on the form.
- Click the «Caption» header’s text box in the «Properties» pane.
- Type in Simple Calculator (or whatever you want to name the calculator).

1

Click the «Button» tool icon. It’s a grey box icon below the ab option in the left-hand toolbar.
2

Create a square button. Click and drag in a diagonal direction until you see a small square outline appear, then release the mouse button. You should see a grey button display on the form.
3

Copy the button. Select the button you just created, then press Ctrl+C.
4
Paste the button three times. Press Ctrl+V three times to do so. This will create a total of four buttons on your project.
- You may have to click No when prompted each time after pressing Ctrl+V.
5

Arrange the buttons below the calculator’s input fields. Click and drag each button so that you have a row of them below the «Result» text box.
6
Edit the buttons’ captions. You’ll do this by changing the text for each button’s «Caption» heading in the «Properties» pane on the right side of the window:
- Click the left-most button, then change its «Caption» text to +.
- Click the next button to the right, then change its «Caption» text to -.
- Click the next button to the right, then change its «Caption» text to x (or *).
- Click the right-most button, then change its «Caption» text to /.

1

Double-click the + button. Doing so opens a code console.
2
Enter the addition code. Type the following code into the console, directly below the «Private Sub» text and directly above the «End Sub» text.
```
Text3.Text=val(Text1)+val(Text2)
```
3

Return to the calculator form. Double-click the Form1 option under the «Project1» heading on the right side of the page to do so.
4

Double-click the — button. This will re-open the console.
5
Enter the subtraction code. Type the following into the console:
```
Text3.Text=val(Text1)-val(Text2)
```
6

Double-click the x or * button. This will re-open the console.
7
Enter the multiplication code. Type the following into the console:
```
Text3.Text=val(Text1)*val(Text2)
```
8

Double-click the / button. This will re-open the console.
9
Enter the division code. Type the following into the console:
```
Text3.Text=val(Text1)/val(Text2)
```

1
Save your project. Do the following:
- Press Ctrl+S.
- Select your «Calculator» folder as the save location.
- Click Save.
2

Click File. It’s in the upper-left side of the window. A drop-down menu will appear.
3

Click Make [name] exe…. This option is in the drop-down menu. Doing so re-opens the «Save As» window.
4

Enter a file name. Type «calculator» or something similar into the «File name» text box.
5

Select your «Calculator» folder. Go to the folder in which you saved your «Calculator» folder, then click the «Calculator» folder to select it.
6

Click OK. It’s in the bottom-right corner of the window. This will save your calculator as an executable (EXE) file in the «Calculator» folder.
7
Create a shortcut to your calculator’s EXE file. You can create a desktop shortcut to your calculator’s EXE file by doing the following:
- Open the «Calculator» folder.
- Right-click the EXE file.
- Select Send to in the drop-down menu.
- Click Desktop (create shortcut).

Add New Question

Question

How do I code a calculator in VB?

Start by designing the interface of your calculator, then you start your coding
by declaring the values you are using, such as a,b,c, for each command you have open
in your interface.

a=val(Text1.Text)
b=val(Text2.Text)
c=a+b
Text3.Text=c

a= the value you enter in text1(text box)
b= the value you enter in text2(text box)
c= the label to display your answer
Question

How can I become an expert in programming?

Practice as much as possible and always challenge yourself to learn more and more complex things.
Question

Any number divide by 0 is = 1? How I can fix that?

You might want to code in an error message because officially, dividing by 0 is UNDEFINED.

See more answers

Ask a Question

200 characters left

Include your email address to get a message when this question is answered.

Submit

You can change your calculator’s background color by clicking a blank space on the form, clicking the «BackColor» drop-down box (in the «Properties» pane), and clicking the color you want to use.

Thanks for submitting a tip for review!

Visual Basic 6.0 is no longer updated on modern computers, so you may encounter errors if attempting to install or use it on a 64-bit system (e.g., Windows 10).

About This Article

Thanks to all authors for creating a page that has been read 751,202 times.

Is this article up to date?

Источник

Download Article

1
Create a new folder for your calculator. To house all of your calculator’s necessary files, do the following:
- Go to the location in which you want to save your VB6 calculator.
- Right-click a blank space.
- Select New in the drop-down menu.
- Click Folder.
- Type in Calculator and press ↵ Enter.
2

Open Visual Basic 6. This will bring up the project selection page.

Advertisement
3

Click Standard EXE. It’s in the project selection field.
4

Click Open. This is in the bottom-right corner of the window. Doing so creates a new project.

1

Open the «Text Box» tool. Click the ab button on the left-hand side of the window.
2
Create a text box. Click and drag your mouse down and right to draw an outline of the text box, then release the mouse button when the text box is the proper size.
- Ideally, your text box will be significantly longer than it is tall.
3

Copy the text box. Click once the text box to select it, then press Ctrl+C to copy it.
4
Paste in the text box twice. Press Ctrl+V twice to do so. You should see your pasted text boxes appear in the upper-right side of the page.
- If prompted to create a new control array after pasting in a text box, click No.
5
Arrange the text boxes in a stack. Click and drag the text box in the top-left side of the page down to the bottom slot, then move the second text box from the top-left side of the page into the middle slot. You should now have a stack of three text boxes.^[1]
- The order in which you do this is important; if you place the text box you pasted second in the middle, it will cause your coding later to malfunction.
6
Remove the text boxes’ default text. To do so:
- Click a text box.
- Click the text field to the right of the «Text» heading in the «Properties» pane on the right side of the window.
- Press Delete.
- Repeat with the other two text boxes.
7
Create three label boxes. Click the A button in the left-hand toolbar, then do the following:
- Resize the label box to your preferred size.
- Select the label box, then copy it.
- Paste twice the label box.
8

Place the label boxes to the left of the text boxes. Click and drag each label box to sit to the left of each text box.
9
Edit the top label box’s caption. To do so:
- Click the top label box.
- Click the text box to the right of the «Caption» heading in the «Properties» pane on the right side of the window.
- Type in Number 1.
10
Edit the other two label boxes’ captions. You’ll label them like so:
- Click the middle label box, then change its caption to Number 2.
- Click the bottom label box, then change its caption to Result.
11
Make the label boxes transparent. This isn’t necessary, but it will make your calculator more visually appealing:
- Select a label box.
- Click the «BackStyle» drop-down box in the «Properties» pane.
- Click Transparent in the drop-down menu.
12
Title your calculator. To change the text that appears at the top of the calculator’s window when you run it, do the following:
- Click a blank space on the form.
- Click the «Caption» header’s text box in the «Properties» pane.
- Type in Simple Calculator (or whatever you want to name the calculator).

1

Click the «Button» tool icon. It’s a grey box icon below the ab option in the left-hand toolbar.
2

Create a square button. Click and drag in a diagonal direction until you see a small square outline appear, then release the mouse button. You should see a grey button display on the form.
3

Copy the button. Select the button you just created, then press Ctrl+C.
4
Paste the button three times. Press Ctrl+V three times to do so. This will create a total of four buttons on your project.
- You may have to click No when prompted each time after pressing Ctrl+V.
5

Arrange the buttons below the calculator’s input fields. Click and drag each button so that you have a row of them below the «Result» text box.
6
Edit the buttons’ captions. You’ll do this by changing the text for each button’s «Caption» heading in the «Properties» pane on the right side of the window:
- Click the left-most button, then change its «Caption» text to +.
- Click the next button to the right, then change its «Caption» text to -.
- Click the next button to the right, then change its «Caption» text to x (or *).
- Click the right-most button, then change its «Caption» text to /.

1

Double-click the + button. Doing so opens a code console.
2
Enter the addition code. Type the following code into the console, directly below the «Private Sub» text and directly above the «End Sub» text.
```
Text3.Text=val(Text1)+val(Text2)
```
3

Return to the calculator form. Double-click the Form1 option under the «Project1» heading on the right side of the page to do so.
4

Double-click the — button. This will re-open the console.
5
Enter the subtraction code. Type the following into the console:
```
Text3.Text=val(Text1)-val(Text2)
```
6

Double-click the x or * button. This will re-open the console.
7
Enter the multiplication code. Type the following into the console:
```
Text3.Text=val(Text1)*val(Text2)
```
8

Double-click the / button. This will re-open the console.
9
Enter the division code. Type the following into the console:
```
Text3.Text=val(Text1)/val(Text2)
```

1
Save your project. Do the following:
- Press Ctrl+S.
- Select your «Calculator» folder as the save location.
- Click Save.
2

Click File. It’s in the upper-left side of the window. A drop-down menu will appear.
3

Click Make [name] exe…. This option is in the drop-down menu. Doing so re-opens the «Save As» window.
4

Enter a file name. Type «calculator» or something similar into the «File name» text box.
5

Select your «Calculator» folder. Go to the folder in which you saved your «Calculator» folder, then click the «Calculator» folder to select it.
6

Click OK. It’s in the bottom-right corner of the window. This will save your calculator as an executable (EXE) file in the «Calculator» folder.
7
Create a shortcut to your calculator’s EXE file. You can create a desktop shortcut to your calculator’s EXE file by doing the following:
- Open the «Calculator» folder.
- Right-click the EXE file.
- Select Send to in the drop-down menu.
- Click Desktop (create shortcut).

Add New Question

Question

How do I code a calculator in VB?

Start by designing the interface of your calculator, then you start your coding
by declaring the values you are using, such as a,b,c, for each command you have open
in your interface.

a=val(Text1.Text)
b=val(Text2.Text)
c=a+b
Text3.Text=c

a= the value you enter in text1(text box)
b= the value you enter in text2(text box)
c= the label to display your answer
Question

How can I become an expert in programming?

Practice as much as possible and always challenge yourself to learn more and more complex things.
Question

Any number divide by 0 is = 1? How I can fix that?

You might want to code in an error message because officially, dividing by 0 is UNDEFINED.

See more answers

Ask a Question

200 characters left

Include your email address to get a message when this question is answered.

Submit

You can change your calculator’s background color by clicking a blank space on the form, clicking the «BackColor» drop-down box (in the «Properties» pane), and clicking the color you want to use.

Thanks for submitting a tip for review!

Visual Basic 6.0 is no longer updated on modern computers, so you may encounter errors if attempting to install or use it on a 64-bit system (e.g., Windows 10).

About This Article

Thanks to all authors for creating a page that has been read 751,202 times.

Is this article up to date?

Источник

Всем привет, сегодня в материале мы с Вами напишем маленькую программку на языке программирования 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. В следующих уроках мы уже будем писать программы немного посложней.

Источник

Содержание

1 Шаги
2 Советы
3 Процедура создания калькулятора
- 3.1 Способ 1: использование макросов
- 3.2 Способ 2: применение функций
- 3.3 Способ 3: включение встроенного калькулятора Excel
- 3.4 Помогла ли вам эта статья?

Шаги

Откройте Visual Basic 6.0 и создайте новый проект Standard EXE Project.
Проекты Standard EXE дают вам несколько команд и инструментов, полезных для разработки простых, а также полу-сложных программ.
- Вы также можете выбрать проект VB Enterprise Edition Project, который даст вам намного больше инструментов для работы. Для начинающего программиста предлагается использовать Standard EXE Project.
Рассмотрите окно проекта.
В центре экрана будет поле с большим количеством точек. Это ваша форма.Форма — это место, куда вы будете добавлять различные элементы (кнопки команд, картинки, текстовые поля и т.д.) к вашей программе.
- Слева от окна находится панель инструментов. Панель инструментов содержит различные определенные заранее элементы любой программы. Вы можете перетащить эти элементы на форму.
- В нижней правой части окна находится макет формы. Это определяет, где ваша программа будет отображаться на экране после того, как проект будет завершен и выполнен.
- Посередине правее находится окно свойств, которые определяют свойство любого элемента, выбранного в форме. Вы можете изменять различные свойства, используя его. Если не выбран ни один элемент, оно отображает свойства формы.
- В правом верхнем углу находится Project Explorer. Оно показывает различные конструкции, формы, которые включены в проект.
- Если любой из этих полей отсутствует, вы можете добавить их, нажав на кнопку «View» на панели меню Menu.
Перетащите метку на форму, и измените заголовок метки на «Enter first number».
- Надпись на метке можно изменить с помощью окна свойств.
Создайте текстовое поле справа от первой метки. Удалите текст, который появляется внутри текстового поля, изменив пустующее поле «Text» в окне свойств.
Создайте еще одну метку и измените заголовок на «Enter second number», и создайте еще одно текстовое поле для нее справа.
Перетащите и создайте четыре командные кнопки ниже этих двух меток. Измените заголовок этих командных кнопок на «Add», «Subtract», «Multiply», «Divide» соответственно.
Создайте еще одну метку с надписью «Result» и текстовое поле справа от нее под кнопками четырех команд. Это текстовое поле будет использоваться для отображения результата. При этом ваш проект будет завершен.
Чтобы начать кодирование, в Project Explorer нажмите на форму, а затем выберите крайнюю левую кнопку.
Вас перекинет в окно кодирования.
- Нажмите на список в верхнем левом углу окна кодирования. Один за другим нажимайте на все команды (Command1, Command2, и т.д.), таким образом план кодирования из них будет виден вам в вашем окне кодирования.
Объявите переменные.
Чтобы объявить:
- Dim a, b, r as Integer
- a является величиной, введенной в первом текстовом поле, b является величиной , введенной во втором текстовом поле и r является результатом. Вы можете использовать любые другие переменные тоже.
Запустите кодирование для команды добавления (Command1).
Код будет выглядеть следующим образом:
- Private Sub Command1_Click()
  a = Val(Text1.Text)
  b = Val(Text2.Text)
  r = a + b
  Text3.Text = r
  End Sub
Код для команды вычитания (Command2).
Код будет выглядеть следующим образом:
- Private Sub Command2_Click()
  a = Val(Text1.Text)
  b = Val(Text2.Text)
  r = a — b
  Text3.Text = r
  End Sub
Код для команды умножения (Command3).
Кодирование будет выглядеть следующим образом:
- Private Sub Command3_Click()
  a = Val(Text1.Text)
  b = Val(Text2.Text)
  r = a * b
  Text3.Text = r
  End Sub
Код для команды деления (Command4).
Кодирование будет выглядеть следующим образом:
- Private Sub Command4_Click()
  a = Val(Text1.Text)
  b = Val(Text2.Text)
  r = a / b
  Text3.Text = r
  End Sub
Нажмите кнопку запуска или нажмите F5, чтобы выполнить свою программу.
- Протестируйте все команды и посмотрите, работает ли ваша программа.
Сохраните проект и свою форму. Создайте свой проект и сохраните его в виде .exe файла на своем компьютере; запустите его, когда вы хотите!

Советы

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

Информация о статье

Эту страницу просматривали 35 159 раза.

Была ли эта статья полезной?

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

Процедура создания калькулятора

Особенно насущной данная задача становится в случае необходимости постоянно проводить однотипные вычисления и расчеты, связанные с определенным видом деятельности. В целом все калькуляторы в Excel можно разделить на две группы: универсальные (используются для общих математических вычислений) и узкопрофильные. Последняя группа делится на множество видов: инженерные, финансовые, кредитные инвестиционные и т.д. Именно от функциональных возможностей калькулятора, в первую очередь, зависит выбор алгоритма его создания.

Способ 1: использование макросов

Прежде всего, рассмотрим алгоритмы создания пользовательских калькуляторов. Начнем с создания простейшего универсального калькулятора. Данный инструмент будет выполнять элементарные арифметические действия: сложение, умножение вычитание, деление и т. д. Он реализован с помощью макроса. Поэтому прежде, чем приступить к процедуре создания, нужно удостовериться, что у вас включены макросы и панель разработчика. Если это не так, то обязательно следует активировать работу макросов.

После того, как указанные выше предварительные настройки выполнены, перемещаемся во вкладку «Разработчик». Жмем на иконку «Visual Basic», которая размещена на ленте в блоке инструментов «Код».
Запускается окно редактора VBA. Если центральная область у вас отобразилась серым цветом, а не белым, то это означает, что поле введения кода отсутствует. Для включения его отображения переходим в пункт меню «View» и жмем по надписи «Code» в появившемся списке. Можно вместо этих манипуляций нажать функциональную клавишу F7. В любом случае поле для ввода кода появится.
Тут в центральной области нам нужно записать сам код макроса. Он имеет следующий вид:
Sub Calculator() Dim strExpr As String ' Введение данных для расчета strExpr = InputBox("Введите данные") ' Вычисление результата MsgBox strExpr & " = " & Application.Evaluate(strExpr) End Sub

Вместо словосочетания «Введите данные» вы можете записать любое другое более приемлемое для вас. Именно оно будет располагаться над полем введения выражения.

После того, как код введен, файл нужно перезаписать. При этом его следует сохранить в формате с поддержкой макросов. Жмем на иконку в виде дискеты на панели инструментов редактора VBA.
Запускается окно сохранения документа. Переходим в ту директорию на жестком диске или съемном носителе, где хотим его сохранить. В поле «Имя файла» присваиваем документу любое желаемое наименование или оставляем то, которое присвоено ему по умолчанию. В обязательном порядке в поле «Тип файла» из всех доступных форматов выбираем наименование «Книга Excel с поддержкой макросов (*.xlsm)». После данного шага клацаем по кнопке «Сохранить» в нижней части окна.
После этого можно закрывать окно редактора макросов, просто нажав на стандартный значок закрытия в виде красного квадрата с белым крестиком в его правом верхнем углу.
Чтобы запустить вычислительный инструмент при помощи макроса, находясь во вкладке «Разработчик», клацаем по значку «Макросы» на ленте в блоке инструментов «Код».
После этого запускается окно макросов. Выбираем наименование того макроса, который мы только что создавали, выделяем его и жмем на кнопку «Выполнить».
После выполнения данного действия запускается калькулятор, созданный на основе макроса.
Для того, чтобы произвести в нем вычисление, записываем в поле необходимое действие. Удобнее всего использовать для этих целей числовой блок клавиатуры, который расположен справа. После того, как выражение введено, жмем на кнопку «OK».
Затем на экране появляется небольшое окошко, которое содержит в себе ответ решения заданного выражения. Для его закрытия жмем на кнопку «OK».
Но согласитесь, что довольно неудобно каждый раз, когда потребуется произвести вычислительные действия, переходить в окно макросов. Давайте упростим реализацию запуска окна вычислений. Для этого, находясь во вкладке «Разработчик», щелкаем по уже знакомой нам иконке «Макросы».
Затем в окне макросов выбираем наименование нужного объекта. Щелкаем по кнопке «Параметры…».
После этого запускается окошко ещё меньше предыдущего. В нем мы можем задать сочетание горячих клавиш, при нажатии на которые будет запускаться калькулятор. Важно, чтобы данное сочетание не использовалось для вызова других процессов. Поэтому первые символы алфавита использовать не рекомендуется. Первую клавишу сочетания задает сама программа Эксель. Это клавиша Ctrl. Следующую клавишу задает пользователь. Пусть это будет клавиша V (хотя вы можете выбрать и другую). Если данная клавиша уже используется программой, то будет автоматически добавлена ещё одна клавиша в комбинацию – Shift. Вписываем выбранный символ в поле «Сочетание клавиш» и жмем на кнопку «OK».
Затем закрываем окно макросов, нажав на стандартный значок его закрытия в верхнем правом углу.

Теперь при наборе выбранной комбинации горячих клавиш (в нашем случае Ctrl+Shift+V) будет запускаться окно калькулятора. Согласитесь, это намного быстрее и проще, чем каждый раз вызывать его через окно макросов.

Урок: Как создать макрос в Экселе

Способ 2: применение функций

Теперь давайте рассмотрим вариант создания узкопрофильного калькулятора. Он будет предназначен для выполнения конкретных, специфических задач и размещен непосредственно на листе Excel. Для создания этого инструмента будут применяться встроенные функции Эксель.

Для примера создадим инструмент конвертации величин массы. В процессе его создания нами будет использована функция ПРЕОБР. Данный оператор относится к инженерному блоку встроенных функций Эксель. Его задачей является преобразование величин одной меры измерения в другую. Синтаксис данной функции следующий:

=ПРЕОБР(число;исх_ед_изм;кон_ед_изм)

«Число» — это аргумент, имеющий вид числового значения той величины, которую надо конвертировать в другую меру измерения.

«Исходная единица измерения» — аргумент, который определяет единицу измерения величины, подлежащую конвертации. Он задается специальным кодом, который соответствует определенной единице измерения.

«Конечная единица измерения» — аргумент, определяющий единицу измерения той величины, в которую преобразуется исходное число. Он также задается с помощью специальных кодов.

Нам следует подробнее остановиться на этих кодах, так как они нам понадобятся в дальнейшем при создании калькулятора. Конкретно нам понадобятся коды единиц измерения массы. Вот их перечень:

g – грамм;
kg – килограмм;
mg – миллиграмм;
lbm – английский фунт;
ozm – унция;
sg – слэг;
u – атомная единица.

Нужно также сказать, что все аргументы данной функции можно задавать, как значениями, так и ссылками на ячейки, где они размещены.

Прежде всего, делаем заготовку. У нашего вычислительного инструмента будет четыре поля:
- Конвертируемая величина;
- Исходная единица измерения;
- Результат конвертации;
- Конечная единица измерения.
Устанавливаем заголовки, под которыми будут размещаться данные поля, и выделяем их форматированием (заливкой и границами) для более наглядной визуализации.

В поля «Конвертируемая величина», «Исходная граница измерения» и «Конечная граница измерения» нами будут вводиться данные, а в поле «Результат конвертации» — выводиться конечный результат.
Сделаем так, чтобы в поле «Конвертируемая величина» пользователь мог вводить только допустимые значения, а именно числа больше нуля. Выделяем ячейку, в которую будет вноситься преобразуемая величина. Переходим во вкладку «Данные» и в блоке инструментов «Работа с данными» кликаем по значку «Проверка данных».
Запускается окошко инструмента «Проверка данных». Прежде всего, выполним настройки во вкладке «Параметры». В поле «Тип данных» из списка выбираем параметр «Действительное». В поле «Значение» также из списка останавливаем выбор на параметре «Больше». В поле «Минимум» устанавливаем значение «0». Таким образом, в данную ячейку можно будет вводить только действительные числа (включая дробные), которые больше нуля.
После этого перемещаемся во вкладку того же окна «Сообщение для ввода». Тут можно дать пояснение, что именно нужно вводить пользователю. Он его увидит при выделении ячейки ввода величины. В поле «Сообщение» напишем следующее: «Введите величину массы, которую следует преобразовать».
Затем перемещаемся во вкладку «Сообщение об ошибке». В поле «Сообщение» нам следует написать ту рекомендацию, которую увидит пользователь, если введет некорректные данные. Напишем следующее: «Вводимое значение должно быть положительным числом». После этого, чтобы завершить работу в окне проверки вводимых значений и сохранить введенные нами настройки, жмем на кнопку «OK».
Как видим, при выделении ячейки появляется подсказка для ввода.
Попробуем ввести туда некорректное значение, например, текст или отрицательное число. Как видим, появляется сообщение об ошибке и ввод блокируется. Жмем на кнопку «Отмена».
А вот корректная величина вводится без проблем.
Теперь переходим к полю «Исходная единица измерения». Тут мы сделаем так, что пользователь будет выбирать значение из списка, состоящего из тех семи величин массы, перечень которых был приведен выше при описании аргументов функции ПРЕОБР. Ввести другие значения не получится.
Выделяем ячейку, которая находится под наименованием «Исходная единица измерения». Снова клацаем по иконке «Проверка данных».
В открывшемся окне проверки данных переходим во вкладку «Параметры». В поле «Тип данных» устанавливаем параметр «Список». В поле «Источник» через точку с запятой (;) перечисляем коды наименований величин массы для функции ПРЕОБР, о которых шел разговор выше. Далее жмем на кнопку «OK».
Как видим, теперь, если выделить поле «Исходная единица измерения», то справа от него возникает пиктограмма в виде треугольника. При клике по ней открывается список с наименованиями единиц измерения массы.
Абсолютно аналогичную процедуру в окне «Проверка данных» проводим и с ячейкой с наименованием «Конечная единица измерения». В ней тоже получается точно такой же список единиц измерения.
После этого переходим к ячейке «Результат конвертации». Именно в ней будет содержаться функция ПРЕОБР и выводить результат вычисления. Выделяем данный элемент листа и жмем на пиктограмму «Вставить функцию».
Запускается Мастер функций. Переходим в нем в категорию «Инженерные» и выделяем там наименование «ПРЕОБР». Затем клацаем по кнопке «OK».
Происходит открытие окна аргументов оператора ПРЕОБР. В поле «Число» следует ввести координаты ячейки под наименованием «Конвертируемая величина». Для этого ставим в курсор в поле и кликаем левой кнопкой мыши по этой ячейке. Её адрес тут же отображается в поле. Таким же образом вводим координаты в поля «Исходная единица измерения» и «Конечная единица измерения». Только на этот раз кликаем по ячейкам с такими же названиями, как у этих полей.
После того, как все данные введены, жмем на кнопку «OK».
Как только мы выполнили последнее действие, в окошке ячейки «Результат конвертации» тут же отобразился результат преобразования величины, согласно ранее введенным данным.
Давайте изменим данные в ячейках «Конвертируемая величина», «Исходная единица измерения» и «Конечная единица измерения». Как видим, функция при изменении параметров автоматически пересчитывает результат. Это говорит о том, что наш калькулятор полностью функционирует.
Но мы не сделали одну важную вещь. Ячейки для ввода данных у нас защищены от введения некорректных значений, а вот элемент для вывода данных никак не защищен. А ведь в него вообще нельзя ничего вводить, иначе формула вычисления будет просто удалена и калькулятор придет в нерабочее состояние. По ошибке в эту ячейку можете ввести данные и вы сами, не говоря уже о сторонних пользователях. В этом случае придется заново записывать всю формулу. Нужно заблокировать любой ввод данных сюда.
Проблема состоит в том, что блокировка устанавливается на лист в целом. Но если мы заблокируем лист, то не сможем вводить данные в поля ввода. Поэтому нам нужно будет в свойствах формата ячеек снять возможность блокировки со всех элементов листа, потом вернуть эту возможность только ячейке для вывода результата и уже после этого заблокировать лист.

Кликаем левой кнопкой мыши по элементу на пересечении горизонтальной и вертикальной панели координат. При этом выделяется весь лист. Затем кликаем правой кнопкой мыши по выделению. Открывается контекстное меню, в котором выбираем позицию «Формат ячеек…».
Запускается окно форматирования. Переходим в нем во вкладку «Защита» и снимаем галочку с параметра «Защищаемая ячейка». Затем клацаем по кнопке «OK».
После этого выделяем только ячейку для вывода результата и кликаем по ней правой кнопкой мыши. В контекстном меню клацаем по пункту «Формат ячеек».
Снова в окне форматирования переходим во вкладку «Защита», но на этот раз, наоборот, устанавливаем галочку около параметра «Защищаемая ячейка». Затем щелкаем по кнопке «OK».
После этого перемещаемся во вкладку «Рецензирование» и жмем на иконку «Защитить лист», которая расположена в блоке инструментов «Изменения».
Открывается окно установки защиты листа. В поле «Пароль для отключения защиты листа» вводим пароль, с помощью которого при необходимости в будущем можно будет снять защиту. Остальные настройки можно оставить без изменений. Жмем на кнопку «OK».
Затем открывается ещё одно небольшое окошко, в котором следует повторить ввод пароля. Делаем это и жмем на кнопку «OK».
После этого при попытке внесения любых изменений в ячейку вывода результата действия будут блокироваться, о чем сообщается в появляющемся диалоговом окне.

Таким образом, мы создали полноценный калькулятор для конвертации величины массы в различные единицы измерения.

Кроме того, в отдельной статье рассказывается о создании ещё одного вида узкопрофильного калькулятора в Экселе для расчета платежей по кредитам.

Урок: Расчет аннуитетного платежа в Экселе

Способ 3: включение встроенного калькулятора Excel

Кроме того, в Экселе имеется собственный встроенный универсальный калькулятор. Правда, по умолчанию кнопка его запуска отсутствует на ленте или на панели быстрого доступа. Рассмотрим, как активировать её.

После запуска программы Excel перемещаемся во вкладку «Файл».
Далее в открывшемся окне переходим в раздел «Параметры».
После запуска окошка параметров Excel перемещаемся в подраздел «Панель быстрого доступа».
Перед нами открывается окно, правая часть которого разделена на две области. В правой ее части расположены инструменты, которые уже добавлены на панель быстрого доступа. В левой представлен весь набор инструментов, который доступен в Excel, включая отсутствующие на ленте.
Над левой областью в поле «Выбрать команды» из перечня выбираем пункт «Команды не на ленте». После этого в списке инструментов левой области ищем наименование «Калькулятор». Найти будет просто, так как все названия расположены в алфавитном порядке. Затем производим выделения данного наименования.

Над правой областью находится поле «Настройка панели быстрого доступа». Оно имеет два параметра:
- Для всех документов;
- Для данной книги.
По умолчанию происходит настройка для всех документов. Этот параметр рекомендуется оставить без изменений, если нет предпосылок для обратного.

После того, как все настройки совершены и наименование «Калькулятор» выделено, жмем на кнопку «Добавить», которая расположена между правой и левой областью.
После того, как наименование «Калькулятор» отобразилось в правой области окна, жмем на кнопку «OK» внизу.
После этого окно параметров Excel будет закрыто. Чтобы запустить калькулятор, нужно кликнуть на одноименный значок, который теперь располагается на панели быстрого доступа.
После этого инструмент «Калькулятор» будет запущен. Функционирует он, как обычный физический аналог, только на кнопки нужно нажимать курсором мышки, её левой кнопкой.

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

Мы рады, что смогли помочь Вам в решении проблемы.

Задайте свой вопрос в комментариях, подробно расписав суть проблемы. Наши специалисты постараются ответить максимально быстро.

Помогла ли вам эта статья?

Да Нет

Использование макросов Заходите во вкладку «Разработчик» и кликаете на иконку «Visual Basic», которая находится на ленте в блоке инструментов «Код».

Далее запускаете окно редактора VBA. При отображении центральной области серым цветом, а не белым, это означает, что поля для введения кода нет. Для того чтобы он отображался, нужно зайти в пункт меню «View» и кликнуть на «Code» в списке, который появится.

В центральной области вводите код макроса:

Sub Calculator()

Dim strExpr As String

‘ Введение данных для расчета

strExpr = InputBox(«Введите данные»)

‘ Вычисление результата

End Sub

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

Должно запуститься окно сохранения документа. Переходите туда, куда хотите его сохранить. В строке «Имя файла» вносите то название, которое хочется. Обязательно в строке «Тип файла» выбираете «Книга Excel с поддержкой макросов (*xlcm)». Кликаете на «Сохранить» в нижней части окна.

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

Для запуска вычислительного инструмента с помощью макроса, во вкладке «Разработчик» нажимаете на «Макросы» на ленте в блоке инструментов «Код».

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

Должен запуститься калькулятор, который создан на основе макроса.

Для произведения в нем вычислений, нужно записать в поле нужное действие. Лучше всего использовать числовой блок клавиатуры, расположенный справа. Когда выражение будет введено, кликаете на ОК.

На экране отобразится небольшое окно, в котором и будет находиться ответ решения заданного выражения. Нажимаете на Ок.

Чтобы упростить реализацию запуска окна вычислений, нужно во вкладке «Разработчик» нажать на иконку «Макросы».

В окне макросов выбрать нужное наименование и кликнуть на «Параметры…».

Запуститься маленькое окошко, в котором можно вбить сочетание клавиш, при нажатии которых и будет запускаться калькулятор. Вписываете выбранный символ в поле «Сочетание клавиш» и нажимаете ОК.

Закрываете окно макроса.

Включение встроенного калькулятора ExcelПереходите во вкладку «Файл».

Далее в раздел «Параметры».

Затем в подраздел «Панель быстрого доступа».

В поле «Выбрать команды» нажимаете «Команды не на ленте» и ищите «Калькулятор». Кликаете на «Добавить».

Жмете на ОК.

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

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

Источник

В данной статье я расскажу вам как сделать проект «Обычный калькулятор» . Основные математические действия будут производиться над целыми десятичными числами. Но нам будет необходимо преобразовать строковое значение с число. Это можно сделать с помощью функции Val, аргументом которой является строка, а значение — число: Val (Строка$).

Для создания графического интерфейса на форме размести пять кнопок с названиями сложение, вычитание, деление, умножение, выход; три текстовых поля (два для ввода и одно для вывода) .

Перед тем как начать основную работу можно убедиться, что калькулятор не будет складывать числа более 16 знаков. Для этого необходимо в процедуре Text1_Change и Text2_Change ввести такой код:

Private Sub Text1_Change () ‘Происходит при изменении текстового поля
If Len (Text1.Text)>16 Then MsgBox “Много знаков” ‘Если Text1>16, то выводим сообщение
End Sub

Private Sub Text2_Change ()
If Len (Text2.Text)>16 Then MsgBox “Много знаков”
End Sub

Теперь напишем код для сложения, вычитания и умножения:

Private Sub Command1_Click () ‘Сложение
Text3.Text=Val (Text1.Text) + Val (Text2.Text)
End Sub

Private Sub Command2_Click () ‘Вычитание
Text3.Text=Val (Text1.Text) – Val (Text2.Text)
End Sub

Private Sub Command3_Click () ‘Умножение
Text3.Text=Val (Text1.Text) * Val (Text2.Text)
End Sub

С кодом для деления придётся немного пораздумать. Когда во втором текстовом поле будет ноль или там не будет текста, то будут выскакивать ошибка. Для её предотвращения придётся создать условие:

Private Sub Command4_Click () ‘Деление
If Text2.Text =”” Then MsgBox “Деление на ноль”
If Text2.Text = 0 Then MsgBox “Деление на ноль”
If Text2.Text<>”” Then Text3.Text=Val(Text1.Text)/Val(Text2.Text)
If Text2.Text<>0 Then Text3.Text=Val(Text1.Text)/Val(Text2.Text)
End Sub

Осталось написать процедуру для кнопки «Выход» :

Private Sub Command5_Click () ‘Выход
End
End Sub

Для создания других операций с числами можно воспользоваться обозначениями функций:
Sqr (число) – служит для извлечения квадратного корня
Например: Sqr (16) = 4

Основание ^ степень – возведение числа в степень
Например: 6 ^ 2 = 36

Sin (число) – синус числа
Например: Sin (60) = -0, 304810621102217

Cos (число) – косинус числа
Например: Cos (60) = -0, 952412980415156

Tan (число) –тангенс числа
Например: Tan (60) = 0,320040389379563

Dim op As String
Dim num1 As Integer
Dim num2 As Integer

Private Sub Command1_Click()
Text1.Text = «»
End Sub

Private Sub Command10_Click()
Text1.Text = Text1.Text + «9»
End Sub

Private Sub Command11_Click(Index As Integer)
Text1.Text = Text1.Text + «0»
End Sub

Private Sub Command12_Click(Index As Integer)
num1 = Text1.Text
Text1.Text = «»
op = «+»
End Sub

Private Sub Command13_Click(Index As Integer)
num1 = Text1.Text
Text1.Text = «»
op = «-»
End Sub

Private Sub Command14_Click(Index As Integer)
num1 = Text1.Text
Text1.Text = «»
op = «/»
End Sub

Private Sub Command15_Click(Index As Integer)
num1 = Text1.Text
Text1.Text = «»
op = «*»
End Sub

Private Sub Command16_Click(Index As Integer)
num2 = Text1.Text
If op = «+» Then
Text1.Text = num1 + num2
ElseIf op = «-» Then
Text1.Text = num1 — num2
ElseIf op = «*» Then
Text1.Text = num1 * num2
ElseIf op = «/» Then
Text1.Text = num1 / num2
End If
End Sub

Private Sub Command17_Click()
End
End Sub

Private Sub Command2_Click()
Text1.Text = Text1.Text + «1»
End Sub

Private Sub Command3_Click()
Text1.Text = Text1.Text + «2»
End Sub

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

Private Sub Command5_Click()
Text1.Text = Text1.Text + «4»
End Sub

Private Sub Command6_Click()
Text1.Text = Text1.Text + «5»
End Sub

Private Sub Command7_Click()
Text1.Text = Text1.Text + «6»
End Sub

Private Sub Command8_Click()
Text1.Text = Text1.Text + «7»
End Sub

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

Предлагаю более компактный вариант на Visual Basic 2015 (форма, кнопки b0. b9,zap -имя кнопок запятая, plus-имя кнопки плюс, del-имя кнопки делить, richtextbox1-окно ввода)

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

wikiHow работает по принципу вики, а это значит, что многие наши статьи написаны несколькими авторами. При создании этой статьи над ее редактированием и улучшением работали, в том числе анонимно, 12 человек(а).

Количество просмотров этой статьи: 68 764.

Simple Calculator Application in Visual Basic 6.0

In this post we will learn to create a simple calculator in Visual basic 6.0. It is a simple application project to help you learn Visual basic programming.

Background Information

The calculator application does simple arithmetic operations. You can construct an advanced calculator which need same kind of coding that we are going to use in this program, however, the computational logic may differ. The overall steps required to create the Calculator application is as follows.

Design the interface of the Calculator application.
Name the buttons and textbox controls used in the application.
Write VB codes for each controls without making any mistakes.
Test the Calucator application and make sure it works and there is no error of any kind.
Add style to Calculator by changing the background and color of buttons.

Names of Controls

Open your Microsoft Visual basic 6.0 software and under New Project, select Standard EXE and click Open .

Resize the Form for Calculator application appropriately and this can be done changing the width and the height property. Now add buttons and a single text box from Toolbox on the left sidebar of Visual basic editor window.

Calculator Form with Buttons

Change the width and the height property of Textbox control, so that it is aligned with the buttons. The original fonts are very small, change the font-size of the buttons to 16px and font-weight to bold.

Only one button in the above figure is of different size which is Command10 because it is for the number 0. Set the width of this button to 1630px.

The buttons are not aligned properly – both horizontally and vertically. You can align the controls using Format tab of Visual basic editor menu bar.

Select top row of buttons and select Format tab > go to Align > select Tops . The buttons get aligned to top. Repeat the step for all rows of buttons.

Now we align the buttons column-wise.

Select the first column of buttons and click Format tab > go to Align > select Lefts . The column gets left aligned. Repeat the same step for each column.

Select top row of buttons and select Format tab > got to Horizontal Spacing > select Make Equal . The button space becomes equal between the first and the last button of the row. Repeat the step for all rows of buttons.

Select top row of buttons and select Format tab > go to Vertical Spacing > select Make Equal . The button space vertically becomes equal between the first and the last button of the column. Repeat the step for all column of buttons.

Align the Button Controls

The naming convention of the buttons should be consistent.

For example, if it is label control and text for label is number 9, then the name of the label control should be “lblNine“. We follow this convention throughout the post.

Form Name

Next we start naming form controls by putting caption for our button and textbox controls, but before that name the form to frmCALC and set form caption to Calculator . Similarly, change the names and caption of all the other buttons and textbox.

For your convenience here is the list of controls and their names, caption values and other properties.

Источник

Шаги

Советы

Об этой статье

Была ли эта статья полезной?

Calculator using Excel VBA UserForm

Effortlessly Manage Your Projects

120+ Project Management Templates

120+ PM Templates Includes:

Calculator using Excel VBA UserForm :Project Objective

How we are going to develop this project module (The KEY steps) :

Design of the Calculator :

Code and explantion for each control:

Step 1: Create userform and do its initialization by double clicking on the userform and add the below code.

Step 2: Double click on the textbox (Value-txtRes) and add the following code. Double click on the ‘ Textbox’ and add the below code.

Step 3: Set properties as mentioned above and do the alignment of all controls as shown above in the screenshot.

Step 4: Double click on the ‘Clear Button’ and add the below code.

Step 5: Double click on the ‘ Back Button ‘ and add the below code.

Step 6: Double click on the ‘ Divide (/) Button’ and add the below code.

Step 7: Double click on the ‘ Multiplcation (*) Button’ and add the below code.

Step 8: Double click on the ‘ Minus (-) Button’ and add the below code.

Step 9: Double click on the ‘ Add (+) Button’ and add the below code.

Step 10: Double click on the ‘ Dot (.) Button ‘ and add the below code.

Step 11: Double click on the ‘ One (1) Button’ and add the below code.

Step 12: Double click on the ‘ Two (2) Button’ and add the below code.

Step 13: Double click on the ‘ Three (3) Button’ and add the below code.

Step 14: Double click on the ‘ Four (4) Button’ and add the below code.

Step 15: Double click on the ‘ Five (5) Button’ and add the below code.

Step 16: Double click on the ‘ six (6) Button’ and add the below code.

Step 17: Double click on the ‘ Seven (7) Button’ and add the below code.

Step 18: Double click on the ‘ Eight (8) Button’ and add the below code.

Step 19: Double click on the ‘ Nine (9) Button’ and add the below code.

Step 20: Double click on the ‘ Zero (0) Button’ and add the below code.

Step 21: Double click on the ‘ EqualTo (=) Button’ and add the below code.

Final VBA Module Code(Macro):

Display Calculator on the WorkSheet:

Instructions to Execute the Procedure:

Download the Calculator Project – Excel VBA Project<:

Save Up to 85% LIMITED TIME OFFER

All-in-One Pack 120+ Project Management Templates

Essential Pack 50+ Project Management Templates

Excel Pack 50+ Excel PM Templates

PowerPoint Pack 50+ Excel PM Templates

MS Word Pack 25+ Word PM Templates

Ultimate Project Management Template

Ultimate Resource Management Template

Project Portfolio Management Templates

12 Comments

Project Management

Excel VBA

About This Article

Is this article up to date?

About This Article

Is this article up to date?

Пример исходного кода программы калькулятор

Шаги

Советы

Процедура создания калькулятора

Способ 1: использование макросов

Способ 2: применение функций

Способ 3: включение встроенного калькулятора Excel

Помогла ли вам эта статья?

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

Simple Calculator Application in Visual Basic 6.0

Background Information

Names of Controls

Form Name

Не пропустите и эти статьи:

Effortlessly
Manage Your Projects

All-in-One Pack
120+ Project Management Templates

Essential Pack
50+ Project Management Templates

Excel Pack
50+ Excel PM Templates

PowerPoint Pack
50+ Excel PM Templates

MS Word Pack
25+ Word PM Templates