Puntenboek: code

• De klasse Puntenboek
  Class puntenboek
  Private vteller As Single
  Private vnoemer As Integer
  Private vresultaat As Double
  ReadOnly Property teller()
  Get
  Return vteller
  End Get
  End Property
  ReadOnly Property noemer()
  Get
  Return vnoemer
  End Get
  End Property
  ReadOnly Property resultaat()
  Get
  vresultaat = Int(vteller / vnoemer * 200) / 2
  Return vresultaat
  End Get
  End Property
  Public Sub VoegToe(ByVal resultaat As Single, ByVal totaal As Integer)
  vteller += resultaat
  vnoemer += totaal
  End Sub
  End Class
   
• Het formulier kan als volgt geprogrammeerd worden:
  Dim pb As New puntenboek
  Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
  If Me.txtMax.Text = "" Then Exit Sub
  If CInt(txtMax.Text) = 0 Then Exit Sub
  pb.VoegToe(CInt(Me.txtBehaald.Text), CInt(Me.txtMax.Text))
  Me.lblResult.Text = pb.teller & " behaald op " & pb.noemer & vbCrLf & pb.resultaat & " %"
  End Sub
  End Class
• Een andere manier om hetzelfde te bereiken is dit:
  Public Class puntenboek
  Private p_behaald As Long
  Private p_totaal As Long
  Public Property behaald() As Long
  Get
    Return p_behaald
  End Get
  Set(ByVal Value As Long)
    p_behaald = Value
  End Set
  End Property
  Public Property totaal() As Long
  Get
    Return p_totaal
  End Get
  Set(ByVal Value As Long)
    p_totaal = Value
  End Set
  End Property
  Public ReadOnly Property percentage() As Single
  Get
    If p_totaal = 0 Then
      Return 0
    Else
      Return Int(p_behaald * 10000 / p_totaal) / 100
    End If
  End Get
  End Property
  Public Sub voegtoe(ByVal behaald As Integer, ByVal maximum As Integer)
    p_behaald += behaald
    p_totaal += maximum
  End Sub
  End Class
• Terug naar het programma.

[Controls en klassen in .NET] - [VB Web] - [hlrnet] - [copyright]