Ruotare un rombo in una DrawingArea - Cronologia

Vuott il 00:48, 11 ago 2025

2025-08-11T00:48:24Z

← Versione meno recente		Versione delle 18:48, 10 ago 2025
Riga 1:		Riga 1:
	Di seguito mostreremo un possibile codice per ruotare un Rombo disegnato in una ''DrawingArea''.		Di seguito mostreremo un possibile codice per ruotare un Rombo disegnato in una ''DrawingArea''.
	Private DrawingArea1 As DrawingArea		Private DrawingArea1 As DrawingArea
	Private Tmr As Timer		Private Tmr As Timer
	Private Const ScalaRaggio As Float = 0.2 <FONT Color=gray>' ''Scala del raggio (dimensione del Rombo)''</font>		Private Const ScalaRaggio As Float = 0.2 <FONT Color=gray>' ''Scala del raggio (dimensione del Rombo)''</font>

Vuott il 04:11, 28 lug 2025

2025-07-28T04:11:21Z

← Versione meno recente		Versione delle 22:11, 27 lug 2025
Riga 1:		Riga 1:
	Di seguito mostreremo un possibile codice per ruotare un Rombo disegnato in una ''DrawingArea''.		Di seguito mostreremo un possibile codice per ruotare un Rombo disegnato in una ''DrawingArea''.
			Private DrawingArea1 As DrawingArea
	~~E' possibile variare la dimensione del Rombo, modificando il raggio della circonferenza, sulla quale i suoi 4 vertici insistono.~~		Private Tmr As Timer
	~~<BR>Il fulcro del Metodo ".Translate()" agisce da vortice, ossia da centro di rotazione intorno a una ipotetica circonferenza.~~		Private Const ScalaRaggio As Float = 0.2 <FONT Color=gray>' ''Scala del raggio (dimensione del Rombo)''</font>
	~~<BR>La rotazione del Rombo si avvia semplicemente cliccando con il tasto sinistro del mouse sulla superficie della ''~~DrawingArea~~''.~~		Private Rotazione As Float <FONT Color=gray>' ''Angolo di rotazione in radianti''</font>
	Private ~~DrawingArea1~~ As ~~DrawingArea~~
	Private Const <FONT Color=~~#B22222~~>~~RAGGIO~~</font> ~~As Single = 100.0~~
	Private ~~Const ROMBO~~ As ~~Byte = 4~~
	~~Private ANGOLO As Single = 0.8~~
	~~Private an As Single~~
	~~Private xs As Single~~
	~~Private ys As Single~~
	~~Private coord As Single[]~~
	~~Private pol As New Single[]~~
	~~Private c As Integer[] = [Color.Blue, Color.Green, Color.Yellow,~~ Color~~.Red]~~
	~~Private f As Float[]~~ = ~~[0, 0.34, 0.67, 1]~~


Riga 20:		Riga 9:

	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

	With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"		With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
	.Background = Color.Lighter(Color.Yellow)		.Background = Color.Lighter(Color.Yellow)
	End With		End With

			Tmr = New Timer As "Tmr"
			Tmr.Delay = 30 <FONT Color=gray>' ''circa 33 FPS''</font>
			Tmr.Start()

	End		End


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

	~~coord~~ = [DrawingArea1.W / 2, DrawingArea1.H / 2]		Dim cx As Float = DrawingArea1.W / 2
			Dim cy As Float = DrawingArea1.H / 2
			Dim w As Float = DrawingArea1.W * 0.4
			Dim h As Float = DrawingArea1.H * 0.3
			Dim r As Float = 5

	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~~		Dim i As Integer
	~~pol.Push(RAGGIO * Cos(Rad(gradi[t])))~~
	~~pol.Push(RAGGIO * Sin(Rad(gradi[t])))~~
	~~Next~~

	~~<FONT Color~~=~~gray>' ''Il risultato di~~ (~~(25 * RAGGIO)~~ / ~~100~~) ~~aggiusta in orizzontale il punto di rotazione del Rombo:''</font>~~		Dim basePoints As New PointF[4]
	xs = (~~coord[0] + coord[0] + pol[~~2~~] + coord[~~0~~] + Abs(pol[4]~~) ~~+ coord~~[0] ~~- Abs(pol[6])) / ROMBO - <FONT Color~~=~~darkorange>~~(~~(25 * RAGGIO)~~ / ~~100~~)~~</font>~~		basePoints[0] = New PointF(0, -h / 2)
	~~ys = (coord[1] + coord[1] + pol~~[3] ~~+ coord[1] + pol[5] + coord[1] + pol[7]~~) ~~/ ROMBO~~		basePoints[1] = New PointF(w / 2, 0)
			basePoints[2] = New PointF(0, h / 2)
			basePoints[3] = New PointF(-w / 2, 0)

	~~End~~		For i = 0 To 3
			Dim xRot As Float = basePoints[i].X * Cos(Rotazione) - basePoints[i].Y * Sin(Rotazione)
			Dim yRot As Float = basePoints[i].X * Sin(Rotazione) + basePoints[i].Y * Cos(Rotazione)
			points[i] = New PointF(cx + xRot, cy + yRot)
			Next

			With Paint
			<FONT Color=gray>' ''Disegna il rombo:''</font>
			.Brush = Paint.Color(Color.Black)
			.LineWidth = 2

	~~Public Sub DrawingArea1_MouseUp~~()		.MoveTo(points[0].X, points[0].Y)
			For i = 1 To 3
			.LineTo(points[i].X, points[i].Y)
			Next
			.LineTo(points[0].X, points[0].Y)
			.Stroke

	~~While Object.IsValid(DrawingArea1)~~		<FONT Color=gray>' ''Disegna il punto nero al centro:''</font>
	~~an +~~= ~~ANGOLO~~		.Ellipse(cx - r, cy - r, 2 * r, 2 * r)
	~~DrawingArea1.Refresh~~		.Fill
	~~Wait 0.01~~
	~~Wend~~

	~~End~~


	~~Public Sub DrawingArea1_Draw()~~

	~~With Paint~~
	~~.Arc(coord[0], coord[1], 2, Rad(0), Rad(360), False)~~
	.~~Fill~~
	~~.Brush = .LinearGradient~~(~~0, 20, 15, 0, c, f)~~
	~~.Translate(coord[0], coord[1])~~
	~~.Rotate(Rad(-an))~~
	~~.Polygon([((coord[0] + pol[0])~~ - ~~xs) - 50~~, ~~(coord[1] + pol[1])~~ - ys, ~~(coord[0] + pol[~~2~~]) - xs~~, ~~(coord[1] + pol[3]) - ys, ((coord[0] + pol[4]) - xs) + 50, (coord[1] + pol[5]) - ys, (coord[0] + pol[6]) - xs, (coord[1] + pol[7]) - ys]~~)
	.~~Stroke~~
	~~.End~~
	End With		End With

	End		End

Vuott il 22:36, 5 apr 2025

2025-04-05T22:36:09Z

← Versione meno recente		Versione delle 16:36, 5 apr 2025
Riga 2:		Riga 2:

	E' possibile variare la dimensione del Rombo, modificando il raggio della circonferenza, sulla quale i suoi 4 vertici insistono.		E' possibile variare la dimensione del Rombo, modificando il raggio della circonferenza, sulla quale i suoi 4 vertici insistono.
	~~La rotazione del Rombo si avvia semplicemente cliccando con il tasto sinistro del mouse sulla superficie della ''DrawingArea''.~~		<BR>Il fulcro del Metodo ".Translate()" agisce da vortice, ossia da centro di rotazione intorno a una ipotetica circonferenza.
	Il fulcro del Metodo ".Translate()" agisce da vortice, ossia da centro di rotazione intorno a una ipotetica circonferenza.		<BR>La rotazione del Rombo si avvia semplicemente cliccando con il tasto sinistro del mouse sulla superficie della ''DrawingArea''.
	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 20:40, 27 giu 2024

2024-06-27T20:40:30Z

← Versione meno recente		Versione delle 14:40, 27 giu 2024
Riga 29:		Riga 29:

	End		End


	Public Sub Form_Arrange()		Public Sub Form_Arrange()
Riga 45:		Riga 46:

	End		End


	Public Sub DrawingArea1_MouseUp()		Public Sub DrawingArea1_MouseUp()
Riga 55:		Riga 57:

	End		End


	Public Sub DrawingArea1_Draw()		Public Sub DrawingArea1_Draw()

Vuott il 15:08, 15 giu 2023

2023-06-15T15:08:20Z

← Versione meno recente		Versione delle 09:08, 15 giu 2023
Riga 13:		Riga 13:
	Private coord As Single[]		Private coord As Single[]
	Private pol As New Single[]		Private pol As New Single[]
			Private c As Integer[] = [Color.Blue, Color.Green, Color.Yellow, Color.Red]
			Private f As Float[] = [0, 0.34, 0.67, 1]


Riga 59:		Riga 61:
	.Arc(coord[0], coord[1], 2, Rad(0), Rad(360), False)		.Arc(coord[0], coord[1], 2, Rad(0), Rad(360), False)
	.Fill		.Fill
			.Brush = .LinearGradient(0, 20, 15, 0, c, f)
	.Translate(coord[0], coord[1])		.Translate(coord[0], coord[1])
	.Rotate(Rad(-an))		.Rotate(Rad(-an))

Vuott il 23:18, 31 mag 2023

2023-05-31T23:18:33Z

← Versione meno recente		Versione delle 17:18, 31 mag 2023
Riga 38:		Riga 38:
	Next		Next

	xs = (coord[0] + coord[0] + pol[2] + coord[0] + Abs(pol[4]) + coord[0] - Abs(pol[6])) / ROMBO - ((25 * RAGGIO) / 100)		<FONT Color=gray>' ''Il risultato di ((25 * RAGGIO) / 100) aggiusta in orizzontale il punto di rotazione del Rombo:''</font>
			xs = (coord[0] + coord[0] + pol[2] + coord[0] + Abs(pol[4]) + coord[0] - Abs(pol[6])) / ROMBO - <FONT Color=darkorange>((25 * RAGGIO) / 100)</font>
	ys = (coord[1] + coord[1] + pol[3] + coord[1] + pol[5] + coord[1] + pol[7]) / ROMBO		ys = (coord[1] + coord[1] + pol[3] + coord[1] + pol[5] + coord[1] + pol[7]) / ROMBO

Vuott il 23:08, 31 mag 2023

2023-05-31T23:08:01Z

← Versione meno recente		Versione delle 17:08, 31 mag 2023
Riga 39:		Riga 39:

	xs = (coord[0] + coord[0] + pol[2] + coord[0] + Abs(pol[4]) + coord[0] - Abs(pol[6])) / ROMBO - ((25 * RAGGIO) / 100)		xs = (coord[0] + coord[0] + pol[2] + coord[0] + Abs(pol[4]) + coord[0] - Abs(pol[6])) / ROMBO - ((25 * RAGGIO) / 100)
	ys = (coord[1] + coord[1] + pol[3] + coord[1] + pol[5] + coord[1] + pol[7]) / ROMBO ~~- ((50 * RAGGIO) / 100)~~		ys = (coord[1] + coord[1] + pol[3] + coord[1] + pol[5] + coord[1] + pol[7]) / ROMBO

	End		End
Riga 60:		Riga 60:
	.Translate(coord[0], coord[1])		.Translate(coord[0], coord[1])
	.Rotate(Rad(-an))		.Rotate(Rad(-an))
	.Polygon([((coord[0] + pol[0]) - xs) - 40, (coord[1] + pol[1]) - ys, (coord[0] + pol[2]) - xs, (coord[1] + pol[3]) - ys, ((coord[0] + pol[4]) - xs) + 40, (coord[1] + pol[5]) - ys, (coord[0] + pol[6]) - xs, (coord[1] + pol[7]) - ys])		.Polygon([((coord[0] + pol[0]) - xs) - 50, (coord[1] + pol[1]) - ys, (coord[0] + pol[2]) - xs, (coord[1] + pol[3]) - ys, ((coord[0] + pol[4]) - xs) + 50, (coord[1] + pol[5]) - ys, (coord[0] + pol[6]) - xs, (coord[1] + pol[7]) - ys])
	.Stroke		.Stroke
	.End		.End

Vuott il 23:03, 31 mag 2023

2023-05-31T23:03:25Z

← Versione meno recente		Versione delle 17:03, 31 mag 2023
Riga 5:		Riga 5:
	Il fulcro del Metodo ".Translate()" agisce da vortice, ossia da centro di rotazione intorno a una ipotetica circonferenza.		Il fulcro del Metodo ".Translate()" agisce da vortice, ossia da centro di rotazione intorno a una ipotetica circonferenza.
	Private DrawingArea1 As DrawingArea		Private DrawingArea1 As DrawingArea
	Private Const <FONT Color=#B22222>RAGGIO</font> As Single = 40.0		Private Const <FONT Color=#B22222>RAGGIO</font> As Single = 100.0
	Private Const ROMBO As Byte = 4		Private Const ROMBO As Byte = 4
	Private ANGOLO As Single = 0.8		Private ANGOLO As Single = 0.8

Vuott il 22:59, 31 mag 2023

2023-05-31T22:59:20Z

← Versione meno recente		Versione delle 16:59, 31 mag 2023
Riga 1:		Riga 1:
	Di seguito mostreremo un possibile codice per ruotare un Rombo disegnato in una ''DrawingArea''.		Di seguito mostreremo un possibile codice per ruotare un Rombo disegnato in una ''DrawingArea''.

	E' possibile variare la dimensione del Rombo, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.		E' possibile variare la dimensione del Rombo, modificando il raggio della circonferenza, sulla quale i suoi 4 vertici insistono.
	La rotazione del ~~pentagono~~ si avvia semplicemente cliccando con il tasto sinistro del mouse sulla superficie della ''DrawingArea''.		La rotazione del Rombo si avvia semplicemente cliccando con il tasto sinistro del mouse sulla superficie della ''DrawingArea''.
	Il fulcro del Metodo ".Translate()" agisce da vortice, ossia da centro di rotazione intorno a una ipotetica circonferenza.		Il fulcro del Metodo ".Translate()" agisce da vortice, ossia da centro di rotazione intorno a una ipotetica circonferenza.
	Private DrawingArea1 As DrawingArea		Private DrawingArea1 As DrawingArea
Riga 60:		Riga 60:
	.Translate(coord[0], coord[1])		.Translate(coord[0], coord[1])
	.Rotate(Rad(-an))		.Rotate(Rad(-an))
	.Polygon([((coord[0] + pol[0]) - xs) - 40, (coord[1] + pol[1]) - ys ~~- 0~~, (coord[0] + pol[2]) - xs, (coord[1] + pol[3]) - ys, ((coord[0] + pol[4]) - xs) + 40, (coord[1] + pol[5]) - ys ~~+ 0~~, (coord[0] + pol[6]) - xs, (coord[1] + pol[7]) - ys])		.Polygon([((coord[0] + pol[0]) - xs) - 40, (coord[1] + pol[1]) - ys, (coord[0] + pol[2]) - xs, (coord[1] + pol[3]) - ys, ((coord[0] + pol[4]) - xs) + 40, (coord[1] + pol[5]) - ys, (coord[0] + pol[6]) - xs, (coord[1] + pol[7]) - ys])
	.Stroke		.Stroke
	.End		.End

Vuott: Creata pagina con "Di seguito mostreremo un possibile codice per ruotare un Rombo disegnato in una ''DrawingArea''. E' possibile variare la dimensione del Rombo, modificando il raggio della cir..."

2023-05-31T18:21:36Z

Creata pagina con "Di seguito mostreremo un possibile codice per ruotare un Rombo disegnato in una ''DrawingArea''. E' possibile variare la dimensione del Rombo, modificando il raggio della cir..."

Nuova pagina

Di seguito mostreremo un possibile codice per ruotare un Rombo disegnato in una ''DrawingArea''.

E' possibile variare la dimensione del Rombo, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.
La rotazione del pentagono si avvia semplicemente cliccando con il tasto sinistro del mouse sulla superficie della ''DrawingArea''.
Il fulcro del Metodo ".Translate()" agisce da vortice, ossia da centro di rotazione intorno a una ipotetica circonferenza.
Private DrawingArea1 As DrawingArea
Private Const <FONT Color=#B22222>RAGGIO</font> As Single = 40.0
Private Const ROMBO As Byte = 4
Private ANGOLO As Single = 0.8
Private an As Single
Private xs As Single
Private ys As Single
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

xs = (coord[0] + coord[0] + pol[2] + coord[0] + Abs(pol[4]) + coord[0] - Abs(pol[6])) / ROMBO - ((25 * RAGGIO) / 100)
ys = (coord[1] + coord[1] + pol[3] + coord[1] + pol[5] + coord[1] + pol[7]) / ROMBO - ((50 * RAGGIO) / 100)

End

Public Sub DrawingArea1_MouseUp()

While Object.IsValid(DrawingArea1)
an += ANGOLO
DrawingArea1.Refresh
Wait 0.01
Wend

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]) - xs) - 40, (coord[1] + pol[1]) - ys - 0, (coord[0] + pol[2]) - xs, (coord[1] + pol[3]) - ys, ((coord[0] + pol[4]) - xs) + 40, (coord[1] + pol[5]) - ys + 0, (coord[0] + pol[6]) - xs, (coord[1] + pol[7]) - ys])
.Stroke
.End
End With

End