<-- Previous || Up || Next -->

Text Plot Random Sample Sub
Math Arithmetic Class

Private Sub TextPlotRandomSample()
    ' Plot random X & Y values.

    Const NUMS = 256
    
    Dim avarNums() As Variant
    ReDim avarNums(0 To 2, 0 To NUMS)

    Dim intX As Integer
    For intX = 1 To NUMS
        avarNums(1, intX) = RandomIntegerWithinRange(-29, 29)
        avarNums(2, intX) = RandomIntegerWithinRange(-15, 15)
    Next intX

    Debug.Print
    Debug.Print TextPlot(avarNums, 31, 59)
End Sub

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.