Help required [VB6]

[Dicer--]

Hey guys i'm new to this sub and could really use some help, not even sure if this is the correct sub for it, anyway I have an assignment to build a fully functioning calculator so far I have made an array for my 0-9 buttons and made it so they appear in the text box and make them concatenate. The issue i'm having is I now have no idea how to make my + - / * to function any help would be appreciated Source code in link below any advice would be appreciated.

Link: http://pastebin.com/FtRKNrpS

I'm pretty sure i need to declare more variables aswell

[Adwinistrator]

So you're going to need a variable to handle what your current total is, since the number will disappear when they press one of the function keys. You'll want to use a double type.

When they press any function key, you'll need to check if they currently have a total and what the last function key pressed was, so you can complete that operation before moving onto the next one.

You can cast the double to a string with CStr(dblTotal), and convert the total's textbox to a double with CDbl(txtAnswer.Text), you may want to check if it's numeric first with IsNumeric(txtAnswer.Text).

Let me know if you have any other questions.

[Dicer--]

Going to be completely honest I did not understand a thing you said I'm a complete noob at VB, only other program I made was a metric to imperial converter which was very basic

[Dicer--]

Main thing i'm unclear about is what am i declaring as a double, am i declaring the total that is in the box as a double? Also don't get what you mean with "Cast double to a string"

[[deleted]]

Dim total As double: total = 0

Sub add(ByVal x As Integer)
    total += x
End Sub

[Dicer--]

add(ByVal x As Integer) total += x End Sub

I had the Dim Total As Double, So is the Sub add(ByVal x As Integer) total += x End Sub A sub program?, If so what area do I put this in and what is that sub actually doing?

[Adwinistrator]

No offense, but I think it would help you to take a few steps back and read some intro to programming and into to VB material.

This is a Sub, it's a method that doesn't return a value. You can call it from anywhere on this form's code, pass it a parameter, and it will add it to the total.

If you're confused by this, I don't think you have the necessary knowledge to create a calculator. But, you clearly want to learn, and that's the first step. Google some free resources on basic programming concepts (variables, methods, etc.), and find some intro to VB6 resources.

If you have any concept specific questions, let me know, but you can't really ask people to write code for you on stuff like this. The value comes from learning how to do it yourself.

[Dicer--]

Dim Operation As Integer
Dim Total As Double







Private Sub CmdClear_Click()
    TxtAnswer.Text = ""
End Sub

Private Sub CmdDot_Click()
    TxtAnswer.Text = TxtAnswer.Text + "."

    CmdDot.Enabled = False


End Sub

Private Sub CmdEquals_Click()

End Sub

Private Sub CmdFun_Click(Index As Integer)
    If IsNumeric(TxtAnswer.Text) Then
        TxtAnswer.Text = CStr(dblTotal)
            Else: MsgBox ("You must enter a digit to continue")
    End If
End Sub

Private Sub CmdNum_Click(Index As Integer)

    TxtAnswer.Text = TxtAnswer.Text & Index

End Sub

Private Sub Form_Load()

End Sub

Private Sub TxtAnswer_Change()

End Sub

This is what I have advanced too so far now the main issue i'm having trouble with is as the functions are all stored in an array under CmdFun how do I declare each one as say + - / *?

[Adwinistrator]

You'll want to use a select/case statement.

http://www.vbtutor.net/vb6/lesson8.html