How do I add numbers into a static array to a running total? This is for VB 6.0

[Blarghanaught]

I'm having some trouble coding this and I found myself very stumped. This is my code so far. I know I made some errors because it won't run correctly.

'intTemp Program
Option Explicit
 
Private Sub cmdCalc_Click()
 
Dim intTemp() As Integer
ReDim intTemp(7) As Integer
Dim intNum As Integer
Dim dblSum As Double
Dim dblAverage As Double
Dim intCounter As Integer
 
txtNum.Text = intNum
 
If intCounter = 0 Then
intCounter = intCounter + 1
End If
 
If intCounter = 1 Then
intTemp(0) = intNum
ElseIf intCounter = 2 Then
intTemp(1) = intNum
ElseIf intCounter = 3 Then
intTemp(2) = intNum
ElseIf intCounter = 4 Then
intTemp(3) = intNum
ElseIf intCounter = 5 Then
intTemp(4) = intNum
ElseIf intCounter = 6 Then
intTemp(5) = intNum
ElseIf intCounter = 7 Then
intTemp(6) = intNum
ElseIf intCounter = 8 Then
intTemp(7) = intNum
End If
 
 
dblSum = intTemp(0) + intTemp(1) + intTemp(2) + intTemp(3) + intTemp(4) + intTemp(5) + intTemp(6) + intTemp(7)
lblSum.Caption = dblSum
lblAverage.Caption = dblSum / intTemp(7)
 
Print intTemp(7)
 
End Sub
 

[Luk3r]

Call me crazy, but something here has to change:

txtNum.Text = intNum

You specify that intNum is an integer, but you never give it a value. And if you want intNum to gain the value of the number you enter in txtNum, then your code should be flipped:

intNum = txtNum.Text

[Blarghanaught]

Thanks man, is there anything else I have to change or do to make the program work?

[Luk3r]

You tell me :) Follow my suggestion and report back.

[Blarghanaught]

I followed it, but it still doesn't work so far. I find it funny that I made that mistake. :P I hope I'll be able to fix it soon... >_<

[Luk3r]

You also need to make your integers global. That will ensure that when they are set to a value they will retain the value of the textbox.

[Blarghanaught]

Do you know which variables to set to Global? I'm guessing you mean these:

Dim intNum As Integer
Dim dblSum As Double
Dim dblAverage As Double
Dim intCounter As Integer
 

Should it be intNum and dblSum? Or is it just one?

[Luk3r]

I would put all Integers global. You also have to change your logic for how "intCounter" gets changed. You only ever specify criteria once where it will change from 0 to 1. In your large If..Else statement you need to tell intCounter to change from 1 to 2, 2 to 3, 3 to 4, etc.

 If intCounter = 1 Then
intTemp(0) = intNum
intCounter = intCounter + 1
ElseIf intCounter = 2 Then
intTemp(1) = intNum
intCounter = intCounter + 1
ElseIf intCounter = 3 Then
intTemp(2) = intNum
intCounter = intCounter + 1
....and so on

[Blarghanaught]

Okay, I've done that! Hm.. I tried running the program just to see what would happen and I got this error: 'Compile Error: Invalid attribute in Sub or Function' And it highlighted Public intNum as Integer.