Ruotare un cerchio disegnato in una DrawingArea - Cronologia

Vuott il 00:37, 11 ago 2025

2025-08-11T00:37:12Z

← Versione meno recente		Versione delle 18:37, 10 ago 2025
Riga 35:		Riga 35:
	.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
	<FONT Color=gray>' ''Disegna il cerchio.''		<FONT Color=gray>' ''Disegna il cerchio.''
	' ''~~Siccome~~ l'angolo ruota su se stesso, si dà alle coordinate del cerchio la metà della dimensione del suo diametro.''		' ''Poiché l'angolo ruota su se stesso, si dà alle coordinate del cerchio 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(0), Rad(360), False)		.Ellipse(DIAMETRO / 2, DIAMETRO / 2, -DIAMETRO, -DIAMETRO, Rad(0), Rad(360), False)
	.Stroke		.Stroke
	~~.End~~
	End With		End With

Riga 159:		Riga 158:
	Paint.Polygon(coords)		Paint.Polygon(coords)
	Paint.Stroke()		Paint.Stroke()

	~~Paint.End()~~

	End		End
Riga 282:		Riga 279:
	Paint.Polygon(coords)		Paint.Polygon(coords)
	Paint.Stroke()		Paint.Stroke()

	~~Paint.End()~~

	End		End

Vuott il 01:37, 20 lug 2025

2025-07-20T01:37:25Z

@@ Riga 89: / Riga 89: @@
 =Rotazione in 3D=
-==Cerchio ruotato sugli assi X, Y e Z==
+==Cerchio ruotato intorno al suo asse Y==
   <FONT Color=gray>' ''=== Variabili globali per la rotazione ===''</font>
   Private angleX As Float
@@ Riga 104: / Riga 210: @@
   End With
-   Timer1.Delay = 16  ~60 FPS''</font>
+   Timer1.Delay = 16  <FONT Color=gray>' ''~60 FPS''</font>
    Timer1.Start

Vuott il 01:27, 20 lug 2025

2025-07-20T01:27:22Z

Mostra modifiche

Vuott il 11:55, 27 giu 2024

2024-06-27T11:55:32Z

← Versione meno recente		Versione delle 05:55, 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 cerchio, 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 cerchio, disegnato in una ''DrawingArea''. <SUP>[[[#Note\|<B>nota 2</b>]]]</sup>
	<BR>Nell'esempio la rotazione del cerchio 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 del cerchio 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.

Vuott il 11:55, 27 giu 2024

2024-06-27T11:55:06Z

← Versione meno recente		Versione delle 05:55, 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 cerchio, 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 cerchio, disegnato in una ''DrawingArea''. <SUP>[[[#Note\|<B>nota 2</b>]]]</sup>
	<BR>Nell'esempio la rotazione del cerchio 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 del cerchio 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 44:		Riga 45:
	End With		End With

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

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

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

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


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

	fAngolo += Mouse.Delta		fAngolo += Mouse.Delta
Riga 73:		Riga 76:
	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_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:39, 15 giu 2023

2023-06-15T15:39:06Z

← Versione meno recente		Versione delle 09:39, 15 giu 2023
Riga 29:		Riga 29:

	With Paint		With Paint
			.Arc(da.W / 2, da.H / 2, 2, Rad(0), Rad(360), False)
			.Fill
	.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>
Riga 37:		Riga 39:
	' ''Siccome l'angolo ruota su se stesso, si dà alle coordinate del cerchio la metà della dimensione del suo diametro.''		' ''Siccome l'angolo ruota su se stesso, si dà alle coordinate del cerchio 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(0), Rad(360), ~~True~~)		.Ellipse(DIAMETRO / 2, DIAMETRO / 2, -DIAMETRO, -DIAMETRO, Rad(0), Rad(360), False)
	.Stroke		.Stroke
	.End		.End

Vuott il 15:22, 15 giu 2023

2023-06-15T15:22:58Z

← Versione meno recente		Versione delle 09:22, 15 giu 2023
Riga 7:		Riga 7:
	Private Const DIAMETRO As Short = 200 <FONT Color=gray>' ''Memorizza il diametro del cerchio.''</font>		Private Const DIAMETRO As Short = 200 <FONT Color=gray>' ''Memorizza il diametro del cerchio.''</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)

Vuott il 04:37, 4 gen 2022

2022-01-04T04:37:14Z

← Versione meno recente		Versione delle 22:37, 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:06, 2 gen 2022

2022-01-02T13:06:15Z

← Versione meno recente		Versione delle 07:06, 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:44, 9 dic 2021

2021-12-09T01:44:26Z

← Versione meno recente		Versione delle 19:44, 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 cerchio, 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 cerchio, disegnato in una ''DrawingArea''. <SUP>[[[#Note\|<B>Nota 2</b>]]]</sup>
	<BR>Nell'esempio la rotazione del cerchio 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 del cerchio 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>