Our What's New in v24.2 webpage includes product-specific surveys. Your response to our survey questions will help us measure product satisfaction for features released in this major update and help us refine our plans for our next major release.
Namespace Bar3DChart
PublicClass Point
Private privateX AsDoublePublicProperty X() AsDoubleGetReturn privateX
EndGetPrivateSet(ByVal value AsDouble)
privateX = value
EndSetEndPropertyPrivate privateY AsDoublePublicProperty Y() AsDoubleGetReturn privateY
EndGetPrivateSet(ByVal value AsDouble)
privateY = value
EndSetEndPropertyPrivate privateZ AsDoublePublicProperty Z() AsDoubleGetReturn privateZ
EndGetPrivateSet(ByVal value AsDouble)
privateZ = value
EndSetEndPropertyPublicSubNew(ByVal x AsDouble, ByVal y AsDouble, ByVal z AsDouble)
Me.X = x
Me.Y = y
Me.Z = z
EndSubEndClassEndNamespace
ImportsSystemImportsSystem.Collections.ObjectModelNamespace Bar3DChart
PublicClass RandomDataViewModel
PublicProperty DataPoints() As ObservableCollection(Of Point)
PublicSubNew()
Dim barsCount AsInteger = 200Dim maxValue AsInteger = 200Me.DataPoints = DataGenerator.GenerateData(barsCount, maxValue)
EndSubEndClassPublicNotInheritableClass DataGenerator
PrivateSubNew()
EndSubPublicSharedFunction GenerateData(ByVal pointCount AsInteger, ByVal maxValue AsInteger) As ObservableCollection(Of Point)
Dim rand AsNew Random()
Dim bars AsNew ObservableCollection(Of Point)()
For i AsInteger = 0To pointCount - 1Dim bar As Point
Dim x AsDouble = rand.NextDouble() * maxValue * 2Dim y AsDouble = rand.NextDouble() * maxValue * 2Dim z AsDouble = rand.NextDouble() * maxValue
bar = New Point(x, y, z)
bars.Add(bar)
Next i
Return bars
EndFunctionEndClassEndNamespace