Conoscere le risorse possedute da una Classe - Cronologia

Vuott il 23:39, 1 mag 2025

2025-05-01T23:39:11Z

← Versione meno recente		Versione delle 17:39, 1 mag 2025
Riga 18:		Riga 18:

	Poniamo il caso di aver creato nel nostro progetto una specifica ''Classe'', chiamata ''Class1'', e che il suo codice sia il seguente:		Poniamo il caso di aver creato nel nostro progetto una specifica ''Classe'', chiamata ''Class1'', e che il suo codice sia il seguente:
	<FONT Color=~~#B22222~~>Public</font> alfa As Integer		<FONT Color=red>Public</font> alfa As Integer

	Event Evento() <FONT Color=gray>' ''La risorsa ''Event'' è di per sé "Pubblica"''</font>		Event Evento() <FONT Color=gray>' ''La risorsa ''Event'' è di per sé "Pubblica"''</font>
Riga 51:		Riga 51:
	cl = Class.Load("Color")		cl = Class.Load("Color")

	Print <FONT Color=~~#B22222~~>cl[</font>"RGB"<FONT Color=red>].Type</font>		Print <FONT Color=red>cl[</font>"RGB"<FONT Color=red>].Type</font>

	End		End

Vuott il 23:38, 1 mag 2025

2025-05-01T23:38:03Z

← Versione meno recente		Versione delle 17:38, 1 mag 2025
Riga 8:		Riga 8:
	Dim s As String		Dim s As String

	For Each s In Class.Load("Button").Symbols		For Each s In Class.Load("Button").Symbols <SUP>[[[#Note\|nota 1]]]</sup>
	Print s		Print s
	Next		Next
Riga 23:		Riga 23:


	<FONT Color=~~#B22222~~>Public</font> Procedure Prova()		<FONT Color=red>Public</font> Procedure Prova()

	Print "Testo qualsiasi"		Print "Testo qualsiasi"
Riga 51:		Riga 51:
	cl = Class.Load("Color")		cl = Class.Load("Color")

	Print <FONT Color=#B22222>cl[</font>"RGB"<FONT Color=~~#B22222~~>].Type</font>		Print <FONT Color=#B22222>cl[</font>"RGB"<FONT Color=red>].Type</font>

	End		End
Riga 103:		Riga 103:

	End		End
	o <U>più brevemente</u> così: <SUP>[[[#Note\|nota 1]]]</sup>		o <U>più brevemente</u> così: <SUP>[[[#Note\|nota 2]]]</sup>
	Public Sub Form_Open()		Public Sub Form_Open()

Riga 126:		Riga 126:

	=Note=		=Note=
	[1] ~~vedere~~ anche la seguente pagina: [[Sapere quante istanze di una Classe sono state create]]		[1] Class.Load() può caricare una Classe solo dal Componente in cui viene chiamata.

			[2] Vedere anche la seguente pagina: [[Sapere quante istanze di una Classe sono state create]]

Vuott il 02:05, 14 nov 2024

2024-11-14T02:05:40Z

← Versione meno recente		Versione delle 20:05, 13 nov 2024
Riga 103:		Riga 103:

	End		End
	o <U>più brevemente</u> così:		o <U>più brevemente</u> così: <SUP>[[[#Note\|nota 1]]]</sup>
	Public Sub Form_Open()		Public Sub Form_Open()

Riga 122:		Riga 122:

	End		End



			=Note=
			[1] vedere anche la seguente pagina: [[Sapere quante istanze di una Classe sono state create]]

Vuott il 02:04, 14 nov 2024

2024-11-14T02:04:31Z

← Versione meno recente		Versione delle 20:04, 13 nov 2024
Riga 80:		Riga 80:
	<BR>2) Accesso alla Struttura "_CLASS" dell'Oggetto, dichiarata nel file header ''gbx_class.h'' dei sorgenti di Gambas.		<BR>2) Accesso alla Struttura "_CLASS" dell'Oggetto, dichiarata nel file header ''gbx_class.h'' dei sorgenti di Gambas.
	<BR>2) Accesso al membro "CLASS_DESC_SYMBOL *table" della Struttura "_CLASS" dei sorgenti di Gambas.		<BR>2) Accesso al membro "CLASS_DESC_SYMBOL *table" della Struttura "_CLASS" dei sorgenti di Gambas.
	Public Sub ~~Main~~()		Public Sub Form_Open()

	Dim im As New Image		Dim im As New Image
Riga 96:		Riga 96:
	p3 = Pointer@(p2 + SizeOf(gb.Pointer) * 5)		p3 = Pointer@(p2 + SizeOf(gb.Pointer) * 5)

	<FONT Color=gray>' ''Dereferenzia il membro di tipo "Puntatore" "char *name;":''</font>		<FONT Color=gray>' ''Dereferenzia il membro di tipo 'Puntatore' "char *name;":''</font>
	For i As Integer = 0 To 2100		For i As Integer = 0 To 2100
	s = String@(Pointer@(p3 + i))		s = String@(Pointer@(p3 + i))
			If (Not IsNull(s)) And IsAlnum(s) Then Print "\e[0m " & s
			Next

			End
			o <U>più brevemente</u> così:
			Public Sub Form_Open()

			Dim p1, p2 As Pointer
			Dim s As String

			<FONT Color=gray>' ''Accede (ottiene l'indirizzo di memoria) alla 'Struttura' "_CLASS" relativa alla Classe "Label":''</font>
			p1 = Object.Address(Image)

			<FONT Color=gray>' ''Accede (ottiene l'indirizzo di memoria) al membro "CLASS_DESC_SYMBOL *table" della Struttura "_CLASS":''</font>
			p2 = Pointer@(p1 + SizeOf(gb.Pointer) * 5)

			<FONT Color=gray>' ''Dereferenzia il membro di tipo 'Puntatore' "char *name;":''</font>
			For i As Integer = 0 To 2100
			s = String@(Pointer@(p2 + i))
	If (Not IsNull(s)) And IsAlnum(s) Then Print "\e[0m " & s		If (Not IsNull(s)) And IsAlnum(s) Then Print "\e[0m " & s
	Next		Next

	End		End

Vuott il 21:54, 8 lug 2024

2024-07-08T21:54:10Z

← Versione meno recente		Versione delle 15:54, 8 lug 2024
Riga 76:		Riga 76:
	Una modalità più complessa e per conoscere elementi più generici, si può accedere al membro "CLASS_DESC_SYMBOL *table" della ''Struttura''		Una modalità più complessa e per conoscere elementi più generici, si può accedere al membro "CLASS_DESC_SYMBOL *table" della ''Struttura''
	typedef struct _CLASS		typedef struct _CLASS
	dichiarata nel file header "gbx_class.h".		dichiarata nel file header "gbx_class.h", procedendo come segue:
			<BR>1) Accesso alla Struttura "OBJECT" dell'Oggetto, dichiarata nel file header ''gbx_object.h'' dei sorgenti di Gambas.
			<BR>2) Accesso alla Struttura "_CLASS" dell'Oggetto, dichiarata nel file header ''gbx_class.h'' dei sorgenti di Gambas.
			<BR>2) Accesso al membro "CLASS_DESC_SYMBOL *table" della Struttura "_CLASS" dei sorgenti di Gambas.
	Public Sub Main()		Public Sub Main()

	Dim p As Pointer		Dim im As New Image
			Dim p1, p2, p3 As Pointer
			Dim s As String

	<FONT Color=gray>' ''Accede (ottiene l'indirizzo di memoria) alla Struttura "~~_CLASS~~":''</font>		<FONT Color=gray>' ''Accede (ottiene l'indirizzo di memoria) alla Struttura "OBJECT" dell'Oggetto "Image":''</font>
	p = Object.Address(~~Me)~~		p1 = Object.Address(im)

	~~Functio(p~~)

	~~End~~

			<FONT Color=gray>' ''Accede (ottiene l'indirizzo di memoria) alla Struttura "_CLASS" dell'Oggetto "Image":''</font>
	~~Private Function Functio~~(~~po As Pointer~~)		p2 = Pointer@(p1)
			Print "\e[1mClasse: "; String@(Pointer@(p2 + SizeOf(gb.Pointer) * 3))
	~~Dim p1,~~ p2 As Pointer
	~~Dim i As Integer~~

	<FONT Color=gray>' ''Accede (ottiene l'indirizzo di memoria) al membro "CLASS_DESC_SYMBOL *table" della Struttura "_CLASS":''</font>		<FONT Color=gray>' ''Accede (ottiene l'indirizzo di memoria) al membro "CLASS_DESC_SYMBOL *table" della Struttura "_CLASS":''</font>
	p1 = Pointer@(po + SizeOf(gb.Pointer) * 5)		p3 = Pointer@(p2 + SizeOf(gb.Pointer) * 5)

	~~<FONT Color=gray>' ''Accede (ottiene l'indirizzo di memoria) al primo membro di tipo "Puntatore" "char name;" della Struttura "CLASS_DESC_SYMBOL table":''</font>~~
	~~p2 = Pointer@(p1~~)

	<FONT Color=gray>' ''Dereferenzia ~~(legge i sigoli dati-byte) del predetto~~ membro di tipo "Puntatore" "char *name;":''</font>		<FONT Color=gray>' ''Dereferenzia il membro di tipo "Puntatore" "char *name;":''</font>
	For i = 0 To ~~123~~		For i As Integer = 0 To 2100
	~~If Byte~~@(p2 + i) ~~== 0 Then~~		s = String@(Pointer@(p3 + i))
	~~Print~~		If (Not IsNull(s)) And IsAlnum(s) Then Print "\e[0m " & s
	~~Continue~~
	~~Endif~~
	~~Print Chr~~(~~Byte@~~(~~p2 + i~~));
	Next		Next

	End		End

Vuott il 00:07, 1 dic 2023

2023-12-01T00:07:06Z

← Versione meno recente		Versione delle 18:07, 30 nov 2023
Riga 2:		Riga 2:


			===Conoscere i simboli posseduti da una Classe nativa===
	Poniamo il caso di voler conoscere i ''simboli'' posseduti dalla Classe ''Button'':		Poniamo il caso di voler conoscere i ''simboli'' posseduti dalla Classe ''Button'':
	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	Dim s As String		Dim s As String
Riga 11:		Riga 12:
	Next		Next

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


			===Conoscere i simboli posseduti da una Classe specifica creata===
	Ugualmente è possibile conoscere i simboli delle risorse possedute da una ''Classe'' specifica da noi creata, purché tali risorse siano dichiarate ''Pubbliche''.		Ugualmente è possibile conoscere i simboli delle risorse possedute da una ''Classe'' specifica da noi creata, purché tali risorse siano dichiarate ''Pubbliche''.

Riga 26:		Riga 27:
	Print "Testo qualsiasi"		Print "Testo qualsiasi"

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

	Ebbene, il codice della ''Classe'' principale per conoscere i simboli delle risorse della ''Classe'' secondaria "Class1" sarà semplicemente:		Ebbene, il codice della ''Classe'' principale per conoscere i simboli delle risorse della ''Classe'' secondaria "Class1" sarà semplicemente:
	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	Dim cl As New Class1 <FONT Color=gray>' ''Dichiariamo la variabile della Classe secondaria "Class1", anche se ai fini dell'argomento di questa pagina non è necessario''</font>		Dim cl As New Class1 <FONT Color=gray>' ''Dichiariamo la variabile della Classe secondaria "Class1", anche se ai fini dell'argomento di questa pagina non è necessario''</font>
Riga 38:		Riga 38:
	Next		Next

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


Riga 45:		Riga 45:

	Per disporre di tali Proprietà bisognerà porre il nome della Classe da caricare tra due parentesi quadre:		Per disporre di tali Proprietà bisognerà porre il nome della Classe da caricare tra due parentesi quadre:
	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	Dim cl As Class		Dim cl As Class
Riga 53:		Riga 53:
	Print <FONT Color=#B22222>cl[</font>"RGB"<FONT Color=#B22222>].Type</font>		Print <FONT Color=#B22222>cl[</font>"RGB"<FONT Color=#B22222>].Type</font>

	~~'''~~End~~'''~~		End
	Di seguito un esempio più completo, nel quale vengono esclusi gli eventuali ''Metodi'' della Classe:		Di seguito un esempio più completo, nel quale vengono esclusi gli eventuali ''Metodi'' della Classe:
	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	Dim cl As Class		Dim cl As Class
Riga 70:		Riga 70:
	Me.Close		Me.Close

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


Riga 77:		Riga 77:
	typedef struct _CLASS		typedef struct _CLASS
	dichiarata nel file header "gbx_class.h".		dichiarata nel file header "gbx_class.h".
	~~'''~~Public~~'''~~ Sub Main()		Public Sub Main()

	Dim p As Pointer		Dim p As Pointer
Riga 86:		Riga 86:
	Functio(p)		Functio(p)

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


	~~'''~~Private~~'''~~ Function Functio(po As Pointer)		Private Function Functio(po As Pointer)

	Dim p1, p2 As Pointer		Dim p1, p2 As Pointer
Riga 108:		Riga 109:
	Next		Next

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

Vuott il 00:45, 9 set 2022

2022-09-09T00:45:04Z

← Versione meno recente		Versione delle 18:45, 8 set 2022
Riga 1:		Riga 1:
	Per conoscere tutti i ''simboli'' relativi alle risorse (''Proprietà'', ''Metodi'' e ''Eventi''), che una Classe mette a disposizione del programmatore, si può utilizzare il seguente codice con la Classe ''Class''.		Per conoscere tutti i ''simboli'' relativi alle risorse (''Proprietà'', ''Metodi'' ed ''Eventi''), che una Classe mette a disposizione del programmatore, si può utilizzare il seguente codice con la ''Classe'' "Class".


Riga 14:		Riga 14:


	Ugualmente è possibile conoscere i simboli delle risorse possedute da una ~~classe~~ specifica da noi creata, purché tali risorse siano dichiarate ''Pubbliche''.		Ugualmente è possibile conoscere i simboli delle risorse possedute da una ''Classe'' specifica da noi creata, purché tali risorse siano dichiarate ''Pubbliche''.

	Poniamo il caso di aver creato nel nostro progetto una specifica ~~classe~~, chiamata ''Class1'', e che il suo codice sia il seguente:		Poniamo il caso di aver creato nel nostro progetto una specifica ''Classe'', chiamata ''Class1'', e che il suo codice sia il seguente:
	<FONT Color=#B22222>Public</font> alfa As Integer		<FONT Color=#B22222>Public</font> alfa As Integer

Riga 81:		Riga 81:
	Dim p As Pointer		Dim p As Pointer

	<FONT Color=gray>' ''Accede alla Struttura "_CLASS":''</font>		<FONT Color=gray>' ''Accede (ottiene l'indirizzo di memoria) alla Struttura "_CLASS":''</font>
	p = Object.Address(Me)		p = Object.Address(Me)

Riga 93:		Riga 93:
	Dim i As Integer		Dim i As Integer

	<FONT Color=gray>' ''Accede al membro "CLASS_DESC_SYMBOL *table" della Struttura "_CLASS":''</font>		<FONT Color=gray>' ''Accede (ottiene l'indirizzo di memoria) al membro "CLASS_DESC_SYMBOL *table" della Struttura "_CLASS":''</font>
	p1 = Pointer@(po + SizeOf(gb.Pointer) * 5)		p1 = Pointer@(po + SizeOf(gb.Pointer) * 5)

			<FONT Color=gray>' ''Accede (ottiene l'indirizzo di memoria) al primo membro di tipo "Puntatore" "char name;" della Struttura "CLASS_DESC_SYMBOL table":''</font>
	p2 = Pointer@(p1)		p2 = Pointer@(p1)

	For i = 0 To 63		<FONT Color=gray>' ''Dereferenzia (legge i sigoli dati-byte) del predetto membro di tipo "Puntatore" "char *name;":''</font>
			For i = 0 To 123
	If Byte@(p2 + i) == 0 Then		If Byte@(p2 + i) == 0 Then
	Print		Print
Riga 104:		Riga 107:
	Print Chr(Byte@(p2 + i));		Print Chr(Byte@(p2 + i));
	Next		Next

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

Vuott il 19:50, 8 set 2022

2022-09-08T19:50:33Z

← Versione meno recente		Versione delle 13:50, 8 set 2022
Riga 81:		Riga 81:
	Dim p As Pointer		Dim p As Pointer

			<FONT Color=gray>' ''Accede alla Struttura "_CLASS":''</font>
	p = Object.Address(Me)		p = Object.Address(Me)

Riga 91:		Riga 92:
	Dim p1, p2 As Pointer		Dim p1, p2 As Pointer
	Dim i As Integer		Dim i As Integer

			<FONT Color=gray>' ''Accede al membro "CLASS_DESC_SYMBOL *table" della Struttura "_CLASS":''</font>
	p1 = Pointer@(po + SizeOf(gb.Pointer) * 5)		p1 = Pointer@(po + SizeOf(gb.Pointer) * 5)
	p2 = Pointer@(p1)		p2 = Pointer@(p1)

Vuott il 19:38, 8 set 2022

2022-09-08T19:38:44Z

← Versione meno recente		Versione delle 13:38, 8 set 2022
Riga 74:		Riga 74:

	==Usando i Puntatori per accedere alla ''Struttura'' "_CLASS" dei sorgenti di Gambas==		==Usando i Puntatori per accedere alla ''Struttura'' "_CLASS" dei sorgenti di Gambas==
	Una modalità più complessa e per conoscere elementi più generici, si può accedere al membro "~~CLASS_EVENT~~ *~~event~~" della ''Struttura'' "_CLASS~~" (~~dichiarata nel file header "gbx_class.h").		Una modalità più complessa e per conoscere elementi più generici, si può accedere al membro "CLASS_DESC_SYMBOL *table" della ''Struttura''
			typedef struct _CLASS
			dichiarata nel file header "gbx_class.h".
	'''Public''' Sub Main()		'''Public''' Sub Main()

Riga 89:		Riga 91:
	Dim p1, p2 As Pointer		Dim p1, p2 As Pointer
	Dim i As Integer		Dim i As Integer


	p1 = Pointer@(po + SizeOf(gb.Pointer) * 5)		p1 = Pointer@(po + SizeOf(gb.Pointer) * 5)
	p2 = Pointer@(p1)		p2 = Pointer@(p1)

Vuott il 19:29, 8 set 2022

2022-09-08T19:29:32Z

← Versione meno recente		Versione delle 13:29, 8 set 2022
Riga 7:		Riga 7:
	Dim s As String		Dim s As String

	For Each s In Class.Load("Button").Symbols		For Each s In Class.Load("Button").Symbols
	Print s		Print s
	Next		Next

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



Riga 25:		Riga 24:
	<FONT Color=#B22222>Public</font> Procedure Prova()		<FONT Color=#B22222>Public</font> Procedure Prova()

	Print "Testo qualsiasi"		Print "Testo qualsiasi"

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

	Ebbene, il codice della Classe principale per conoscere i simboli delle risorse della Classe ~~secondaria~~ ''Class1'' sarà semplicemente:		Ebbene, il codice della ''Classe'' principale per conoscere i simboli delle risorse della ''Classe'' secondaria "Class1" sarà semplicemente:
	'''Public''' Sub Form_Open()		'''Public''' Sub Form_Open()

	Dim cl As New Class1 <FONT Color=gray>' ''Dichiariamo la variabile della Classe secondaria "Class1", anche se ai fini dell'argomento di questa pagina non è necessario''</font>		Dim cl As New Class1 <FONT Color=gray>' ''Dichiariamo la variabile della Classe secondaria "Class1", anche se ai fini dell'argomento di questa pagina non è necessario''</font>
	Dim s As String		Dim s As String

	For Each s In Class.Load("Class1").Symbols		For Each s In Class.Load("Class1").Symbols
	Print s		Print s
	Next		Next

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


	==Le ~~proprietà~~ della ~~classe~~ virtuale ".Symbol"==		==Le Proprietà della ''Classe'' virtuale ".Symbol"==
	La Classe "Class" possiede una Classe virtuale, chiamata "''.Symbol''", che fornisce alcune Proprietà sui simboli della Classe principale.		La Classe "Class" possiede una Classe virtuale, chiamata "''.Symbol''", che fornisce alcune Proprietà sui simboli della Classe principale.

Riga 71:		Riga 70:
	Me.Close		Me.Close

			'''End'''


			==Usando i Puntatori per accedere alla ''Struttura'' "_CLASS" dei sorgenti di Gambas==
			Una modalità più complessa e per conoscere elementi più generici, si può accedere al membro "CLASS_EVENT *event" della ''Struttura'' "_CLASS" (dichiarata nel file header "gbx_class.h").
			'''Public''' Sub Main()

			Dim p As Pointer

			p = Object.Address(Me)

			Functio(p)

			'''End'''

			'''Private''' Function Functio(po As Pointer)

			Dim p1, p2 As Pointer
			Dim i As Integer


			p1 = Pointer@(po + SizeOf(gb.Pointer) * 5)
			p2 = Pointer@(p1)

			For i = 0 To 63
			If Byte@(p2 + i) == 0 Then
			Print
			Continue
			Endif
			Print Chr(Byte@(p2 + i));
			Next

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