viernes, 30 de diciembre de 2016

Herramienta de programador gambas (limpiaTaller)

Hola!, aquí una idea para facilitar nuestro trabajo diario de programación.
limpaTaller es un pequeño script que elimina el paquete instalado de nuestro proyecto en este caso es taller-2015 pero podría ser tu proyecto.
también borra la carpeta de trabajo del programa taller 2015 y su archivo de configuración ubicado en: "$HOME/.config/gambas3/Taller_2015.conf"

la utilidad de este script es ver si nuestro programa tiene errores, pues al borrar todo el programa comienza de cero y ves si todo anda correctamente.

en mi caso y para mi proyecto necesite ese script pero ustedes tendrán que adaptarlo a su proyecto. Solo hay que aprender un poco de Bash y no es difícil.

aquí un manual básico para empezar:
https://thales.cica.es/rd/glinex/practicas-glinex05/manuales/bash/practica.pdf

---------------  comienzo ---------------------

#!/bin/bash
# Desintalación completa de Taller 2015
echo '*** Desintalación completa de Taller 2015 ***'
carpeta_taller="$HOME/Taller2015"
archivo_config="$HOME/.config/gambas3/Taller_2015.conf"
# Desintalar paquete taller-2015
sudo apt-get purge taller-2015

# Sí el archivo existe lo elimina
if  test -f $archivo_config
then
rm $archivo_config
echo '*** Archivo '$archivo_config' eliminado'
fi

# Sí la carpeta existe la elimina
if  test -d $carpeta_taller
then
sleep 2
rm -r $carpeta_taller
echo '*** Carpeta '$carpeta_taller' eliminada'
fi

echo '*** Tarea completada! ***'
------------- fin ---------------------

Dar permisos de ejecución al script:  chmod 775  nombreScript
Ejecutar script:  ./nombreScript

Saludos gamberos

miércoles, 28 de diciembre de 2016

Clase txtasc



Buenas,
Resulta que en el programa taller 2015 tengo una pequeña herramienta que me ayuda a verificar los cheksum de las .iso de sistemas operativos que cada tanto hay que bajar.

Se puede usar de forma manual, es decir pegar el cheksum en un cuadro de texto, despues simplemente le damos al programa la ubicacion de la .iso y el programa hace la comprobación cuando termina veremos si esta todo bien o hubo error.

Pues bien tambien le di a esta herramienta la posiblilidad de extraer los cheksum de los archivos... ejemplo de archivo:


En ese archivo no parece complicado extraer la informacion y mostrarla en un tableview.....


pero... en el archivo siguiente el asunto se complica por su formato y por que varia el hash, indicado en una etiqueta 'hash:'

Ejemplo:


Bueno esta clase lo que hace es extraer los nombres de las distribuciones
indicado con la flecha azul de la derecha, y sus correspondientes hashes.

bueno les dejo el codigo para que experimenten.
la clase esta fresquita aun, seguramente tiene muchisimas mejoras, pero ya hace su tarea para lo cual fue creada.

Saludos.





' gambas class file

'Clase txtasc by postapase 28/12/2016

Public Const SHA1 As String = "SHA1"
Public Const SHA256 As String = "SHA256"
Public Const SHA512 As String = "SHA512"


Private Const COMIENZO As String = "-----BEGIN PGP SIGNED MESSAGE-----"
Private Const HASH As String = "Hash:"
Private Const FINAL As String = "-----BEGIN PGP SIGNATURE-----"

Property TipoHash As String
Property HashDistro As Collection

Private $TipoHash As String
Private $HashDistro As New Collection


Public Sub _new(RutaArchivo As String) ''Ingresar ruta de archivo *.txt.asc
Dim archivo As File
Dim parrafo As String
Dim tipo As String
Dim CorteTipoHash As New String[]
Dim CorteHash As New String[]
Dim Contenido As String


If Not Exist(RutaArchivo) Then
Debug Error.Text
Return
Endif

archivo = Open RutaArchivo For Read

While Not Eof(archivo)

Line Input #archivo, parrafo

If InStr(parrafo, FINAL) <> 0 Then Break

If InStr(parrafo, HASH) <> 0 Then

CorteTipoHash = Split(parrafo, " ", Null, True)

QueTipoDeHashEs(Trim(CorteTipoHash[1]))

Endif

If InStr(parrafo, COMIENZO) = 0 And If InStr(parrafo, HASH) = 0 And If Not IsNull(parrafo) Then

CorteHash = Split(parrafo, " ", Null, True)

$HashDistro.Add(Trim(CorteHash[0]), Trim(CorteHash[1]))

Endif

Wend

Close #archivo

HashDistro_Write($HashDistro)

End

Private Function TipoHash_Read() As String
Return $TipoHash
End

Private Sub TipoHash_Write(Value As String)
$TipoHash = Value
End

Private Function HashDistro_Read() As Collection
Return $HashDistro
End

Private Sub HashDistro_Write(Value As Collection)
$HashDistro = Value
End

Private Sub QueTipoDeHashEs(texto As String)

Select Case texto
Case SHA1
$TipoHash = SHA1
Case SHA256
$TipoHash = SHA256
Case SHA512
$TipoHash = SHA512
Case Else
$TipoHash = ""
End Select

TipoHash_Write($TipoHash)

End





miércoles, 21 de diciembre de 2016

Fragmentos de código


Fragmentos de código lo ubicamos en...
Herramientas--->Preferencias--->Fragmentos de código

Fragmentos de código trata de un sistema para ahorrar tiempo y trabajo al programador....

por ejemplo si queremos declarar una variable de tipo string llamada nombre dentro de una subrutina (Dim) entonces escribimos letra por letra....

Dim nombre as string

sin embargo hay una forma mas fácil gracias a la herramienta Fragmentos de código

escribimos ds y tab y queda asi:  Dim sVar As String
(ds es la cadena de disparo, y con tab disparamos  para que imprima el texto)
(d=Dim  s=String)



y queda seleccionado y pronto para borrar Var que es donde va el nombre de nuestra variable, la s antes de var indica que es una variable de tipo string muy util cuando tenemos un programa muy grande.

Otro ejemplo ahora con un subrutina donde tendriamos que teclear letra por letra esto:

Public Sub MiSubrutina()
 
End

en cambio usando las abreviaturas de Fragmentos de código solo debemos tipear

ps  y tab  obteniendo esto:

Public Sub Name(Arguments)

End

quedando name seleccionado pronto para borrar y escribir el nombre de nuestra rutina, si nuestra rutina lleva argumentos entonces borramos arguments y tipeamos lo que necesitemos sino borramos argumento y listo.

otra que usamos mucho podria ser if y tab que imprime...

If Test Then
  
Endif

todas estas abreviaturas vienen predefinidas

pero podemos crear las nuestras o editar las ya existentes.

para aprender a crear mi consejo es que edites las ya existentes así descubrís que significa cada cosa  y después si crear tus propias abreviaturas o cadenas de disparo.




Saludos


Nota: tab=Tecla tabulador




domingo, 18 de diciembre de 2016

Ejemplo Swap






' gambas class file

'Ejemplo Swap
'by postapase
'http://novatocodegambas.blogspot.com.uy/

Public Sub Button3_Click()
Swap Button1.Text, Button2.Text
End

Public Sub Form_Open()

End

Public Sub Button4_Click()
Swap PictureBox1.Picture, PictureBox2.Picture
End



Código fuente

En la ide Gambas tenes otro ejemplo mas conocido...



 Esto es un ejemplo de lo importante de examinar el código de la ide de Gambas periodicamente, para asi aprender y extraer código y aprender nuevas cosas.

Saludos gamberos

lunes, 5 de diciembre de 2016

Captura la Ventana activa

Código original extraído de IDE Gambas 3.9


' gambas class file

Public Sub Form_Open()

Me.W = btnTakeScreenshot.Font.TextWidth(btnTakeScreenshot.Text) + Desktop.Scale * 14
Me.Move(Desktop.X + Desktop.W - Me.W, Desktop.Y)

End


Public Sub btnTakeScreenshot_Click()

Dim hWindow As DesktopWindow
Dim hPict As Picture
Dim I As Integer
Dim sDir As String
Dim sPath As String

Me.Hide
Wait 0.1

hWindow = New DesktopWindow(Desktop.ActiveWindow)
hPict = hWindow.GetScreenshot()

sDir = Project.Dir &/ ".hidden/screenshots"
For I = 1 To 999
sPath = sDir &/ Format(Now, "yyyy-mm-dd")
If I > 1 Then sPath &= "-" & CStr(I)
sPath &= ".png"
If Not Exist(sPath) Then
If Not IsDir(sDir) Then Project.InsertDirectory(sDir)
hPict.Save(sPath)
Project.InsertFile(File.Name(sPath), File.Dir(sPath))
Break
Endif
Next

Me.Show

End

Public Sub btnClose_Click()

Me.Close

End


Aquí mi adaptación al ejemplo que queria hacer.

' gambas class file

'Código extraído de gambas (FScreenshot)
'Modificado por postapase para hacer un ejemplo
'Este ejemplo captura una foto de la ventana activa

Private sDir As String

Public Sub Form_Open()
Me.W = btnTakeScreenshot.Font.TextWidth(btnTakeScreenshot.Text) + Desktop.Scale * 14
Me.Move(Desktop.X + Desktop.W - Me.W, Desktop.Y)

sDir = User.Home &/ "MisCapturas"

If Not Exist(sDir) Then
Mkdir sDir
Wait 0.1
Endif
End

Public Sub btnTakeScreenshot_Click()
Dim hWindow As DesktopWindow
Dim hPict As Picture
Dim I As Integer
Dim sPath As String

Me.Hide
Wait 0.1

hWindow = New DesktopWindow(Desktop.ActiveWindow)
hPict = hWindow.GetScreenshot()

For I = 1 To 999
sPath = sDir &/ Format(Now, "yyyy-mm-dd")
If I > 1 Then sPath &= "-" & CStr(I)
sPath &= ".png"
If Not Exist(sPath) Then
hPict.Save(sPath)
Break
Endif
Next

Me.Show

End

Public Sub btnClose_Click()
Me.Close
End

Public Sub ToolButtonDir_Click()
If Not Exist(sDir) Then Return
Desktop.Open(sDir)
End

El código fuente esta en la Granja de Gambas, Saludos.

www.gambas-es.org

www.gambas-es.org
Si quieres que tu curva de aprendizaje sea rápida, regístrate en este gran foro en español.