cheveguerra/Monitor-Keymon
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Monitor-Keymon.git synced 2026-04-17 21:06:19 +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"
l_status.Text = "Monitor Apagado"
Starter.monitorActivo = False
s.notiHigh("Con internet", $"Monitor apagado!!"$, Monitor.nid, Main)
s.notiHigh("Con internet ✅", $"Monitor APAGADO ❌"$, Monitor.nid, Main)
Else
cd1.Initialize(Colors.RGB(16, 141, 0), 10dip)
b_monitorActivo.Background = cd1

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

@@ -22,6 +22,6 @@ ModuleClosedNodes4=
ModuleClosedNodes5=8,10
ModuleClosedNodes6=
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
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"
End If
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!!"
Dim cmd As DBCommand
cmd.Initialize
@@ -93,7 +93,7 @@ Sub probamosConexion
Timer1.Enabled = True
Else
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!!"
End If
@@ -114,7 +114,7 @@ Sub JobDone(Job As HttpJob)
cd1.Initialize(Colors.Red, 10dip)
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)
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
' ToastMessageShow("¡Hubo un error contactando al servidor, por favor revise su conexión!", True)
End If
@@ -128,7 +128,7 @@ Sub JobDone(Job As HttpJob)
Private valor As String = records(resultado.Columns.Get("VALOR"))
If valor = "OK" Then
DBOk = True
s.notiLowReturn("Con internet", $"El servidor esta respondiendo!!"$, nid)
s.notiLowReturn($"El servidor esta respondiendo ✅"$, "Servidor OK ✅", nid)
If B4XPages.IsInitialized Then
B4XPages.MainPage.l_status.Text = "El servidor esta respondiendo!!"
Dim cd1 As ColorDrawable
@@ -137,7 +137,7 @@ Sub JobDone(Job As HttpJob)
B4XPages.MainPage.b_ping.Text = "Servidor Ok"
End If
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
B4XPages.MainPage.l_status.Text = "El servidor NO esta respondiendo!!"
Dim cd1 As ColorDrawable