Bedrag in een textbox zetten

[Mr Digitalis]

Hallo Forumleden,

Ik ben een newbee in visual basic 2008. Nu heb ik het volgende.
Ik krijg het niet voor elkaar om in een formulier waar o.a. een textlabel zit, om daar vanuit
de code een bedrag neer te zetten en dat bedrag moet daar ook blijven staan en verandert
ook niet gedurende de procedure.

Kort gezegd: Hoe zet ik vanuit de code een bedrag in een textlabel?

Wie kan mij helpen?

Met beste groet,

Piet

 

[Helogat]

om met een code de tekst van label1 te veranderen:

label1.text = "hier jouw tekst"

Of als je bijvoorbeeld de inhoud van textbox1 wilt gebruiken:

label1.text = textbox1.text

om met een code de tekst van textbox1 te veranderen:

textbox.text = "hier jouw tekest"

Of als je bijvoorbeeld de inhoud van textbo21 wilt gebruiken:

textbox1.text = textbox2.text

om twee waarden achter elkaar te plakken gebruik je &:

textbox.text = "hier jouw tekst" & textbox2.text

Gr. Helogat

 

[Mr Digitalis]

Hallo Helogat,

Hartelijk dank voor uw reactie. Ik krijg het niet voor elkaar, maar waar in de code moet het volgende voorbeeld geplaatst worden?

 txtAantal_Dra.Text = "1.15"

Public Class Rekening


   
    Private Sub btnBerekenen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBerekenen.Click
        ' De gebruiker geeft het aantal produkten in en de 
        ' De procedure berekent het totale af te rekenen bedrag uit.

        ' Declareer de variabelen
        Dim Prijs_Soep As Decimal = 1.25
        Dim Prijs_Hoof As Decimal = 6.15
        Dim Prijs_Nag As Decimal = 1.5
        Dim Prijs_Dra As Decimal = 1.35
        Dim Aantal_Soep As Integer
        Dim Aantal_Hoof As Integer
        Dim Aantal_Nag As Integer
        Dim Aantal_Dra As Integer
        Dim Totaal_Prijs As Decimal

        ' De gegevens van de tekstvakken worden
        ' in de juiste variabelen geplaatst.
        txtAantal_Soe.Text = Aantal_Soep
        txtAantal_Hoo.Text = Aantal_Hoof
        txtAantal_Nag.Text = Aantal_Nag
        txtAantal_Dra.Text = Aantal_Dra




        ' Berekenen van het te betalen eindbedrag
        Totaal_Prijs = (Aantal_Soep * Prijs_Soep) + (Aantal_Hoof * Prijs_Hoof) + _
 (Aantal_Nag * Prijs_Nag) + (Aantal_Dra * Prijs_Dra)

        ' Tonen van het te betalen bedrag






    End Sub

    Private Sub btnSluiten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSluiten.Click
        Me.Close()
    End Sub

    Private Sub btnWissen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWissen.Click
        txtAantal_Dra.Text = ""
        txtAantal_Hoo.Text = ""
        txtAantal_Nag.Text = ""
        txtAantal_Soe.Text = ""


    End Sub

  

   
   
End Class

 

[Helogat]

In de code staat:

  ' Declareer de variabelen
        Dim Prijs_Soep As Decimal = 1.25
        Dim Prijs_Hoof As Decimal = 6.15
        Dim Prijs_Nag As Decimal = 1.5
        Dim Prijs_Dra As Decimal = 1.35
        Dim Aantal_Soep As Integer
        Dim Aantal_Hoof As Integer
        Dim Aantal_Nag As Integer
        Dim Aantal_Dra As Integer
        Dim Totaal_Prijs As Decimal

        ' De gegevens van de tekstvakken worden
        ' in de juiste variabelen geplaatst.
        txtAantal_Soe.Text = Aantal_Soep
        txtAantal_Hoo.Text = Aantal_Hoof
        txtAantal_Nag.Text = Aantal_Nag
        txtAantal_Dra.Text = Aantal_Dra

Dus waar

Dim Aantal_Dra As Integer

staat moet:

Dim Aantal_Dra As Integer
Aantal_Dra = 1.15

staan

 

[hackie900]

ik weet het niet zeker maar het zou ook kunnen zijn dat je iets met de totaalprijs vergeet in de code. maak een nieuwe label aan (als je die voor de totaalprijs nog niet hebt), de naam moet zijn: txtTotaal_Prijs
dan zet je waar je hebt staan:

txtAantal_Soe.Text = Aantal_Soep
txtAantal_Hoo.Text = Aantal_Hoof
txtAantal_Nag.Text = Aantal_Nag
txtAantal_Dra.Text = Aantal_Dra

zet je eronder:

txtTotaal_Prijs.text = Totaal_Prijs

misschien werkt dit wel.

 

[Helogat]

De code samengevoegd tot één geheel:

Public Class Rekening


   
    Private Sub btnBerekenen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBerekenen.Click
        ' De gebruiker geeft het aantal produkten in en de 
        ' De procedure berekent het totale af te rekenen bedrag uit.

        ' Declareer de variabelen
        Dim Prijs_Soep As Decimal = 1.25
        Dim Prijs_Hoof As Decimal = 6.15
        Dim Prijs_Nag As Decimal = 1.5
        Dim Prijs_Dra As Decimal = 1.35
        Dim Aantal_Soep As Integer
        Dim Aantal_Hoof As Integer
        Dim Aantal_Nag As Integer
        Dim Aantal_Dra As Integer
        Dim Totaal_Prijs As Decimal

        ' De gegevens van de tekstvakken worden
        ' in de juiste variabelen geplaatst.
   txtAantal_Soe.Text = Aantal_Soep
txtAantal_Hoo.Text = Aantal_Hoof
txtAantal_Nag.Text = Aantal_Nag
txtAantal_Dra.Text = Aantal_Dra




        ' Berekenen van het te betalen eindbedrag
        Totaal_Prijs = (Aantal_Soep * Prijs_Soep) + (Aantal_Hoof * Prijs_Hoof) + _
 (Aantal_Nag * Prijs_Nag) + (Aantal_Dra * Prijs_Dra)

        ' Tonen van het te betalen bedrag


txtTotaal_Prijs.text = Totaal_Prijs



    End Sub

    Private Sub btnSluiten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSluiten.Click
        Me.Close()
    End Sub

    Private Sub btnWissen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWissen.Click
        txtAantal_Dra.Text = ""
        txtAantal_Hoo.Text = ""
        txtAantal_Nag.Text = ""
        txtAantal_Soe.Text = ""


    End Sub

  

   
   
End Class

 

[Mr Digitalis]

Hartelijk Dank voor de hulp heren.
Het werkt en is hiermee opgelost!

:thumb: