Proprietà ReadOnly dell'Array (proprietà di sola lettura) - Cronologia

Gianluigi: Gianluigi ha spostato la pagina Proprietà ReadOnly (proprietà di sola lettura) a Proprietà ReadOnly dell'Array (proprietà di sola lettura): Titolo troppo generico

2019-11-27T14:55:24Z

Gianluigi ha spostato la pagina Proprietà ReadOnly (proprietà di sola lettura) a Proprietà ReadOnly dell'Array (proprietà di sola lettura): Titolo troppo generico

← Versione meno recente	Versione delle 08:55, 27 nov 2019
(Nessuna differenza)

Gianluigi il 16:07, 25 nov 2019

2019-11-25T16:07:38Z

← Versione meno recente		Versione delle 10:07, 25 nov 2019
Riga 19:		Riga 19:
	prr si trasformerà in:		prr si trasformerà in:
	Property Read Name As Type		Property Read Name As Type
	con ''Name'' evidenziato, scriviamo ''sCar'' e diamo ancora tab, il Name si trasforma in sCar e si evidenzia ''Type'' che cambiamo in ''String'' a questo punto agiamo sul tasto ''Invio'' per far apparire automaticamente nella classe la funzione:		con ''Name'' evidenziato, scriviamo ''sCar'' e diamo ancora tab, il Name si trasforma in sCar e si evidenzia ''Type'' che cambiamo in ''String'', a questo punto agiamo sul tasto ''Invio'' per far apparire automaticamente nella classe la funzione:

	Private Function sCar_Read() As String		Private Function sCar_Read() As String
Riga 38:		Riga 38:
	End		End

	Alla fine la ~~vostra~~ classe CType si presenterà così:		Alla fine la nostra classe CType si presenterà così:

	Property Read sCar As String		Property Read sCar As String
Riga 133:		Riga 133:

	Avviamo il programma, '''funziona'''!.		Avviamo il programma, '''funziona'''!.
	<BR>Ma come non ~~avevamo~~ appena dimostrato che a una proprietà di sola lettura non si possono assegnare valori?		<BR>Ma come, non abbiamo appena dimostrato che a una proprietà di sola lettura non si possono assegnare valori?
	Per quanto riguarda le array questo vale solo se abbiamo attivato la nuova proprietà '''ReadOnly''', facciamolo aggiungendo alla sub ''_new()'' di '''CType''' questa riga:		<BR>Per quanto riguarda le array questo vale solo se abbiamo attivato la nuova proprietà '''ReadOnly''', facciamolo aggiungendo alla sub ''_new()'' di '''CType''' questa riga:

	$sType.ReadOnly = True		$sType.ReadOnly = True
Riga 153:		Riga 153:
	End		End

	Solo ora se lanciamo l'applicazione otterremo l'errore "Array di sola lettura", e se vogliamo che il codice funzioni occorre commentare l'assegnazione~~, ecco~~ alla fine il codice corretto della procedura Main:		Solo ora se lanciamo l'applicazione otterremo l'errore "Array di sola lettura", e se vogliamo che il codice funzioni occorre commentare l'assegnazione.
			<BR>Ecco alla fine il codice corretto della procedura Main:

	Public Sub Main()		Public Sub Main()

Gianluigi il 16:00, 25 nov 2019

2019-11-25T16:00:21Z

← Versione meno recente		Versione delle 10:00, 25 nov 2019
Riga 19:		Riga 19:
	prr si trasformerà in:		prr si trasformerà in:
	Property Read Name As Type		Property Read Name As Type
	con ''Name'' evidenziato, scriviamo ''sCar'' e diamo ancora tab il Name si ~~trsforma~~ in sCar e si evidenzia ''Type'' che cambiamo in ''String'' a questo punto agiamo sul tasto ''Invio'' per far apparire automaticamente nella classe la funzione:		con ''Name'' evidenziato, scriviamo ''sCar'' e diamo ancora tab, il Name si trasforma in sCar e si evidenzia ''Type'' che cambiamo in ''String'' a questo punto agiamo sul tasto ''Invio'' per far apparire automaticamente nella classe la funzione:

	Private Function sCar_Read() As String		Private Function sCar_Read() As String

Gianluigi il 15:58, 25 nov 2019

2019-11-25T15:58:21Z

← Versione meno recente		Versione delle 09:58, 25 nov 2019
Riga 5:		Riga 5:


	== Vediamo il motivo per cui è stata introdotta questa nuova ~~prprietà~~: ==		== Vediamo il motivo per cui è stata introdotta questa nuova proprietà: ==

Gianluigi il 15:56, 25 nov 2019

2019-11-25T15:56:05Z

← Versione meno recente		Versione delle 09:56, 25 nov 2019
Riga 134:		Riga 134:
	Avviamo il programma, '''funziona'''!.		Avviamo il programma, '''funziona'''!.
	<BR>Ma come non avevamo appena dimostrato che a una proprietà di sola lettura non si possono assegnare valori?		<BR>Ma come non avevamo appena dimostrato che a una proprietà di sola lettura non si possono assegnare valori?
	Per quanto riguarda le array questo vale solo se abbiamo attivato la nuova proprietà '''ReadOnly''', facciamolo aggiungendo alla sub ''_new()'' questa riga:		Per quanto riguarda le array questo vale solo se abbiamo attivato la nuova proprietà '''ReadOnly''', facciamolo aggiungendo alla sub ''_new()'' di '''CType''' questa riga:

	$sType.ReadOnly = True		$sType.ReadOnly = True

			Ecco come apparirà alla fine la routine ''_new()'' di '''CType''':

			Public Sub _new()

			$sCar = "FERRARI"
			$sType = New String[]
			$sType.Push("Desktop = " & Desktop.Type)
			$sType.Push("Nome User = " & System.User.Name)
			$sType.Push("Nome Host = " & System.Host)
			$sType.Push("Ordine dei byte = " & System.ByteOrder)
			$sType.Push("Versione di Gambas = " & System.FullVersion)
			$sType.ReadOnly = True

			End

	Solo ora se lanciamo l'applicazione otterremo l'errore "Array di sola lettura", e se vogliamo che il codice funzioni occorre commentare l'assegnazione, ecco alla fine il codice corretto della procedura Main:		Solo ora se lanciamo l'applicazione otterremo l'errore "Array di sola lettura", e se vogliamo che il codice funzioni occorre commentare l'assegnazione, ecco alla fine il codice corretto della procedura Main:

Gianluigi il 15:47, 25 nov 2019

2019-11-25T15:47:36Z

← Versione meno recente		Versione delle 09:47, 25 nov 2019
Riga 75:		Riga 75:
	End		End

	Come detto si genererà l'errore, il che dimostra non essere possibile assegnare valori diversi a una proprietà di sola lettura.		Avviamo il progetto.
			<BR>Come detto si genererà l'errore, il che dimostra non essere possibile assegnare valori diversi a una proprietà di sola lettura.

	Torniamo alla classe '''CType''' e cambiamone il codice aggiungendo ''sType'' una proprietà di tipo vettore, seguendo la stessa procedura già vista per sCar:		Torniamo alla classe '''CType''' e cambiamone il codice aggiungendo ''sType'' una proprietà di tipo vettore, seguendo la stessa procedura già vista per sCar:

Gianluigi il 15:42, 25 nov 2019

2019-11-25T15:42:49Z

← Versione meno recente		Versione delle 09:42, 25 nov 2019
Riga 12:		Riga 12:
	gb.desktop		gb.desktop
	e diamo OK.		e diamo OK.
	<BR>In Sorgenti del progetto aggiungiamo una nuova classe che nomineremo '''CType'''.<BR>		<BR>In ''Sorgenti'' del progetto aggiungiamo una nuova classe che nomineremo '''CType'''.<BR>

	<BR>Ora per prima cosa ci accertiamo che una proprietà di sola lettura lo sia veramente, per farlo scriviamo questo codice in CType.class:		<BR>Ora per prima cosa ci accertiamo che una proprietà di sola lettura lo sia veramente, per farlo scriviamo questo codice in ''CType.class'':
	prr e diamo tab, cioè agiamo sul tasto ''Tab'' della tastiera.		prr
			e diamo tab, cioè agiamo sul tasto ''Tab'' della tastiera.
	prr si trasformerà in:		prr si trasformerà in:
	Property Read Name As Type		Property Read Name As Type
Riga 21:		Riga 22:

	Private Function sCar_Read() As String		Private Function sCar_Read() As String

	End		End
	e appena sotto "Property Read sCar As String" uno spazio bianco che riempiamo con la dichiarazione:		e appena sotto "Property Read sCar As String" uno spazio bianco che riempiamo con la dichiarazione:
Riga 32:		Riga 33:

	Public Sub _new()		Public Sub _new()

	$sCar = "FERRARI"		$sCar = "FERRARI"

	End		End

Riga 41:		Riga 42:
	Property Read sCar As String		Property Read sCar As String
	Private $sCar As String		Private $sCar As String

	Private Function sCar_Read() As String		Private Function sCar_Read() As String

	Return $sCar		Return $sCar

	End		End

	Public Sub _new()		Public Sub _new()

	$sCar = "FERRARI"		$sCar = "FERRARI"

	End		End

Riga 67:		Riga 68:

	Public Sub Main()		Public Sub Main()

	Dim hType As New CType		Dim hType As New CType

	hType.sCar = "TOPOLINO"		hType.sCar = "TOPOLINO"

	End		End

Riga 83:		Riga 84:

	Private Function sType_Read() As String[]		Private Function sType_Read() As String[]

	Return $sType		Return $sType

	End		End

	Alla routine _new() aggiungiamo:		Alla routine ''_new()'' aggiungiamo:

	$sType = New String[]		$sType = New String[]
Riga 100:		Riga 101:

	Public Sub _new()		Public Sub _new()

	$sCar = "FERRARI"		$sCar = "FERRARI"
	$sType = New String[]		$sType = New String[]
Riga 108:		Riga 109:
	$sType.Push("Ordine dei byte = " & System.ByteOrder)		$sType.Push("Ordine dei byte = " & System.ByteOrder)
	$sType.Push("Versione di Gambas = " & System.FullVersion)		$sType.Push("Versione di Gambas = " & System.FullVersion)

	End		End

Riga 114:		Riga 115:

	Public Sub Main()		Public Sub Main()

	Dim hType As New CType		Dim hType As New CType

	' È commentato perché non è possibile assegnare		' È commentato perché non è possibile assegnare
	' valori a una proprietà di sola lettura.		' valori a una proprietà di sola lettura.
Riga 122:		Riga 123:
	Print hType.sCar		Print hType.sCar
	Print "-------"		Print "-------"

	hType.sType.Push("Cippa = Lippa")		hType.sType.Push("Cippa = Lippa")
	For Each s As String In hType.sType		For Each s As String In hType.sType
	Print s		Print s
	Next		Next

	End		End

Riga 139:		Riga 140:

	Public Sub Main()		Public Sub Main()

	Dim hType As New CType		Dim hType As New CType

	' È commentato perché non è possibile assegnare		' È commentato perché non è possibile assegnare
	' valori a una proprietà di sola lettura.		' valori a una proprietà di sola lettura.
Riga 147:		Riga 148:
	Print hType.sCar		Print hType.sCar
	Print "-------"		Print "-------"

	' È commentato perché non è possibile assegnare valori		' È commentato perché non è possibile assegnare valori
	' a un'array con attivata la proprietà di sola lettura.		' a un'array con attivata la proprietà di sola lettura.
Riga 154:		Riga 155:
	Print s		Print s
	Next		Next

	End		End

Gianluigi il 15:35, 25 nov 2019

2019-11-25T15:35:57Z

← Versione meno recente		Versione delle 09:35, 25 nov 2019
Riga 8:		Riga 8:


	Creiamo un progetto a riga di comando (''Command-line application''), e in ''Progetto > Proprietà > Componenti'' aggiungiamo:		Creiamo un progetto a riga di comando (''Command-line application''), e in ''Progetto > Proprietà > Componenti'' aggiungiamo spuntandoli:
	gb.gui		gb.gui
	gb.desktop		gb.desktop

Gianluigi il 15:34, 25 nov 2019

2019-11-25T15:34:35Z

← Versione meno recente		Versione delle 09:34, 25 nov 2019
Riga 1:		Riga 1:
	'''Esiste dalla versione 3.14'''		'''Esiste dalla versione 3.14'''
	Restituisce o imposta se il contenuto dell'array è di sola lettura.		<BR>Restituisce o imposta se il contenuto dell'array è di sola lettura.
	Attenzione: Una volta impostata, questa proprietà non può essere ripristinata.		<BR>'''Attenzione''': Una volta impostata, questa proprietà non può essere ripristinata.
	In altre parole, rendere un vettore di sola lettura è definitivo.		<BR>In altre parole, rendere un vettore di sola lettura è definitivo.

Gianluigi: Creata pagina con "'''Esiste dalla versione 3.14''' Restituisce o imposta se il contenuto dell'array è di sola lettura. Attenzione: Una volta impostata, questa proprietà non può essere ripris..."

2019-11-25T15:33:22Z

Creata pagina con "'''Esiste dalla versione 3.14''' Restituisce o imposta se il contenuto dell'array è di sola lettura. Attenzione: Una volta impostata, questa proprietà non può essere ripris..."

Nuova pagina

'''Esiste dalla versione 3.14'''
Restituisce o imposta se il contenuto dell'array è di sola lettura.
Attenzione: Una volta impostata, questa proprietà non può essere ripristinata.
In altre parole, rendere un vettore di sola lettura è definitivo.

== Vediamo il motivo per cui è stata introdotta questa nuova prprietà: ==

Creiamo un progetto a riga di comando (''Command-line application''), e in ''Progetto > Proprietà > Componenti'' aggiungiamo:
gb.gui
gb.desktop
e diamo OK.
 In Sorgenti del progetto aggiungiamo una nuova classe che nomineremo '''CType'''. 

 Ora per prima cosa ci accertiamo che una proprietà di sola lettura lo sia veramente, per farlo scriviamo questo codice in CType.class:
prr e diamo tab, cioè agiamo sul tasto ''Tab'' della tastiera.
prr si trasformerà in:
Property Read Name As Type
con ''Name'' evidenziato, scriviamo ''sCar'' e diamo ancora tab il Name si trsforma in sCar e si evidenzia ''Type'' che cambiamo in ''String'' a questo punto agiamo sul tasto ''Invio'' per far apparire automaticamente nella classe la funzione:

Private Function sCar_Read() As String

End
e appena sotto "Property Read sCar As String" uno spazio bianco che riempiamo con la dichiarazione:
Private $sCar As String

All'interno della funzione scriviamo:
Return $sCar

Aggiungiamo questa routine alla classe:

Public Sub _new()

$sCar = "FERRARI"

End

Alla fine la vostra classe CType si presenterà così:

Property Read sCar As String
Private $sCar As String

Private Function sCar_Read() As String

Return $sCar

End

Public Sub _new()

$sCar = "FERRARI"

End

Fatto.

 Ora spostiamoci nel modulo '''Main''' e al posto di ''Print "Hello world"'' scriviamo:

Dim hType As New CType

Ora scriviamo un codice per tentare di cambiare il nome dell'automobile (''car'') che genererà l'errore di ''Sola lettura'':

hType.sCar = "TOPOLINO"

Questo è come appare al momento il codice del modulo Main:

Public Sub Main()

Dim hType As New CType

hType.sCar = "TOPOLINO"

End

Come detto si genererà l'errore, il che dimostra non essere possibile assegnare valori diversi a una proprietà di sola lettura.

Torniamo alla classe '''CType''' e cambiamone il codice aggiungendo ''sType'' una proprietà di tipo vettore, seguendo la stessa procedura già vista per sCar:

Property Read sType As String[]
Private $sType As String[]
Si accoderà la nuova funzione in cui andremo a scrivere il return:

Private Function sType_Read() As String[]

Return $sType

End

Alla routine _new() aggiungiamo:

$sType = New String[]
$sType.Push("Desktop = " & Desktop.Type)
$sType.Push("Nome User = " & System.User.Name)
$sType.Push("Nome Host = " & System.Host)
$sType.Push("Ordine dei byte = " & System.ByteOrder)
$sType.Push("Versione di Gambas = " & System.FullVersion)

In modo che alla fine il codice sarà:

Public Sub _new()

$sCar = "FERRARI"
$sType = New String[]
$sType.Push("Desktop = " & Desktop.Type)
$sType.Push("Nome User = " & System.User.Name)
$sType.Push("Nome Host = " & System.Host)
$sType.Push("Ordine dei byte = " & System.ByteOrder)
$sType.Push("Versione di Gambas = " & System.FullVersion)

End

Ritorniamo al modulo '''Main''' e cambiamo il codice commentando e aggiungendo così:

Public Sub Main()

Dim hType As New CType

' È commentato perché non è possibile assegnare
' valori a una proprietà di sola lettura.
' hType.sCar = "TOPOLINO"
Print hType.sCar
Print "-------"

hType.sType.Push("Cippa = Lippa")
For Each s As String In hType.sType
Print s
Next

End

Avviamo il programma, '''funziona'''!.
 Ma come non avevamo appena dimostrato che a una proprietà di sola lettura non si possono assegnare valori?
Per quanto riguarda le array questo vale solo se abbiamo attivato la nuova proprietà '''ReadOnly''', facciamolo aggiungendo alla sub ''_new()'' questa riga:

$sType.ReadOnly = True

Solo ora se lanciamo l'applicazione otterremo l'errore "Array di sola lettura", e se vogliamo che il codice funzioni occorre commentare l'assegnazione, ecco alla fine il codice corretto della procedura Main:

Public Sub Main()

Dim hType As New CType

' È commentato perché non è possibile assegnare
' valori a una proprietà di sola lettura.
' hType.sCar = "TOPOLINO"
Print hType.sCar
Print "-------"

' È commentato perché non è possibile assegnare valori
' a un'array con attivata la proprietà di sola lettura.
' hType.sType.Push("Cippa = Lippa")
For Each s As String In hType.sType
Print s
Next

End