0 Replies - 2311 Views - Last Post: 28 January 2008 - 07:12 AM Rate Topic: -----

#1 dee2020  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 8
  • Joined: 15-January 08

how to add first element of first array of every record

Posted 28 January 2008 - 07:12 AM

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

Is This A Good Question/Topic? 0
  • +

Page 1 of 1