Italian lisview1

[LucaMs]

ormai siamo abituati a chiamarti LucaMs!

sia il codice di Lucas

Spesso Lucas

 

[LucaMs]

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]

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]

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]

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]

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]

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]

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]

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]

Prima cosa che vedo:

    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]

Prima cosa che vedo:

    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]

ma io lo dicevo che non era per me

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

 

[Antonio Costa]

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

questo mi consola molto grazieeeeee ,

 

[Antonio Costa]

Prima cosa che vedo:

    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]

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]

?


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]

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

 

[Antonio Costa]

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

intendo le activity livello1 e la activity List

 

[LucaMs]

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]

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