BayesFusion Support Forum

Code: Select all

Sub DisplayNodes()

	Dim Nodes As Variant
	Dim Node As Variant
	
	Range("A1").Select
	
	Nodes = Net.GetAllNodes()
	
	For Each Node in Nodes
	
		ActiveCell.Value = Node
		ActiveCell.Offset(1,0).Select
		
	Next Node
	
End Sub

Code: Select all

Sub GetNodes()

	Dim Nodes As Variant
	
	Nodes = Net.GetAllNodes()

End Sub

Code: Select all

Dim Net As SmileNetwork		'Has to be accessible to the function below

Set Net = New SmileNetwork

Net.ReadFile("Network.xdsl")