nieuw in VBA voor Autodesk Inventor

Status
Niet open voor verdere reacties.

Lowie95

Nieuwe gebruiker
Lid geworden
21 mrt 2017
Berichten
1
Dag allemaal,

Hopelijk kan iemand me hier helpen.

Ik heb een stukje code waarin ik een array maak van 4 waardes. Uit die array worden de mininum waarde en de maximum waarde verwijderd waardoor ik nog 2 waardes over heb die ik nodig heb. dan komt er een schermpje tevoorschijn die dan de overige 2 waardes toont.
Nu is mijn vraag is het mogelijk om die overige 2 waardes verder te gebruiken in wiskunde formules.

BV array van P1,P2,P3,P4 P1= Min en P4= Max en nu wil ik P2 en P3 gebruiken in wiskunde formules.

Kan dit ?

Zie mijn code hieronder.

'create list of values
Dim MyArrayList As New ArrayList
MyArrayList.add(p1)
MyArrayList.add(p2)
MyArrayList.add(p3)
MyArrayList.add(p4)

'find mininum
oMin = MinOfMany(p1, p2, p3, p4)
'look at each item in the list and
'remove if it matches minimum
For Each oItem in MyArrayList
If oItem = oMin Then
MyArrayList.Remove(oItem)
Exit For
End If
Next

'find maximum
oMax = MaxOfMany(p1, p2, p3, p4)
'look at each item in the list and
'remove if it matches maximum
For Each oItem in MyArrayList
If oItem = oMax Then
MyArrayList.Remove(oItem)
Exit For
End If
Next

'get user input
oInput = InputListBox("Choose one", MyArrayList, "", "iLogic", "Values")

If oInput = "" Then Return 'do nothing if nothing is selected

'deplay selected value
MessageBox.Show("You selected: " & oInput, "iLogic")

Alvast bedankt
 
is het VBA of .NET? heel andere dingen?

De syntax is VB.net dus ik neem aan VB.NET. In dat geval kun je beter een generieke "list" gebruiken ipv een arraylist en de ingebouwde mogelijkheden van .net gebruiken om dit op te lossen.

Afgezien daarvan zijn de enige waarden die nog in de lijst staan al de gevraagde p2 en p3 dus ik begrijp ook niet helemaal waar je vast loopt?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan