Hallo,
ich hänge gerade an einer Einsendeaufgabe zum Fernstudium.
Die Aufgabe lautet: Erstellen Sie ein Programm, mit dem dieses Dreieck (siehe Screenshot) gezeichnet werden kann. Mit dem Mauszeiger kann die Ecke B beliebig innerhalb des Formuars bewegt werden. A liegt in der Formularmitte. Die Bezeichnungen der Seiten a,b,c sind jeweils in der Höhe der Seitenmitte angezeigt.
Ich bin soweit, das das Dreieck gezeichnet wird und die Ecken A,B,C beschriftet sind. Nun hänge ich aber seit Stunden an der Beschriftung der Katheden, also der Seiten selbst und komme nicht weiter. Kann mir bitte jemand erklären (bitte keinen fertigen Code) wie ich da vorgehen muss? Ich raffs einfach nicht.
hier der entsprechnde Code, der das Dreieck zeichnet und die Ecken beschriftet.
anbei noch ein Bildle vom Dreieck.
Ich Danke Euch
Grüße
Micha
ich hänge gerade an einer Einsendeaufgabe zum Fernstudium.
Die Aufgabe lautet: Erstellen Sie ein Programm, mit dem dieses Dreieck (siehe Screenshot) gezeichnet werden kann. Mit dem Mauszeiger kann die Ecke B beliebig innerhalb des Formuars bewegt werden. A liegt in der Formularmitte. Die Bezeichnungen der Seiten a,b,c sind jeweils in der Höhe der Seitenmitte angezeigt.
Ich bin soweit, das das Dreieck gezeichnet wird und die Ecken A,B,C beschriftet sind. Nun hänge ich aber seit Stunden an der Beschriftung der Katheden, also der Seiten selbst und komme nicht weiter. Kann mir bitte jemand erklären (bitte keinen fertigen Code) wie ich da vorgehen muss? Ich raffs einfach nicht.
hier der entsprechnde Code, der das Dreieck zeichnet und die Ecken beschriftet.
VB.NET-Quellcode
- Public Class Form1
- Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
- Dim g As Graphics = CreateGraphics()
- Dim ptMitte As New PointF(CSng(ClientSize.Width / 2), CSng(ClientSize.Height / 2))
- Dim ptMaus As New PointF(e.X, e.Y)
- Dim ptKoord As New PointF(ptMaus.X - ptMitte.X, ptMitte.Y - ptMaus.Y)
- Dim pPen As New Pen(Color.Red)
- Dim bBrush As New SolidBrush(Color.Green)
- Dim fFont As New Font("Arial", 10.0)
- Dim gegenKathede As New PointF(ptMaus.X, ptMitte.Y)
- Dim anKathede As New PointF(gegenKathede.X, ptMitte.Y)
- Dim sAB As New Size(-15, -10)
- Dim sC As New Size(-10, 0)
- Dim sAnkathede As New Size(-10, CInt(anKathede.X / 2 + anKathede.Y / 2))
- 'Bildschirm löschen
- Refresh()
- 'Dreieck zeichnen
- g.DrawLine(pPen, ptMitte, ptMaus)
- g.DrawLine(pPen, ptMaus, gegenKathede)
- g.DrawLine(pPen, ptMitte, anKathede)
- 'Dreieck beschriften
- g.DrawString("A", fFont, bBrush, PointF.Add(ptMitte, sAB))
- g.DrawString("B", fFont, bBrush, PointF.Add(ptMaus, sAB))
- g.DrawString("C", fFont, bBrush, PointF.Add(anKathede, sC))
- g.DrawString("b", fFont, bBrush, PointF.Add(gegenKathede, sAnkathede))
- End Sub
- End Class
anbei noch ein Bildle vom Dreieck.
Ich Danke Euch
Grüße
Micha
"Hier könnte Ihre Werbung stehen..."