Private Sub Berechnung_Click()
Dim k As New Kreis
Dim r As Double
Const Pi = 3.14159265358979
 
'Radius einlesen
r = Val(Text1.Text)
k.Definiere (r)
 
'Alpha einlesen
alp = Val(Text4.Text)
 
Text2.Text = k.umfang()
Text3.Text = k.Oberfläche()
text5.Text = k.Bogen()
text6.Text = k.Sektor()
text7.Text = k.Segment()
 
End Sub

Public Sub Class_Initialize()
Const Pi = 3.14159265358979
End Sub
 
Public Sub Definiere(ByVal r As Double)
Dim rad As Double
rad = r
End Sub
 
Public Function umfang()
Const Pi = 3.14159265358979
umfang = 2 * Pi * rad
End Function
 
Public Function Oberfläche()
Const Pi = 3.14159265358979
Oberfläche = 2 * Pi * rad * rad
End Function
 
Public Function Bogen()
Const Pi = 3.14159265358979
Bogen = 2 * Pi * rad * alp / 360
End Function
 
Public Function Sektor()
Const Pi = 3.14159265358979
Bogen = Pi * rad * rad * alp / 360
End Function
 
Public Function Segment()
Const Pi = 3.14159265358979
Segment = rad * rad * 0.5 * (((Pi * alp) / 180) - Sin(alp))
End Function