How do i put number buttons for calculator?

**Deep2** · Oct 12th, 2008, 12:52 AM

Here's what i have so far.

Code:

Private Sub Add_Click()
TextBox3.Text = Val(Value1Text.Text) + Val(TextBox2.Text)
MSD.Text = "+"
End Sub

Private Sub Clear_Click()
TextBox3.Text = 2
TextBox2.Text = 1
Value1Text.Text = 1
MSD.Text = ""
End Sub

Private Sub Divide_Click()
TextBox3.Text = Val(Value1Text.Text) / Val(TextBox2.Text)
MSD.Text = "/"
End Sub

Private Sub Exxit_Click()
Unload Me
MsgBox "You Have exited out of Calculator"
End Sub

Private Sub Multiply_Click()
TextBox3.Text = Val(Value1Text.Text) * Val(TextBox2.Text)
MSD.Text = "*"
End Sub

Private Sub Square_Click()
TextBox3.Text = Val(Value1Text.Text) ^ Val(TextBox2.Text)
MSD.Text = "^"
End Sub

Private Sub Subtract_Click()
TextBox3.Text = Val(Value1Text.Text) - Val(TextBox2.Text)
MSD.Text = "-"
End Sub

How would i go about making buttons like, 1, 2, 3, type buttons? It's kind of confusing for me.
And if it helps i'm trying to make a calculator and i started 2 days ago.

**lone_REBEL** · Oct 12th, 2008, 03:05 AM

Honestly, making a calculator in VB isn't a very good idea. If you have a "screen" textbox, all you need to do is to add your digit to the screen when the number button is pressed.

You can message me to find out better ways of making a calculator. But that won't be in VB, it would be in HTML-javascript.

**westconn1** · Oct 12th, 2008, 03:24 AM

assuming this is homework, you have to do your own
if you get stuck post the code for the part that is giving problem

the best way is make all the number buttons in a control array, 0 to 9
that way you only need one lot of code for all number buttons, just use the index property to pass the pressed number

**Deep2** · Oct 12th, 2008, 06:46 AM

Huh? Still kind of confused. Also need help on unloading the app, i know it's simple but i only knew how to do it in the older versions and now that i got the newest version it recognizes unload me as a variable. This is what i got so far. It's in the attachment. I'll post the code too, i made a completely new one, (My old one looked like a piece of crap.)
Damn it says wrong extension so i can't upload that...

This one's for the design.

Code:

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Calculator
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button
        Me.Button2 = New System.Windows.Forms.Button
        Me.Button3 = New System.Windows.Forms.Button
        Me.Button4 = New System.Windows.Forms.Button
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.TextBox2 = New System.Windows.Forms.TextBox
        Me.TextBox3 = New System.Windows.Forms.TextBox
        Me.Button5 = New System.Windows.Forms.Button
        Me.TabControl1 = New System.Windows.Forms.TabControl
        Me.TabPage1 = New System.Windows.Forms.TabPage
        Me.TabPage2 = New System.Windows.Forms.TabPage
        Me.RichTextBox1 = New System.Windows.Forms.RichTextBox
        Me.Label1 = New System.Windows.Forms.Label
        Me.TabControl1.SuspendLayout()
        Me.TabPage1.SuspendLayout()
        Me.TabPage2.SuspendLayout()
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(12, 110)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(63, 43)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "Multiply"
        Me.Button1.UseVisualStyleBackColor = True
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(12, 61)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(63, 43)
        Me.Button2.TabIndex = 1
        Me.Button2.Text = "Subtract"
        Me.Button2.UseVisualStyleBackColor = True
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(12, 12)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(63, 43)
        Me.Button3.TabIndex = 2
        Me.Button3.Text = "Add"
        Me.Button3.UseVisualStyleBackColor = True
        '
        'Button4
        '
        Me.Button4.Location = New System.Drawing.Point(12, 159)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(63, 43)
        Me.Button4.TabIndex = 3
        Me.Button4.Text = "Divide"
        Me.Button4.UseVisualStyleBackColor = True
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(34, 24)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(139, 20)
        Me.TextBox1.TabIndex = 4
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(34, 73)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(139, 20)
        Me.TextBox2.TabIndex = 5
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(34, 133)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(139, 20)
        Me.TextBox3.TabIndex = 6
        '
        'Button5
        '
        Me.Button5.Location = New System.Drawing.Point(12, 211)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(63, 43)
        Me.Button5.TabIndex = 7
        Me.Button5.Text = "Square"
        Me.Button5.UseVisualStyleBackColor = True
        '
        'TabControl1
        '
        Me.TabControl1.Controls.Add(Me.TabPage1)
        Me.TabControl1.Controls.Add(Me.TabPage2)
        Me.TabControl1.Location = New System.Drawing.Point(81, 63)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.SelectedIndex = 0
        Me.TabControl1.Size = New System.Drawing.Size(210, 191)
        Me.TabControl1.TabIndex = 10
        '
        'TabPage1
        '
        Me.TabPage1.Controls.Add(Me.TextBox3)
        Me.TabPage1.Controls.Add(Me.TextBox2)
        Me.TabPage1.Controls.Add(Me.TextBox1)
        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
        Me.TabPage1.Size = New System.Drawing.Size(202, 165)
        Me.TabPage1.TabIndex = 0
        Me.TabPage1.Text = "TabPage1"
        Me.TabPage1.UseVisualStyleBackColor = True
        '
        'TabPage2
        '
        Me.TabPage2.Controls.Add(Me.Label1)
        Me.TabPage2.Controls.Add(Me.RichTextBox1)
        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
        Me.TabPage2.Size = New System.Drawing.Size(202, 165)
        Me.TabPage2.TabIndex = 1
        Me.TabPage2.Text = "TabPage2"
        Me.TabPage2.UseVisualStyleBackColor = True
        '
        'RichTextBox1
        '
        Me.RichTextBox1.Location = New System.Drawing.Point(0, 17)
        Me.RichTextBox1.Name = "RichTextBox1"
        Me.RichTextBox1.Size = New System.Drawing.Size(202, 152)
        Me.RichTextBox1.TabIndex = 0
        Me.RichTextBox1.Text = "Notepad"
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(37, 3)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(117, 13)
        Me.Label1.TabIndex = 11
        Me.Label1.Text = "Keep Your Notes Here!"
        '
        'Calculator
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(292, 266)
        Me.Controls.Add(Me.TabControl1)
        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Name = "Calculator"
        Me.Text = "Calculator"
        Me.TabControl1.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)
        Me.TabPage1.PerformLayout()
        Me.TabPage2.ResumeLayout(False)
        Me.TabPage2.PerformLayout()
        Me.ResumeLayout(False)

    End Sub
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents Button4 As System.Windows.Forms.Button
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
    Friend WithEvents Button5 As System.Windows.Forms.Button
    Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox

End Class

And this one is the actual code.

Code:

Public Class Calculator
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox3.Text = Val(TextBox1.Text) ^ Val(TextBox2.Text)
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    End Sub

    Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
    End Sub
End Class

**smUX** · Oct 12th, 2008, 07:53 AM

I'm not one to help people with their homework assignments, so I am not going to do so...but here's a few pointers to help you improve your code:

1) Using button0 to button9 is a simple way of doing things, but using a control array is much better. Rename "button0" to "button" then "right-click", "copy"...now click on the form and "right-click", "paste"...it'll ask if you want to make a control array, click "yes"...you'll notice "button" becomes "button(0)" and you now have "button(1)"...repeat the pasting to get 0-9 and edit each button's caption to match its index.

2) You're coding in .NET, this is NOT the .NET section forum, this is for VB6 and earlier...please refrain from asking questions here as there's people who know .NET better than us who could give better advice...ask in the .NET section of this forum

**CDRIVE** · Oct 12th, 2008, 08:26 AM

Other than the fact that the TS is in the wrong forum, I would not have a problem with helping with home work if the TS has shown initiative by posting the code he's created. What's unacceptable is something like...

"Hi! My assignment is to build a calculator. How do I do that? Can someone post some code?"

**smUX** · Oct 12th, 2008, 08:46 AM

Yeah, I agree, CD...as you noticed, I did start giving a few pointers...I had more to give but when I noticed it was a .NET program I stopped and pointed that out, and left the one pointer I made...I had a few more I was going to suggest :-)

**CDRIVE** · Oct 12th, 2008, 09:36 AM

Originally Posted by smUX

Yeah, I agree, CD...as you noticed, I did start giving a few pointers...I had more to give but when I noticed it was a .NET program I stopped and pointed that out, and left the one pointer I made...I had a few more I was going to suggest :-)

No problem. I just thought it would be pertinent to clarify helping vs doing someones home work for them.

As a side note, Lone_Rebel stated that he didn't think developing a calculator in VB was a good idea. No explanation as to why though?

**smUX** · Oct 12th, 2008, 09:47 AM

Originally Posted by CDRIVE

As a side note, Lone_Rebel stated that he didn't think developing a calculator in VB was a good idea. No explanation as to why though?

No idea...I'm sure the Windows calc.exe is a VB executable, and it works well enough :-)

**CDRIVE** · Oct 12th, 2008, 09:56 AM

Originally Posted by smUX

No idea...I'm sure the Windows calc.exe is a VB executable, and it works well enough :-)

My only issue with the windows calc is those ridiculously small button chars! My old eyes can barely see the difference between (-) & (*)!

**Deep2** · Oct 12th, 2008, 11:12 AM

Originally Posted by smUX

2) You're coding in .NET, this is NOT the .NET section forum, this is for VB6 and earlier...please refrain from asking questions here as there's people who know .NET better than us who could give better advice...ask in the .NET section of this forum

Really? I swear to god i thought i was coding in VB6.

**smUX** · Oct 12th, 2008, 11:17 AM

Originally Posted by Deep2

Really? I swear to god i thought i was coding in VB6.

"Inherits System.Windows.Forms.Form"

Clearly not

**westconn1** · Oct 12th, 2008, 03:38 PM

the code in the first post looked like vb6, but subsequent code definitely vb dot net

**LA.Rhodes** · Oct 23rd, 2008, 03:58 AM

Good morning all,

I swear I am not doing home work, and I am coding in VB6.
I am sure I could find a calculator online, but I really just want to build my own. Mostly because I want it to be customizable and because my other project has me stumped and I wanted to take a break from it.

now that I got that out of the way. I am trying to work out the logic of (key press to results window) so far I have done this:

Code:

Private Sub cmd_butt_num_Click(Index As Integer)
If cmd_butt_num(0) Then
    tmp_num = 0
    main_calc_mem = main_calc_mem & tmp_num
    txt_bx_results.Text = main_calc_mem
ElseIf cmd_butt_num(1) Then
    tmp_num = 1
    main_calc_mem = main_calc_mem & tmp_num
    txt_bx_results.Text = main_calc_mem
ElseIf cmd_butt_num(2) Then
    tmp_num = 2
    main_calc_mem = main_calc_mem & tmp_num
    txt_bx_results.Text = main_calc_mem
ElseIf cmd_butt_num(3) Then
    tmp_num = 3
    main_calc_mem = main_calc_mem & tmp_num
    txt_bx_results.Text = main_calc_mem
ElseIf cmd_butt_num(4) Then
    tmp_num = 4
    main_calc_mem = main_calc_mem & tmp_num
    txt_bx_results.Text = main_calc_mem
ElseIf cmd_butt_num(5) Then
    tmp_num = 5
    main_calc_mem = main_calc_mem & tmp_num
    txt_bx_results.Text = main_calc_mem
ElseIf cmd_butt_num(6) Then
    tmp_num = 6
    main_calc_mem = main_calc_mem & tmp_num
    txt_bx_results.Text = main_calc_mem
ElseIf cmd_butt_num(7) Then
    tmp_num = 7
    main_calc_mem = main_calc_mem & tmp_num
    txt_bx_results.Text = main_calc_mem
ElseIf cmd_butt_num(8) Then
    tmp_num = 8
    main_calc_mem = main_calc_mem & tmp_num
    txt_bx_results.Text = main_calc_mem
ElseIf cmd_butt_num(9) Then
    tmp_num = 9
    main_calc_mem = main_calc_mem & tmp_num
    txt_bx_results.Text = main_calc_mem
End If
End sub

now this does place the numbers in the result window, my question is this. would I concatenate a string and then convert it to a number (the real ?? how do I convert it). I did build the buttons in to an array (not sure how to use the index to get the value thus this cumbersome IF THEN ELSE block.
I am going to do some more searching but if any one can point me in the right direction I would be very grateful.

**Pradeep1210** · Oct 23rd, 2008, 05:07 AM

Assuming you have a control array of buttons numbered 0 to 9,
1. Store the first clicked button index in a variable (say x)
2. Store the operator in another variable (say op)
3. Store the 2nd clicked button index in a variable (say y)
4. Then do a Select Case on your opeator, calculate the result accordingly and display the result in your textbox.

Pradeep

**Pradeep1210** · Oct 23rd, 2008, 05:09 AM

Originally Posted by LA.Rhodes

Good morning all,

I swear I am not doing home work, and I am coding in VB6.
I am sure I could find a calculator online, but I really just want to build my own. Mostly because I want it to be customizable and because my other project has me stumped and I wanted to take a break from it.

now that I got that out of the way. I am trying to work out the logic of (key press to results window) so far I have done this:

Code:

Private Sub cmd_butt_num_Click(Index As Integer)
If cmd_butt_num(0) Then
    tmp_num = 0
    main_calc_mem = main_calc_mem & tmp_num
    txt_bx_results.Text = main_calc_mem
ElseIf cmd_butt_num(1) Then
    tmp_num = 1
    main_calc_mem = main_calc_mem & tmp_num
    txt_bx_results.Text = main_calc_mem
ElseIf cmd_butt_num(2) Then
    tmp_num = 2
    main_calc_mem = main_calc_mem & tmp_num
    txt_bx_results.Text = main_calc_mem
ElseIf cmd_butt_num(3) Then
    tmp_num = 3
    main_calc_mem = main_calc_mem & tmp_num
    txt_bx_results.Text = main_calc_mem
ElseIf cmd_butt_num(4) Then
    tmp_num = 4
    main_calc_mem = main_calc_mem & tmp_num
    txt_bx_results.Text = main_calc_mem
ElseIf cmd_butt_num(5) Then
    tmp_num = 5
    main_calc_mem = main_calc_mem & tmp_num
    txt_bx_results.Text = main_calc_mem
ElseIf cmd_butt_num(6) Then
    tmp_num = 6
    main_calc_mem = main_calc_mem & tmp_num
    txt_bx_results.Text = main_calc_mem
ElseIf cmd_butt_num(7) Then
    tmp_num = 7
    main_calc_mem = main_calc_mem & tmp_num
    txt_bx_results.Text = main_calc_mem
ElseIf cmd_butt_num(8) Then
    tmp_num = 8
    main_calc_mem = main_calc_mem & tmp_num
    txt_bx_results.Text = main_calc_mem
ElseIf cmd_butt_num(9) Then
    tmp_num = 9
    main_calc_mem = main_calc_mem & tmp_num
    txt_bx_results.Text = main_calc_mem
End If
End sub

now this does place the numbers in the result window, my question is this. would I concatenate a string and then convert it to a number (the real ?? how do I convert it). I did build the buttons in to an array (not sure how to use the index to get the value thus this cumbersome IF THEN ELSE block.
I am going to do some more searching but if any one can point me in the right direction I would be very grateful.

Instead of multiple If...Else use Select Case.
Do like:

vb Code:

Select case Index
Case 0
    'whatever
Case 1
    'whatever
.
.
.
End Select

**westconn1** · Oct 23rd, 2008, 05:31 AM

or try

Code:

Private Sub cmd_butt_num_Click(Index As Integer)
    main_calc_mem = main_calc_mem & index
    txt_bx_results.Text = main_calc_mem
end sub

**LA.Rhodes** · Oct 23rd, 2008, 01:38 PM

Originally Posted by Pradeep1210

Assuming you have a control array of buttons numbered 0 to 9,
1. Store the first clicked button index in a variable (say x)
2. Store the operator in another variable (say op)
3. Store the 2nd clicked button index in a variable (say y)
4. Then do a Select Case on your opeator, calculate the result accordingly and display the result in your textbox.

Pradeep

Pradeep, thank you for your quick reply. I had in fact used the case select function. and cut it and saved it as a text file. (i had a small routine that was causing a problem) having removed the problem I will use the case select again. If I am reading your post correctly i would only be able to perform single number equations (ie) 1 + 1 up 9 * 9 . I think I sort of know what to do next.

again thank you.

**LA.Rhodes** · Oct 23rd, 2008, 02:37 PM

Originally Posted by westconn1

or try

Code:

Private Sub cmd_butt_num_Click(Index As Integer)
    main_calc_mem = main_calc_mem & index
    txt_bx_results.Text = main_calc_mem
end sub

Westconn, thank you for your quick response.

in order to perform ops on large numbers, and i just woke up so I am still trying to get the fuzzy stuff off of my brain. i could use something like:

this is the revised version but I hit a snag

Code:

Private Sub cmd_butt_num_Click(Index As Integer)

If FNE = False Then
    Select Case Index
        Case 0
            main_calc_first = main_calc_first & Index
            txt_bx_results.Text = main_calc_first
        Case 1
            main_calc_first = main_calc_first & Index
            txt_bx_results.Text = main_calc_first
        Case 2
            main_calc_first = main_calc_first & Index
            txt_bx_results.Text = main_calc_first
        Case 3
            main_calc_first = main_calc_first & Index
            txt_bx_results.Text = main_calc_first
        Case 4
            main_calc_first = main_calc_first & Index
            txt_bx_results.Text = main_calc_first
        Case 5
            main_calc_first = main_calc_first & Index
            txt_bx_results.Text = main_calc_first
        Case 6
            main_calc_first = main_calc_first & Index
            txt_bx_results.Text = main_calc_first
        Case 7
            main_calc_first = main_calc_first & Index
            txt_bx_results.Text = main_calc_first
        Case 8
            main_calc_first = main_calc_first & Index
            txt_bx_results.Text = main_calc_first
        Case 9
            main_calc_first = main_calc_first & Index
            txt_bx_results.Text = main_calc_first
    End Select
ElseIf FNE = True Then
    Select Case Index
        Case 0
            main_calc_second = main_calc_second & Index
            txt_bx_results.Text = main_calc_second
    Case 1
            main_calc_second = main_calc_second & Index
            txt_bx_results.Text = main_calc_second
    Case 2
            main_calc_second = main_calc_second & Index
            txt_bx_results.Text = main_calc_second
    Case 3
            main_calc_second = main_calc_second & Index
            txt_bx_results.Text = main_calc_second
    Case 4
            main_calc_second = main_calc_second & Index
            txt_bx_results.Text = main_calc_second
    Case 5
            main_calc_second = main_calc_second & Index
            txt_bx_results.Text = main_calc_second
    Case 6
            main_calc_second = main_calc_second & Index
            txt_bx_results.Text = main_calc_second
    Case 7
            main_calc_second = main_calc_second & Index
            txt_bx_results.Text = main_calc_second
    Case 8
            main_calc_second = main_calc_second & Index
            txt_bx_results.Text = main_calc_second
    Case 9
            main_calc_second = main_calc_second & Index
            txt_bx_results.Text = main_calc_second
End Select
End Sub

I think I am good up to this point but here comes the snag

Code:

Private Sub com_butt_enter_Click()
    main_calc_final = main_calc_first Operator main_calc_second
    txt_bx_results.Text = main_calc_final
End Sub

How do I tell VB that "Operator" is the actual operator (ie) + or - or * or /
I am getting this error "Expected end of statement" and "Operator" is highligthed" I am assuming it is because VB isnt reading the operator as an operator ???

Code:

Private Sub com_butt_oprs_Click(Index As Integer)
    Operator = Index
    FNE = True 'boolean flag to determine if we're working on the first or second number
End Sub

I will keep plugging away (coffee may help ) with the fuzzy stuff anyway.

**westconn1** · Oct 23rd, 2008, 04:06 PM

as the code in each of your cases is still the same, there is no need for the select case, the index variable will put the correct value
you would only need a case for anything that is different, then have everything else in case other

for your operator you need a select case

vb Code:

select case operator
case 1
   a + b
case 2
  a - b
case 3
   a * b
'etc

Thread: How do i put number buttons for calculator?

Thread Tools

Display

How do i put number buttons for calculator?

Re: How do i put number buttons for calculator?

Re: How do i put number buttons for calculator?

Re: How do i put number buttons for calculator?

Re: How do i put number buttons for calculator?

Re: How do i put number buttons for calculator?

Re: How do i put number buttons for calculator?

Re: How do i put number buttons for calculator?

Re: How do i put number buttons for calculator?

Re: How do i put number buttons for calculator?

Re: How do i put number buttons for calculator?

Re: How do i put number buttons for calculator?

Re: How do i put number buttons for calculator?

Re: How do i put number buttons for calculator?

Re: How do i put number buttons for calculator?

Re: How do i put number buttons for calculator?

Re: How do i put number buttons for calculator?

Re: How do i put number buttons for calculator?

Re: How do i put number buttons for calculator?

Re: How do i put number buttons for calculator?

Posting Permissions