19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Visualizza post
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
mi dispiace ma non ci ho capito ancora una mazza e son due ore che provo e riprovo.L'esempio che t'ho fatto semplicemente legge le righe del file.
c'e una guida dettagliata da qualche parte?
ti ringrazio, ho guardato gli esempi ma continuo a non capirne il meccanismo.
mi faresti un esempino facile facile?
Public Sub Button1_Click()
Dim f As File
Dim b As Byte
Dim s$ As String
f = Open "/percorso_del_mio_file" For Input
While Not Eof(f) ' compie il ciclo fin tanto che non è giunto alla fine del file
Inc b
Line Input #f, s$
Print b & "^ riga = "; s$
Wend
End
Private ss$ As String[]
Public Sub Button1_Click()
Dim f As File
Dim b As Byte
Dim s$ As String
f = Open "/percorso_del_mio_file" For Input
ss$ = New String[]
While Not Eof(f) ' compie il ciclo fin tanto che non è giunto alla fine del file
Inc b
Line Input #f, s$
' carica il contenuto della variabile s$ nel nuovo elemento
' della variabile ss$:
ss$.Add(s$)
Print b & "^ riga = "; s$
' se è arrivato alla 2^ riga, allora esce dal ciclo:
If b = 2 Then Exit
Wend
End
Public Sub Button2_Click()
Print ss$[1] ' 1 perché l'indice dell'array comincia da zero
End
In realtà la mia foto è questa se siete proprio curiosi: http://tinyurl.com/76a5uze...ummmm...
Tocca inserire questa, che rende più chiari alcuni concetti......ho preso spunto dalla tua esortazione: ho inserito quella immaginetta nel mio Gioco dell'Oca.
La sintassi:Codice: [Seleziona]può essere scritta pure come l'avevi fatto primaPrivate prima As StrutturaModello[] = New StrutturaModello[]Codice: [Seleziona]Private prima As New StrutturaModello[]
......merito di essere trascinato negli inferi da Ceskho: http://www.gambas-it.org/smf/index.php?topic=2130.msg23526#msg23526 !
Public Struct strutturaModello
prB As Byte
prI As Integer
End Struct
Private prima As New StrutturaModello[]
Public Sub Form_Open()
Dim a As Byte
Dim seconda As StrutturaModello
For a = 0 To 9
seconda = New StrutturaModello
With seconda
.prB = a
etc etc etc
Hai invece acquisito il discorso di eliminare l'inizializzazione doppia entro il metodo.Non si finisce mai di imparare.
Eh, l'avevo detto che questo era un manicomio...Grande Ambito di Matti Benché Anche Sviluppatori.... Gambas-it !
Mi riferisco al fatto che nella dichiarazione esterna viene usato il NEW, come anche la RIdichiarazione interna alla funzione (sempre NEW).
Non che provochi qualcosa di anomalo, solo che si tenta di allocare due volte la stessa variabile inutilmente.
Di solito le strade sono due:
1) nella dichiarazione di proprietà di una classe, viene effettuata anche la sua inizializzazione
2) l'inizializzazione viene fatta dal metodo creatore della classe _new()
Public Struct strutturaModello
prB As Byte
prI As Integer
End Struct
Private prima As StrutturaModello[] = New StrutturaModello[] '' <------------------|
Public Sub Form_Open()
Dim a As Byte
Dim seconda As StrutturaModello
For a = 0 To 9
seconda = New StrutturaModello
With seconda
.prB = a
.prI = 1000 + a
End With
prima.Add(seconda)
Next
End
' Andiamo a mostrare i risultati in console:
Public Sub Button1_Click()
Dim a As Byte
For a = 0 To 9
With prima[a]
Print .prB
Print .prI
End With
Next
End
A parte il motivo di creare due volte l'array (fuori metodo e entro metodo), l'esempio mi pare corretto.In particolare a quale passaggio di quel codice ti riferisci ?
Sul punto 2 del mio post:Certamente, anche se qui ovviamente ad essere array sono i membri della Struttura, e non una variabile connessa di tipo Struttura.Codice: [Seleziona]diciamo un'altro modo per creare una struttura,Public Struct strutturaModello
prB As Byte [10]
prI As Integer [10]
End Struct
Si, ma lo erano già prima di entrare in questo manicomio......e che ci fate voi altri qui ?
Non abbiamo camicie di forza, vero?No, ma si potrebbe creare una classe apposta.
Non mi risulta ben chiaro cosa vuoi fareSolo un ragionamento teorico, diciamo accademico, per capire meglio.
1) in effetti non puoi dichiarare una struttura come arrayProbabilmente mi sono espresso in modo non tecnico
2) ......
3) puoi dichiarare una tua variabile come un array di elementi di tipo "struttura", come hai tu fatto
Public Struct strutturaModello
prB As Byte
prI As Integer
End Struct
' Dichiariamo la variabile della Struttura come array con numero di elementi indefinito.
' In questo caso sarà necessario inserire dopo "As" la parola "New" (e non Struct):
Private prima As New StrutturaModello[]
' Dichiariamo un'altra variabile simile alla Struttura modello:
Private seconda As New StrutturaModello
Public Sub Form_Open()
Dim a As Byte
prima = New StrutturaModello[]
' Assegnamo i valori agli elementi della variabile 'non' array di tipo Struttura:
For a = 0 To 9
seconda = New StrutturaModello
With seconda
.prB = a
.prI = 1000 + a
End With
' La variabile Struttura array vuole una variabile Struttura - non array - del tipo "StrutturaModello":
prima.Add(seconda)
Next
End
' Andiamo a mostrare i risultati in console:
Public Sub Button1_Click()
Dim a As Byte
For a = 0 To 9
With prima[a]
Print .prB
Print .prI
End With
Next
End
questa invece è la mia versione scritta appositamente per te vuott !
ps: con g3 non va , funge solo con g2
: ho Gambas 3 ! Quindi non potrò attenermi a quanto scritto nel testo allegato al tuo programmino ! 
Dalle poche prove che ho fatto, sembrano comportarsi similarmente agli oggetti, tranne per il fatto che si presentano come template di una aggrezione di dati di tipo di verso (come del resto la structura è...).
Da quanto potuto appurare, la struttura deve essere definita all'interno di un modulo o classe, può contenere dati e array di diverso tipo, e può essere utilizzata, ovviamente, per creare array di strutture (ad es. PRIVATE $var AS STRUCT MyStruct[]).
