olivio
02-25-2009, 10:28 AM
hi
i am sure the answer to this is silly, but here goes. i have the following code. it includes a class called transforms, with members and come a function to test the class. the problem is that i have a class method called ReverseLastTransform() which is supposed to reverse the +/- of the values in each of the vector array values, bit this is not working. i am sure i am doing overlooking something really obvious. any help will be appreciated
'CLASS-----------------------------
Public VectorStack As New Collection
Public Sub AddVector(item As Variant)
'perform validation before adding to ensure 0 to 3) double vector array
VectorStack.add (item)
End Sub
Public Sub DeleteVector(index As Integer)
VectorStack.Remove (index)
End Sub
Public Sub ReverseLastTransform()
Dim count As Integer
count = VectorStack.count
Dim VectorElement As Variant
For Each VectorElement In Me.VectorStack.item(count)
VectorElement = VectorElement * -1
Next VectorElement
End Sub
Public Sub ReverseAllTransforms()
'placeholder for class method
MsgBox "we are in ReverseAllTransforms"
End Sub
'TEST CODE------------------------------------
Public Function TestTransform()
Dim MyTransformStack As New transform
Dim vector_1(0 To 3), vector_2(0 To 3), vector_3(0 To 3) As Variant
vector_1(0) = 5#: vector_1(1) = 5#: vector_1(2) = 5#: vector_1(3) = 91#
vector_2(0) = 6#: vector_2(1) = 6#: vector_2(2) = 6#: vector_2(3) = 92#
vector_3(0) = 7#: vector_3(1) = 7#: vector_3(2) = 7#: vector_3(3) = 93#
MyTransformStack.AddVector vector_1
MyTransformStack.AddVector vector_2
MyTransformStack.AddVector vector_3
MyTransformStack.ReverseLastTransform
End Function
i am sure the answer to this is silly, but here goes. i have the following code. it includes a class called transforms, with members and come a function to test the class. the problem is that i have a class method called ReverseLastTransform() which is supposed to reverse the +/- of the values in each of the vector array values, bit this is not working. i am sure i am doing overlooking something really obvious. any help will be appreciated
'CLASS-----------------------------
Public VectorStack As New Collection
Public Sub AddVector(item As Variant)
'perform validation before adding to ensure 0 to 3) double vector array
VectorStack.add (item)
End Sub
Public Sub DeleteVector(index As Integer)
VectorStack.Remove (index)
End Sub
Public Sub ReverseLastTransform()
Dim count As Integer
count = VectorStack.count
Dim VectorElement As Variant
For Each VectorElement In Me.VectorStack.item(count)
VectorElement = VectorElement * -1
Next VectorElement
End Sub
Public Sub ReverseAllTransforms()
'placeholder for class method
MsgBox "we are in ReverseAllTransforms"
End Sub
'TEST CODE------------------------------------
Public Function TestTransform()
Dim MyTransformStack As New transform
Dim vector_1(0 To 3), vector_2(0 To 3), vector_3(0 To 3) As Variant
vector_1(0) = 5#: vector_1(1) = 5#: vector_1(2) = 5#: vector_1(3) = 91#
vector_2(0) = 6#: vector_2(1) = 6#: vector_2(2) = 6#: vector_2(3) = 92#
vector_3(0) = 7#: vector_3(1) = 7#: vector_3(2) = 7#: vector_3(3) = 93#
MyTransformStack.AddVector vector_1
MyTransformStack.AddVector vector_2
MyTransformStack.AddVector vector_3
MyTransformStack.ReverseLastTransform
End Function