uff... Scusate ho girato tutti i post e le varie guide ma non riesco a venirne a capo.
Se scrivo questo codice:
' Gambas module file
PUBLIC x AS Float[]
PUBLIC indice AS Integer
PUBLIC SUB Button1_Click()
mio.x[mio.indice] = mio.x[mio.indice] + 1
TextBox1.Text = mio.x[mio.indice]
INC mio.indice
END
quando faccio click su button_1 mi ritorna: null object
le variabili x e indice le ho dichiarate in un modulo chiamato mio.
Allora ragazzi scusate andiamo con ordine. L'esempio che ho postato prima mi serviva solo per capire come funzionano gli array e solo a scopo didattico, la parte di codice in cui devo implementarlo è questa ed è la continuazione di precedenti miei post:
PUBLIC SUB Button1_Click()
DIM k AS Integer
Variabili.nomeFile = File.Load(FileChooser1.SelectedPath)
Panel1.Visible = FALSE
FileChooser1.Visible = FALSE
Button1.Visible = FALSE
TextArea1.Clear
Variabili.vettore = Split(Variabili.nomeFile, "\n")
Variabili.numeroRighe = CInteger(Variabili.vettore.Length) - 1
FOR k = 0 TO Variabili.numeroRighe
TextArea1.Text = TextArea1.Text & Variabili.vettore[k]
NEXT
END
PUBLIC SUB Button3_Click()
DIM pg, px, py AS Integer
DIM x AS Float[]
DIM y AS Float[]
DIM stringa AS String
DIM k AS Integer
DIM indice AS Integer
indice = 0
FOR k = 0 TO Variabili.numeroRighe
stringa = Variabili.vettore[k]
stringa = Upper(stringa)
pg = InStr(stringa, "G")
px = InStr(stringa, "X")
py = InStr(stringa, "Y")
IF pg <> 0 THEN 'il carattere G esiste
INC indice
x[indice] = CFloat(Mid(stringa, px + 1, py - px - 1))
y[indice] = CFloat(Mid(stringa, py + 1))
TextArea2.Text = TextArea2.Text & x[indice] & " " & y[indice] & "\n"
ENDIF
NEXT
END
All'interno di un modulo chiamato variabili ho dichiarato le seguenti variabili publiche:
' Gambas module file
PUBLIC nomeFile AS String
PUBLIC vettore AS String[]
PUBLIC numeroRighe AS Integer
Gli array x e y li ho creati dinamici in quanto non so di quante stringhe è formato il mio file txt. Ora il mio intendo è creare un array di punti x e y in modo che x[1] e y[1] corrispondano alle coordinate di un punto, x[2] y[2] alle coordinate del secondo punto e così via per quanti punti ci sono nel file.
Spero di essermi spiegato
Niente da fare fsurfing, ho corretto il codice in questo modo:
PUBLIC SUB Button3_Click()
DIM pg, px, py AS Integer
DIM stringa AS String
DIM k AS Integer
DIM indice AS Integer
x = NEW Float[1000]
y = NEW Float[1000]
indice = 0
FOR k = 0 TO Variabili.numeroRighe - 1
stringa = Variabili.vettore[k]
stringa = Upper(stringa)
pg = InStr(stringa, "G")
px = InStr(stringa, "X")
py = InStr(stringa, "Y")
IF pg = 1 THEN 'il carattere G esiste
x.Add(CFloat(Mid(stringa, px + 1, py - px - 1)))
y.Add(CFloat(Mid(stringa, py + 1)))
TextArea2.Text = TextArea2.Text & x[indice] & " " & y[indice] & "\n"
INC indice
ENDIF
NEXT
END
e mi da questo errore: Type mismatch: wanted float, got string instead