lunes, 19 de septiembre de 2016

Convertir ńumero entero a Hexadecimal con Hex()



' Gambas module file

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

'Reto: http://www.solveet.com/exercises/decimal-a-hexadecimal-/605

' Crear una función que tome un entero y devuelva una cadena con su conversión a hexadecimal.
'
' ejemplo:
' hex 2 = "2"
' hex 10 = "A"
' hex 666 = "29A"

Public Sub Main()

Print ConvertirNumero_A_Hexadecimal(2)
Print ConvertirNumero_A_Hexadecimal(10)
Print ConvertirNumero_A_Hexadecimal(666)

End

Private Sub ConvertirNumero_A_Hexadecimal(numeroX As Integer) As String

Return Hex(numeroX)

End



lunes, 5 de septiembre de 2016

Como agregar número de versión de Gambas a nuestra aplicación?


Examinando el código del propio Gambas (ver) buscando aprender algo nuevo, me llamo la atención este código.

Rutina que obtiene la versión de Gambas, ubicada en la clase de inicio llamada "Project"

Private Sub InitVersion()

Dim sVer As String
Dim aVer As String[]

'Shell "gbx" & System.Version & " -V" To sVer
'FullVersion = Trim(Mid$(sVer, InStr(sVer, "-") + 1))
FullVersion = System.FullVersion
aVer = Split(FullVersion, ".")
aVer.Remove(aVer.Max)
Version = aVer.Join(".")

Exec [System.Path &/ "bin/gbx" & System.Version, "-V"] To sVer
FullVersionWithRevision = Trim(sVer)
If FullVersionWithRevision Ends ".0" Then FullVersionWithRevision = Left$(FullVersionWithRevision, -2)

Catch

Version = "?"

End


desglosemos un poco.....

Exec [System.Path &/ "bin/gbx" & System.Version, "-V"] To sVer


 System.Path=/usr
 System.Version=3

 linea de exec=    /usr/bin/gbx3   -V
 

sVer=3.9.0
 


FullVersionWithRevision = Trim(sVer)  'Elimina espacios en blanco del final de una cadena.

 
If FullVersionWithRevision Ends ".0" Then  FullVersionWithRevision = Left$(FullVersionWithRevision, -2)


si la versión termina en ".0" entonces elimina esos dos caracteres el punto y el cero. Quedando en este caso en "3.9"


Aquí mi adaptación a el programa Taller2015

Public VersionGambas As String

Public Sub Form_Open()
ObtenerVersionGambas() 'ejecutamos la subrutina para que obtenga la version y la guarde en la variable VersionGambas
LabVersionGambas.Text = VersionGambas ' le asignamos a la propiedad text el string almacenado en VersionGambas
End

Public Sub ObtenerVersionGambas()
Dim sVer As String

Exec [System.Path &/ "bin/gbx" & System.Version, "-V"] To sVer

VersionGambas = Trim(sVer)
If VersionGambas Ends ".0" Then
VersionGambas = Left$(VersionGambas, -2)
Endif

Catch

VersionGambas = "?"

End

Resultado




miércoles, 11 de mayo de 2016

Ayudame (programa de consola)




Programa que te ayudara a recordar comandos, para que sirven y ejemplos para las tareas mas comunes de Linux. Primera versión de prueba.


Código fuente: ayudame-0.1.tar.gz

martes, 10 de mayo de 2016

Animación de botones



Esta animación se logra con las propiedades de los botones,
AutoResize: lo que hace es ajustar el perímetro del control al contenido, en este caso un icono que cambiara de tamaño de 22 a 32

Border a false

Los eventos involucrados son  Enter y Leave

Enter: sucede cuando el puntero del ratón entra en el área del control en este caso el control button.

Leave: es lo contrario cuando detecta que el puntero del ratón sale del área del control.

cuando entra el raton en el área del boton (evento enter) le asignamos el icono mas grande y cuando sale el mas pequeño de esta forma logramos el efecto.

también tiene que ver el contenedor de los botones, ver el código fuente.



Código fuente

miércoles, 4 de mayo de 2016

Comentarios en gambas



En gambas tenemos 5 tipos de comentarios:

Comilla simple

' comentario simple de gambas que empieza por una comilla simple



Doble comilla simple

Public Sub rutinaX(boton As Byte) ''1=Todo, 2=Año actual, 3=Mes actual, 4=Demás años sin ser el actual

muestra el comentario en la ventana de completado de la ide gambas para ayudarnos con los parámetros a pasar u otros datos ver vídeo.

Comentarios que salen en la pestaña tareas:

Comienza por una comilla simple y termina con dos puntos la palabra todo deber ir en mayúsculas igual los demás comentarios de abajo.
'TODO:              

Se usa para marcar zonas donde hay errores o algo hay que arreglar (arreglame)
'FIXME:

Notas sobre algún asunto, rutina etc.
'NOTE:





sábado, 30 de abril de 2016

While... Wend (Bucle-Repetición)





' gambas module file

' by postapase
' Da comienzo a un bucle delimitado por las instrucciones While ...WEND.
' El bucle se repite mientras la Expresión sea cierta.
' Si la expresión es falsa al inicio, el bucle nunca se ejecuta.

Public Sub Main()
Dim EntroEnBucle As Boolean ' el valor predeterminado de una variable de tipo boolean es false
Dim x As Integer

x = 1

While x <= 7 'si x es menor o igual a 7 entonces lea la siguiente linea sino lea a partir de la siguiente linea de Wend
Print "x ahora es: "; x
If EntroEnBucle = False Then EntroEnBucle = True
Inc x
Wend 'lea a partir del while

If EntroEnBucle = True
Print "Se entro en el bucle porque la condicion de entrada fue True/verdadera"
Else
Print "No se entro en el bucle porque la condicion de entrada fue false/falsa"
Endif

End

lunes, 25 de abril de 2016

REPEAT ... UNTIL





' gambas module file
'by postapase

Public Sub Main()
Dim x As Byte ' declaración de variable pequeña

Repeat
Inc x 'incrementa x en 1
Print "x equivale a " & x 'muestra en pantalla
Wait 1 ' pequeña pausa para poder observar el proceso
Until x = 10 'REPEAT ... UNTIL Bucle con una comprobación de salida al final.


Related Posts Plugin for WordPress, Blogger...

Facebook

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.