waarde HScrollBar1

[h-bo]

Hoi,

Ik wil een berekening maken in visual basic 2005
nu wil ik graag de waarde in HScrollBar1 als percentage % laten weergeven maar ik kom er niet uit.

ik heb TextBox9.Text = Val(TextBox3.Text) * (TextBox1.Text) en dit werkt, alleen is textbox3.txt nog steeds 50 en geen 50%

TextBox3.Text heeft de waarde uit HScrollBar1

iemand een oplossing.

groet h-bo

 

[SuperABC]

Gewoon het % erachter plakken?

TextBox9.Text = (Val(TextBox3.Text) * (TextBox1.Text)) & "%"

 

[h-bo]

TextBox9.Text = (Val(TextBox3.Text) * (TextBox1.Text)) & "%"

nu komt in TextBox9.Text het percentage te staan.

maar ik wil graag dat de waarde in textbox3 percentage word en dan maal textbox1.

dus zou de formule textbox3 is 10% maal textbox 100 is 10 moeten worden.

en dan moet er in textbox9 10 komen te staan.

hoop dat er een oplossing voor is.

groet h-bo

 

[evertVB]

Ik vind direct rekenen met controls sowieso niet handig.

In plaats van:

    TextBox9.Text = Val(TextBox3.Text) * (TextBox1.Text)

Zou je zoiets moeten hebben:

    Dim Getal As Double
    Dim Deelgetal As Double
    Dim Factor As Double

    Getal = (uit TextBox3 halen)
    Factor = (uit TextBox1 halen)
    DeelGetal = Getal * Factor

    TextBox9.Text = CStr(DeelGetal)

Nog beter is om de textboxen zinvolle namen te geven:

    Dim Getal As Double
    Dim Deelgetal As Double
    Dim Factor As Double

    Getal = Val(TbxGetal)
    Factor = (uit TbxPercentage halen HOE???)
    DeelGetal = Getal * Factor

    TbxDeelGetal.Text = CStr(DeelGetal)

Dit wordt naderhand overzichtelijker als je bijvoorbeeld ingewikkeldere dingen wilt doen dan alleen maar vermenigvuldigen.

Maar ja hoe zit dat nu met dat percentage?
Als in TbxPercentage.Text nu staat "50%" hoe bepalen we dan met Visual basic dat daarbij een factor hoort van 0,5?
Dat weet ik nu nog even niet maar ik zal ernaar kijken.

 

[evertVB]

Ben eruit
Gewoon zo dus:

Public Class Form1
    Dim Getal As Double
    Dim Deelgetal As Double
    Dim Factor As Double

    Private Sub btnBerekenDeelgetal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBerekenDeelgetal.Click
        Getal = Val(TbxGetal.Text)
        Factor = Val(TbxPercentage.Text) / 100
        Deelgetal = Getal * Factor
        TbxDeelgetal.Text = CStr(Deelgetal)
    End Sub
End Class

 

[h-bo]

opgelost

Ben er uitgekomen was even zoeken maar daar leer je alleen maar van,

bedankt voor je hulp

groet h-bo