devxlogo

Substitute the Array Function for the DATA Statement

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:

 'DeclarationsOption Base 1Public MyData As VariantPublic 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 SubPublic Function MyRead(ByVal whichVariant)Static intI As Integer	intI = intI + 1	MyRead = whichVariant(intI)End Function
See also  Redefining Energy Management: Advanced Solutions for Modern Buildings
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist