Waarde tussen twee getallen

[old Hippy]

Hallo allemaal

Ik wil graag dat de waarde tussen twee getallen altijd het zelfde is.

b.v ieder getal tussen 0 en 10 moet 10 worden.

dus dacht ik

 Dim TB As Double = TextBox4.Text

        If TB = 1 <> 10 Then
            'Uitkomst Altijd 10
            TextBox5.Text = TB + 10 - TB
        ElseIf TB = 11 Or 12 Then
            'Uitkomst Altijd 12
            TextBox5.Text = TB + 12 - TB
        ElseIf TB = 13 <> 33 Then
            'Uitkomst Altijd 15
            TextBox5.Text = TB + 33 - TB
        End If

Als de waarde tussen de 1 of 10 ligt
of 11 of 12 is
of tussen de 13 fo 33 ligt

de waarde moet zijn 10 12 of 33

dus TB = 18.5 moet 33 geven.

helaas werkt dit niet iemand een Idee?????

Groet Old Hippy

 

[stefanz]

b.v ieder getal tussen 0 en 10 moet 10 worden.

Snap je vraag niet helemaal vooral het laatste gedeelte maar dit doe je zo:

 Dim TB As Double = TextBox4.Text

        If TB = 0 <> 10 Then
            TextBox5.Text = 10     (waarom dit?->TB + 10 - TB)
        End if

 

[stefanz]

Sorry dit werkt niet "If TB = 0 <> 10 Then" probeer dit " If TB >= 1 And TB <= 10 Then".

 

[old Hippy]

Hallo Stefans

Bedankt voor je reactie
was er ook al achter gekomen dat TB +en - overbodig waren
je laatste oplossing werkt.


Heel hartelijk bedankt
Groet Old Hippy