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.
  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
  End Class
   
• In het programma maken we een object breuk aan, een knop voor het invullen van die breuk, en knoppen om die breuk te vermenigvuldigen en te delen. Telkens tonen we de waarden van het object breuk.
  Dim b As New breuk
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim t As Integer
  Dim n As Integer
  t = InputBox("Geef de teller")
  b.teller = t
  n = InputBox("Geef de noemer")
  b.noemer = n
  toon()
  End Sub
  Private Sub toon()
  lblBreuk.Text = "teller = " & b.teller & vbCrLf
  lblBreuk.Text &= "noemer = " & b.noemer & vbCrLf
  lblBreuk.Text &= "waarde = " & b.waarde
  End Sub
  
  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  Dim f As Integer
  f = InputBox("Geef de factor waarmee ik moet vermenigvuldigen")
  b.maal(f)
  toon()
  End Sub
  
  Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  Dim f As Integer
  f = InputBox("Geef de factor waardoor ik moet delen")
  b.deel(f)
  toon()
  End Sub
• Terug naar het programma.

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