Creare array di oggetti - Cronologia

Vuott il 22:29, 26 feb 2025

2025-02-26T22:29:41Z

← Versione meno recente		Versione delle 16:29, 26 feb 2025
Riga 6:		Riga 6:
	Public Sub Form_Open()		Public Sub Form_Open()

	Dim bt As Button		Dim <FONT color=green>bt</font> As Button
	Dim arrBt As New Button[]		Dim arrBt As New Button[]
	Dim j As Byte		Dim j As Byte
Riga 13:		Riga 13:
	<FONT color=gray>' Viene innanzitutto creato l'Oggetto che dovrà essere assegnato a un Elemento dell'array del medeismo tipo dell'Oggetto.''		<FONT color=gray>' Viene innanzitutto creato l'Oggetto che dovrà essere assegnato a un Elemento dell'array del medeismo tipo dell'Oggetto.''
	' ''La sintassi "New Button(Me)" istruisce l'interprete che l'Oggetto deve essere creato e assegnato al "Form" ("Parent/Genitore"):''</font>		' ''La sintassi "New Button(Me)" istruisce l'interprete che l'Oggetto deve essere creato e assegnato al "Form" ("Parent/Genitore"):''</font>
	With bt = New Button(Me) As "Tasto"		With <FONT color=green>bt</font> = New Button(Me) As "Tasto"
	.X = 10		.X = 10
	.Y = 1 + (30 * j)		.Y = 1 + (30 * j)
Riga 21:		Riga 21:

	<FONT color=gray>' ''Si assegna il nuovo "Button" creato al vettore di tipo dell'Oggetto grafico "Button":''</font>		<FONT color=gray>' ''Si assegna il nuovo "Button" creato al vettore di tipo dell'Oggetto grafico "Button":''</font>
	arrBt.<FONT color=#B22222>Push</font>(<FONT color=bt)		arrBt.<FONT color=#B22222>Push</font>(<FONT color=green>bt</font>)
	Next		Next

Vuott il 18:36, 20 giu 2024

2024-06-20T18:36:40Z

← Versione meno recente		Versione delle 12:36, 20 giu 2024
Riga 4:		Riga 4:
	==Creare un array di dimensioni <SPAN style="text-decoration:underline">indefinite</span> di Oggetti del medesimo tipo==		==Creare un array di dimensioni <SPAN style="text-decoration:underline">indefinite</span> di Oggetti del medesimo tipo==
	In questo caso l'array, dichiarato con un numero indefinito di Elementi, sarà creato e riempito immediatamente con gli Oggetti del tipo stabilito, usando il Metodo ".Push()" dell'array:		In questo caso l'array, dichiarato con un numero indefinito di Elementi, sarà creato e riempito immediatamente con gli Oggetti del tipo stabilito, usando il Metodo ".Push()" dell'array:
	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	Dim bt As Button		Dim bt As Button
Riga 24:		Riga 24:
	Next		Next

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


	==Creare un array di dimensioni <SPAN style="text-decoration:underline">definite</span> di Oggetti del medesimo tipo==		==Creare un array di dimensioni <SPAN style="text-decoration:underline">definite</span> di Oggetti del medesimo tipo==
	In questo caso viene posto un limite massimo agli elementi dell'array.		In questo caso viene posto un limite massimo agli elementi dell'array.
	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	Dim Lblarray As New Label[<Font Color=#B22222>10</font>] <Font Color=gray>' ''è posto ad esempio il limite massimo di 10 Elementi/Oggetti''</font>		Dim Lblarray As New Label[<Font Color=#B22222>10</font>] <Font Color=gray>' ''è posto ad esempio il limite massimo di 10 Elementi/Oggetti''</font>
Riga 48:		Riga 48:
	Next		Next

	~~'''~~End~~'''~~		End
	In quest'altro esempio, invece, si provvede a creare prima il singolo Oggetto grafico (una ''Label'') e poi ad assegnarlo a un Elemento del vettore del medesimo tipo:		In quest'altro esempio, invece, si provvede a creare prima il singolo Oggetto grafico (una ''Label'') e poi ad assegnarlo a un Elemento del vettore del medesimo tipo:
	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	Dim llbb As New Label[<Font Color=#B22222>8</font>] <Font Color=gray>' ''è posto ad esempio il limite massimo di 8 Elementi/Oggetti''</font>		Dim llbb As New Label[<Font Color=#B22222>8</font>] <Font Color=gray>' ''è posto ad esempio il limite massimo di 8 Elementi/Oggetti''</font>
Riga 71:		Riga 71:
	Next		Next

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


Riga 78:		Riga 78:

	Nell'esempio seguente sarà creato un array di quattro diversi tipi di Oggetti (sul "Form" saranno creati dal codice un "Button", una "Label", un "ToggleButton" e una "TextArea"):		Nell'esempio seguente sarà creato un array di quattro diversi tipi di Oggetti (sul "Form" saranno creati dal codice un "Button", una "Label", un "ToggleButton" e una "TextArea"):
	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	Dim b, n As Byte		Dim b, n As Byte
Riga 113:		Riga 113:
	Next		Next

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

	~~'''~~Public~~'''~~ Sub Oggetto_MouseUp()
			Public Sub Oggetto_MouseUp()

	<FONT Color=gray>' ''Se si clicca su uno dei 4 Controlli grafici, posti sul "Form", sulla barra del titolo del "Form" sarà indicato il Controllo cliccato:''</font>		<FONT Color=gray>' ''Se si clicca su uno dei 4 Controlli grafici, posti sul "Form", sulla barra del titolo del "Form" sarà indicato il Controllo cliccato:''</font>
	Me.Title = "Oggetto premuto: " & Object.Type(Last)		Me.Title = "Oggetto premuto: " & Object.Type(Last)

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



	~~----~~
	=Note=		=Note=
	[1] Un ''Array'' o ''Vettore'' è un insieme di elementi del medesimo tipo. Pertanto un ''Array'' - ad esempio - del tipo Integer sarà un insieme di valori ''interi'', conterrà solo valori di tipo ''Intero'' (ciascuno dunque occuperà 4 byte di memoria; o volendo ottenere la quantità di memoria occupata dal tipo ''Intero'' mediante una risorsa di Gambas potremo fare così: ''Sizeof(gb.Integer)'' ).		[1] Un ''Array'' o ''Vettore'' è un insieme di elementi del medesimo tipo. Pertanto un ''Array'' - ad esempio - del tipo Integer sarà un insieme di valori ''interi'', conterrà solo valori di tipo ''Intero'' (ciascuno dunque occuperà 4 byte di memoria; o volendo ottenere la quantità di memoria occupata dal tipo ''Intero'' mediante una risorsa di Gambas potremo fare così: "Sizeof(gb.Integer)" ).

Vuott il 17:10, 2 ott 2022

2022-10-02T17:10:01Z

← Versione meno recente		Versione delle 11:10, 2 ott 2022
Riga 35:		Riga 35:

	<Font Color=gray>' ''Ad ogni giro del ciclo crea una Label:''</font>		<Font Color=gray>' ''Ad ogni giro del ciclo crea una Label:''</font>
	For b = 0 To 9		For b = 0 To Lblarray.Max

	<Font Color=gray>' ''E' interessante notare che in questo caso non è necessario creare uno specifico Oggetto da assegnare successivamente all'array, ma '''si può creare l'Oggetto usando direttamente un elemento dell'array medesimo:'''''</font>		<Font Color=gray>' ''E' interessante notare che in questo caso non è necessario creare uno specifico Oggetto da assegnare successivamente all'array, ma '''si può creare l'Oggetto usando direttamente un elemento dell'array medesimo:'''''</font>
Riga 52:		Riga 52:
	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

	Dim llbb As New Label[<Font Color=#B22222>4</font>] <Font Color=gray>' ''è posto ad esempio il limite massimo di 4 Elementi/Oggetti''</font>		Dim llbb As New Label[<Font Color=#B22222>8</font>] <Font Color=gray>' ''è posto ad esempio il limite massimo di 8 Elementi/Oggetti''</font>
	Dim lb As Label		Dim lb As Label
	Dim b As Byte		Dim b As Byte

	<FONT Color=gray>' ''Con un ciclo vengono create 3 "Label" e assegnate al vettore di tipo "Label":''</font>		<FONT Color=gray>' ''Con un ciclo vengono create 8 "Label" e assegnate al vettore di tipo "Label":''</font>
	For b = 0 To 3		For b = 0 To llbb.Max
	With lb = New Label(Me)		With lb = New Label(Me)
	.Border = Border.Raised		.Border = Border.Raised

Vuott il 17:07, 2 ott 2022

2022-10-02T17:07:51Z

← Versione meno recente		Versione delle 11:07, 2 ott 2022
Riga 42:		Riga 42:
	.W = 100		.W = 100
	.H = 20		.H = 20
	.X =		.X = b * 35
	.Y =		.Y = b * 40
	.text = "Label " & CStr(b)		.text = "Label " & CStr(b)
	End With		End With
Riga 52:		Riga 52:
	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

	Dim llbb As New Label[3]		Dim llbb As New Label[<Font Color=#B22222>4</font>] <Font Color=gray>' ''è posto ad esempio il limite massimo di 4 Elementi/Oggetti''</font>
	Dim lb As Label		Dim lb As Label
	Dim b As Byte		Dim b As Byte

	<FONT Color=gray>' ''Con un ciclo vengono create 3 "Label" e assegnate al vettore di tipo "Label":''</font>		<FONT Color=gray>' ''Con un ciclo vengono create 3 "Label" e assegnate al vettore di tipo "Label":''</font>
	For b = 0 To 2		For b = 0 To 3
	With lb = New Label(Me)		With lb = New Label(Me)
	.Border = Border.Raised		.Border = Border.Raised
	.X = b * 40		.X = b * 40
	.Y = 10		.Y = b * 40
	.W = 20		.W = 30
	.H = 20		.H = 20
			.Alignment = Align.Center
	.Text = CStr(b)		.Text = CStr(b)
	End With		End With
	<FONT Color=gray>' ''Assegna la variabile della "Label", appena creata, al vettore di tipo "Label":''</font>		<FONT Color=gray>' ''Assegna la variabile della "Label", appena creata, al vettore di tipo "Label":''</font>
	llbb'''[b]''' = lb		llbb'''[b]''' = lb
			Next
	Next

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

Vuott il 17:02, 2 ott 2022

2022-10-02T17:02:25Z

← Versione meno recente		Versione delle 11:02, 2 ott 2022
Riga 28:		Riga 28:

	==Creare un array di dimensioni <SPAN style="text-decoration:underline">definite</span> di Oggetti del medesimo tipo==		==Creare un array di dimensioni <SPAN style="text-decoration:underline">definite</span> di Oggetti del medesimo tipo==
	In questo caso viene posto ~~a priori~~ un limite massimo agli elementi dell'array.		In questo caso viene posto un limite massimo agli elementi dell'array.
	~~<BR>L~~'~~array sarà riempito di volta in volta che si preme un tasto:~~		'''Public''' Sub Form_Open()
	~~Private Lblarray As New Label[<Font Color=#B22222>10</font>] <Font Color=gray>~~' ''~~è posto ad esempio il limite massimo di 10 Elementi/Oggetti~~''~~</font>~~
	~~Private i As Integer~~
	~~Private n As Integer~~

			Dim Lblarray As New Label[<Font Color=#B22222>10</font>] <Font Color=gray>' ''è posto ad esempio il limite massimo di 10 Elementi/Oggetti''</font>
			Dim b As Byte

	~~'''Public''' Sub Button1_Click()~~ <Font Color=gray>' ''~~Crea~~ una Label ~~ogni qualvolta viene premuto Button1''</font>~~		<Font Color=gray>' ''Ad ogni giro del ciclo crea una Label:''</font>
			For b = 0 To 9
	~~<Font Color=gray>' ''Impedisce che venga superato il limite stabilito di Label da creare~~:''</font>
	~~If i = Lblarray.count Then Return~~

	~~n +~~= 30

	<Font Color=gray>' ''E' interessante notare che in questo caso non è necessario creare uno specifico Oggetto da assegnare successivamente all'array, ma '''si può creare l'Oggetto usando direttamente un elemento dell'array medesimo:'''''</font>		<Font Color=gray>' ''E' interessante notare che in questo caso non è necessario creare uno specifico Oggetto da assegnare successivamente all'array, ma '''si può creare l'Oggetto usando direttamente un elemento dell'array medesimo:'''''</font>
	With Lblarray'''[i]''' = New Label(Me)		With Lblarray'''[b]''' = New Label(Me)
	.Border = Border.Raised		.Border = Border.Raised
	.W = 100		.W = 100
	.H = 20		.H = 20
	.X = n		.X =
	.Y = n		.Y =
	.text = "~~Nuova~~ Label " & CStr(i)		.text = "Label " & CStr(b)
	End With		End With
			Next
	~~<Font Color=gray>' ''Viene incrementata la variabile relativa all'indice dell'array:''</font>~~
	~~Inc i~~

	'''End'''		'''End'''
Riga 124:		Riga 117:
	'''Public''' Sub Oggetto_MouseUp()		'''Public''' Sub Oggetto_MouseUp()

	<FONT Color=gray>' ''Se si su uno dei 4 Controlli grafici, posti sul "Form", sulla barra del titolo del "Form" sarà indicato il Controllo cliccato:''</font>		<FONT Color=gray>' ''Se si clicca su uno dei 4 Controlli grafici, posti sul "Form", sulla barra del titolo del "Form" sarà indicato il Controllo cliccato:''</font>
	Me.Title = "Oggetto premuto: " & Object.Type(Last)		Me.Title = "Oggetto premuto: " & Object.Type(Last)

Vuott il 16:45, 2 ott 2022

2022-10-02T16:45:44Z

← Versione meno recente		Versione delle 10:45, 2 ott 2022
Riga 19:		Riga 19:
	.H = 30		.H = 30
	End With		End With

	<FONT color=gray>' ''Si assegna il nuovo "Button" creato al vettore di tipo dell'Oggetto grafico "Button":''</font>		<FONT color=gray>' ''Si assegna il nuovo "Button" creato al vettore di tipo dell'Oggetto grafico "Button":''</font>
	arrBt.<FONT color=#B22222>Push</font>(<FONT color=bt)		arrBt.<FONT color=#B22222>Push</font>(<FONT color=bt)
Riga 94:		Riga 94:
	Dim ogg As New Object[]		Dim ogg As New Object[]

	<FONT Color=gray>' ''Vengono creati sul Form 4 oggetti diversi ed assegnati all'Array di tipo "Object":''</font>		<FONT Color=gray>' ''Vengono creati sul Form 4 oggetti diversi ed assegnati all'Array di tipo "Object". Sono assegnati altresì a un unico Gruppo di gestione dei propri Eventi.''</font>
	bt = New Button(Me) As "~~button~~"		bt = New Button(Me) As "Oggetto"
	ogg.Push(bt)		ogg.Push(bt)

	lb = New Label(Me) As "~~label~~"		lb = New Label(Me) As "Oggetto"
	ogg.Push(lb)		ogg.Push(lb)

	tb = New ToggleButton(Me) As "~~toggleButton~~"		tb = New ToggleButton(Me) As "Oggetto"
	ogg.Push(tb)		ogg.Push(tb)

	ta = New TextArea(Me) As "~~textEdit~~"		ta = New TextArea(Me) As "Oggetto"
	ogg.Push(ta)		ogg.Push(ta)

Riga 120:		Riga 120:
	Next		Next

			'''End'''

			'''Public''' Sub Oggetto_MouseUp()

			<FONT Color=gray>' ''Se si su uno dei 4 Controlli grafici, posti sul "Form", sulla barra del titolo del "Form" sarà indicato il Controllo cliccato:''</font>
			Me.Title = "Oggetto premuto: " & Object.Type(Last)

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

Vuott il 16:36, 2 ott 2022

2022-10-02T16:36:23Z

Mostra modifiche

Vuott il 13:51, 19 giu 2019

2019-06-19T13:51:46Z

← Versione meno recente		Versione delle 07:51, 19 giu 2019
Riga 24:		Riga 24:

	<FONT color=gray>' ''Si assegna il nuovo "Button creato al vettore di tipo dell'oggetto "Button":''</font>		<FONT color=gray>' ''Si assegna il nuovo "Button creato al vettore di tipo dell'oggetto "Button":''</font>
	arrBt.<FONT color=#B22222>Push(t)</font>		arrBt.<FONT color=#B22222>Push(bt)</font>

	Next		Next

Vuott il 14:47, 1 mag 2018

2018-05-01T14:47:39Z

← Versione meno recente		Versione delle 08:47, 1 mag 2018
Riga 24:		Riga 24:

	<FONT color=gray>' ''Si assegna il nuovo "Button creato al vettore di tipo dell'oggetto "Button":''</font>		<FONT color=gray>' ''Si assegna il nuovo "Button creato al vettore di tipo dell'oggetto "Button":''</font>
	arrBt.<FONT color=#B22222>~~Add~~(bt)</font>		arrBt.<FONT color=#B22222>Push(t)</font>

	Next		Next
Riga 107:		Riga 107:
	End With		End With

	tasti.<FONT color=#B22222>~~Add~~(bt)</font>		tasti.<FONT color=#B22222>Push(bt)</font>

	Inc i		Inc i
Riga 162:		Riga 162:

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

Vuott il 14:46, 1 mag 2018

2018-05-01T14:46:15Z

← Versione meno recente		Versione delle 08:46, 1 mag 2018
Riga 168:		Riga 168:

	----		----
	==Note==		=Note=
			[1] Un ''Array'' o ''Vettore'' è un insieme di elementi del medesimo tipo. Pertanto un ''Array'' - ad esempio - del tipo Integer sarà un insieme di valori ''interi'', conterrà solo valori di tipo ''Intero'' (ciascuno dunque occuperà 4 byte di memoria; o volendo ottenere la quantità di memoria occupata dal tipo ''Intero'' mediante una risorsa di Gambas potremo fare così: ''Sizeof(gb.Integer)'' ).
	[1] Un ''Array'' o ''Vettore'' è un insieme di elementi del medesimo tipo. Pertanto un ''Array'' - ad esempio - del tipo Integer sarà un insieme di valori ''interi'', conterrà solo valori di tipo ''Intero'' (ciascuno dunque occuperà 4 byte di memoria).

	[2] ''tasti.Find(Last)'' ritorna la posizione nel vettore del ''Button'' creato che in questo caso è stato premuto.		[2] ''tasti.Find(Last)'' ritorna la posizione nel vettore del ''Button'' creato che in questo caso è stato premuto.