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

20/9/23 - Se modificaron las notificaciones.

Browse Source 
- Se cambiaron los textos de las diferentes notificaciones para que sea mas fácil entender los mensajes.
This commit is contained in:
cheveguerra
2023-09-20 22:43:06 -06:00
parent f402c1221e
commit 4d7469e36b
3 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/B4XMainPage.bas
View File

@@ -150,7 +150,7 @@ Private Sub b_monitorActivo_Click
b_monitorActivo.Text = "Monitor Apagado" b_monitorActivo.Text = "Monitor Apagado"
l_status.Text = "Monitor Apagado" l_status.Text = "Monitor Apagado"
Starter.monitorActivo = False Starter.monitorActivo = False
s.notiHigh("Con internet", $"Monitor apagado!!"$, Monitor.nid, Main) s.notiHigh("Con internet ✅", $"Monitor APAGADO ❌"$, Monitor.nid, Main)
Else Else
cd1.Initialize(Colors.RGB(16, 141, 0), 10dip) cd1.Initialize(Colors.RGB(16, 141, 0), 10dip)
b_monitorActivo.Background = cd1 b_monitorActivo.Background = cd1

2
B4A/Monitor-Keymon.b4a.meta
View File

@@ -22,6 +22,6 @@ ModuleClosedNodes4=
ModuleClosedNodes5=8,10 ModuleClosedNodes5=8,10
ModuleClosedNodes6= ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
NavigationStack=B4XMainPage,b_timeout_Click,207,0,B4XMainPage,Initialize,53,0,B4XMainPage,b_notifAccess_Click,216,0,B4XMainPage,CreateListItem,226,3,Visual Designer,login.bal,-100,3,B4XMainPage,clv_server_ItemClick,164,0,B4XMainPage,b_monitorActivo_Click,149,0,B4XMainPage,lv_server_ItemClick,160,0,Visual Designer,listItem.bal,-100,6,B4XMainPage,B4XPage_Created,60,6 NavigationStack=B4XMainPage,b_notifAccess_Click,216,0,B4XMainPage,CreateListItem,226,3,Visual Designer,login.bal,-100,3,B4XMainPage,clv_server_ItemClick,164,0,B4XMainPage,lv_server_ItemClick,160,0,Visual Designer,listItem.bal,-100,6,B4XMainPage,B4XPage_Created,60,6,Monitor,probamosConexion,77,6,B4XMainPage,b_monitorActivo_Click,146,1,Monitor,JobDone,124,4
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,7,3,5,6,4 VisibleModules=1,7,3,5,6,4

10
B4A/monitor.bas
View File

@@ -81,7 +81,7 @@ Sub probamosConexion
B4XPages.MainPage.b_ping.Text = "Internet Ok" B4XPages.MainPage.b_ping.Text = "Internet Ok"
End If End If
Dim cmd As DBCommand Dim cmd As DBCommand
s.notiLowReturn("Con internet", "Hay conexion a internet", nid) s.notiLowReturn("Hay conexion a internet ✅️", "Revisando servidor ...", nid)
If B4XPages.IsInitialized Then B4XPages.MainPage.l_status.Text = "Hay conexion a internet!!" If B4XPages.IsInitialized Then B4XPages.MainPage.l_status.Text = "Hay conexion a internet!!"
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
@@ -93,7 +93,7 @@ Sub probamosConexion
Timer1.Enabled = True Timer1.Enabled = True
Else Else
If logger Then Log("Sin conexión a internet!!!") If logger Then Log("Sin conexión a internet!!!")
s.notiLowReturn("Sin internet", "NO hay conexion a internet", nid) s.notiLowReturn("SIN INTERNET ❌", "NO hay conexion a internet.", nid)
If B4XPages.IsInitialized Then B4XPages.MainPage.l_status.Text = "NO hay conexion a internet!!" If B4XPages.IsInitialized Then B4XPages.MainPage.l_status.Text = "NO hay conexion a internet!!"
End If End If
@@ -114,7 +114,7 @@ Sub JobDone(Job As HttpJob)
cd1.Initialize(Colors.Red, 10dip) cd1.Initialize(Colors.Red, 10dip)
If B4XPages.IsInitialized Then B4XPages.MainPage.b_ping.Background = cd1 If B4XPages.IsInitialized Then B4XPages.MainPage.b_ping.Background = cd1
If B4XPages.IsInitialized Then B4XPages.MainPage.b_ping.Text = "DBReqServer KO" If B4XPages.IsInitialized Then B4XPages.MainPage.b_ping.Text = "DBReqServer KO"
s.notiHigh("Con internet", $"El servidor ${Starter.DBReqServer} NO responde!!"$, nid, Main) s.notiHigh("ERROR ❌", $"El servidor ${Starter.DBReqServer} NO responde!!"$, nid, Main)
If Job.ErrorMessage.Contains("failed to connect") Or Job.ErrorMessage.Contains("Failed to connect") Then 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 End If
@@ -128,7 +128,7 @@ Sub JobDone(Job As HttpJob)
Private valor As String = records(resultado.Columns.Get("VALOR")) Private valor As String = records(resultado.Columns.Get("VALOR"))
If valor = "OK" Then If valor = "OK" Then
DBOk = True DBOk = True
s.notiLowReturn("Con internet", $"El servidor esta respondiendo!!"$, nid) s.notiLowReturn($"El servidor esta respondiendo ✅"$, "Servidor OK ✅", nid)
If B4XPages.IsInitialized Then If B4XPages.IsInitialized Then
B4XPages.MainPage.l_status.Text = "El servidor esta respondiendo!!" B4XPages.MainPage.l_status.Text = "El servidor esta respondiendo!!"
Dim cd1 As ColorDrawable Dim cd1 As ColorDrawable
@@ -137,7 +137,7 @@ Sub JobDone(Job As HttpJob)
B4XPages.MainPage.b_ping.Text = "Servidor Ok" B4XPages.MainPage.b_ping.Text = "Servidor Ok"
End If End If
Else Else
s.notiHigh("Con internet", $"El servidor NO esta respondiendo!!"$, nid, Main) s.notiHigh("ERROR ❌", $"El servidor NO esta respondiendo!!"$, nid, Main)
If B4XPages.IsInitialized Then If B4XPages.IsInitialized Then
B4XPages.MainPage.l_status.Text = "El servidor NO esta respondiendo!!" B4XPages.MainPage.l_status.Text = "El servidor NO esta respondiendo!!"
Dim cd1 As ColorDrawable Dim cd1 As ColorDrawable