Breuk: code

• In de klasse Breuk voorzien we private variabelen voor de teller, de noemer en de waarde. We maken ook eigenschappen, maar waarde moet alleen-lezen zijn. We voorzien ook vereenvoudiging, maar om het snel te laten gaan, houden we het eenvoudig: we proberen te delen doorde getallen tussen 2 en de teller.
  Public Class breuk
  Private vteller As Integer
  Private vnoemer As Integer
  Private vwaarde As Double
  Public Sub New()
  vnoemer = 1
  End Sub

  Property teller()
  Get
  vereenvoudig()
  Return vteller
  End Get
  Set(ByVal Value)
  vteller = Value
  End Set
  End Property
  Property noemer()
  Get
  vereenvoudig()
  Return vnoemer
  End Get
  Set(ByVal Value)
  If Value = 0 Then
  Error ("Geen deling door nul")
  Else
  vnoemer = Value
  End If
  End Set
  End Property
  ReadOnly Property waarde()
  Get
  vwaarde = vteller / vnoemer
  Return vwaarde
  End Get
  End Property
  Public Sub maal(ByVal factor As Integer)
  vteller = vteller * factor
  End Sub
  Public Sub deel(ByVal factor As Integer)
  vnoemer = vnoemer * factor
  End Sub
  Private Sub vereenvoudig()
  Dim probeerdeler As Integer
  If vteller < 3 Then Exit Sub
  probeerdeler = 2
  'MsgBox("probeerdeler " & probeerdeler & " vteller " & vteller & " vnoemer " & vnoemer)
  If vteller Mod probeerdeler = 0 And vnoemer Mod probeerdeler = 0 Then
  vteller /= probeerdeler
  vnoemer /= probeerdeler
  End If
  For probeerdeler = 2 To vteller
  If vteller Mod probeerdeler = 0 And vnoemer Mod probeerdeler = 0 Then
  vteller /= probeerdeler
  vnoemer /= probeerdeler
  End If
  Next
  End Sub
  Public Shared Operator *(ByVal br1 As breuk, ByVal br2 As breuk) As breuk
  Dim resultaat As New breuk
  resultaat.teller = br1.teller * br2.teller / (br1.noemer * br2.noemer)
  resultaat.vereenvoudig()
  Return resultaat
  End Operator
  Public ReadOnly Property toon() As String
  Get
  vereenvoudig()
  Return vteller & "/" & vnoemer
  End Get

• Voor de operatoren hebben we nood aan een eigenschap die de breuk weergeet als string, en wat code om de bewerkingen uit te voeren:

  Public ReadOnly Property toon() As String
  Get
  vereenvoudig()
  Return vteller & "/" & vnoemer
  End Get
  End Property
  
  Public Shared Operator +(ByVal br1 As breuk, ByVal br2 As breuk) As breuk
  'a/b+c/d = ad+bc/bd
  Dim resultaat As New breuk
  resultaat.teller = br1.teller * br2.noemer + br2.teller * br1.noemer
  resultaat.noemer = br1.noemer * br2.noemer
  resultaat.vereenvoudig()
  Return resultaat
  End Operator
  Public Shared Operator /(ByVal br1 As breuk, ByVal br2 As breuk) As breuk
  Dim resultaat As New breuk
  resultaat.teller = br1.teller * br2.noemer / (br1.noemer * br2.teller)
  resultaat.vereenvoudig()
  Return resultaat
  End Operator
  Public Shared Operator *(ByVal br1 As breuk, ByVal int As Integer) As breuk
  Dim resultaat As New breuk
  resultaat.noemer = br1.noemer * int
  resultaat.vereenvoudig()
  Return resultaat
  End Operator
  Public Shared Operator -(ByVal br1 As breuk, ByVal br2 As breuk) As breuk
  Dim resultaat As New breuk
  resultaat.teller = br1.teller * br2.noemer - br2.teller * br1.noemer
  resultaat.noemer = br1.noemer * br2.noemer
  resultaat.vereenvoudig()
  Return resultaat
  End Operator
  End Class

• Het testprogramma tenslotte ziet er als volgt uit:
  Public Class Form1
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim br1 As New breuk
  br1.teller = CInt(TextBox1.Text)
  br1.noemer = CInt(TextBox3.Text)
  Dim br2 As New breuk
  br2.teller = CInt(TextBox2.Text)
  br2.noemer = CInt(TextBox4.Text)
  Label1.Text = br1.toon + " + " + br2.toon + " = " + (br1 + br2).toon
  End Sub
  End Class
• Terug naar het programma.

[VB Web] - [hlrnet] - [copyright]