cheveguerra/Monitor-Keymon
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Monitor-Keymon.git synced 2026-04-18 05:09:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

11/9/23 - Correcciones varias

Browse Source 
- El bototn de desactivar el monitor no funcionaba
- Se cambio el timeout por default
- ...
This commit is contained in:
cheveguerra
2023-09-11 11:55:33 -06:00
parent d342c85e15
commit 15dee7f67b
4 changed files with 15 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
B4A/monitor.bas
View File

@@ -19,7 +19,7 @@ Sub Process_Globals
Dim Interval As Int
Dim s As C_Subs
Dim nid As Int = 51043
Dim monitorActivo As Boolean = True
' Dim monitorActivo As Boolean = True
Dim InternetOk As Boolean = True
Dim DBReqServerOk As Boolean = True
Dim DBOk As Boolean = True
@@ -55,9 +55,11 @@ End Sub
Sub Timer1_Tick
' Log("Next run " & DateTime.Time(DateTime.Now + Interval * 1000))
DateTime.DateFormat = "dd/MM HH:mm:ss"
If B4XPages.IsInitialized Then B4XPages.MainPage.l_ultimoPing.Text = $"Último ping: ${DateTime.Date(DateTime.now)}"$
If monitorActivo Then probamosConexion
If Starter.monitorActivo Then
DateTime.DateFormat = "dd/MM HH:mm:ss"
If B4XPages.IsInitialized Then B4XPages.MainPage.l_ultimoPing.Text = $"Último ping: ${DateTime.Date(DateTime.now)}"$
probamosConexion
End If
End Sub
Sub probamosConexion
@@ -108,11 +110,11 @@ Sub JobDone(Job As HttpJob)
Dim cd1 As ColorDrawable
cd1.Initialize(Colors.Red, 10dip)
B4XPages.MainPage.b_ping.Background = cd1
B4XPages.MainPage.b_ping.Text = "DBReqServer KO"
If B4XPages.IsInitialized Then B4XPages.MainPage.b_ping.Background = cd1
If B4XPages.IsInitialized Then B4XPages.MainPage.b_ping.Text = "DBReqServer KO"
s.notiHigh("Con internet", $"El servidor ${Starter.DBReqServer} NO responde!!"$, nid, Main)
If Job.ErrorMessage.Contains("failed to connect") Or Job.ErrorMessage.Contains("Failed to connect") Then
ToastMessageShow("¡Hubo un error contactando al servidor, por favor revise su conexión!", True)
' ToastMessageShow("¡Hubo un error contactando al servidor, por favor revise su conexión!", True)
End If
Else
If Job.JobName = "DBRequest" Then DBReqServerOk = True