Hoi helpmijers,
In een programma wil ik een aantal cijfers controleren,dit doe ik in een loop.
Waneer een cijfer niet in de loop voorkomt wil ik een label laten verschijnen waarin de waarde van het cijfer dat daar het dichtste bij ligt in komt.
in deze loop worden alle cijfers gecontroleerd, maar ik heb geen idee hoe ik deze loop zo uit kan breiden
dat als bv. i een waarde 2 heeft in een nieuw label de waarde 2.2 komt.
en als i een waarde 5 heeft moet in dat label 4.7 komen.
Wie kan mij hiermee helpen
Groeten beest.
In een programma wil ik een aantal cijfers controleren,dit doe ik in een loop.
Waneer een cijfer niet in de loop voorkomt wil ik een label laten verschijnen waarin de waarde van het cijfer dat daar het dichtste bij ligt in komt.
Code:
If RadioButton1.Checked = True Then
Dim i As Single
i = lblmem.Text
Select Case i
Case 0.1, 0.22, 0.47, 1, 2.2, 4.7, 10, 22, 47, 100, 220, 470, 1000, 2200, 4700, _
10000, 22000, 47000, 100000, 220000, 470000, 1000000, 2200000, 4700000, 10000000
lblserie.Text = ("getal ok.")
RadioButton1.Checked = True
Case Else
lblserie.Text = ("geen geldig getal")
End Select
End If
in deze loop worden alle cijfers gecontroleerd, maar ik heb geen idee hoe ik deze loop zo uit kan breiden
dat als bv. i een waarde 2 heeft in een nieuw label de waarde 2.2 komt.
en als i een waarde 5 heeft moet in dat label 4.7 komen.
Wie kan mij hiermee helpen
Groeten beest.