Binair: code

Dit is de klasse:

Public Class binair
Private p_waarde As Long
Public Property decimaal() As Long
Get
Return p_waarde
End Get
Set(ByVal value As Long)
p_waarde = value
End Set
End Property
Public Property binair() As String
Get
Return Convert.ToString(CLng(p_waarde), 2)
End Get
Set(ByVal value As String)
p_waarde = Convert.ToInt32(value, 2)
End Set
End Property
Public Shared Operator +(ByVal binair1 As binair, ByVal binair2 As binair) As binair
Dim b As New binair
b.decimaal = binair1.decimaal + binair2.decimaal
Return b
'vanaf nu kan men bin1+bin2 doen
End Operator
End Class

En zo kunnen we ze gebruiken:

Public Class Form1
Dim b1 As New binair
Dim b2 As New binair
Private Sub cmdDec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDec.Click
b1.decimaal = CInt(txtDecimaal.Text)
MsgBox(b1.decimaal & "=" & b1.binair)
End Sub

Private Sub cmdBin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBin.Click
b2.binair = txtBin.Text
MsgBox(b2.decimaal & "=" & b2.binair)
End Sub

Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
b1.binair = txtBin1.Text
b2.binair = txtBin2.Text
Dim b3 As New binair
b3 = b1 + b2
MsgBox(b1.binair & "+" & b2.binair & "=" & b3.binair)
End Sub
End Class