Irgendwie habe ich immer noch ein Brett vor dem Kopf.
Das GLB_ON... verwirrt mich nur noch.
Folgendes:
Datei save.txt ist vorhanden mit dem eintrag "FALSE"
Globale weden erstellt.
GLOBAL a%
GLOBAL temp$
Danach wird abgefragt welcher eintrag in der save.txt steht.
OPENFILE( 1,"Media/pause.txt",TRUE)
READLINE 1,temp$
CLOSEFILE 1
Wenn nun FALSE drinnen steht, bekommt
die Variable a% den wert 10.
IF temp$ = "FALSE"
a% = 10
ENDIF
MAIN LOOP startet.
WHILE TRUE
PRINT "Hallo",a%,100
SHOWSCREEN
WEND
Wird nun das Programm auf dem Handy in den "Hintergrund gedrückt"
sollte GLB_ON_PAUSE aufgerufen werden.
SUB GLB_ON_PAUSE:
OPENFILE( 1,"Media/pause.txt",FALSE)
WRITELINE 1,"TRUE"
WRITELINE 1,400
CLOSEFILE 1
ENDSUB
wird es wieder Aktiviert, sollte ja GLB_ON_RESUME starten
und ansich ja die Variable a% den Wert 400 bekommen.
SUB GLB_ON_RESUME:
OPENFILE( 1,"Media/pause.txt",TRUE)
READLINE 1,temp$
READLINE 1,a%
CLOSEFILE 1
ENDSUB
und sollte das Programm beendet werden wir ja vorher GLB_ON_QUIT ausgeführt
um den eintrag wieder auf FALSE zu stellen.
SUB GLB_ON_QUIT:
OPENFILE (1, "Media/pause.txt",FALSE)
WRITELINE 1,"FALSE"
CLOSEFILE 1
ENDSUB
Nur funktioniert das nur unter Windows teilweise, das heist, verliert das Programm den Focus und
wird es danach wieder Aktiviert, wird die Variable richtig geändert.
Unter ANDROID verhart a% auf dem Wert 10, auch unter Windows wird kein "FALSE" mehr eingetragen
Denkfehler meinerseits, bzw. Verständnisproblem?
Hier nochmals das ganze an einem Stück.
// --------------------------------- //
// Project: Simple_Android
// Start: Sunday, December 14, 2014
// IDE Version: 12.312
// SETCURRENTDIR("Media") // go to media files
GLOBAL a%
GLOBAL temp$
OPENFILE( 1,"Media/pause.txt",TRUE)
READLINE 1,temp$
CLOSEFILE 1
IF temp$ = "FALSE"
a% = 10
ENDIF
WHILE TRUE
PRINT "Hallo",a%,100
SHOWSCREEN
WEND
SUB GLB_ON_QUIT:
OPENFILE (1, "Media/pause.txt",FALSE)
WRITELINE 1,"FALSE"
CLOSEFILE 1
ENDSUB
SUB GLB_ON_PAUSE:
OPENFILE( 1,"Media/pause.txt",FALSE)
WRITELINE 1,"TRUE"
WRITELINE 1,400
CLOSEFILE 1
ENDSUB
SUB GLB_ON_RESUME:
OPENFILE( 1,"Media/pause.txt",TRUE)
READLINE 1,temp$
READLINE 1,a%
CLOSEFILE 1
ENDSUB
Denkanstoss??
oder ein Simples Code Stück das mir das ganze mal zeigt wie es sein sollte??
Hier mal vorab ein grosses Danke.