-Buenas tardes estimados amigos tengo un problema al ejecutar un forzamiento de la fecha con gambas, me falla cuando uso shell date -s específicamente, a continuación describo mas a detalle el problema:
-Tengo un programa que me muestra la fecha y hora actual de la PC y en caso de que no estén actualizadas puedes seleccionar la nueva fecha y hora en un valuebox tipo datatime y forzar a que se establezca, el código que tengo me opera y hace eso sin problemas mas sin embargo me pasa algo muy interesante, después de correrlo y forzar diferentes fechas dos o tres veces se me inhibe o bloquea gambas, de otra forma dicho cualquier cambio que haga en el código o en el Form después de correr el programa no me surge efecto aunque comente o borre todo el código o por ejemplo si le doy false al valuebox o al button no me surte cambios (Que brujería es esta jajaja) y lo que hago es crear un form nuevo para poder seguir haciendo modificaciones y mejoras al código, pego botones y codigo y vuelve a jalar.
-Estoy usando gambas 3.5.4 en una distribución de Raspbian Jessie Pixxel 2017 en una Raspberry Pi 2b.
-Ya probé inicializando gambas como root (en Propiedades de archivo,Entrada de escritorio, Orden: gksu gambas3) y me hace lo mismo.
-He buscado en https://sourceforge.net/ y al momento no he encontrado algo que me ayude.
-Ya he usado el shell antes para cosas como sincronizar la hora con un servidor de Internet automáticamente, para hacer Ping a google y validar que tengo conexión a Internet y no me había pasado esto.
Pego el código y una foto del form y seguiré intentando solucionarlo, si alguién le ha pasado y sabe como se soluciona o que estoy haciendo mal agradezco mucho sus aportaciones.
Public Sub Form_Open()
Me.Center
lfecha.Text = Format(Now, "dddd dd mmmm yyyy")
End
Public Sub btnffecha_Click()
Dim fdata As Process
Dim fecha As String
Dim respuesta As Integer
If vbnfecha.Value = 0 Then
Message.Error("Favor de dar click en el cuadro rojo con gris" & Chr$(10) & "para seleccionar la nueva fecha ")
Else
respuesta = Message.Question("Desea establecer la fecha: '" & Format(vbnfecha.Value, "dddd dd mmmm yyyy hh:nn AM/PM") & "'", "OK", "NO")
Print respuesta
If respuesta = 1 Then
fecha = vbnfecha.Value
fdata = Shell ("sudo date -s '" & fecha & "'")
'También probe haciendo solamente "shell fdata wait" y forza la fecha pero me sigue inhibiendo Gambas
Do While fdata.State = Process.Running
Wait 0.1
Loop
Endif
Endif
End
De antemano agradezco sus comentarios en caso de que a alguien le haya pasado esto y sepa la soluición.
Atte.:
Oscar Peralta.