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

21/11/23 - Cambios al diseño en engrane.

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-21 01:28:10 -06:00
parent 1ace88919c
commit 4fe5dbd25a
4 changed files with 50 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

70
B4A/B4XMainPage.bas
View File

@@ -37,8 +37,8 @@ Sub Class_Globals
Dim cb_internet As CheckBox Dim cb_internet As CheckBox
Dim cb_dbreqserver As CheckBox Dim cb_dbreqserver As CheckBox
Dim cb_db As CheckBox Dim cb_db As CheckBox
Private b_intervalo As Button ' Private b_intervalo As Button
Private b_server As Button ' Private b_server As Button
Private et_server As EditText Private et_server As EditText
Private lv_server As ListView Private lv_server As ListView
Private i_engrane As ImageView Private i_engrane As ImageView
@@ -51,7 +51,7 @@ Sub Class_Globals
Private p_timeout As Panel Private p_timeout As Panel
Private et_timeout As EditText Private et_timeout As EditText
Private l_timeout As Label Private l_timeout As Label
Private b_timeout As Button ' Private b_timeout As Button
Private Label1 As Label Private Label1 As Label
Private b_notifAccess As Button Private b_notifAccess As Button
Dim logger As Boolean = False Dim logger As Boolean = False
@@ -59,6 +59,7 @@ Sub Class_Globals
Private p_listItemServer As Panel Private p_listItemServer As Panel
Private l_server As Label Private l_server As Label
Private l_info As Label Private l_info As Label
Private b_guardaCambios As Button
End Sub End Sub
Public Sub Initialize Public Sub Initialize
@@ -98,7 +99,7 @@ Sub B4XPage_Appear
s.centraPanel(p_estatus, Root.Width) s.centraPanel(p_estatus, Root.Width)
s.centraEtiqueta(l_status, Root.Width) s.centraEtiqueta(l_status, Root.Width)
s.centraEtiqueta(l_ultimoPing, Root.Width) s.centraEtiqueta(l_ultimoPing, Root.Width)
s.centraPanel(p_intervalo, Root.Width) ' s.centraPanel(p_intervalo, Root.Width)
s.centraEtiqueta(Label1, Root.Width) s.centraEtiqueta(Label1, Root.Width)
If Not(CheckNotificationAccess) Then If Not(CheckNotificationAccess) Then
Msgbox2Async($"Se necesita acceso a las notificaciones, haga clic en "Aceptar" y en la siguiente pantalla permita el acceso a la aplicación "${Application.LabelName}"."$, "Permisos necesarios", "Aceptar", "Cancelar", "", Null, True) Msgbox2Async($"Se necesita acceso a las notificaciones, haga clic en "Aceptar" y en la siguiente pantalla permita el acceso a la aplicación "${Application.LabelName}"."$, "Permisos necesarios", "Aceptar", "Cancelar", "", Null, True)
@@ -185,22 +186,22 @@ Private Sub clv_server_ItemClick (Index As Int, Value As Object)
End Sub End Sub
Private Sub b_server_Click Private Sub b_server_Click
Starter.DBReqServer = et_server.text ' Starter.DBReqServer = et_server.text
Starter.skmt.ExecNonQuery($"delete from cat_variables where nombre = 'servidor'"$) ' Starter.skmt.ExecNonQuery($"delete from cat_variables where nombre = 'servidor'"$)
Starter.skmt.ExecNonQuery($"insert into cat_variables (nombre, valor) values ("servidor", '${et_server.text}')"$) ' Starter.skmt.ExecNonQuery($"insert into cat_variables (nombre, valor) values ("servidor", '${et_server.text}')"$)
CallSubDelayed(Monitor, "reinicializaReqManager") ' CallSubDelayed(Monitor, "reinicializaReqManager")
ToastMessageShow($"Servidor modificado"$, False) ' ToastMessageShow($"Servidor modificado"$, False)
p_engrane.Visible = False ' p_engrane.Visible = False
CallSubDelayed(Monitor, "Timer1_Tick") ' CallSubDelayed(Monitor, "Timer1_Tick")
End Sub End Sub
Private Sub b_intervalo_Click Private Sub b_intervalo_Click
Monitor.Interval = et_intervalo.text ' Monitor.Interval = et_intervalo.text
Starter.skmt.ExecNonQuery($"delete from cat_variables where nombre = 'intervalo'"$) ' Starter.skmt.ExecNonQuery($"delete from cat_variables where nombre = 'intervalo'"$)
Starter.skmt.ExecNonQuery($"insert into cat_variables (nombre, valor) values ("intervalo", '${et_intervalo.text}')"$) ' Starter.skmt.ExecNonQuery($"insert into cat_variables (nombre, valor) values ("intervalo", '${et_intervalo.text}')"$)
ToastMessageShow($"Intervalo modificado"$, False) ' ToastMessageShow($"Intervalo modificado"$, False)
CallSubDelayed(Monitor, "Timer1_Tick") ' CallSubDelayed(Monitor, "Timer1_Tick")
p_engrane.Visible = False ' p_engrane.Visible = False
End Sub End Sub
Private Sub i_engrane_Click Private Sub i_engrane_Click
@@ -232,12 +233,12 @@ Private Sub b_ping_Click
End Sub End Sub
Private Sub b_timeout_Click Private Sub b_timeout_Click
Monitor.timeout = et_timeout.text ' Monitor.timeout = et_timeout.text
Starter.skmt.ExecNonQuery($"delete from cat_variables where nombre = 'timeout'"$) ' Starter.skmt.ExecNonQuery($"delete from cat_variables where nombre = 'timeout'"$)
Starter.skmt.ExecNonQuery($"insert into cat_variables (nombre, valor) values ("timeout", '${et_timeout.text}')"$) ' Starter.skmt.ExecNonQuery($"insert into cat_variables (nombre, valor) values ("timeout", '${et_timeout.text}')"$)
ToastMessageShow($"Intervalo modificado"$, False) ' ToastMessageShow($"Intervalo modificado"$, False)
CallSubDelayed(Monitor, "Timer1_Tick") ' CallSubDelayed(Monitor, "Timer1_Tick")
p_engrane.Visible = False ' p_engrane.Visible = False
End Sub End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
@@ -280,3 +281,26 @@ End Sub
Private Sub p_Main_Click Private Sub p_Main_Click
l_info.Visible = False l_info.Visible = False
End Sub End Sub
Private Sub b_guardaCambios_Click
'Guardamos Intervalo
Monitor.Interval = et_intervalo.text
Starter.skmt.ExecNonQuery($"delete from cat_variables where nombre = 'intervalo'"$)
Starter.skmt.ExecNonQuery($"insert into cat_variables (nombre, valor) values ("intervalo", '${et_intervalo.text}')"$)
CallSubDelayed(Monitor, "Timer1_Tick")
p_engrane.Visible = False
'Guardamos DBReqServer
Starter.DBReqServer = et_server.text
Starter.skmt.ExecNonQuery($"delete from cat_variables where nombre = 'servidor'"$)
Starter.skmt.ExecNonQuery($"insert into cat_variables (nombre, valor) values ("servidor", '${et_server.text}')"$)
CallSubDelayed(Monitor, "reinicializaReqManager")
p_engrane.Visible = False
CallSubDelayed(Monitor, "Timer1_Tick")
'Guardamos Timeout
Monitor.timeout = et_timeout.text
Starter.skmt.ExecNonQuery($"delete from cat_variables where nombre = 'timeout'"$)
Starter.skmt.ExecNonQuery($"insert into cat_variables (nombre, valor) values ("timeout", '${et_timeout.text}')"$)
CallSubDelayed(Monitor, "Timer1_Tick")
p_engrane.Visible = False
ToastMessageShow($"Cambios guardados"$, False)
End Sub

BIN
B4A/Files/login.bal
View File

Binary file not shown.

2
B4A/Monitor-Keymon.b4a
View File

@@ -42,7 +42,7 @@ Version=12.5
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Monitor Keymon #ApplicationLabel: Monitor Keymon
#VersionCode: 1 #VersionCode: 1
#VersionName: 3.10.18 #VersionName: 3.11.21
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

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

@@ -15,13 +15,13 @@ ModuleBreakpoints5=
ModuleBreakpoints6= ModuleBreakpoints6=
ModuleBreakpoints7= ModuleBreakpoints7=
ModuleClosedNodes0= ModuleClosedNodes0=
ModuleClosedNodes1=7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25 ModuleClosedNodes1=7,8,9,10,11,14,15,18,19,21,22,24
ModuleClosedNodes2= ModuleClosedNodes2=
ModuleClosedNodes3= ModuleClosedNodes3=
ModuleClosedNodes4= ModuleClosedNodes4=
ModuleClosedNodes5=5 ModuleClosedNodes5=5
ModuleClosedNodes6= ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
NavigationStack=B4XMainPage,b_ping_Click,211,0,B4XMainPage,CreateListItem,251,0,Monitor,probamosConexion,86,0,C_Subs,Class_Globals,0,0,Monitor,reinicializaReqManager,102,0,C_Subs,fechaKMT,42,0,Monitor,JobDone,143,6,NotificationService,Process_Globals,12,0,NotificationService,Service_Create,18,0,NotificationService,MonitorKeymon_NotificationPosted,35,0 NavigationStack=B4XMainPage,Class_Globals,39,0,B4XMainPage,B4XPage_Appear,95,0,B4XMainPage,B4XPage_Created,83,0,Main,Process_Globals,20,0,B4XMainPage,l_info_Click,254,0,B4XMainPage,l_internet_Click,266,0,Visual Designer,login.bal,-100,6,B4XMainPage,l_dbreqserver_Click,265,0,B4XMainPage,b_ping_Click,219,0,B4XMainPage,l_db_Click,260,0,B4XMainPage,b_guardaCambios_Click,283,2
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,7,3,5,6,4 VisibleModules=1,7,3,5,6,4