Buonasera a tutti, sono nuovo sul forum e sono un novellino, sto facendo un videocorso su Udemy per imparare B4A.
Ho un problema con un errore che non riesco a capire da dove deriva e quindi chiedo a voi esperti se gentilmente potreste darmici un occhio perché sono 3 giorni che ci sbatto la testa senza venirne a capo.
Lancio l'app e a fine test, mi ha chiede il permesso di accedere allo smartphone ma una volta accettato crasha con l'errore dell'immagine allegata.
Questo è il codice della sub e la linea 67 è quella a cui l'errore fa riferimento :
Sapete dirmi quale può essere il motivo?
Grazie in anticipo!
Ho un problema con un errore che non riesco a capire da dove deriva e quindi chiedo a voi esperti se gentilmente potreste darmici un occhio perché sono 3 giorni che ci sbatto la testa senza venirne a capo.
Lancio l'app e a fine test, mi ha chiede il permesso di accedere allo smartphone ma una volta accettato crasha con l'errore dell'immagine allegata.
Questo è il codice della sub e la linea 67 è quella a cui l'errore fa riferimento :
B4X:
Sub RegisterResults(minutesInt As Int, secondsInt As Int, errorsInt As Int)
Dim list1 As List
'controllo se il file di testo esiste
If File.Exists(File.DirRootExternal, "MathTest/ListResults.txt") Then
'se il file esiste...
'carico i dati del file di testo
list1 = File.ReadList(File.DirRootExternal, "MathTest/ListResults.txt")
Dim trovato As Boolean
trovato = False
For i = 0 To 99
ListResults(i) = list1.Get(i)
If ListResults(i) = "0" And trovato = False Then
'riempo i valori del'array con i dati da registrare
ListResults(i) = dayTodayString & "|" & monthTodayString & "|" & yearTodayString & "|" & minutesInt & "|" & secondsInt & "|" & errorsInt
'imposto la boolean su True per interrompere il ciclo di registrazione
trovato = True
End If
Next
'se trova tutti gli slot occupati, cancella il primo e sposta tutto di uno
If trovato = False Then
For i = 1 To 99
ListResults(i-1) = ListResults(i)
Next
ListResults(99) = dayTodayString & "|" & monthTodayString & "|" & yearTodayString & "|" & minutesInt & "|" & secondsInt & "|" & errorsInt
End If
'salvo l'array nella directory
File.WriteList(File.DirRootExternal,"MathTest/ListResults.txt", ListResults)
Else 'se il file non esiste...
Dim Folder As String ="MathTest"
File.MakeDir(File.DirRootExternal,Folder)
Dim FullPath As String = File.Combine(File.DirRootExternal,Folder)
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result = False Then
MsgboxAsync("No permission to access external storage", "")
Return
Else
For i = 0 To 99
ListResults(i) = 0
Next
ListResults(0) = dayTodayString & "|" & monthTodayString & "|" & yearTodayString & "|" & minutesInt & "|" & secondsInt & "|" & errorsInt
'salvo l'array nella directory
File.WriteList(FullPath,"ListResults.txt", ListResults)
End If
End If
End Sub
Sapete dirmi quale può essere il motivo?
Grazie in anticipo!