Disegnare in una DrawingArea un romboide - Cronologia

Vuott il 04:31, 28 lug 2025

2025-07-28T04:31:10Z

← Versione meno recente		Versione delle 22:31, 27 lug 2025
Riga 1:		Riga 1:
	Di seguito mostreremo un possibile codice per disegnare un Romboide su una ''DrawingArea''.		Di seguito mostreremo un possibile codice per disegnare un Romboide su una ''DrawingArea''.

	~~I 4 vertici del Romboide sono stati correttamente individuati su una circonferenza ideale, alla quale detti vertici appartengono,~~
	~~<BR>E' possibile variare la dimensione del Romboide, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.~~
	Private DrawingArea1 As DrawingArea		Private DrawingArea1 As DrawingArea
	~~Private Const <FONT Color=#B22222>RAGGIO</font> As Single = 100.0~~
	~~Private Const ROMBOIDE As Byte = 4~~
	~~Private coord As Single[]~~
	~~Private pol As New Single[]~~


Riga 23:		Riga 16:


	Public Sub ~~Form_Arrange~~()		Public Sub DrawingArea1_Draw()

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

	Dim ~~gradi~~ As ~~Single[]~~ = [0.~~0, 90.0, 180.0, 270.0]~~		Dim cx As Float = DrawingArea1.W / 2
	~~For t~~ As ~~Byte~~ = ~~0 To ROMBOIDE - 1~~		Dim cy As Float = DrawingArea1.H / 2
	~~pol.Push(RAGGIO * Cos(Rad(gradi[t])))~~
	~~pol~~.~~Push(RAGGIO * Sin(Rad(gradi[t])))~~
	~~Next~~

	~~End~~		<FONT Color=gray>' ''Dimensioni del Romboide:''</font>
			Dim width As Float = DrawingArea1.W * 0.2
			Dim height As Float = DrawingArea1.H * 0.125
			<FONT Color=gray>' ''Spostamento orizzontale per inclinare il romboide:''</font>
			Dim offset As Float = width * 0.3

			Dim points As New PointF[4]

	~~Public Sub DrawingArea1_Draw~~()		<FONT Color=gray>' ''Definisce i 4 vertici del romboide senza riempimento:''</font>
			points[0] = New PointF(cx - width / 2 + offset, cy - height / 2)
			points[1] = New PointF(cx + width / 2 + offset, cy - height / 2)
			points[2] = New PointF(cx + width / 2 - offset, cy + height / 2)
			points[3] = New PointF(cx - width / 2 - offset, cy + height / 2)

	With Paint		With Paint
	.~~Arc~~(~~coord[0], coord[1], 2, Rad(0), Rad(360), False~~)		.Brush = Paint.Color(Color.Black)
	.~~Fill~~		.LineWidth = 2
	.~~Polygon~~(~~[coord~~[0] ~~+ pol[0], coord[1] + pol[1]~~, ~~coord~~[0] ~~+ pol[2], coord[~~1~~] + pol[~~3~~], coord~~[0] ~~+ pol[4] - 150~~, ~~coord~~[1] ~~+ pol~~[5], ~~coord~~[0] ~~+ pol[6], coord[1] + pol[7]]~~)		.MoveTo(points[0].X, points[0].Y)
			For i As Integer = 1 To 3
			.LineTo(points[i].X, points[i].Y)
			Next
			.LineTo(points[0].X, points[0].Y)
	.Stroke		.Stroke
	~~.End~~
	End With		End With

	End		End

Vuott il 02:59, 28 lug 2025

2025-07-28T02:59:05Z

← Versione meno recente		Versione delle 20:59, 27 lug 2025
Riga 13:		Riga 13:

	With Me		With Me
	.~~W =~~ Screen.AvailableWidth		.Move(0, 0, Screen.AvailableWidth, Screen.AvailableHeight)
	~~.H =~~ Screen.AvailableHeight
	.Arrangement = Arrange.Fill		.Arrangement = Arrange.Fill
	End With		End With

Vuott il 17:48, 27 giu 2024

2024-06-27T17:48:22Z

← Versione meno recente		Versione delle 11:48, 27 giu 2024
Riga 22:		Riga 22:

	End		End


	Public Sub Form_Arrange()		Public Sub Form_Arrange()
Riga 34:		Riga 35:

	End		End


	Public Sub DrawingArea1_Draw()		Public Sub DrawingArea1_Draw()

Vuott il 22:58, 31 mag 2023

2023-05-31T22:58:07Z

← Versione meno recente		Versione delle 16:58, 31 mag 2023
Riga 1:		Riga 1:
	Di seguito mostreremo un possibile codice per disegnare un Romboide su una ''DrawingArea''.		Di seguito mostreremo un possibile codice per disegnare un Romboide su una ''DrawingArea''.

	I 5 vertici del ~~Pentagono regolare~~ sono stati correttamente individuati su una circonferenza ideale, alla quale detti vertici appartengono,		I 4 vertici del Romboide sono stati correttamente individuati su una circonferenza ideale, alla quale detti vertici appartengono,
	<BR>E' possibile variare la dimensione del Romboide, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.		<BR>E' possibile variare la dimensione del Romboide, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.
	Private DrawingArea1 As DrawingArea		Private DrawingArea1 As DrawingArea

Vuott il 18:33, 31 mag 2023

2023-05-31T18:33:31Z

← Versione meno recente		Versione delle 12:33, 31 mag 2023
Riga 2:		Riga 2:

	I 5 vertici del Pentagono regolare sono stati correttamente individuati su una circonferenza ideale, alla quale detti vertici appartengono,		I 5 vertici del Pentagono regolare sono stati correttamente individuati su una circonferenza ideale, alla quale detti vertici appartengono,
	<BR>E' possibile variare la dimensione del ~~Pentagono~~, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.		<BR>E' possibile variare la dimensione del Romboide, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.
	Private DrawingArea1 As DrawingArea		Private DrawingArea1 As DrawingArea
	Private Const <FONT Color=#B22222>RAGGIO</font> As Single = 100.0		Private Const <FONT Color=#B22222>RAGGIO</font> As Single = 100.0

Vuott il 18:32, 31 mag 2023

2023-05-31T18:32:58Z

← Versione meno recente		Versione delle 12:32, 31 mag 2023
Riga 4:		Riga 4:
	<BR>E' possibile variare la dimensione del Pentagono, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.		<BR>E' possibile variare la dimensione del Pentagono, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.
	Private DrawingArea1 As DrawingArea		Private DrawingArea1 As DrawingArea
	Private Const RAGGIO As Single = 100.0		Private Const <FONT Color=#B22222>RAGGIO</font> As Single = 100.0
	Private Const ROMBOIDE As Byte = 4		Private Const ROMBOIDE As Byte = 4
	Private coord As Single[]		Private coord As Single[]
Riga 40:		Riga 40:
	.Arc(coord[0], coord[1], 2, Rad(0), Rad(360), False)		.Arc(coord[0], coord[1], 2, Rad(0), Rad(360), False)
	.Fill		.Fill
	.Polygon([(coord[0] + pol[0]~~) - xs~~, (coord[1] + pol[1]~~) - ys~~, (coord[0] + pol[2]~~) - xs~~, (coord[1] + pol[3]~~) - ys~~, (coord[0] + pol[4]~~) - xs~~ - 150, (coord[1] + pol[5]~~) - ys~~, (coord[0] + pol[6]~~) - xs~~, (coord[1] + pol[7]~~) - ys~~])		.Polygon([coord[0] + pol[0], coord[1] + pol[1], coord[0] + pol[2], coord[1] + pol[3], coord[0] + pol[4] - 150, coord[1] + pol[5], coord[0] + pol[6], coord[1] + pol[7]])
	.Stroke		.Stroke
	.End		.End

Vuott il 18:30, 31 mag 2023

2023-05-31T18:30:29Z

← Versione meno recente		Versione delle 12:30, 31 mag 2023
Riga 8:		Riga 8:
	Private coord As Single[]		Private coord As Single[]
	Private pol As New Single[]		Private pol As New Single[]


	Public Sub Form_Open()		Public Sub Form_Open()

Vuott: Creata pagina con "Di seguito mostreremo un possibile codice per disegnare un Romboide su una ''DrawingArea''. I 5 vertici del Pentagono regolare sono stati correttamente individuati su una cir..."

2023-05-31T18:30:13Z

Creata pagina con "Di seguito mostreremo un possibile codice per disegnare un Romboide su una ''DrawingArea''. I 5 vertici del Pentagono regolare sono stati correttamente individuati su una cir..."

Nuova pagina

Di seguito mostreremo un possibile codice per disegnare un Romboide su una ''DrawingArea''.

I 5 vertici del Pentagono regolare sono stati correttamente individuati su una circonferenza ideale, alla quale detti vertici appartengono,
<BR>E' possibile variare la dimensione del Pentagono, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.
Private DrawingArea1 As DrawingArea
Private Const RAGGIO As Single = 100.0
Private Const ROMBOIDE 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 ROMBOIDE - 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
.Polygon([(coord[0] + pol[0]) - xs, (coord[1] + pol[1]) - ys, (coord[0] + pol[2]) - xs, (coord[1] + pol[3]) - ys, (coord[0] + pol[4]) - xs - 150, (coord[1] + pol[5]) - ys, (coord[0] + pol[6]) - xs, (coord[1] + pol[7]) - ys])
.Stroke
.End
End With

End