Sub KOORDINATEN()
Dim DURCHMESSER As Integer
Dim DREHTAKT As Integer

'INNERE LINIE
Dim EckpfostenA_X 'vorne Außen
Dim EckpfostenA_Y 'vorne Außen
Dim EckpfostenI_X 'vorne Innen
Dim EckpfostenI_Y 'vorne Innen
'ÄUSSERE LINIE
Dim MittelpfostenA_X 'vorne Außen
Dim MittelpfostenA_Y 'vorne Außen
Dim MittelpfostenI_X 'vorne Innen
Dim MittelpfostenI_Y 'vorne Innen


' EINGABEABFRAGE

DURCHMESSER = InputBox("Durchmesserangabe")
FALSCH:
DREHTAKT = InputBox("Gradzahl: 120 oder 180")


' GRADZAHL FESTLEGEN
If DREHTAKT = 120 Then
    SEITENWAND = 60
Else
    If DREHTAKT = 180 Then
        SEITENWAND = 45
    Else
    GoTo FALSCH
    End If
    
End If

Pi = 4 * Atn(1)

'KOORDINATEN BERECHNEN

'(Eckpfosten)
EckpfostenA_X = Cos((SEITENWAND - Sin(27 / (DURCHMESSER / 2 + 31.5)) / Pi * 180) * Pi / 180) * (DURCHMESSER / 2 + 31.5)
EckpfostenA_Y = Sin((SEITENWAND - Sin(27 / (DURCHMESSER / 2 + 31.5)) / Pi * 180) * Pi / 180) * (DURCHMESSER / 2 + 31.5)
'(Eckpfosten)
EckpfostenI_X = Cos((SEITENWAND - Sin(27 / (DURCHMESSER / 2 + 1.5)) / Pi * 180) * Pi / 180) * (DURCHMESSER / 2 + 1.5)
EckpfostenI_Y = Sin((SEITENWAND - Sin(27 / (DURCHMESSER / 2 + 1.5)) / Pi * 180) * Pi / 180) * (DURCHMESSER / 2 + 1.5)


'(Mittelpfosten)
MittelpfostenA_X = Cos((Sin(47 / (DURCHMESSER / 2 + 31.5)) / Pi * 180) * Pi / 180) * (DURCHMESSER / 2 + 31.5)
MittelpfostenA_Y = Sin((Sin(47 / (DURCHMESSER / 2 + 31.5)) / Pi * 180) * Pi / 180) * (DURCHMESSER / 2 + 31.5)
'(Mittelpfosten)
MittelpfostenI_X = Cos((Sin(47 / (DURCHMESSER / 2 + 1.5)) / Pi * 180) * Pi / 180) * (DURCHMESSER / 2 + 1.5)
MittelpfostenI_Y = Sin((Sin(47 / (DURCHMESSER / 2 + 1.5)) / Pi * 180) * Pi / 180) * (DURCHMESSER / 2 + 1.5)


End Sub