Este foro usa cookies
Este foro utiliza cookies para almacenar su información de inicio de sesión si está registrado y su última visita si no lo está. Las cookies son pequeños documentos de texto almacenados en su computadora; las cookies establecidas por este foro solo se pueden usar en este sitio web y no representan ningún riesgo de seguridad. Las cookies en este foro también rastrean los temas específicos que ha leído y la última vez que los leyó. Si Ud. continúa navegando, entenderemos que acepta todas las cookies.

Se almacenará una cookie en su navegador, independientemente de la elección, para evitar que se le vuelva a hacer esta pregunta. Podrá cambiar la configuración de sus cookies en cualquier momento utilizando el enlace en el pie de página.

El foro antiguo se encuentra accesible desde https://foro.gambas-es.org en modo de solo lectura.

Últimos temas

Estadísticas del foro
  • Mensajes del foro:3,491
  • Temas del foro:612
  • Miembros:119
  • Último miembro:Denilson


Enviado por: Shordi
Hace 8 horas
Foro: Videotutoriales
- Sin respuestas

No tengo muy claro si esto es un tutorial o una demo... pero bueno, aquí tenéis el vídeo sobre el programa CCP del proyecto intriga. Es el responsable de conectar con la VPN y configurar los menús y unidades compartidas del usuario.


Espero que os guste

Saludos

Imprimir


Enviado por: Shordi
Hace 8 horas
Foro: Aplicaciones/Fragmentos de Código
- Sin respuestas

Acabo de subir a gitlab el programa CCP, que es el encargado de conectar tu máquina con el servidor VPN y gestionar los accesos a las unidades compartidas y menús que tengas derecho.

Lo llamé CCP porque yo ya tenía un puñado de aplicaciones corriendo en la empresa y cada una utilizaba sus propias bases de datos de usuarios, permisos, etc. Con este programa (bueno, con uno muy parecido llamado igual) unifiqué y controlé todo de manera centralizada y eso me recordó al programa malvado de la peli de Tron: El Control Central de Procesos... y no me pude resistir.

Si os lo descargáis, en principio y salvo malvado error traidor, sólo tenéis que ejecutarlo y ponerle como usuario "usuario" y como clave "usuario22" y ya está.
Veréis que no va demasiado rápido, pero os recuerdo que el servidor es poco más que una Raspberry Pi, 1gb de ram y 1 de ancho de banda, creo recordar, lo que no ocurriría en un entorno real de trabajo.

Hay mucho que discutir y que plantear: El tema de qué nivel de control se establece en las máquinas, La confección de software que enlace y facilite todo esto que estamos viendo en el foro y los vídeos (sueño con un programa instalador/configurador para servidores y otro para clientes), y muchos detalles que ahora mismo no recuerdo, pero lo que hoy presento puede ser una base para la discusión real con los que estéis interesados.

Lo podéis encontrar en https://gitlab.com/shordi/ccp.

También he hecho un video-demo del asunto. Lo tenéis en


Espero que os guste.


Saludos

Se me olvidaba, si alguno quiere cotillear la BD vía phpmyadmin podéis hacerlo en http://3.15.30.125/phpmyadmin/index.php con el usuario "usuario" y la clave os la doy en un privado, que me da yuyu ponerla aquí en abierto.

Saludos

Imprimir


Enviado por: tincho
Ayer, 00:26
Foro: Aplicaciones/Fragmentos de Código
- Respuestas (2)

Hola amigos.
Les presento un método que uso bastante seguido en mis programas ya que ademas de la excelente calidad gráfica que se logra, evita el molesto problema de las imágenes "negativas"
Como cargar los archivos

GAMBAS
  1.   For Each oCont In [pTools]
  2.     For Each o In oCont.Children
  3.  
  4.       If Object.Type(o) = "ToolButton" Then
  5.         z = (o.h - 8)
  6.         sPic = "./svg" &/ o.Tag & ".svg"
  7.         If Exist(sPic) Then
  8.           svg = dsk.Contrary(sPic, "#0066b3")
  9.           pic = Image.FromString(svg).Stretch(z, z).Picture
  10.           o.Picture = pic
  11.         Endif
  12.       Endif
  13.     Next
  14.   Next



Como cambiar el color antes de aplicarlos
GAMBAS
  1. '' Replace a color in an svg file with one that contrasts with the background of the desktop theme
  2.  
  3. Public Function Contrary(sFile As String, sColor As String) As String
  4.  
  5.   Dim svg As String
  6.  
  7.   If Application.DarkTheme Then
  8.     svg = Replace(File.Load(sFile), sColor & ";", "#eeeeee;")
  9.   Else
  10.     svg = Replace(File.Load(sFile), sColor & ";", "#000000;")
  11.  
  12.   Return svg
  13.  



Saludos.

Imprimir