Well, the reason it will only print the last number entered is because when you click the "Enter" button, it loops through the array and replaces each value. My recommendation (though there are many others ways to do this) is to make another variable that will tell you the current index of the array you're on.
This will also give you the benefit of making sure that they've entered all 10 values, no more, no less.
You can see how I put this to use below:
CODE
Dim intIndex As Integer
Dim dblSave(9) As Double
Private Sub cmdAverage_Click()
Dim intCounter As Integer
If intIndex = 10 Then
For intCounter = 0 To 9
picOutput.Print dblSave(intCounter)
Next intCounter
Else
MsgBox "Please enter all 10 numbers.", vbCritical, "Error"
End If
End Sub
Private Sub cmdEnter_Click()
If intIndex < 10 Then
If IsNumeric(txtInput.Text) Then
dblSave(intIndex) = txtInput.Text
txtInput.Text = ""
txtInput.SetFocus
intIndex = intIndex + 1
Else
MsgBox "Please enter a real number.", vbCritical, "Error"
End If
Else
MsgBox "You've entered all the numbers.", vbCritical, "Error"
End If
End Sub
I hope that helps.
*EDIT*
As for your other question, it's just as you said. For each step just tell it to either show a messagebox or use something like debug.print to show you what's going on.
This post has been edited by Zhalix: 25 Aug, 2008 - 04:21 PM
| 