Disegnare in una DrawingArea una spirale - Cronologia

Vuott il 18:58, 10 ago 2025

2025-08-10T18:58:21Z

← Versione meno recente		Versione delle 12:58, 10 ago 2025
Riga 35:		Riga 35:
	.Fill		.Fill
	Next		Next
	~~.End~~
	End With		End With

Vuott il 03:02, 28 lug 2025

2025-07-28T03:02:05Z

← Versione meno recente		Versione delle 21:02, 27 lug 2025
Riga 9:		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

Vuott il 00:27, 5 giu 2024

2024-06-05T00:27:14Z

← Versione meno recente		Versione delle 18:27, 4 giu 2024
Riga 1:		Riga 1:
	==Disegnare una Spirale Archimedea==		==Disegnare una Spirale Archimedea==
	Per disegnare su una ''DrawingArea'' una [https://it.wikipedia.org/wiki/Spirale_archimedea Spirale Archimedea], possiamo utilizzare il seguente codice: <SUP>[[[#Note\|~~1ota~~ 1]]]</sup>		Per disegnare su una ''DrawingArea'' una [https://it.wikipedia.org/wiki/Spirale_archimedea Spirale Archimedea], possiamo utilizzare il seguente codice: <SUP>[[[#Note\|nota 1]]]</sup>
	Private DrawingArea1 As DrawingArea		Private DrawingArea1 As DrawingArea
	Private Const VOLUTE As Byte = 8		Private Const VOLUTE As Byte = 8
Riga 6:		Riga 6:


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

	With Me		With Me
Riga 18:		Riga 18:
	End With		End With

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

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

	Dim t As Short		Dim t As Short
Riga 38:		Riga 39:
	End With		End With

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

Vuott il 15:10, 4 giu 2023

2023-06-04T15:10:57Z

← Versione meno recente		Versione delle 09:10, 4 giu 2023
Riga 1:		Riga 1:
	==Disegnare una Spirale Archimedea==		==Disegnare una Spirale Archimedea==
	Per disegnare su una ''DrawingArea'' una [https://it.wikipedia.org/wiki/Spirale_archimedea Spirale Archimedea], possiamo utilizzare il seguente codice: <SUP>[[[#Note\|~~Nota~~ 1]]]</sup>		Per disegnare su una ''DrawingArea'' una [https://it.wikipedia.org/wiki/Spirale_archimedea Spirale Archimedea], possiamo utilizzare il seguente codice: <SUP>[[[#Note\|1ota 1]]]</sup>
	Private DrawingArea1 As DrawingArea		Private DrawingArea1 As DrawingArea
	Private Const VOLUTE As Byte = 8		Private Const VOLUTE As Byte = 8
Riga 43:		Riga 43:

	=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_una_Spirale_di_Archimede\|Disegnare punto per punto una Spirale di Archimede]]

Vuott il 04:50, 4 gen 2022

2022-01-04T04:50:07Z

← Versione meno recente		Versione delle 22:50, 3 gen 2022
Riga 15:		Riga 15:

	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

Vuott: /* Disegnare una Spirale Archimedea */

2021-11-26T01:04:32Z

Disegnare una Spirale Archimedea

← Versione meno recente		Versione delle 19:04, 25 nov 2021
Riga 1:		Riga 1:
	==Disegnare una Spirale Archimedea==		==Disegnare una Spirale Archimedea==
	Per disegnare su una ''DrawingArea'' una [https://it.wikipedia.org/wiki/Spirale_archimedea Spirale Archimedea], possiamo utilizzare il seguente codice:		Per disegnare su una ''DrawingArea'' una [https://it.wikipedia.org/wiki/Spirale_archimedea Spirale Archimedea], possiamo utilizzare il seguente codice: <SUP>[[[#Note\|Nota 1]]]</sup>
	Private DrawingArea1 As DrawingArea		Private DrawingArea1 As DrawingArea
	Private Const VOLUTE As Byte = 8		Private Const VOLUTE As Byte = 8
Riga 40:		Riga 40:

	'''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 22:39, 24 nov 2021

2021-11-24T22:39:11Z

← Versione meno recente		Versione delle 16:39, 24 nov 2021
Riga 24:		Riga 24:

	Dim t As Short		Dim t As Short
	Dim x, y, r As Float		Dim x, y, r As Float <FONT Color=gray>' ''r = distanza del punto relativo della spirale dal centro''</font>

	x = DrawingArea1.W / 2		x = DrawingArea1.W / 2
	y = DrawingArea1.H / 2		y = DrawingArea1.H / 2

	~~<FONT Color=gray>' ''Lunghezza iniziale del raggio della circonferenza:''</font>~~
	~~r = 2~~

	With Paint		With Paint

Vuott: Creata pagina con "==Disegnare una Spirale Archimedea== Per disegnare su una ''DrawingArea'' una [https://it.wikipedia.org/wiki/Spirale_archimedea Spirale Archimedea], possiamo utilizzare il seg..."

2021-11-24T22:35:13Z

Creata pagina con "==Disegnare una Spirale Archimedea== Per disegnare su una ''DrawingArea'' una [https://it.wikipedia.org/wiki/Spirale_archimedea Spirale Archimedea], possiamo utilizzare il seg..."

Nuova pagina

==Disegnare una Spirale Archimedea==
Per disegnare su una ''DrawingArea'' una [https://it.wikipedia.org/wiki/Spirale_archimedea Spirale Archimedea], possiamo utilizzare il seguente codice:
Private DrawingArea1 As DrawingArea
Private Const VOLUTE As Byte = 8
Private Const THETA As Float = 1E-4

'''Public''' Sub Form_Open()

With Me
.W = Screen.AvailableWidth
.H = Screen.AvailableHeight
.Arrangement = Arrange.Fill
End With

With DrawingArea1 = New DrawingArea(Me) As "DrawingArea1"
.X = 0
.Y = 0
End With

'''End'''

'''Public''' Sub DrawingArea1_Draw()

Dim t As Short
Dim x, y, r As Float

x = DrawingArea1.W / 2
y = DrawingArea1.H / 2

<FONT Color=gray>' ''Lunghezza iniziale del raggio della circonferenza:''</font>
r = 2

With Paint
.Brush = .Color(Color.Red)
For t = 0 To 360 * VOLUTE
r = r + (t * THETA)
.Arc(x + (r * Cos(Rad(t))), y + (r * Sin(Rad(t))), 1.0, Rad(0), Rad(360), False)
.Fill
Next
.End
End With

'''End'''