Italian Lag applicazione

MAX_SV

Active Member
Licensed User
Longtime User
Scusate se stò diventando un rompi balle ...
nella mia applicazione ho inserito una progress bar per visualizzare il livello di batteria con il seguente codice:

Sub PE_BatteryChanged (Level AsInt, Scale AsInt, Plugged AsBoolean, IntentAsIntent)
'Log("BatteryChanged: Level = " & Level )
Dim testo AsString
DoEvents
Try
If Plugged=TrueThen
testo="In Carica"
If Level < 15Then
lbl_valore.TextColor = Colors.Yellow
Dim b AsBeeper
b.Initialize(600, 700) '600 milliseconds, 700 hz
b.Beep​
Else
lbl_valore.TextColor = Colors.green
End If​
Else
testo=" "
If Level < 15Then
lbl_valore.TextColor = Colors.red
Dim b AsBeeper
b.Initialize(600, 700) '600 milliseconds, 700 hz
b.Beep​
Else
lbl_valore.TextColor = Colors.white​
End If​
End If
lbl_valore.Text= "Livello Batteria: "& Level & " % " & testo
'DoEvents
barra_bat.Progress=Level

'DoEvents
Catch

EndTry​

End Sub

il tutto funziona tranne un piccolo particolare quando disinserisco l'alimentazione il programma va in freez per circa 5 secondi e per sbloccarlo devo cliccare sul menu dell app stessa.
 
Top