Disegnare in una DrawingArea un rombo - Cronologia

Vuott il 04:27, 28 lug 2025

2025-07-28T04:27:47Z

← Versione meno recente		Versione delle 22:27, 27 lug 2025
Riga 1:		Riga 1:
	Di seguito mostreremo un possibile codice per disegnare un Rombo in una ''DrawingArea''.		Di seguito mostreremo un possibile codice per disegnare un Rombo in una ''DrawingArea''.
	Private DrawingArea1 As DrawingArea		Private DrawingArea1 As DrawingArea

Vuott il 04:02, 28 lug 2025

2025-07-28T04:02:54Z

← Versione meno recente		Versione delle 22:02, 27 lug 2025
Riga 1:		Riga 1:
	Di seguito mostreremo un possibile codice per disegnare un Rombo in una ''DrawingArea''.		Di seguito mostreremo un possibile codice per disegnare un Rombo in una ''DrawingArea''.
			Private DrawingArea1 As DrawingArea
	~~I 4 vertici del Rombo sono stati correttamente individuati su una circonferenza ideale, alla quale detti vertici appartengono,~~
	~~<BR>E' possibile variare la dimensione del Rombo, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.~~
	Private DrawingArea1 As DrawingArea
	~~Private Const <FONT Color=#B22222>RAGGIO</font> As Single = 100.0~~
	~~Private Const ROMBO 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 cx As Float = DrawingArea1.W / 2 <FONT Color=gray>' ''Centro X''</font>
			Dim cy As Float = DrawingArea1.H / 2 <FONT Color=gray>' ''Centro Y''</font>
			Dim width As Float = DrawingArea1.W * 0.4 <FONT Color=gray>' ''Larghezza del rombo''</font>
			Dim height As Float = DrawingArea1.H * 0.3 <FONT Color=gray>' ''Altezza del rombo''</font>
			Dim puntoRaggio As Float = 5 <FONT Color=gray>' ''Raggio del punto centrale''</font>

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

	~~End~~		points[0] = New PointF(cx, cy - height / 2) <FONT Color=gray>' ''Vertice superiore''</font>
			points[1] = New PointF(cx + width / 2, cy) <FONT Color=gray>' ''Vertice destro''</font>
			points[2] = New PointF(cx, cy + height / 2) <FONT Color=gray>' ''Vertice inferiore''</font>
			points[3] = New PointF(cx - width / 2, cy) <FONT Color=gray>' ''Vertice sinistro''</font>

			With Paint
			.Brush = Paint.Color(Color.Black)
			.LineWidth = 2

	~~Public Sub DrawingArea1_Draw~~()		<FONT Color=gray>' ''Disegna il rombo:''</font>
			.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

	~~With~~ Paint		<FONT Color=gray>' ''Disegna il punto nero al centro:''</font>
	.~~Arc~~(~~coord[0]~~, ~~coord[1]~~, 2, ~~Rad(0), Rad(360), False~~)		.Brush = Paint.Color(Color.Black)
			.Ellipse(cx - puntoRaggio, cy - puntoRaggio, puntoRaggio * 2, puntoRaggio * 2)
	.Fill		.Fill
	~~.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 With

	End		End

Vuott il 03:00, 28 lug 2025

2025-07-28T03:00:10Z

← Versione meno recente		Versione delle 21:00, 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:47, 27 giu 2024

2024-06-27T17:47:55Z

← Versione meno recente		Versione delle 11:47, 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 23:01, 31 mag 2023

2023-05-31T23:01:21Z

← Versione meno recente		Versione delle 17:01, 31 mag 2023
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
	~~.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]])		.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		.Stroke

Vuott il 23:00, 31 mag 2023

2023-05-31T23:00:12Z

← Versione meno recente		Versione delle 17:00, 31 mag 2023
Riga 42:		Riga 42:
	.Translate(coord[0], coord[1])		.Translate(coord[0], coord[1])
	.Rotate(Rad(-an))		.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]])		.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		.Stroke
	.End		.End

Vuott: Creata pagina con "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 ideal..."

2023-05-31T22:57:22Z

Creata pagina con "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 ideal..."

Nuova pagina

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,
<BR>E' possibile variare la dimensione del Rombo, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.
Private DrawingArea1 As DrawingArea
Private Const <FONT Color=#B22222>RAGGIO</font> 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