Hoeken: code

• In Visual Basic Express Edition ziet het programma er zo uit:
  
• Dit is de klasse:
  Public Class hoek
  Private p_waarde As Double 'waarde in graden als default waarde
  Property waarde() As Double
  Get
  Return p_waarde
  End Get
  Set(ByVal value As Double)
  p_waarde = waarde
  End Set
  End Property
  Property hoek() As String
  Get
  Dim buffer As Double
  buffer = p_waarde
  Dim gr As Integer
  gr = Int(p_waarde)
  buffer -= gr
  Dim min As Integer
  min = Int(buffer * 60)
  buffer -= min / 60
  Dim sec As Integer
  sec = Int(buffer * 3600)
  hoek = CStr(gr) & "°"
  If Not min = 0 Then hoek = hoek & min & "'"
  If Not sec = 0 Then hoek = hoek & sec & Chr(34)
  End Get
  Set(ByVal value As String)
  Try
  Dim position As Integer
  Dim letter As String
  Dim chunk As String = "0"
  For position = 1 To Len(value)
  letter = Mid(value, position, 1)
  Select Case letter
  Case Chr(34)
  'doublequote: chunk waren seconden
  p_waarde += CInt(chunk) / 3600
  chunk = ""
  Case "'"
  'singlequote: chunk waren minuten
  p_waarde += CInt(chunk) / 60
  chunk = ""
  Case "°"
  'het waren graden
  p_waarde += CInt(chunk)
  chunk = ""
  Case Else
  'het is gewone invoer
  chunk &= letter
  End Select
  Next
  Catch ex As Exception
  MsgBox(ex.Message)
  End Try
  End Set
  End Property
  Private Function p_rad() As Double
  Return (p_waarde / 180) * Math.PI
  End Function
  ReadOnly Property rad()
  Get
  Return p_rad()
  End Get
  End Property
  ReadOnly Property deg()
  Get
  Return p_waarde * 400 / 360
  End Get
  End Property
  ReadOnly Property sinus() As Double
  Get
  Return Math.Sin(p_rad)
  End Get
  End Property
  ReadOnly Property cosinus() As Double
  Get
  Return Math.Cos(p_rad)
  End Get
  End Property
  ReadOnly Property tangens() As Double
  Get
  Return Math.Tan(p_rad)
  End Get
  End Property
  Public Sub TelOp(ByVal hoek As hoek)
  p_waarde = p_waarde + hoek.waarde
  End Sub
  Public Sub TrekAf(ByVal hoek As hoek)
  p_waarde -= hoek.waarde
  End Sub
  Public Sub Maal(ByVal factor As Double)
  p_waarde *= factor
  End Sub
  Public Sub DelenDoor(ByVal quotient As Double)
  p_waarde /= quotient
  End Sub
  End Class
  
• En dit is het programma:
  Public Class Form1
  Dim h As New hoek
  Sub toon()
  lblOutput.Text = h.waarde & " (" & h.rad & " radialen)" & vbCrLf & h.hoek & vbCrLf & "Sinus: " & h.sinus & vbCrLf & "Cosinus: " & h.cosinus
  End Sub
  Private Sub cmdMaak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMaak.Click
  h.hoek = txtHoek.Text
  toon()
  End Sub

  Private Sub cmdPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPlus.Click
  Dim hoek2 As New hoek
  If IsNumeric(txt2ehoek.Text) Then
  hoek2.waarde = CDbl(txt2ehoek.Text)
  Else
  hoek2.hoek = txt2ehoek.Text
  End If
  h.TelOp(hoek2)
  toon()
  End Sub

  Private Sub cmdMin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMin.Click
  Dim hoek2 As New hoek
  If IsNumeric(txt2ehoek.Text) Then
  hoek2.waarde = CDbl(txt2ehoek.Text)
  Else
  hoek2.hoek = txt2ehoek.Text
  End If
  h.TrekAf(hoek2)
  toon()
  End Sub

  Private Sub cmdMaal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMaal.Click
  h.Maal(CDbl(Me.txtFactor.Text))
  toon()
  End Sub

  Private Sub cmdDeel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDeel.Click
  h.DelenDoor(CDbl(Me.txtFactor.Text))
  toon()
  End Sub
  End Class
  

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