|
Página 13 de 13
|
Comencé Nueva Aplicación ( Taller 2015 )
| Autor |
Mensaje |
 shordi 
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación:  Albacete
|
 Re: Comencé Nueva Aplicación ( Taller 2015 )
Puede contener errores, que no tengo la base de datos para probarla y escribir "al vuelo" siempre, siempre falla. A tu sabiduría dejo corregirlos. 
Saludos
===================
No podemos regresar
|
#121 Domingo, 30 Octobre 2016, 20:57 |
|
 |
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación:  Uruguay
|
Re: Comencé Nueva Aplicación ( Taller 2015 )
buenas...
un adelanto del trabajo que estoy haciendo en taller2015,
muchas veces tengo citas o servis con clientes que quedan concretados para horas mas tarde, días o incluso semanas.
y bueno como mi memoria es frágil que mejor que tener algo que nos recuerde nuestros compromisos.
Citas, base sqlite3 con pocos campos id, fecha de cita, con quien, lugar, asunto
interfaz gráfica que recién mas o menos la termine, ahora voy a trabajar con la base de datos y la interacción con la interfaz
captura:
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible 
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
|
#122 Domingo, 18 Diciembre 2016, 03:03 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Re: Comencé Nueva Aplicación ( Taller 2015 )
buenas..
estoy intentando que el usuario tenga a mano la ultima version del programa.
hasta ahora lo que se me ocurrio es esto.
en el blog del programa tengo un post que dice update
el programa con httpcliente y esa url busca si existe esta etiqueta [[[activado]]] si la encuentra descarga la pagina y busca el link
para descargar un txt con la info de los enlaces.
despues muestra un boton que da con una ventana que muestra los paquetes disponibles.
quiero sus opiniones caballeros
codigo fuente:
ventana descarga:
' gambas class file
Public Sub Form_Open()
Me.Title = "Descarga de paquetes"
Labversion.Text = "Versión actual de taller 2015 es [ " & Application.Version & " ]"
If FMain.descarga.Count = 0 Then
LabCartel.Text = "Error al descargar archivo de información"
FMain.btnActualizacion.Visible = False
Else
CargarDatos()
Endif
End
Private Sub CargarDatos()
Dim xkey As String
For Each xkey In FMain.descarga
If FMain.descarga.Key = "Nueva Versión" Then
LabCartel.Text = "Nueva versión " & FMain.descarga[FMain.descarga.Key]
Continue
Endif
If FMain.descarga.Key = "Detalles" Then
txtaDetalles.Text = FMain.descarga[FMain.descarga.Key]
Continue
Endif
lstDistros.Add(FMain.descarga.Key)
Next
End
Public Sub btnDescargarPaquete_Click()
txtLink.Text = FMain.descarga[lstDistros.Current.Text]
Desktop.Open(FMain.descarga[lstDistros.Current.Text])
End
Public Sub lstDistros_Select()
btnDescargarPaquete.Enabled = True
txtLink.Clear()
txtLink.Text = FMain.descarga[lstDistros.Current.Text]
End
Public Sub Button1_Click()
Me.Close()
End
Public Sub Form_Close()
FMain.btnActualizacion.Visible = False
End
modulo verificar:
' gambas module file
Public Sub ActivarDescarga()
Dim archivo As File
Dim RutaArchivo As String = FMain.CarpetaTaller &/ "actualizacion"
Dim partes As New String[]
Dim Enlace, NuevaVersion, parrafo, urlArchivo As String
urlArchivo = func.Extraccion(FMain.ContenidoWeb, "[[[archivo]]]", "[[[/archivo]]]")
FMain.btnActualizacion.Visible = True
FMain.btnActualizacion.Enabled = False
FMain.btnActualizacion.Tooltip = "Descargando archivo con información...espere por favor..."
If Exist(RutaArchivo) Then
Kill RutaArchivo
Wait 0.05
Endif
Shell "cd " & FMain.CarpetaTaller & " && wget " & urlArchivo Wait
Wait 1
If Exist(RutaArchivo) Then
archivo = Open RutaArchivo For Read
While Not Eof(archivo)
Line Input #archivo, parrafo
If parrafo Begins "NuevaVersion=" Then
partes = New String[]
partes = Split(parrafo, "=")
NuevaVersion = Replace$(partes[1], "\"", "")
FMain.descarga.Add(NuevaVersion, "Nueva Versión")
Endif
If parrafo Begins "LoNuevo=" Then
partes = New String[]
partes = Split(parrafo, "=")
Enlace = Replace$(partes[1], "\"", "")
Fmain.descarga.Add(Enlace, "Detalles")
Endif
If parrafo Begins "CodigoFuente=" Then
partes = New String[]
partes = Split(parrafo, "=")
Enlace = Replace$(partes[1], "\"", "")
Fmain.descarga.Add(Enlace, "Código fuente")
Endif
If parrafo Begins "UbuntuMint=" Then
partes = New String[]
partes = Split(parrafo, "=")
Enlace = Replace$(partes[1], "\"", "")
Fmain.descarga.Add(Enlace, "Ubuntu-Mint")
Endif
If parrafo Begins "Debian=" Then
partes = New String[]
partes = Split(parrafo, "=")
Enlace = Replace$(partes[1], "\"", "")
Fmain.descarga.Add(Enlace, "Debian")
Endif
If parrafo Begins "Fedora-RedHat-CentOS=" Then
partes = New String[]
partes = Split(parrafo, "=")
Enlace = Replace$(partes[1], "\"", "")
Fmain.descarga.Add(Enlace, "Fedora-RedHat-CentOS")
Endif
If parrafo Begins "OpenSUSE=" Then
partes = New String[]
partes = Split(parrafo, "=")
Enlace = Replace$(partes[1], "\"", "")
Fmain.descarga.Add(Enlace, "OpenSUSE")
Endif
If parrafo Begins "Mageia=" Then
partes = New String[]
partes = Split(parrafo, "=")
Enlace = Replace$(partes[1], "\"", "")
Fmain.descarga.Add(Enlace, "Mageia")
Endif
If parrafo Begins "SlackWare=" Then
partes = New String[]
partes = Split(parrafo, "=")
Enlace = Replace$(partes[1], "\"", "")
Fmain.descarga.Add(Enlace, "SlackWare")
Endif
If parrafo Begins "Autotools=" Then
partes = New String[]
partes = Split(parrafo, "=")
Enlace = Replace$(partes[1], "\"", "")
Fmain.descarga.Add(Enlace, "Autotools")
Endif
Wend
Close archivo
Else
' btnActualizacion.Visible = False
' Ventanas.Mgv1.Open("Nueva version " & NuevaVersion & " disponible. Pero no se pudo bajar archivo de información.")
' Return
Endif
Wait 1
FMain.btnActualizacion.Enabled = True
FMain.btnActualizacion.Tooltip = "Nueva versión " & NuevaVersion & " disponible!!" & gb.NewLine &
"Clic para descargar " & Application.Name & " v." & NuevaVersion & gb.NewLine &
"Versión instalada actualmente es [ " & Application.Version & " ]"
End
llamada:
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
|
#123 Martes, 27 Diciembre 2016, 15:09 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Re: Comencé Nueva Aplicación ( Taller 2015 )
up me faltaba este código:
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
|
#124 Martes, 27 Diciembre 2016, 15:14 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Re: Comencé Nueva Aplicación ( Taller 2015 )
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
|
#125 Martes, 27 Diciembre 2016, 15:17 |
|
|
|
|
 Temas parecidos
 Temas parecidos
|
|
Página 13 de 13
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno
|
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
|
|
|
|
|
Foro 
