From 4fe5dbd25ae85fe3c2593537dce4c7c2ae38ec8d Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Tue, 21 Nov 2023 01:28:10 -0600 Subject: [PATCH] =?UTF-8?q?21/11/23=20-=20Cambios=20al=20dise=C3=B1o=20en?= =?UTF-8?q?=20engrane.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 70 ++++++++++++++++++++++++------------ B4A/Files/login.bal | Bin 17641 -> 16391 bytes B4A/Monitor-Keymon.b4a | 2 +- B4A/Monitor-Keymon.b4a.meta | 4 +-- 4 files changed, 50 insertions(+), 26 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 3cb7c90..e32c55b 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -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 \ No newline at end of file diff --git a/B4A/Files/login.bal b/B4A/Files/login.bal index b8c0b1b5fc9526ddb205fd625c62df62aced9425..28eb7239a21fa2398e77060e8ceeee358abe1eb2 100644 GIT binary patch delta 1480 zcmb7^OH30{6o%(eTAh(nXys{vmX=4gQm{Y?0|FLxfv*rXE{Iq{G-?Fn`vDXb1z$Wo zito2BG$uk|X>_NF8+4^^bm7XCy3%O0{&%o2B$(*pKl9yl&)j>@Id|sc3F_%2vr&?y zau@~AMT2IS%>rm@+_E>ct2q=5?P%KCx_hu{?a0FoG2~>UVRcwU&Vk~fD4TU0uVb-T z0+a|@AsaLoO44z%j#I#?P#To3<9T2^lp#rBDRXKdW$Df+3R*HBki$2T3myfI83fs7=2XwZ(a5+piF$6-V}X*~}Vt`6!RO9p+=eAY_XC*`6J~c&;d2 z`qvbX|8I&mac14V7)?t!X{LlX^I)Ks*6=6)HtG?{ak1aZ;j&8Q4c^x(Fp*yGWO}{R zw&~H*I|1K}=_ykkx6_@8 i3c6GHMv0ZxBr80bwWV~I*VQ)D6aKQm!!HA|sL5{!AQOxL delta 1861 zcmb7_ZERCj7{`0I-5c+{OT7I6HQEb3HqHcW_&Tm#MJ+}>~?p6W-j?Z{hjBW zKIc5oc}_Pz#_r^qMKGC6ufxdr+*q`@ZI1%>_NNB31DOMfH`2x4xZ@GcH4MilD#_has_kKLdA=lE8(w#cpRO1C^KY%tOm9jc$LmHR9Tm+#i$OlL!4CuJHYkO z8mPg*kAWMZwUE=mO$K%u*ll2sf!CQ#xpJWOhKa`w+-zX4fj5AkfLfqds10g|d&sn@XlLsf(srS4?iFh{oBP@JM+3#e`@|7UNC)UjXNZ0en-_*uB&H;HZn0W=IEX)Vg-_}AiO#%NrMjt`~n&9j+I| z8<-u0(XxvHwCtMo>;(F?R$g%#$L}vA8>jCg8`&|fh-dX}9xS3j&#U`co)U_iZmSZg z(D8zNUH?LX{%$9leX^FuA_C32g0w1V#Ug*blYK;u&Tfjjt+dPE_peng@T#&gy4&h( zT3Iy<*nFv)d5p@{v_GtxN%}Uhg`Vw{=_NJ6j_aw=xh{ofIwEpZZ=q8>8Fm5(+Gabk zY?I?!LLaXvp^5*U(8Th+R*=xi;1&|s_fb!cK>2X9{$T#|B^4iNfuhy|lUfU8^&&j1 z1)^b@@|!l0H56jB7$yjs3bnCM%0;ntcGEHMtF+s-nyz(Dvro$#mh2vkc)y*b8(l|p zQ%I5j?3<)hFxp$22AqcOxj)n0{Aqm-Ni#6BkXX8T{kJawjDPJ6hZY?DEI>L3^Ccvf zM(6)J&pj7lzJdfS!GD~^NVHddiqftcc2PT_)uT|!F0pC;R@IAGxYS+zt=@~oJAifv vWU_dBs4Cn|KLusVZQ9Q+m4jSyDddeR@Pwm5cA18wNj6VcgI@jvjlX{YlMih6 diff --git a/B4A/Monitor-Keymon.b4a b/B4A/Monitor-Keymon.b4a index e736918..bdb352f 100644 --- a/B4A/Monitor-Keymon.b4a +++ b/B4A/Monitor-Keymon.b4a @@ -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 diff --git a/B4A/Monitor-Keymon.b4a.meta b/B4A/Monitor-Keymon.b4a.meta index 3d658ee..f5275ea 100644 --- a/B4A/Monitor-Keymon.b4a.meta +++ b/B4A/Monitor-Keymon.b4a.meta @@ -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