hoi
in onderstaande code wil ik de getallen die in de case staan vergelijken met een ander getal "lbluitkomst.text" als lbluitkomst een waarde heeft die niet in de case staat.
De waarde uit de case die dan het dichtst bij lbluitkomst ligt wil ik in lblstandaard hebben.
iemand een idee hoe dit kan ??
bv :
lbluitkomst.text = 0.20
case = 0.15, 0.22
lblstandaard.text = 0.22
in onderstaande code wil ik de getallen die in de case staan vergelijken met een ander getal "lbluitkomst.text" als lbluitkomst een waarde heeft die niet in de case staat.
De waarde uit de case die dan het dichtst bij lbluitkomst ligt wil ik in lblstandaard hebben.
iemand een idee hoe dit kan ??
bv :
lbluitkomst.text = 0.20
case = 0.15, 0.22
lblstandaard.text = 0.22
Code:
If RadioButton2.Checked = True Then
Dim i As Single
i = lblmem.Text
Select Case i
Case 0.1, 0.15, 0.22, 0.33, 0.47, 0.68, 1, 1.5, 3.3, 2.2, nog veel meer..
lblserie.Text = ("")
RadioButton2.Checked = True
Case Else
?? lblstandaard.text = lbluitkomst.text - of + case.value ??
lblserie.Text = ("")
End Select
End If