Hoeken: code

• Het programma ziet er zo uit:
  
• Dit is de klasse:
  Public Class hoek
  Const pi = 3.1415926535
  Dim waarde As String
  Dim waarde360 As Double
  Dim waarderad As Double

  Private Function AsString() As String
  Dim temp As Double
  Dim graad As Integer
  Dim minuten As Integer
  Dim seconden As Integer
  temp = waarde360
  graad = Int(temp)
  temp = temp - graad
  minuten = Int(temp * 60)
  temp = temp - minuten / 60
  seconden = Int(temp * 3600)
  Return graad & "°" & minuten & "'" & seconden & Chr(34)
  End Function

  Public Property gr360() As Double
  Get
    Return waarde360
  End Get
  Set(ByVal Value As Double)
    waarde360 = Value Mod 360
    waarderad = waarde360 / 360 * 2 * pi
  End Set
  End Property

  Public Property rad() As Double
  Get
    Return waarderad
  End Get
  Set(ByVal Value As Double)
    waarderad = Value
    waarde360 = waarderad / (2 * pi) * 360
    waarde360 = waarde360 Mod 360
  End Set
  End Property

  Public Sub TelOp(ByVal h As hoek)
    waarderad += h.rad
    waarde360 = waarderad / (2 * pi) * 360
    waarde360 = waarde360 Mod 360
  End Sub

  Public Sub TrekAf(ByVal h As hoek)
  waarderad -= h.rad
  waarde360 = waarderad / (2 * pi) * 360
  waarde360 = waarde360 Mod 360
  End Sub

  Public ReadOnly Property sin() As Double
  Get
    Return Math.Sin(waarderad)
  End Get
  End Property

  Public ReadOnly Property cos() As Double
  Get
    Return Math.Cos(waarderad)
  End Get
  End Property

  Public ReadOnly Property tan() As Double
  Get
    Return Math.Tan(waarderad)
  End Get
  End Property

  Public ReadOnly Property cot() As Double
  Get
    Return 1 / Math.Tan(waarderad)
  End Get
  End Property

  Public ReadOnly Property gradennotatie() As String
  Get
    Return AsString()
  End Get
  End Property
  End Class

• En het programma:
  Dim h As New hoek
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRad.Click
  If Not IsNumeric(txtInput.Text) Then Exit Sub
  h.rad = CDbl(txtInput.Text)
  toon()
  End Sub
  Sub toon()
  lblDisplay.Text = h.rad & " rad " & vbCrLf & h.gr360 & " graden" & vbCrLf & h.gradennotatie & vbCrLf & "sinus = " & h.sin & vbCrLf & "cosinus = " & h.cos & vbCrLf & "tangens = " & h.tan
  End Sub

  Private Sub cmdTelBij_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTelBij.Click
  Dim h2 As New hoek
  Dim buffer As String
  Do
    buffer = InputBox("Geef een hoek in radialen")
  Loop Until IsNumeric(buffer)
  h2.rad = CDbl(buffer)
  h.TelOp(h2)
  toon()
  End Sub

  Private Sub cmdGraden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGraden.Click
  If Not IsNumeric(txtInput.Text) Then Exit Sub
  h.gr360 = CDbl(txtInput.Text)
  toon()
  End Sub

  End Class

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