Disegnare in una DrawingArea un cerchio - Cronologia

Vuott il 18:53, 10 ago 2025

2025-08-10T18:53:04Z

← Versione meno recente		Versione delle 12:53, 10 ago 2025
Riga 31:		Riga 31:
	<FONT Color=gray>' ''Se si desidera disegnare un cerchio ripieno di colore, si userà il Metodo ".Fill":''</font>		<FONT Color=gray>' ''Se si desidera disegnare un cerchio ripieno di colore, si userà il Metodo ".Fill":''</font>
	.Fill		.Fill
	~~.End~~
	End With		End With

Riga 66:		Riga 65:
	<FONT Color=gray>' ''Se si desidera disegnare un cerchio ripieno di colore, si userà il Metodo ".Fill":''</font>		<FONT Color=gray>' ''Se si desidera disegnare un cerchio ripieno di colore, si userà il Metodo ".Fill":''</font>
	.Fill		.Fill
	~~.End~~
	End With		End With

Riga 107:		Riga 105:
	.Fill		.Fill
	Next		Next
	~~.End~~
	End With		End With

Riga 149:		Riga 146:
	.ClosePath		.ClosePath
	.Stroke		.Stroke
	~~.End~~
	End With		End With

Vuott il 21:13, 14 lug 2025

2025-07-14T21:13:27Z

← Versione meno recente		Versione delle 15:13, 14 lug 2025
Riga 149:		Riga 149:
	.ClosePath		.ClosePath
	.Stroke		.Stroke

	.End		.End
	End With		End With

Vuott il 21:13, 14 lug 2025

2025-07-14T21:13:02Z

← Versione meno recente		Versione delle 15:13, 14 lug 2025
Riga 149:		Riga 149:
	.ClosePath		.ClosePath
	.Stroke		.Stroke

	.End		.End
	End With		End With

Vuott il 21:12, 14 lug 2025

2025-07-14T21:12:20Z

@@ Riga 107: / Riga 107: @@
        .Fill
      Next
      .End
    End With

Vuott il 00:16, 30 mar 2024

2024-03-30T00:16:38Z

← Versione meno recente		Versione delle 18:16, 29 mar 2024
Riga 2:		Riga 2:

	===Uso del Metodo ".Arc()"===		===Uso del Metodo ".Arc()"===
	La Classe ''Paint'' ci consente di disegnare un cerchio mediante il Metodo ".Arc()":		La Classe ''Paint'' ci consente di disegnare un cerchio mediante il Metodo ".Arc()": <SUP>[[[#Note\|nota 1]]]</sup>
	Private DrawingArea1 As DrawingArea		Private DrawingArea1 As DrawingArea


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

	With Me		With Me
Riga 19:		Riga 19:
	End With		End With

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

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

	With Paint		With Paint
Riga 33:		Riga 34:
	End With		End With

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

	===Uso del Metodo ".Ellipse()"===		===Uso del Metodo ".Ellipse()"===
Riga 40:		Riga 41:


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

	With Me		With Me
Riga 53:		Riga 54:
	End With		End With

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


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

	With Paint		With Paint
Riga 67:		Riga 69:
	End With		End With

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

	===Usare una formula trigonometrica===		===Usare una formula trigonometrica===
	E' possibile anche disegnare un cerchio punto per punto mediante una formula trigonometrica ed usando il Metodo ".FillRect()" della Classe "Paint" per ottenere un punto: <SUP>[[[#Note\|~~Nota 1~~]]]</sup>		E' possibile anche disegnare un cerchio punto per punto mediante una formula trigonometrica ed usando il Metodo ".FillRect()" della Classe "Paint" per ottenere un punto: <SUP>[[[#Note\|nota 2]]]</sup>
	Private DrawingArea1 As DrawingArea		Private DrawingArea1 As DrawingArea


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

	With Me		With Me
Riga 87:		Riga 89:
	End With		End With

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


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

	Dim x, y, r, t As Single		Dim x, y, r, t As Single
Riga 107:		Riga 110:
	End With		End With

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



	=Note=		=Note=
	[1] Vedere anche questa pagina:		[1] Il disegno dell'arco segue lo standard matematico, ovvero gli angoli positivi vengono elaborati in senso antiorario con l'asse X che va da sinistra a destra e l'asse Y che va dal basso verso l'alto.
			<BR>Poiché l'asse Y va dall'alto verso il basso per impostazione predefinita nel computer, gli angoli positivi procedono in senso orario.

			[2] Vedere anche questa pagina:
	[[Disegnare_in_una_DrawingArea_dei_punti#Disegnare_punto_per_punto_un_cerchio\|Disegnare punto per punto un cerchio]]		[[Disegnare_in_una_DrawingArea_dei_punti#Disegnare_punto_per_punto_un_cerchio\|Disegnare punto per punto un cerchio]]

Vuott il 14:46, 4 giu 2023

2023-06-04T14:46:59Z

← Versione meno recente		Versione delle 08:46, 4 giu 2023
Riga 112:		Riga 112:

	=Note=		=Note=
	[1] Vedere anche questa pagina: [[~~Disegnare_in_successione_dei_punti_in_una_DrawingArea~~#~~Visibili_il_punto_corrente_disegnato_e_tutti_i_punti_precedentemente_disegnati~~\|~~Visibili il~~ punto ~~corrente disegnato e tutti i punti precedentemente disegnati~~]]		[1] Vedere anche questa pagina:
			[[Disegnare_in_una_DrawingArea_dei_punti#Disegnare_punto_per_punto_un_cerchio\|Disegnare punto per punto un cerchio]]

Vuott il 05:04, 4 gen 2022

2022-01-04T05:04:12Z

← Versione meno recente		Versione delle 23:04, 3 gen 2022
Riga 1:		Riga 1:
	Per disegnare un cerchio all'interno di una ''DrawingArea'', è possibile utilizzare la Classe "''Paint''".		Per disegnare un cerchio all'interno di una ''DrawingArea'', è possibile utilizzare la Classe ''Paint''.

	===Uso del Metodo ".Arc()"===		===Uso del Metodo ".Arc()"===
Riga 96:		Riga 96:
	<FONT Color=gray>' ''Lunghezza del raggio della circonferenza:''</font>		<FONT Color=gray>' ''Lunghezza del raggio della circonferenza:''</font>
	r = 100		r = 100

			With Paint
			.Brush = .Color(Color.Red)
	<FONT Color=gray>' ''Il ciclo disegna l'arco della circonferenza:''</font>		<FONT Color=gray>' ''Il ciclo disegna l'arco della circonferenza:''</font>
	For t = 0 To 360 <FONT Color=gray>' ''Per maggiore dettaglio si potrà aggiungere: '''Step 0.25'''''</font>		For t = 0 To 360 <FONT Color=gray>' ''Per maggiore dettaglio si potrà aggiungere: '''Step 0.25'''''</font>
	~~Paint~~.~~FillRect~~(x + (r * Cos(Rad(t))), y + (r * Sin(Rad(t))), 1, 1, ~~Color~~.~~Red)~~		.Arc(x + (r * Cos(Rad(t))), y + (r * Sin(Rad(t))), 0.8, Rad(0), Rad(360), False)
	Next		.Fill
			Next
	~~Paint.~~End		.End
			End With

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

Vuott il 04:56, 4 gen 2022

2022-01-04T04:56:51Z

← Versione meno recente		Versione delle 22:56, 3 gen 2022
Riga 16:		Riga 16:

	With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"		With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
	.X = 0		.Background = Color.White
	.~~Y = 0~~
	End With		End With

Riga 51:		Riga 50:

	With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"		With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
	.X = 0		.Background = Color.White
	.~~Y = 0~~
	End With		End With

Riga 86:		Riga 84:

	With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"		With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
	.X = 0		.Background = Color.White
	.~~Y = 0~~
	End With		End With

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

Vuott il 01:01, 26 nov 2021

2021-11-26T01:01:26Z

← Versione meno recente		Versione delle 19:01, 25 nov 2021
Riga 72:		Riga 72:

	===Usare una formula trigonometrica===		===Usare una formula trigonometrica===
	E' possibile anche disegnare un cerchio punto per punto mediante una formula trigonometrica ed usando il Metodo ".FillRect()" della Classe "Paint" per ottenere un punto:		E' possibile anche disegnare un cerchio punto per punto mediante una formula trigonometrica ed usando il Metodo ".FillRect()" della Classe "Paint" per ottenere un punto: <SUP>[[[#Note\|Nota 1]]]</sup>
	Private DrawingArea1 As DrawingArea		Private DrawingArea1 As DrawingArea

Riga 108:		Riga 108:

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



			=Note=
			[1] Vedere anche questa pagina: [[Disegnare_in_successione_dei_punti_in_una_DrawingArea#Visibili_il_punto_corrente_disegnato_e_tutti_i_punti_precedentemente_disegnati\|Visibili il punto corrente disegnato e tutti i punti precedentemente disegnati]]

Vuott il 14:04, 17 nov 2021

2021-11-17T14:04:23Z

← Versione meno recente		Versione delle 08:04, 17 nov 2021
Riga 94:		Riga 94:
	'''Public''' Sub DrawingArea1_Draw()		'''Public''' Sub DrawingArea1_Draw()

	Dim x, y, r, t As ~~Short~~		Dim x, y, r, t As Single

	x = DrawingArea1.W / 2		x = DrawingArea1.W / 2
	y = DrawingArea1.H / 2		y = DrawingArea1.H / 2
Riga 102:		Riga 101:

	<FONT Color=gray>' ''Il ciclo disegna l'arco della circonferenza:''</font>		<FONT Color=gray>' ''Il ciclo disegna l'arco della circonferenza:''</font>
	For t = 0 To 360		For t = 0 To 360 <FONT Color=gray>' ''Per maggiore dettaglio si potrà aggiungere: '''Step 0.25'''''</font>
	Paint.FillRect(x + (r * Cos(Rad(t))), y + (r * Sin(Rad(t))), 1, 1, Color.Red)		Paint.FillRect(x + (r * Cos(Rad(t))), y + (r * Sin(Rad(t))), 1, 1, Color.Red)
	Next		Next