my app isfrozen sometimes

[Georg]

Hi

i have an app that saved the tracks(lat,lon,alti) with GPS

Sub Timer1_Tick
gps.GetDeviceData
If gps.GetGpsData(6000) = True Then trackauf
End Sub

Sub trackauf
FileOpen (ctrack,"Track.txt",cWrite,cAppend,cASCII)
FileWrite (ctrack,gps.longtitude & "," & gps.latitude & "," & gps.SeaLevelAltitude)
FileClose(ctrack)
End Sub

sub stop
Timer1.Enabled = False
gps.Close
end sub

the Track.txt will be bigger and bigger till 1 MB or 2, that is ok, but when i press the Stopp Button sometimes the app is frozen but only sometimes. How to fix it?

 

[Erel]

Does it eventually recover from the freeze?
What is the interval of Timer1?

 

[Georg]

The Timer intervall is 1000

 

[Erel]

Does it just freeze until you close the application (with task manager)?

 

[Georg]

The stop button closed only GPS, the app runs and i can press the button Start and the GPS starts again. The app freeze, when i press the Stop Button after the GPS was running a longer time.

 

[Erel]

GPS.Close only calls the native method 'GPSCloseDevice' which probably freezes your device.
Which device are you using? Maybe it is a problem with this specific model.

 

[Georg]

I use TytnII, MDA Pro, HTC P3300 always the same problem. Could it be that i interrupt a process which is not finished, when i press the Button Stop? It will not be happen so often, when i use

sleep(1000)
timer1 = false
gps.Close

 

[Erel]

It is possible that the low level process that manages the GPS hangs for some reason.
You should try:

timer1.enabled = false
sleep(5000)
gps.close

 

[Georg]

Thanks i will check it and give you a message