Italian lisview1

LucaMs · Apr 13, 2018

udg said:
ormai siamo abituati a chiamarti LucaMs!

Antonio Costa said:
sia il codice di Lucas

Spesso Lucas

LucaMs · Apr 13, 2018

Comunque hai ragione, quell' AKA non mi piace (tra l'altro l'ho imparato qui, quindi non da molti anni); molto meglio l'antico Alias!

Antonio Costa · Apr 13, 2018

LucaMs said:
Spesso Lucas

non so perché ho scritto Lucas , credo di non aver visto la M , come molte cose che non riesco a vedere nel mio codice

udg · Apr 13, 2018

E te credo!
Alias deriva dal nobile latino, AKA è acronimo di "Also Known As" probabilmente nato al di là del Vallo, ovvero nel nulla. Ave Lucas (o LucaMs, o Mario, o..come te chiami oggi? eheh)

udg · Apr 13, 2018

come molte cose che non riesco a vedere nel mio codice

File/Export as Zip e vedrai che "qualcuno" lo spulcerà per bene..eheh

Antonio Costa · Apr 13, 2018

udg said:
File/Export as Zip e vedrai che "qualcuno" lo spulcerà per bene..eheh

non me lo fa caricare , anche se l'ho alleggerito parecchio

udg · Apr 13, 2018

Allora hai due possibilità:
- copia e incolla delle parti salienti
- ricorso ad un dropbox (o similare) condiviso

Mi allontano per un po'. Fate i bravi.
bbboni, state bboni

LucaMs · Apr 13, 2018

Meglio che esegua lui il debug, ci capirà molto più di noi.

Ricordati che puoi impostare un breakpoint su una riga (semplicemente tasto sinistro accanto alla riga, sulla sinistra) e poi proseguire con l'elaborazione passo per passo premendo F8.

Antonio Costa · Apr 13, 2018

https://drive.google.com/file/d/1fmgpcDnpGE9tOSjSSPWHjn7vYMlYVK67/view?usp=sharing

lo caricato su drive , spero qualcuno di voi con molta più esperienza di me mi possa aiutare , intanto vi ringrazio in anticipo per l'aiuto e per le risposte tempestive

LucaMs · Apr 13, 2018

Prima cosa che vedo:

B4X:

    Dim List1 As List
    Dim Dir As String = File.Combine(File.DirInternal, "MathTest")
   
    'controllo se il file di testo esiste
    If File.Exists(File.DirInternal, "ListResult.txt") Then

Dopo aver creato ed impostato la variabile Dir, da quel momento in poi dovrai usare quella, non la File.DirInternal, quindi:

If File.Exists(Dir, "ListResult.txt") Then

Se devi utilizzarla anche altrove, dichiarala con Private Dir As String nella Process_Globals (ma file.combine... va poi messa nell'Activity_Create).

Antonio Costa · Apr 13, 2018

LucaMs said:
Prima cosa che vedo:

B4X:

Dim List1 As List Dim Dir As String = File.Combine(File.DirInternal, "MathTest") 'controllo se il file di testo esiste If File.Exists(File.DirInternal, "ListResult.txt") Then

Dopo aver creato ed impostato la variabile Dir, da quel momento in poi dovrai usare quella, non la File.DirInternal, quindi:

If File.Exists(Dir, "ListResult.txt") Then

Se devi utilizzarla anche altrove, dichiarala con Private Dir As String nella Process_Globals (ma file.combine... va poi messa nell'Activity_Create).

ok ora è un po' più chiaro ci provo subito , (ps: ma io lo dicevo che non era per me )

LucaMs · Apr 13, 2018

Antonio Costa said:
ma io lo dicevo che non era per me

Non preoccuparti; tra una ventina d'anni sarai un... pessimo programmatore come me

Antonio Costa · Apr 13, 2018

LucaMs said:
Non preoccuparti; tra una ventina d'anni sarai un... pessimo programmatore come me

questo mi consola molto grazieeeeee ,

Antonio Costa · Apr 13, 2018

LucaMs said:
Prima cosa che vedo:

B4X:

Dim List1 As List Dim Dir As String = File.Combine(File.DirInternal, "MathTest") 'controllo se il file di testo esiste If File.Exists(File.DirInternal, "ListResult.txt") Then

Dopo aver creato ed impostato la variabile Dir, da quel momento in poi dovrai usare quella, non la File.DirInternal, quindi:

If File.Exists(Dir, "ListResult.txt") Then

Se devi utilizzarla anche altrove, dichiarala con Private Dir As String nella Process_Globals (ma file.combine... va poi messa nell'Activity_Create).

quindi anche nella voce List evo cambiare tutto vero ?

LucaMs · Apr 13, 2018

Antonio Costa said:
quindi anche nella voce List evo cambiare tutto vero ?

?

Fai una cosa:

Process_Globals
Private mDirForResult As String

Activity_Create
File.MakeDir...
mDirForResult = File.Combine(File.DirInternal, "MathTest")

Private Sub IO_Result(Leggi As Boolean, List1 As List) As List
If Leggi Then
Return File.ReadList(mDirForResult, "ListResult.txt")
Else
File.WriteList(mDirForResult, "ListResult.txt", List1)
Return Null
End If
End Sub

Quindi, quando devi salvare la lista:
IO_Result(False, ListaDaSalvare) <-- dove ovviamente metterai quale lista salvare, non ListaDaSalvare

Quando devi leggerla:
ListaXXX = IO_Result(True, Null)

[Scritta qui, non testata, ovviamente]

Antonio Costa · Apr 13, 2018

LucaMs said:
?

Fai una cosa:

Process_Globals
Private mDirForResult As String

Activity_Create
File.MakeDir...
mDirForResult = File.Combine(File.DirInternal, "MathTest")

Private Sub IO_Result(Leggi As Boolean, List1 As List) As List
If Leggi Then
Return File.ReadList(mDirForResult, "ListResult.txt")
Else
File.WriteList(mDirForResult, "ListResult.txt", List1)
Return Null
End If
End Sub

Quindi, quando devi salvare la lista:
IO_Result(False, ListaDaSalvare) <-- dove ovviamente metterai quale lista salvare, non ListaDaSalvare

Quando devi leggerla:
ListaXXX = IO_Result(True, Null)

[Scritta qui, non testata, ovviamente]

ma tutto questo deve andare sia nella voce livello1 e sia nella voce List ?

LucaMs · Apr 13, 2018

Riapro il tuo codice ma... che intendi per "voce"?

Antonio Costa · Apr 13, 2018

LucaMs said:
Riapro il tuo codice ma... che intendi per "voce"?

intendo le activity livello1 e la activity List

LucaMs · Apr 13, 2018

Puoi mettere la routine per la lettura / salvataggio di una list in un modulo di codice, in modo da utilizzarla da qualunque activity.

Antonio Costa · Apr 13, 2018

LucaMs said:
Puoi mettere la routine per la lettura / salvataggio di una list in un modulo di codice, in modo da utilizzarla da qualunque activity.

ho inserito tutto il codice e provo a fare il test e vedo come va ,se crasha ancora vuol dire che elimino tutto, questa mi arrendo sul serio

Italian lisview1

Expert

Expert

Member

Expert

Expert

Member

Expert

Expert

Member

Expert

Member

Expert

Member

Member

Expert

Member

Expert

Member

Expert

Member

Similar Threads

Privacy & Transparency

Privacy & Transparency