Differenze tra le versioni di "Disegnare in una DrawingArea un rombo"

Versione delle 15:57, 31 mag 2023

Di seguito mostreremo un possibile codice per disegnare un Rombo in una DrawingArea.

I 4 vertici del Rombo sono stati correttamente individuati su una circonferenza ideale, alla quale detti vertici appartengono,
E' possibile variare la dimensione del Rombo, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.

Private DrawingArea1 As DrawingArea
Private Const RAGGIO As Single = 100.0
Private Const ROMBO As Byte = 4
Private coord As Single[]
Private pol As New Single[]


Public Sub Form_Open()

 With Me
   .W = Screen.AvailableWidth
   .H = Screen.AvailableHeight
   .Arrangement = Arrange.Fill
 End With
 With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
   .Background = Color.Lighter(Color.Yellow)
 End With

End

Public Sub Form_Arrange()

 coord = [DrawingArea1.W / 2, DrawingArea1.H / 2]

 Dim gradi As Single[] = [0.0, 90.0, 180.0, 270.0]
 For t As Byte = 0 To ROMBO - 1
   pol.Push(RAGGIO * Cos(Rad(gradi[t])))
   pol.Push(RAGGIO * Sin(Rad(gradi[t])))
 Next

End

Public Sub DrawingArea1_Draw()

 With Paint
   .Arc(coord[0], coord[1], 2, Rad(0), Rad(360), False)
   .Fill
   .Translate(coord[0], coord[1])
   .Rotate(Rad(-an))
   .Polygon([coord[0] + pol[0] - 40, coord[1] + pol[1], coord[0] + pol[2], coord[1] + pol[3], (coord[0] + pol[4]) + 40, coord[1] + pol[5], coord[0] + pol[6], coord[1] + pol[7]])
   .Stroke
   .End
 End With

End