Label hoog laag wat gaat er mis?

[old Hippy]

Hallo allemaal
Wat ik wil is dat Het label LB_Hoog omhoog gaat.
En het label LB_Laag naar beneden gaat Als het label LB_Stand omhoog of omlaag gaat.

zo dat ik aan het eind van de dag de hoogste en de laagste stand heb.

wat is er niet goed in de code??

 Dim Stand As Decimal = 0
        Dim Hoog As Decimal = 0
        Dim Laag As Decimal = 0
        Stand = CDec(LB_Stand.Text)

        If Stand > Hoog Then
            LB_Hoog.Text = Stand
        ElseIf Stand < Laag Then
            LB_Laag.Text = Stand
        End If

 

[edmoor]

Waar haal je de waarden voor Hoog en Laag vandaan?
Zoals het daar nu staat zijn die altijd 0.

 

[JoZ1]

Dat wat edmoor dus zegt over je huidige code.

Kun je illustreren wat je precies doet met die labels?
Dan is het makkelijker een oplossing zoeken.

 

[old Hippy]

Sorry stukje code vergeten mee te plakken?
in stand verloopt het bedrag zoms om hoog en dan weer naar beneden.
is het bvb 25,50 en wordt het 10.25

dan Moet hoog dus 25,50 zijn en laag dus 10,25.
alles wat rer tussen in is niet van belang maar laag kan ook -10,20 zijn en de hoogste stand -30,20

 Dim Stand As Decimal = 0
        Dim Hoog As Decimal = 0
        Dim Laag As Decimal = 0
        Stand = CDec(LB_Stand.Text)
        Hoog = CDec(LB_Hoog.Text)
        Laag = CDec(LB_Laag.Text)
        If Stand > Hoog Then
            LB_Hoog.Text = Stand
        ElseIf Stand < Laag Then
            LB_Laag.Text = Stand
        End If

 

[edmoor]

Ok. En wat gaat er nu niet goed?
Hier werkt het prima.

 

[old Hippy]

OK edmoor en joZ1 hartelijk dank voor julie reactie

Als hoog bvb. -32,50 is en laag -20,10
blijft label hoog dus 0
Als er dus een dag om is en de stand alleen maar negatief was heb ik alleen de laagste stand en niet de hoogste.

toelichting
ik heb een progje voor mij zelf gemaakt voor mijn aandelen handel.
hier word raeltime de gegevens van het internet gehaalt.
Ik wil dus de hoogste en de laagste stand van de dag waarde.
de code word door een timer aangestuurd.
hopelijk is het zo duidelijk.

 

[old Hippy]

HI ik denk het tehebben opgelost.

de code is als volgt
En het progje start met LB_Hoog op -100

Function Hoog_Laag() As Boolean
        Dim Stand As Decimal = 0
        Dim Hoog As Decimal = 0
        Dim Laag As Decimal = 0
        Stand = CDec(LB_Stand.Text)
        Hoog = CDec(LB_Hoog.Text)
        Laag = CDec(LB_Laag.Text)

        If Stand < Laag Then
            LB_Laag.Text = Stand
        ElseIf Stand > Hoog Then
            LB_Hoog.Text = Stand
        End If
    End Function

Groet Old Hippy