ciao, sto modificando la mia App dove dopo 3 volta che la carica gli esce l'invito per votarla. Il problema che non riesco a capire perché non funge. L'ultima riga che esegue é la prima linea quella del Log("forse "&voto) dopo di che le altre linee le ignora.
Qui sotto riporto il listato del Sub Activity_Create. Se qualcuno capisce il motivo. Grazie
B4X:
Log("forse "&voto)
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'FILE X VOTARE L'APP
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
If File.Exists(File.DirInternal,"CalcItem/votare.vot") Then
voto = File.ReadString(File.DirInternal,"CalcItem/votare.vot")
Log("entra "&voto)
If voto <> "Vero" Then
voto = voto + 1
File.WriteString(File.DirInternal, "CalcItem/votare.vot", voto)
Log("primo "&voto)
else If voto = 3 Then
VotaAPP
else if voto > 3 Then
voto = 1
File.WriteString(File.DirInternal, "CalcItem/votare.vot", voto)
Log("secondo "&voto)
End If
Log("terzo "&voto)
'creo la cartellla
Else If Not(File.Exists(File.DirInternal, "CalcItem")) Then
File.MakeDir(File.DirInternal, "CalcItem")
'scrivo nel file che se non c'è me lo crea
File.WriteString(File.DirInternal, "CalcItem/votare.vot", "1")
Log("quarto "&voto)
End If
End Sub
B4X:
#Region Project Attributes
#ApplicationLabel: Calculator of CoK
#VersionCode: 1
#VersionName: 1.0
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: True
#IncludeTitle: False
#End Region
Sub Process_Globals
Dim Scelta As Int = 1
Dim Separatore As String = "VIRGOLA"
Dim stu As StringUtils 'dichiarato variabile stu è per le due sub SetLabelSize e SetButtonTextSize UTILIZZARE Libreria StringUtils
End Sub
Sub Globals
Dim myImmagine As Bitmap
Private CalcRssKoc As Button
Private CalcSpeed As Button
Private CalcLingua As Button
Private ImageView1 As ImageView
Private scelta1 As Button
Private scelta2 As Button
Private separatoreV As Label
Private separatoreP As Label
Dim voto As string
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Per il linguaggio la Variabile SCELTA è quella che contiene il valore da 1 a 4 perchè le lingue saranno 4
' 1 Inglese quella predefinita 2 italiano 3 Tedesco 4 Spagnolo
Activity.LoadLayout("Menu")
ImageView1.Bitmap = LoadBitmap(File.DirAssets, "CoK.png")
If File.Exists(File.DirInternal,"CalcItem/scelta.ini") Then
Scelta = File.ReadString(File.DirInternal,"CalcItem/scelta.ini")
Log(Scelta)
'creo la cartellla
Else If Not(File.Exists(File.DirInternal, "CalcItem")) Then
File.MakeDir(File.DirInternal, "CalcItem")
'scrivo nel file che se non c'è me lo crea
File.WriteString(File.DirInternal, "CalcItem/scelta.ini", "1")
Scelta = 1
Log(Scelta)
End If
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'FILE X IL SEPARATORE MIGLIAIA
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
If File.Exists(File.DirInternal,"CalcItem/separatore.ini") Then
Separatore = File.ReadString(File.DirInternal,"CalcItem/separatore.ini")
Log(Separatore)
'creo la cartellla
Else If Not(File.Exists(File.DirInternal, "CalcItem")) Then
File.MakeDir(File.DirInternal, "CalcItem")
'scrivo nel file che se non c'è me lo crea
File.WriteString(File.DirInternal, "CalcItem/separatore.ini", "1")
Separatore = "VIRGOLA"
Log(Separatore)
End If
If Separatore = "VIRGOLA" Then
myImmagine.Initialize(File.DirAssets,"acceso.png")
scelta1.SetBackgroundImage(myImmagine)
myImmagine.Initialize(File.DirAssets,"spento.png")
scelta2.SetBackgroundImage(myImmagine)
Else
myImmagine.Initialize(File.DirAssets,"spento.png")
scelta1.SetBackgroundImage(myImmagine)
myImmagine.Initialize(File.DirAssets,"acceso.png")
scelta2.SetBackgroundImage(myImmagine)
End If
myImmagine.Initialize(File.DirAssets,"button3d.png")
CalcLingua.SetBackgroundImage(myImmagine)
myImmagine.Initialize(File.DirAssets,"button3d.png")
CalcSpeed.SetBackgroundImage(myImmagine)
myImmagine.Initialize(File.DirAssets,"button3d.png")
CalcRssKoc.SetBackgroundImage(myImmagine)
myImmagine.Initialize(File.DirAssets,"label5.png")
separatoreP.SetBackgroundImage(myImmagine)
myImmagine.Initialize(File.DirAssets,"label5.png")
separatoreV.SetBackgroundImage(myImmagine)
If Scelta =1 Then
SetButtonTextSize(CalcSpeed,"Calculate Speed Up")
SetButtonTextSize(CalcRssKoc,"CoK - Calculate Resources")
SetButtonTextSize(CalcLingua,"Language")
SetLabelSize(separatoreV,"COMMA to separate the thousands")
SetLabelSize(separatoreP,"POINT to separate the thousands")
else if Scelta = 2 Then
SetButtonTextSize(CalcSpeed,"Calcolare Speed")
SetButtonTextSize(CalcRssKoc,"CoK - Calcolare Risorse")
SetButtonTextSize(CalcLingua,"Linguaggio")
SetLabelSize(separatoreV,"VIRGOLA per separare le migliaia")
SetLabelSize(separatoreP,"PUNTO per separare le migliaia")
else If Scelta = 3 Then
SetButtonTextSize(CalcSpeed,"Velociser Berechnen")
SetButtonTextSize(CalcRssKoc,"CoK - Ressourcen Berechnen")
SetButtonTextSize(CalcLingua,"Sprache")
SetLabelSize(separatoreV,"KOMMA, um die Tausender zu trennen")
SetLabelSize(separatoreP,"PUNKT, um die Tausenden zu trennen")
else If Scelta = 4 Then
SetButtonTextSize(CalcSpeed,"Calcular Aceleradores")
SetButtonTextSize(CalcRssKoc,"CoK - Calcular Recursos")
SetButtonTextSize(CalcLingua,"Idioma")
SetLabelSize(separatoreV,"COMA para separar los miles")
SetLabelSize(separatoreP,"PUNTO para separar los miles")
End If
Log("forse "&voto)
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'FILE X IL VOTARE L'APP
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
If File.Exists(File.DirInternal,"CalcItem/votare.vot") Then
voto = File.ReadString(File.DirInternal,"CalcItem/votare.vot")
Log("entra "&voto)
If voto <> "Vero" Then
voto = voto + 1
File.WriteString(File.DirInternal, "CalcItem/votare.vot", voto)
Log("primo "&voto)
else If voto = 3 Then
VotaAPP
else if voto > 3 Then
voto = 1
File.WriteString(File.DirInternal, "CalcItem/votare.vot", voto)
Log("secondo "&voto)
End If
Log("terzo "&voto)
'creo la cartellla
Else If Not(File.Exists(File.DirInternal, "CalcItem")) Then
File.MakeDir(File.DirInternal, "CalcItem")
'scrivo nel file che se non c'è me lo crea
File.WriteString(File.DirInternal, "CalcItem/votare.vot", "1")
Log("quarto "&voto)
End If
End Sub