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
Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: