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
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