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

dee2020's Avatar, Join Date: Jan 2008
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...
Code:
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
0
KiLLER's Avatar
Light Poster
Quote:
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.