Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Aug 22, 1997



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Substitute the Array Function for the DATA Statement

My first encounter with Visual Basic (VB1) was a letdown because I had become accustomed to using the original Basic "DATA" statement for loading numeric values. The statement was also useful for testing programs that processed sequential data streams. Unfortunately, both QBasic and Visual Basic didn't/don't support it. I must have researched the manuals for hours before giving up in frustration. The VB4 Array function allows an argument list to be assigned to a variant. The data can be retrieved as if it were being read sequentially. For anyone who needs to convert old style DATA statements to VB4, these code snippets may be of use:
Option Base 1
Public MyData As Variant
Public Sub Main()
	'Like the old DATA statement
	MyData = Array(1.1, 1.2, 1.3, 1.4, 1.5, _
		1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 1.9)
	'Test the results
	Debug.Print MyRead(MyData), MyRead(MyData)
End Sub
Public Function MyRead(ByVal whichVariant)
Static intI As Integer
	intI = intI + 1
	MyRead = whichVariant(intI)
End Function
Stan Mlynek
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date