Msgbox weergeven als label onder de 0 komt

[apellsientje925]

Hallo,

Ik heb een vraag. Ik ben bezig met een programma met geld je kunt er dingen kopen maar hoe kan ik er voor zorgen dat als je bijvoorbeeld €5000 en je koopt iets €10.000 er een msgbox wordt weergegeven

Alvast bedankt

 

[evertVB]

        Dim BedragInPortemonnaie As Double
        Dim Aankoopbedrag As Double

...

        BedragInPortemonnaie = 5000
        Aankoopbedrag = 10000
        If BedragInPortemonnaie < Aankoopbedrag Then
            MsgBox("U heeft te weinig geld bij U")
        End If

 

[apellsientje925]

Bedankt maar het geld word weergegeven in de label hoe kan hij weten of hij te weinig geld heeft?

Maar toch bedankt voor de moeite

Dit was mijn code:

Hoofdform.Label1.Text = Hoofdform.Label1.Text - 10000
Hoofdform.PictureBox1.Image = My.Resources._145_0001
Hoofdform.Label4.Visible = True
Hoofdform.Label3.Visible = False


Huis_zoeken.Close()
Me.Close()

 

[The Mighty Atom]

Bedankt maar het geld word weergegeven in de label hoe kan hij weten of hij te weinig geld heeft?

Wat bedoel je? Het antwoord is toch gegeven?

If BedragInPortemonnaie < Aankoopbedrag Then
MsgBox("U heeft te weinig geld bij U")
End If

Dat is precies wat je nodig hebt om te checken of het bedrag hoger is dan het bedrag dat beschikbaar is.

 

[apellsientje925]

Ja maar hoe haal ik het eraf als je genoeg hebt?

 

[evertVB]

If BedragInPortemonnaie < Aankoopbedrag Then
  MsgBox("U heeft te weinig geld bij U")
 Else
  BedragInPortemonnaie = BedragInPortemonnaie - Aankoopbedrag
End If

 

[apellsientje925]

Bedankt!
Het werkt