Ruotare un arco in una DrawingArea - Cronologia

Vuott il 00:35, 11 ago 2025

2025-08-11T00:35:22Z

← Versione meno recente		Versione delle 18:35, 10 ago 2025
Riga 32:		Riga 32:
	.Brush = .LinearGradient(0, 20, 15, 0, c, f)		.Brush = .LinearGradient(0, 20, 15, 0, c, f)
	<FONT Color=gray>' ''Imposta il fulcro/centro della rotazione - ad esempio -al centro dell'area di disegno:''</font>		<FONT Color=gray>' ''Imposta il fulcro/centro della rotazione - ad esempio -al centro dell'area di disegno:''</font>
	<FONT Color=~~#B22222~~>.Translate</font>(da.W / 2, da.H / 2)		<FONT Color=red>.Translate</font>(da.W / 2, da.H / 2)
	.Rotate(Rad(fAngolo))		.Rotate(Rad(fAngolo))
	.LineWidth = 2.0		.LineWidth = 2.0
Riga 40:		Riga 40:
	.Ellipse(DIAMETRO / 2, DIAMETRO / 2, -DIAMETRO, -DIAMETRO, Rad(180), Rad(180), True)		.Ellipse(DIAMETRO / 2, DIAMETRO / 2, -DIAMETRO, -DIAMETRO, Rad(180), Rad(180), True)
	.Stroke		.Stroke
	~~.End~~
	End With		End With

Vuott il 11:56, 27 giu 2024

2024-06-27T11:56:56Z

← Versione meno recente		Versione delle 05:56, 27 giu 2024
Riga 1:		Riga 1:
	Mostriamo un possibile codice <SUP>[[[#Note\|nota 1]]]</sup> per ottenere la rotazione <SPAN Style="text-decoration:underline">intorno al proprio asse centrale</span> di un Arco di circonferenza, disegnato in una ''DrawingArea''. <SUP>[[[#Note\|<B>~~Nota~~ 2</b>]]]</sup>		Mostriamo un possibile codice <SUP>[[[#Note\|nota 1]]]</sup> per ottenere la rotazione <SPAN Style="text-decoration:underline">intorno al proprio asse centrale</span> di un Arco di circonferenza, disegnato in una ''DrawingArea''. <SUP>[[[#Note\|<B>nota 2</b>]]]</sup>
	<BR>Nell'esempio la rotazione dell'Arco potrà essere notata attraverso visualizzazione della rotazione del suo raggio e soprattutto mediante la visualizzazione della colorazione della sua circonferenza.		<BR>Nell'esempio la rotazione dell'Arco potrà essere notata attraverso visualizzazione della rotazione del suo raggio e soprattutto mediante la visualizzazione della colorazione della sua circonferenza.
	<BR>La rotazione viene effettuata premendo i tasti freccia in su e freccia in giù della tastiera oppure ruotando la rotellina del mouse.		<BR>La rotazione viene effettuata premendo i tasti freccia in su e freccia in giù della tastiera oppure ruotando la rotellina del mouse.
Riga 11:		Riga 11:


	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	With Me		With Me
Riga 24:		Riga 24:
	End With		End With

	~~'''~~End~~'''~~		End

	~~'''~~Public~~'''~~ Sub DrawingArea1_Draw()
			Public Sub DrawingArea1_Draw()

	With Paint		With Paint
Riga 42:		Riga 43:
	End With		End With

	~~'''~~End~~'''~~		End

	~~'''~~Public~~'''~~ Sub Form_KeyPress()
			Public Sub Form_KeyPress()

	Select Case Key.Code		Select Case Key.Code
Riga 57:		Riga 59:
	da.Refresh		da.Refresh

	~~'''~~End~~'''~~		End


	~~'''~~Public~~'''~~ Sub Form_MouseWheel()		Public Sub Form_MouseWheel()

	fAngolo += Mouse.Delta		fAngolo += Mouse.Delta
Riga 71:		Riga 74:
	da.Refresh		da.Refresh

	~~'''~~End~~'''~~		End


	~~'''~~Public~~'''~~ Sub Form_Resize() <FONT Color=gray>' ''Con questo evento se cambia la dimensione del Form, il disegno non va perso.''</font>		Public Sub Form_Resize() <FONT Color=gray>' ''Con questo evento se cambia la dimensione del Form, il disegno non va perso.''</font>

	da.Refresh		da.Refresh

	~~'''~~End~~'''~~		End



	~~----~~
	=Note=		=Note=
	[1] Il codice, presente in questa pagina, è tratto - con modifiche ed integrazioni - da un analogo codice suggerito dal membro ''Gianluigi'' del forum di ''gambas-it.org'' .		[1] Il codice, presente in questa pagina, è tratto - con modifiche ed integrazioni - da un analogo codice suggerito dal membro ''Gianluigi'' del forum di ''gambas-it.org'' .

	[2] Vedere anche queste pagine:		[2] Vedere anche queste pagine:
	* [[~~Ruotare_un_cerchio_disegnato_in_una_DrawingArea\|~~Ruotare un cerchio disegnato in una DrawingArea]]		* [[Ruotare un cerchio disegnato in una DrawingArea]]
	* [[~~Ruotare_qualsiasi_elemento_da_disegnare_in_una_DrawingArea\|~~Ruotare qualsiasi elemento da disegnare in una DrawingArea]]		* [[Ruotare qualsiasi elemento da disegnare in una DrawingArea]]
	* [[~~Ruotare_una_immagine_sul_proprio_asse_centrale\|~~Ruotare una immagine sul proprio asse centrale]]		* [[Ruotare una immagine sul proprio asse centrale]]

Vuott il 15:24, 15 giu 2023

2023-06-15T15:24:28Z

← Versione meno recente		Versione delle 09:24, 15 giu 2023
Riga 1:		Riga 1:
	Mostriamo un possibile codice <SUP>[[[#Note\|~~Nota~~ 1]]]</sup> per ottenere la rotazione <SPAN Style="text-decoration:underline">intorno al proprio asse centrale</span> di un ~~arco~~, disegnato in una ''DrawingArea''. <SUP>[[[#Note\|<B>Nota 2</b>]]]</sup>		Mostriamo un possibile codice <SUP>[[[#Note\|nota 1]]]</sup> per ottenere la rotazione <SPAN Style="text-decoration:underline">intorno al proprio asse centrale</span> di un Arco di circonferenza, disegnato in una ''DrawingArea''. <SUP>[[[#Note\|<B>Nota 2</b>]]]</sup>
	<BR>Nell'esempio la rotazione dell'~~arco~~ potrà essere notata attraverso visualizzazione della rotazione del suo raggio e soprattutto mediante la visualizzazione della colorazione della sua circonferenza.		<BR>Nell'esempio la rotazione dell'Arco potrà essere notata attraverso visualizzazione della rotazione del suo raggio e soprattutto mediante la visualizzazione della colorazione della sua circonferenza.
	<BR>La rotazione viene effettuata premendo i tasti freccia in su e freccia in giù della tastiera oppure ruotando la rotellina del mouse.		<BR>La rotazione viene effettuata premendo i tasti freccia in su e freccia in giù della tastiera oppure ruotando la rotellina del mouse.
	<FONT Color=gray>' '''''Il fulcro del Metodo ".Translate()" agisce da vortice, da centro di rotazione intorno a una ipotetica circonferenza'''''</font>		<FONT Color=gray>' '''''Il fulcro del Metodo ".Translate()" agisce da vortice, da centro di rotazione intorno a una ipotetica circonferenza'''''</font>
Riga 7:		Riga 7:
	Private Const DIAMETRO As Short = 200 <FONT Color=gray>' ''Memorizza il diametro dell'arco.''</font>		Private Const DIAMETRO As Short = 200 <FONT Color=gray>' ''Memorizza il diametro dell'arco.''</font>
	Private fAngolo As Float <FONT Color=gray>' ''Memorizza i gradi dell'angolo.''</font>		Private fAngolo As Float <FONT Color=gray>' ''Memorizza i gradi dell'angolo.''</font>
			Private c As Integer[] = [Color.Blue, Color.Green, Color.Yellow, Color.Red]
			Private f As Float[] = [0, 0.34, 0.67, 1]


Riga 26:		Riga 28:
	'''Public''' Sub DrawingArea1_Draw()		'''Public''' Sub DrawingArea1_Draw()

	~~Dim c As Integer[] = [Color.Blue, Color.Green, Color.Yellow, Color.Red]~~
	~~Dim f As Float[] = [0, 0.34, 0.67, 1]~~

	With Paint		With Paint
	.Brush = .LinearGradient(0, 20, 15, 0, c, f)		.Brush = .LinearGradient(0, 20, 15, 0, c, f)
Riga 36:		Riga 35:
	.LineWidth = 2.0		.LineWidth = 2.0
	<FONT Color=gray>' ''Disegna l'arco.''		<FONT Color=gray>' ''Disegna l'arco.''
	' ''~~Siccome~~ l'angolo ruota su se stesso, si dà alle coordinate dell'arco la metà della dimensione del suo diametro.''		' ''Poiché l'angolo ruota su se stesso, si dà alle coordinate dell'arco la metà della dimensione del suo diametro.''
	' ''Non si devono modificare i valori né i segni dei primi quattro argomenti qui riportati.''</font>		' ''Non si devono modificare i valori né i segni dei primi quattro argomenti qui riportati.''</font>
	.Ellipse(DIAMETRO / 2, DIAMETRO / 2, -DIAMETRO, -DIAMETRO, Rad(180), Rad(180), True)		.Ellipse(DIAMETRO / 2, DIAMETRO / 2, -DIAMETRO, -DIAMETRO, Rad(180), Rad(180), True)

Vuott il 04:40, 4 gen 2022

2022-01-04T04:40:47Z

← Versione meno recente		Versione delle 22:40, 3 gen 2022
Riga 18:		Riga 18:
	End With		End With

	With da = New DrawingArea(Me) As "da"		With da = New DrawingArea(Me) As "DrawingArea1"
	~~.x = 0~~
	~~.Y = 0~~
	.Background = Color.White		.Background = Color.White
	End With		End With
Riga 26:		Riga 24:
	'''End'''		'''End'''

	'''Public''' Sub ~~da_Draw~~()		'''Public''' Sub DrawingArea1_Draw()

	Dim c As Integer[] = [Color.Blue, Color.Green, Color.Yellow, Color.Red]		Dim c As Integer[] = [Color.Blue, Color.Green, Color.Yellow, Color.Red]

Vuott il 13:05, 2 gen 2022

2022-01-02T13:05:23Z

← Versione meno recente		Versione delle 07:05, 2 gen 2022
Riga 76:		Riga 76:
	'''End'''		'''End'''

	'''Public''' Sub Form_Resize() <FONT Color=gray>' ''Con questo evento se cambia la dimensione del Form, il ~~disegna~~ non va perso.''</font>		'''Public''' Sub Form_Resize() <FONT Color=gray>' ''Con questo evento se cambia la dimensione del Form, il disegno non va perso.''</font>

	da.Refresh		da.Refresh

Vuott il 01:45, 9 dic 2021

2021-12-09T01:45:46Z

← Versione meno recente		Versione delle 19:45, 8 dic 2021
Riga 1:		Riga 1:
	Mostriamo un possibile codice <SUP>[[[#Note\|Nota 1]]]</sup> per ottenere la rotazione <SPAN Style="text-decoration:underline">intorno al proprio asse centrale</span> di un arco, disegnato in una ''DrawingArea''. <SUP>[[[#Note\|<B>Nota 2</b>]]]</sup>		Mostriamo un possibile codice <SUP>[[[#Note\|Nota 1]]]</sup> per ottenere la rotazione <SPAN Style="text-decoration:underline">intorno al proprio asse centrale</span> di un arco, disegnato in una ''DrawingArea''. <SUP>[[[#Note\|<B>Nota 2</b>]]]</sup>
	<BR>Nell'esempio la rotazione dell'arco potrà essere notata attraverso visualizzazione della rotazione del suo raggio e soprattutto mediante la visualizzazione della colorazione della sua circonferenza.		<BR>Nell'esempio la rotazione dell'arco potrà essere notata attraverso visualizzazione della rotazione del suo raggio e soprattutto mediante la visualizzazione della colorazione della sua circonferenza.
	<BR>La rotazione viene effettuata premendo i tasti freccia in su e freccia in giù della tastiera.		<BR>La rotazione viene effettuata premendo i tasti freccia in su e freccia in giù della tastiera oppure ruotando la rotellina del mouse.
	<FONT Color=gray>' '''''Il fulcro del Metodo ".Translate()" agisce da vortice, da centro di rotazione intorno a una ipotetica circonferenza'''''</font>		<FONT Color=gray>' '''''Il fulcro del Metodo ".Translate()" agisce da vortice, da centro di rotazione intorno a una ipotetica circonferenza'''''</font>

Riga 61:		Riga 61:

	'''End'''		'''End'''

			'''Public''' Sub Form_MouseWheel()

			fAngolo += Mouse.Delta
			Select Case fAngolo
			Case 361
			fAngolo = 1
			Case -361
			fAngolo = -1
			End Select

			da.Refresh

			'''End'''

	'''Public''' Sub Form_Resize() <FONT Color=gray>' ''Con questo evento se cambia la dimensione del Form, il disegna non va perso.''</font>		'''Public''' Sub Form_Resize() <FONT Color=gray>' ''Con questo evento se cambia la dimensione del Form, il disegna non va perso.''</font>

Vuott il 15:03, 10 nov 2021

2021-11-10T15:03:07Z

← Versione meno recente		Versione delle 09:03, 10 nov 2021
Riga 33:		Riga 33:
	With Paint		With Paint
	.Brush = .LinearGradient(0, 20, 15, 0, c, f)		.Brush = .LinearGradient(0, 20, 15, 0, c, f)
	<FONT Color=gray>' ''Imposta il fulcro/~~punto~~ della rotazione - ad esempio -al centro dell'area di disegno:''</font>		<FONT Color=gray>' ''Imposta il fulcro/centro della rotazione - ad esempio -al centro dell'area di disegno:''</font>
	<FONT Color=#B22222>.Translate</font>(da.W / 2, da.H / 2)		<FONT Color=#B22222>.Translate</font>(da.W / 2, da.H / 2)
	.Rotate(Rad(fAngolo))		.Rotate(Rad(fAngolo))

Vuott il 15:02, 10 nov 2021

2021-11-10T15:02:42Z

← Versione meno recente		Versione delle 09:02, 10 nov 2021
Riga 33:		Riga 33:
	With Paint		With Paint
	.Brush = .LinearGradient(0, 20, 15, 0, c, f)		.Brush = .LinearGradient(0, 20, 15, 0, c, f)
	<FONT Color=gray>' ''Il fulcro ~~(vortice)~~ della rotazione ~~è sempre il~~ centro dell'area di disegno:''</font>		<FONT Color=gray>' ''Imposta il fulcro/punto della rotazione - ad esempio -al centro dell'area di disegno:''</font>
	<FONT Color=#B22222>.Translate</font>(da.W / 2, da.H / 2)		<FONT Color=#B22222>.Translate</font>(da.W / 2, da.H / 2)
	.Rotate(Rad(fAngolo))		.Rotate(Rad(fAngolo))
	.LineWidth = 2.0		.LineWidth = 2.0
	<FONT Color=gray>' ''Disegna l'arco.''		<FONT Color=gray>' ''Disegna l'arco.''
	' ''Siccome l'angolo ruota su se stesso, si dà alle coordinate dell'arco la metà della dimensione del suo diametro:''</font>		' ''Siccome l'angolo ruota su se stesso, si dà alle coordinate dell'arco la metà della dimensione del suo diametro.''
			' ''Non si devono modificare i valori né i segni dei primi quattro argomenti qui riportati.''</font>
	.Ellipse(DIAMETRO / 2, DIAMETRO / 2, -DIAMETRO, -DIAMETRO, Rad(180), Rad(180), True)		.Ellipse(DIAMETRO / 2, DIAMETRO / 2, -DIAMETRO, -DIAMETRO, Rad(180), Rad(180), True)
	.Stroke		.Stroke

Vuott il 03:24, 10 nov 2021

2021-11-10T03:24:25Z

Mostra modifiche

Vuott il 21:50, 15 ott 2021

2021-10-15T21:50:25Z

← Versione meno recente		Versione delle 15:50, 15 ott 2021
Riga 1:		Riga 1:
	Mostriamo un possibile codice [[#Nota~~\|<SUP>Nota1~~</sup>]] per ottenere la rotazione <SPAN Style="text-decoration:underline">intorno al proprio asse centrale</span> di un arco di cerchio (il centro di rotazione è posto sulla corda dell'arco), disegnato in una ''DrawingArea''.		Mostriamo un possibile codice <SUP>[[[#Note\|Nota 1]]]</sup> per ottenere la rotazione <SPAN Style="text-decoration:underline">intorno al proprio asse centrale</span> di un arco di cerchio (il centro di rotazione è posto sulla corda dell'arco), disegnato in una ''DrawingArea''. <SUP>[[[#Note\|Nota 2]]]</sup>
	<BR>La rotazione viene effettuata premendo i tasti freccia in su e freccia in giù della tastiera.		<BR>La rotazione viene effettuata premendo i tasti freccia in su e freccia in giù della tastiera.

Riga 85:		Riga 85:

	----		----
	=~~Nota~~=		=Note=
	[1] Il codice, presente in questa pagina, è tratto - con modifiche ed integrazioni - da analogo codice suggerito dal membro ''Gianluigi'' del forum di ''gambas-it.org'' .		[1] Il codice, presente in questa pagina, è tratto - con modifiche ed integrazioni - da analogo codice suggerito dal membro ''Gianluigi'' del forum di ''www.gambas-it.org'' .

			[2] Vedere anche questa pagina: [[Ruotare_qualsiasi_elemento_da_disegnare_in_una_DrawingArea\|Ruotare qualsiasi elemento da disegnare in una DrawingArea]]