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

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_dbreqserver As CheckBox
Dim cb_db As CheckBox
Private b_intervalo As Button
Private b_server As Button
' Private b_intervalo As Button
' Private b_server As Button
Private et_server As EditText
Private lv_server As ListView
Private i_engrane As ImageView
@@ -51,7 +51,7 @@ Sub Class_Globals
Private p_timeout As Panel
Private et_timeout As EditText
Private l_timeout As Label
Private b_timeout As Button
' Private b_timeout As Button
Private Label1 As Label
Private b_notifAccess As Button
Dim logger As Boolean = False
@@ -59,6 +59,7 @@ Sub Class_Globals
Private p_listItemServer As Panel
Private l_server As Label
Private l_info As Label
Private b_guardaCambios As Button
End Sub
Public Sub Initialize
@@ -98,7 +99,7 @@ Sub B4XPage_Appear
s.centraPanel(p_estatus, Root.Width)
s.centraEtiqueta(l_status, 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)
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)
@@ -185,22 +186,22 @@ Private Sub clv_server_ItemClick (Index As Int, Value As Object)
End Sub
Private Sub b_server_Click
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")
ToastMessageShow($"Servidor modificado"$, False)
p_engrane.Visible = False
CallSubDelayed(Monitor, "Timer1_Tick")
' 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")
' ToastMessageShow($"Servidor modificado"$, False)
' p_engrane.Visible = False
' CallSubDelayed(Monitor, "Timer1_Tick")
End Sub
Private Sub b_intervalo_Click
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}')"$)
ToastMessageShow($"Intervalo modificado"$, False)
CallSubDelayed(Monitor, "Timer1_Tick")
p_engrane.Visible = False
' 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}')"$)
' ToastMessageShow($"Intervalo modificado"$, False)
' CallSubDelayed(Monitor, "Timer1_Tick")
' p_engrane.Visible = False
End Sub
Private Sub i_engrane_Click
@@ -232,12 +233,12 @@ Private Sub b_ping_Click
End Sub
Private Sub b_timeout_Click
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}')"$)
ToastMessageShow($"Intervalo modificado"$, False)
CallSubDelayed(Monitor, "Timer1_Tick")
p_engrane.Visible = False
' 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}')"$)
' ToastMessageShow($"Intervalo modificado"$, False)
' CallSubDelayed(Monitor, "Timer1_Tick")
' p_engrane.Visible = False
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
@@ -279,4 +280,27 @@ End Sub
Private Sub p_Main_Click
l_info.Visible = False
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
#ApplicationLabel: Monitor Keymon
#VersionCode: 1
#VersionName: 3.10.18
#VersionName: 3.11.21
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

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

@@ -15,13 +15,13 @@ ModuleBreakpoints5=
ModuleBreakpoints6=
ModuleBreakpoints7=
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=
ModuleClosedNodes3=
ModuleClosedNodes4=
ModuleClosedNodes5=5
ModuleClosedNodes6=
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
VisibleModules=1,7,3,5,6,4