Ruotare un esagono in una DrawingArea - Cronologia

Vuott il 03:41, 28 lug 2025

2025-07-28T03:41:22Z

← Versione meno recente		Versione delle 21:41, 27 lug 2025
Riga 1:		Riga 1:
	Di seguito mostreremo un possibile codice per ruotare un Esagono regolare disegnato in una ''DrawingArea''. <SUP>[[[#Note\|Nota 1]]]</sup>		Di seguito mostreremo un possibile codice per ruotare un Esagono regolare disegnato in una ''DrawingArea''. <SUP>[[[#Note\|Nota 1]]]</sup>

	I 6 vertici dell'Esagono regolare sono stati correttamente individuati sulla circonferenza ideale, alla quale detti vertici appartengono, dividendo l'angolo di 360° per il numero dei vertici dell'Esagono (360° / 6 = 60°). Ciascun vertice si troverà sulla circonferenza ogni 60 gradi.
	~~<BR>E' possibile variare la dimensione del Esagono, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.~~
	~~<BR>La rotazione dell'Esagono 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 <FONT Color=~~#B22222~~>~~RAGGIO~~</font> ~~As Single = 100.0~~		Private Tmr As Timer
	Private ~~Const ESAGONO~~ As ~~Byte = 6~~		Private Const ScalaRaggio As Float = 0.2 <FONT Color=gray>' ''Scala del raggio (dimensione dell'esagono)''</font>
	~~Private ANGOLO As Single = 0.8~~		Private Rotazione As Float <FONT Color=gray>' ''Angolo di rotazione in radianti''</font>
	~~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 21:		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 Tmr_Timer()

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

	~~For t As Short = 0 To 360 Step (360 / ESAGONO)~~
	~~pol.Push(RAGGIO * Cos(Rad(t)))~~
	~~pol.Push(RAGGIO * Sin(Rad(t)))~~
	~~Next~~

	xs = (~~coord[0] + coord[0] + pol[2] + coord[0] + Abs(pol[4]) + coord[0] - Abs(pol[6]) + coord[0] - pol[8] + coord[0] - pol[10]~~) / ~~ESAGONO~~		Rotazione += Rad(1.5) <FONT Color=gray>' ''Rotazione di 1.5° per frame''</font>
	ys = (~~coord[1] + coord[1] + pol[3] + coord[1] + pol[5] + coord[1] + pol[7] + coord[1] + pol[9] + coord[1] + pol[11]~~) ~~/ ESAGONO~~		If Rotazione >= 2 * Pi Then
			Rotazione -= 2 * Pi
			End If
			DrawingArea1.Refresh()

	End		End


	Public Sub ~~DrawingArea1_MouseUp~~()		Public Sub DrawingArea1_Draw()

	~~While Object~~.~~IsValid~~(DrawingArea1)		Dim cx As Float = DrawingArea1.W / 2
	~~an +~~= ~~ANGOLO~~		Dim cy As Float = DrawingArea1.H / 2
	~~DrawingArea1.Refresh~~		Dim r As Float = Min(DrawingArea1.W, DrawingArea1.H) * ScalaRaggio
	~~Wait 0.01~~		Dim numSides As Integer = 6
	~~Wend~~		Dim angleStep As Float = 2 * Pi / numSides
			Dim points As New PointF[numSides]
			Dim i As Integer

	~~End~~		For i = 0 To numSides - 1
			Dim angle As Float = angleStep * i - Pi / 2 + Rotazione
			points[i] = New PointF(cx + r * Cos(angle), cy + r * Sin(angle))
			Next

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

	~~Public Sub DrawingArea1_Draw~~()		.MoveTo(points[0].X, points[0].Y)
			For i = 1 To numSides - 1
			.LineTo(points[i].X, points[i].Y)
			Next
			.LineTo(points[0].X, points[0].Y)

	~~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])~~
	~~<FONT Color=gray>' ''Un valore negativo dell'argomento della funzione "Rad()", farà ruotare l'Esagono in senso orario:''</font>~~
	~~.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, (coord[1] + pol[5]) - ys, (coord[0] + pol[6]) - xs, (coord[1] + pol[7]) - ys, (coord[0] + pol[8]) - xs, (coord[1] + pol[9]) - ys, (coord[0] + pol[10]) - xs, (coord[1] + pol[11]) - ys])
	.Stroke		.Stroke
	~~.End~~
	End With		End With

	End		End

Vuott il 20:38, 27 giu 2024

2024-06-27T20:38:43Z

← Versione meno recente		Versione delle 14:38, 27 giu 2024
Riga 30:		Riga 30:

	End		End


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

	End		End


	Public Sub DrawingArea1_MouseUp()		Public Sub DrawingArea1_MouseUp()
Riga 54:		Riga 56:

	End		End


	Public Sub DrawingArea1_Draw()		Public Sub DrawingArea1_Draw()

Vuott il 15:19, 15 giu 2023

2023-06-15T15:19:44Z

← Versione meno recente		Versione delle 09:19, 15 giu 2023
Riga 61:		Riga 61:
	.Fill		.Fill
	.Brush = .LinearGradient(0, 20, 15, 0, c, f)		.Brush = .LinearGradient(0, 20, 15, 0, c, f)
	.Translate(coord[0], coord[1]),		.Translate(coord[0], coord[1])
	<FONT Color=gray>' ''Un valore negativo dell'argomento della funzione "Rad()", farà ruotare l'Esagono in senso orario:''</font>		<FONT Color=gray>' ''Un valore negativo dell'argomento della funzione "Rad()", farà ruotare l'Esagono in senso orario:''</font>
	.Rotate(Rad(-an))		.Rotate(Rad(-an))

Vuott il 15:19, 15 giu 2023

2023-06-15T15:19:04Z

← Versione meno recente		Versione delle 09:19, 15 giu 2023
Riga 14:		Riga 14:
	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 58:		Riga 60:
	.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]),
	<FONT Color=gray>' ''Un valore negativo dell'argomento della funzione "Rad()", farà ruotare l'Esagono in senso orario:''</font>		<FONT Color=gray>' ''Un valore negativo dell'argomento della funzione "Rad()", farà ruotare l'Esagono in senso orario:''</font>

Vuott il 18:54, 29 mag 2023

2023-05-29T18:54:03Z

← Versione meno recente		Versione delle 12:54, 29 mag 2023
Riga 1:		Riga 1:
	Di seguito mostreremo un possibile codice per ruotare un Esagono regolare disegnato in una ''DrawingArea''. <SUP>[[[#Note\|Nota 1]]]</sup>		Di seguito mostreremo un possibile codice per ruotare un Esagono regolare disegnato in una ''DrawingArea''. <SUP>[[[#Note\|Nota 1]]]</sup>

	I 6 vertici dell'Esagono regolare sono stati correttamente individuati sulla circonferenza ideale, alla quale detti vertici appartengono, dividendo l'angolo di 360° per il numero dei vertici ~~del Pentagono~~ (360° / 6 = 60°). Ciascun vertice si troverà sulla circonferenza ogni 60 gradi.		I 6 vertici dell'Esagono regolare sono stati correttamente individuati sulla circonferenza ideale, alla quale detti vertici appartengono, dividendo l'angolo di 360° per il numero dei vertici dell'Esagono (360° / 6 = 60°). Ciascun vertice si troverà sulla circonferenza ogni 60 gradi.
	<BR>E' possibile variare la dimensione del Esagono, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.		<BR>E' possibile variare la dimensione del Esagono, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.
	<BR>La rotazione dell'Esagono si avvia semplicemente cliccando con il tasto sinistro del mouse sulla superficie della ''DrawingArea''.		<BR>La rotazione dell'Esagono si avvia semplicemente cliccando con il tasto sinistro del mouse sulla superficie della ''DrawingArea''.

Vuott il 18:25, 29 mag 2023

2023-05-29T18:25:23Z

← Versione meno recente		Versione delle 12:25, 29 mag 2023
Riga 1:		Riga 1:
	Di seguito mostreremo un possibile codice per ruotare un Esagono regolare disegnato in una ''DrawingArea''. <SUP>[[[#Note\|Nota 1]]]</sup>		Di seguito mostreremo un possibile codice per ruotare un Esagono regolare disegnato in una ''DrawingArea''. <SUP>[[[#Note\|Nota 1]]]</sup>

	I 6 vertici dell'Esagono regolare sono stati correttamente individuati sulla circonferenza ideale, alla quale detti vertici appartengono, dividendo l'angolo di 360° per il numero dei vertici del Pentagono (360° / 6 = 60°). ~~Ogni~~ vertice si troverà sulla circonferenza ogni 60 gradi.		I 6 vertici dell'Esagono regolare sono stati correttamente individuati sulla circonferenza ideale, alla quale detti vertici appartengono, dividendo l'angolo di 360° per il numero dei vertici del Pentagono (360° / 6 = 60°). Ciascun vertice si troverà sulla circonferenza ogni 60 gradi.
	<BR>E' possibile variare la dimensione del Esagono, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.		<BR>E' possibile variare la dimensione del Esagono, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.
	<BR>La rotazione dell'Esagono si avvia semplicemente cliccando con il tasto sinistro del mouse sulla superficie della ''DrawingArea''.		<BR>La rotazione dell'Esagono si avvia semplicemente cliccando con il tasto sinistro del mouse sulla superficie della ''DrawingArea''.

Vuott il 11:40, 29 mag 2023

2023-05-29T11:40:26Z

← Versione meno recente		Versione delle 05:40, 29 mag 2023
Riga 58:		Riga 58:
	.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])		.Translate(coord[0], coord[1]),
	<FONT Color=gray>' ''~~Assegnando un~~ valore negativo ~~al parametro~~ della funzione "~~Rsd~~()" farà ruotare l'Esagono in senso orario:''</font>		<FONT Color=gray>' ''Un valore negativo dell'argomento della funzione "Rad()", farà ruotare l'Esagono in senso orario:''</font>
	.Rotate(Rad(-an))		.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, (coord[1] + pol[5]) - ys, (coord[0] + pol[6]) - xs, (coord[1] + pol[7]) - ys, (coord[0] + pol[8]) - xs, (coord[1] + pol[9]) - ys, (coord[0] + pol[10]) - xs, (coord[1] + pol[11]) - ys])		.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, (coord[1] + pol[5]) - ys, (coord[0] + pol[6]) - xs, (coord[1] + pol[7]) - ys, (coord[0] + pol[8]) - xs, (coord[1] + pol[9]) - ys, (coord[0] + pol[10]) - xs, (coord[1] + pol[11]) - ys])

Vuott: Creata pagina con "Di seguito mostreremo un possibile codice per ruotare un Esagono regolare disegnato in una ''DrawingArea''. ^{[Nota 1]} I 6 vertici dell'Esagono r..."

2023-05-29T11:39:30Z

Creata pagina con "Di seguito mostreremo un possibile codice per ruotare un Esagono regolare disegnato in una ''DrawingArea''. [Nota 1] I 6 vertici dell'Esagono r..."

Nuova pagina

Di seguito mostreremo un possibile codice per ruotare un Esagono regolare disegnato in una ''DrawingArea''. [[[#Note|Nota 1]]]

I 6 vertici dell'Esagono regolare sono stati correttamente individuati sulla circonferenza ideale, alla quale detti vertici appartengono, dividendo l'angolo di 360° per il numero dei vertici del Pentagono (360° / 6 = 60°). Ogni vertice si troverà sulla circonferenza ogni 60 gradi.
 E' possibile variare la dimensione del Esagono, modificando il raggio della circonferenza, sulla quale i suoi vertici insistono.
 La rotazione dell'Esagono 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 RAGGIO As Single = 100.0
Private Const ESAGONO As Byte = 6
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]

For t As Short = 0 To 360 Step (360 / ESAGONO)
pol.Push(RAGGIO * Cos(Rad(t)))
pol.Push(RAGGIO * Sin(Rad(t)))
Next

xs = (coord[0] + coord[0] + pol[2] + coord[0] + Abs(pol[4]) + coord[0] - Abs(pol[6]) + coord[0] - pol[8] + coord[0] - pol[10]) / ESAGONO
ys = (coord[1] + coord[1] + pol[3] + coord[1] + pol[5] + coord[1] + pol[7] + coord[1] + pol[9] + coord[1] + pol[11]) / ESAGONO

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])
' ''Assegnando un valore negativo al parametro della funzione "Rsd()" farà ruotare l'Esagono in senso orario:''
.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, (coord[1] + pol[5]) - ys, (coord[0] + pol[6]) - xs, (coord[1] + pol[7]) - ys, (coord[0] + pol[8]) - xs, (coord[1] + pol[9]) - ys, (coord[0] + pol[10]) - xs, (coord[1] + pol[11]) - ys])
.Stroke
.End
End With

End

=Note=
[1] Vedere anche la seguente pagina: [[Ruotare un pentagono in una DrawingArea]]

Ruotare un esagono in una DrawingArea - Cronologia

Vuott il 03:41, 28 lug 2025

Vuott il 20:38, 27 giu 2024

Vuott il 15:19, 15 giu 2023

Vuott il 15:19, 15 giu 2023

Vuott il 18:54, 29 mag 2023

Vuott il 18:25, 29 mag 2023

Vuott il 11:40, 29 mag 2023

Vuott: Creata pagina con "Di seguito mostreremo un possibile codice per ruotare un Esagono regolare disegnato in una ''DrawingArea''. [Nota 1] I 6 vertici dell'Esagono r..."

Vuott: Creata pagina con "Di seguito mostreremo un possibile codice per ruotare un Esagono regolare disegnato in una ''DrawingArea''. ^{[Nota 1]} I 6 vertici dell'Esagono r..."