Ruotare un romboide in una DrawingArea - Cronologia

Vuott il 04:40, 28 lug 2025

2025-07-28T04:40:07Z

← Versione meno recente		Versione delle 22:40, 27 lug 2025
Riga 1:		Riga 1:
	Di seguito mostreremo un possibile codice per ruotare un Romboide disegnato in una ''DrawingArea''.		Di seguito mostreremo un possibile codice per ruotare un Romboide disegnato in una ''DrawingArea''.

	~~E' possibile variare la dimensione del Romboide, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.~~
	~~<BR>Il fulcro del Metodo ".Translate()" agisce da vortice, ossia da centro di rotazione intorno a una ipotetica circonferenza.~~
	~~<BR>La rotazione del pentagono si avvia semplicemente cliccando con il tasto sinistro del mouse sulla superficie della ''DrawingArea''.~~
	Private DrawingArea1 As DrawingArea		Private DrawingArea1 As DrawingArea
	Private ~~Const ROMBOIDE~~ As ~~Byte = 4~~		Private Timer1 As Timer
	Private ~~Const <FONT Color=#B22222>RAGGIO</font>~~ As ~~Single~~ = ~~40.~~0		Private rotationAngle As Float = 0 ' angolo in radianti
	~~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 8:

	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

			Timer1 = New Timer As "Timer1"
			Timer1.Delay = 30 ' circa 33 FPS
			Timer1.Start()

	End		End


	Public Sub ~~Form_Arrange~~()		Public Sub Timer1_Timer()

			rotationAngle += Rad(1.5) <FONT Color=gray>' ''Rotazione di 1.5° per frame''</font>
			If rotationAngle >= 2 * Pi Then
			rotationAngle -= 2 * Pi
			End If
			DrawingArea1.Refresh()

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

	~~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~~

	~~<FONT Color=gray>' ''Il valore 10 aggiusta in orizzontale il punto di rotazione del Romboide:''</font>~~		Public Sub DrawingArea1_Draw()
	~~xs =~~ (~~coord[0] + coord[0] + pol[2] + coord[0] + Abs(pol[4]) + coord[0] - Abs(pol[6])) / ROMBOIDE - <FONT Color=darkorange>10</font>~~
	~~ys = (coord[1] + coord[1] + pol[3] + coord[1] + pol[5] + coord[1] + pol[7]~~) ~~/ ROMBOIDE~~

	~~End~~		Dim cx As Float = DrawingArea1.W / 2
			Dim cy As Float = DrawingArea1.H / 2
			<FONT Color=gray>' ''Dimensione del Romboide:''</font>
			Dim width As Float = DrawingArea1.W * 0.2
			Dim height As Float = DrawingArea1.H * 0.125

			Dim offset As Float = width * 0.3

	~~Public Sub DrawingArea1_MouseUp()~~		Dim points As New PointF[4]
			Dim i As Integer

	~~While Object.IsValid~~(~~DrawingArea1~~)		<FONT Color=gray>' ''Definisce i 4 vertici del romboide attorno a (0,0)''</font>
	an += ~~ANGOLO~~		points[0] = New PointF(-width / 2 + offset, -height / 2)
	~~DrawingArea1.Refresh~~		points[1] = New PointF(width / 2 + offset, -height / 2)
	~~Wait 0.01~~		points[2] = New PointF(width / 2 - offset, height / 2)
	~~Wend~~		points[3] = New PointF(-width / 2 - offset, height / 2)

	~~End~~		<FONT Color=gray>' ''Ruota i punti attorno al centro (0,0)''</font>
			For i = 0 To 3
			Dim xOld As Float = points[i].X
			Dim yOld As Float = points[i].Y

			points[i].X = xOld * Cos(rotationAngle) - yOld * Sin(rotationAngle)
			points[i].Y = xOld * Sin(rotationAngle) + yOld * Cos(rotationAngle)

	~~Public Sub DrawingArea1_Draw()~~		<FONT Color=gray>' ''Trasla i punti per centrarli nella DrawingArea''</font>
			points[i].X += cx
			points[i].Y += cy
			Next

	With Paint		With Paint
	.~~Arc~~(~~coord~~[0], ~~coord~~[1], 2, Rad(0), Rad(360), False)		.Brush = Paint.Color(Color.Black)
			.LineWidth = 2

			<FONT Color=gray>' ''Disegna il romboide''</font>
			.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

			<FONT Color=gray>' ''Disegna il punto al centro del romboide (centro della DrawingArea)''</font>
			.Arc(cx, cy, 5, Rad(0), Rad(360), False)
	.Fill		.Fill
	~~.Brush = .LinearGradient(0, 20, 15, 0, c, f)~~
	~~.Translate(coord[0], coord[1])~~
	~~.Rotate(Rad(-an))~~
	.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 With

	End		End

Vuott il 22:36, 5 apr 2025

2025-04-05T22:36:45Z

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

	E' possibile variare la dimensione del Romboide, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.		E' possibile variare la dimensione del Romboide, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.
			<BR>Il fulcro del Metodo ".Translate()" agisce da vortice, ossia da centro di rotazione intorno a una ipotetica circonferenza.
	<BR>La rotazione del pentagono si avvia semplicemente cliccando con il tasto sinistro del mouse sulla superficie della ''DrawingArea''.		<BR>La rotazione del pentagono 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.~~
	Private DrawingArea1 As DrawingArea		Private DrawingArea1 As DrawingArea
	Private Const ROMBOIDE As Byte = 4		Private Const ROMBOIDE As Byte = 4

Vuott il 14:34, 5 apr 2025

2025-04-05T14:34:25Z

← Versione meno recente		Versione delle 08:34, 5 apr 2025
Riga 2:		Riga 2:

	E' possibile variare la dimensione del Romboide, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.		E' possibile variare la dimensione del Romboide, 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''.		<BR>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.		<BR>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 ROMBOIDE As Byte = 4		Private Const ROMBOIDE As Byte = 4

Vuott il 20:41, 27 giu 2024

2024-06-27T20:41:10Z

← Versione meno recente		Versione delle 14:41, 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 18:06, 23 ott 2023

2023-10-23T18:06:59Z

← Versione meno recente		Versione delle 12:06, 23 ott 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 ROMBOIDE As Byte = 4
	Private Const <FONT Color=#B22222>RAGGIO</font> As Single = 40.0		Private Const <FONT Color=#B22222>RAGGIO</font> As Single = 40.0
	~~Private Const ROMBOIDE As Byte = 4~~
	Private ANGOLO As Single = 0.8		Private ANGOLO As Single = 0.8
	Private an As Single		Private an As Single

Vuott il 15:12, 15 giu 2023

2023-06-15T15:12:58Z

← Versione meno recente		Versione delle 09:12, 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:16, 31 mag 2023

2023-05-31T23:16:33Z

← Versione meno recente		Versione delle 17:16, 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])) / ROMBOIDE		<FONT Color=gray>' ''Il valore 10 aggiusta in orizzontale il punto di rotazione del Romboide:''</font>
			xs = (coord[0] + coord[0] + pol[2] + coord[0] + Abs(pol[4]) + coord[0] - Abs(pol[6])) / ROMBOIDE - <FONT Color=darkorange>10</font>
	ys = (coord[1] + coord[1] + pol[3] + coord[1] + pol[5] + coord[1] + pol[7]) / ROMBOIDE		ys = (coord[1] + coord[1] + pol[3] + coord[1] + pol[5] + coord[1] + pol[7]) / ROMBOIDE

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

2023-05-31T17:39:37Z

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

Nuova pagina

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

E' possibile variare la dimensione del Romboide, 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 ROMBOIDE 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 ROMBOIDE - 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])) / ROMBOIDE
ys = (coord[1] + coord[1] + pol[3] + coord[1] + pol[5] + coord[1] + pol[7]) / ROMBOIDE

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, (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