how to add the first element of first array of every record

dee2020's Avatar
Newbie Member
hi friendz....

I wanted to add the first element of first array of every record.
Each record has two arrays,
Each array has 5 values
In order to do that i wrote the following code in VB...
Option Explicit

Private Type feedbackdata

	FormNumberS As Integer
	Q1(0 To 4) As Byte
	Q2(0 To 4) As Byte
	FormNumberE As Integer
End Type
Private Sub cmdDisplay_Click()

Dim category(1 To 5) As String * 10
Dim quantity(1 To 5) As Integer

category(1) = "very poor"
category(2) = "poor"
category(3) = "good"
category(4) = "very good"
category(5) = "excellent"

Dim feedback As feedbackdata

Dim recordnum, n As Integer, a As Integer

If (Option1.Value) Then
a = 0
Open "C:/student.txt" For Random As #1 Len = Len(feedback)

For recordnum = 1 To Int(LOF(1) / Len(feedback))
Get #1, recordnum, Q1(0)
quantity(1) = Q1(0) + a
a = quantity(1)

Next recordnum

Open "C:/analysis.txt" For Append As #2

Print #2, category(1), quantity(1)

End If
I dont know why my code isnt working correctly,,,i mean its displaying the wrong sum in my "analysis.txt" file....Could you please help
KiLLER's Avatar
Light Poster
For recordnum = 1 To Int(LOF(1) / Len(feedback))
Shouldn't that start from 0??

And I still can't figure out the problem, but since you're having same five value in your "Category" why don't declare/include in your structure? Why Array? Declare then as Boolean so you can change it either True or False!

Hope it helps.