Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.

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