Dreieck maßstabsgerecht zeichnen
- Themenstarter tischler1
- Beginndatum
J
Johannes Postler
Was erwartest du jetzt? Du kannst entweder das Dreieck kleiner oder die Picturebox größer machen...
J
Johannes Postler
Na dann dividier die Koordination der Eckpunkte deines Dreiecks alle durch 2 oder 3 oder was auch immer. Und schon hast du ein kleineres Dreieck.
J
Johannes Postler
Damit das Dreieck kleiner wird. 
Code:
xkoordinateklein = xkoordinate / 2Versteh ich nicht .
Hier mein Code
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
Dim q As Single, h As Single
Dim Links As Single, Unten As Single
With Picture1
.AutoRedraw = True
Links = 10
Unten = .ScaleHeight - 10
.Cls
End With
a = CSng(sevText1.Text)
b = CSng(sevText2.Text)
c = CSng(sevText3.Text)
q = (c ^ 2 + b ^ 2 - a ^ 2) / (2 * c)
h = (b ^ 2 - q ^ 2) ^ (1 / 2)
Picture1.Line (Links + q, Unten - h)-(Links + c, Unten)
Picture1.Line (Links + c, Unten)-(Links, Unten)
Picture1.Line (Links, Unten)-(Links + q, Unten - h)
' Picture1.Circle (Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2), 100
Picture1.CurrentX = 55
Picture1.CurrentY = 100
Picture1.Print "Mein Dreieck"
End sub
Hier mein Code
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
Dim q As Single, h As Single
Dim Links As Single, Unten As Single
With Picture1
.AutoRedraw = True
Links = 10
Unten = .ScaleHeight - 10
.Cls
End With
a = CSng(sevText1.Text)
b = CSng(sevText2.Text)
c = CSng(sevText3.Text)
q = (c ^ 2 + b ^ 2 - a ^ 2) / (2 * c)
h = (b ^ 2 - q ^ 2) ^ (1 / 2)
Picture1.Line (Links + q, Unten - h)-(Links + c, Unten)
Picture1.Line (Links + c, Unten)-(Links, Unten)
Picture1.Line (Links, Unten)-(Links + q, Unten - h)
' Picture1.Circle (Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2), 100
Picture1.CurrentX = 55
Picture1.CurrentY = 100
Picture1.Print "Mein Dreieck"
End sub
J
Johannes Postler
tischler1 hat gesagt.:
Hier malt das Programm die Linien. Wenn du eine Linie malen willst, brauchst du zwei Punkte. Jetzt schau die einmal den Befehl zum Linienmalen genauer an. Du wirst feststellen, dass du zwei Klammern hast (die zwei Punkte). Für jeden von diesen beiden Punkten hast du nun eine x- und eine y-Koordinate. Wenn du nun jeweils die Koordinaten durch 2 (oder mehr) dividierst, wird dein Dreieck nach oben links verschoben, und kleiner.
PS: Bitte benütze die Code-Funktion, wenn du Code posten willst.
J
Johannes Postler
Mit einem Punkt und einer Länge kannst du keine Strecke definieren.
Überleg mal: Ich geb dir einen Punkt und eine Länge und du zeichnest die Gerade die ich meine -> geht nicht, weil du nicht weisst wohin.
Überleg mal: Ich geb dir einen Punkt und eine Länge und du zeichnest die Gerade die ich meine -> geht nicht, weil du nicht weisst wohin.
