VBiB/ACCB.net - Visual Basic in België | .net Ineta User Group  
Hoofdmenu

Advertenties

Het Computer Winkeltje HCW

Evenementen

Forum
Zoeken Zoeken  •  Registreer Registreer  •  Log in om je privé berichten te bekijken Log in om je privé berichten te bekijken
FAQ FAQ  •  Inloggen Inloggen  •  Maximize Maximize

Hebt u onze forumrichtlijnen gelezen?

Event lostfocus: gemiddelde berekenen
VBiB/ACCB.net Forum Index » MS VB 2005 ® » Algemeen
Plaats nieuw bericht   Plaats Reactie
Vorige onderwerp Printervriendelijke versie Log in om je privé berichten te bekijken Volgende onderwerp
Auteur Bericht
gvb91Offline
Onderwerp: Event lostfocus: gemiddelde berekenen  BerichtGeplaatst: 01 mrt 2010 - 10:51
In de startblokken


Geregistreerd op: 01-mrt-2010
Berichten: 2

Status: Offline
Er zijn 2 textboxen. In textbox1 wordt een getal ingegeven. Van de getallen die in textbox1 worden ingegeven, wordt het gemiddelde berekend. Elk nieuw getal dat je invoert wordt bij het vorige opgeteld en van die som wordt telkens het gemiddelde van berekend. In textbox2 komt telkens dat gemiddelde te staan.

Mijn code (onderstaand) werkt niet. Iemand een verbetering aub?
Visual Basic code:
Public Class frmGemiddelde

    Private Sub txtGetal_lostfocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtGetal.LostFocus
        Dim intGetal, intDeling, intTussenstand As Integer
        Dim decGemiddelde As Decimal

        intGetal = CInt(txtGetal.Text)
        intTussenstand += intGetal
        intDeling += 1
        decGemiddelde = CDec(intTussenstand) / intDeling
        txtUitkomst.Text = CStr(decGemiddelde)

    End Sub
End Class

[/vb]
 
 Bekijk gebruikers profiel Stuur privé bericht  
Reageer met quote Naar boven
XymtrixOffline
Onderwerp: Re: Event lostfocus: gemiddelde berekenen  BerichtGeplaatst: 01 mrt 2010 - 11:33
In draf


Geregistreerd op: 09-okt-2008
Berichten: 446
Woonplaats: Nederland
Status: Offline
Dit komt omdat je elke keer opnieuw alles declareerd. Door dat wordt alles weer op 0 gezet.
Visual Basic code:
Private Sub txtGetal_lostfocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtGetal.LostFocus
        Dim intGetal, intDeling, intTussenstand As Integer '<-- alles wordt weer 0
        Dim decGemiddelde As Decimal '<-- word ook weer 0
Dit kan je tegengaan door de declaraties buiten je sub te zetten:
Visual Basic code:
Public Class frmGemiddelde
' DECLARATIES
        Private intGetal, intDeling, intTussenstand As Integer
        Private decGemiddelde As Decimal

    Private Sub txtGetal_lostfocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtGetal.LostFocus

        intGetal = CInt(txtGetal.Text)
        intTussenstand += intGetal
        intDeling += 1
        decGemiddelde = CDec(intTussenstand) / intDeling
        txtUitkomst.Text = CStr(decGemiddelde)

    End Sub
End Class

_________________
Hulp nodig? Gebruik eerst de zoekfunctie voor antwoorden.
Onthoud: Meer info = beter en snellere hulp.
 
 Bekijk gebruikers profiel Stuur privé bericht  
Reageer met quote Naar boven
gvb91Offline
Onderwerp: Re: Event lostfocus: gemiddelde berekenen  BerichtGeplaatst: 01 mrt 2010 - 22:42
In de startblokken


Geregistreerd op: 01-mrt-2010
Berichten: 2

Status: Offline
Hartelijk bedankt Xymtrix! De positie van het declareren is iets klein en dom, maar toch o zo belangrijk haha.
 
 Bekijk gebruikers profiel Stuur privé bericht  
Reageer met quote Naar boven
Berichten van afgelopen:     
Ga naar:  
Tijden zijn in GMT + 1 uur
Plaats nieuw bericht   Plaats Reactie
Vorige onderwerp Printervriendelijke versie Log in om je privé berichten te bekijken Volgende onderwerp
 VBiB/ACCB.net Forum Index » MS VB 2005 ® »  Algemeen
PNphpBB2 © 2003-2007 
 

 
Postnuke - ADODB Database - PHP 4/5 - pnPhpBB2 - Hosting bij Openminds
Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno 21-12-2000)
vbib.be gestart op 1/03/06 (extra vanaf 1/09: vbnet.be en vbdotnet.be)
VBiB is gerelateerd met wintips.be

Nieuwsbrief RSS Feed: backend.php