Gambas2: Mis Programas y algo más

wxWidgets y Code::Blocks: instalando wxadditions

2012-02-04T04:54:00.000-08:00

He encontrado este manual:
"Introducción a la programación con wxWidgets y Code::Blocks" enwww.freewebs.com/jojaqui/wxWidgetsCB.pdf , y me he puesto a leerlo, e intentar realizar la aplicación que describe.

Aparte de instalar Code::Blocks, y wxformbuilder , he tenido que instalar el paquete wxAdditions ( http://sourceforge.net/apps/wordpress/wxformbuilder/downloads/plug-ins/wxadditions/ ), para que puedan usarse el widget para gráficos 2D llamado wxPlotCtrl.

Para ubuntu 11.10, se hace así:

$ sudo add-apt-repository ppa:wxformbuilder/release
$ sudo apt-get update
$ sudo apt-get install libwxadditions28
$ sudo apt-get install wxfb-wxadditions

La ultima linea es para que se instale en el wxformbuilder, si no no se verá en este RAD )

Nota: también se puede hacer la instalación con synaptic, una vez añadido el repositorio ppa:wxformbuilder/release.

Si lo ejecutamos vemos como aparecen los nuevos wxwidgets en una nueva pestaña:

¡¡ ya puedo continuar con el manual realizando el ejemplo...!!

Nota:
-En el siguiente enlace, explica como realizar una aplicacion "hola mundo", con wxwidgets....http://www.guia-ubuntu.org/index.php?title=WxWidgets

- Enlace espejo del manual

Desarrollando proyectos con wxWidgets

2012-02-03T10:57:00.000-08:00

He encontrado un pequeño manual donde se explica como crear una simple agenda con c++, usando wxWidgets, wxFormBuilder y ZinjaI (un Ide para C++).

Esta aplicaciones están tanto en Gnu/Linux como en Windows, con lo cual nuestras aplicaciones se podrán compilar y crear los ejecutables para los dos sistemas.

El autor del manual el Pablo Novara, lo podeis descargar en:

http://zinjai.sourceforge.net/wxTutorial.pdf

Los enlaces de descarga de los programas son:
http://zinjai.sourceforge.net
http://www.wxwidgets.org
http://wxformbuilder.org

Os comento, para la instalación en gnu/linux, (ubuntu 11.10, en mi caso) después de instalar el zinjai (descargado desde http://zinjai.sourceforge.net), por la consola instale los siguiente porgramas:
$ sudo apt-get install wxformbuilder
$ sudo apt-get install doxygen
$ sudo apt-get install cppcheck

Voy a empezar a "trastearlo"... a ver lo que consigo aprender...

Saludos

Creando nuestra propia Wiki: instalar mediawiki en un servidor.

2012-02-02T11:34:00.000-08:00

MediaWiki: Montar tu propia Wiki

He estado intentando buscar la forma de crear una pagina web tipo wiki, y encontré una web que lo explican, la entrada es algo antigua, y han cambiado un poco las pantallas, pero practicamente son los mismos pasos.

Os comento como se hace:

0. Descargamos la ultima versión de MediaWiki: http://www.mediawiki.org/wiki/Download

1. Lo primero que debemos hacer luego de descargar la última versión de MediaWiki es descomprimirla en nuestro disco. Una vez descomprimido lo subimos a nuestro servidor dentro de una carpeta.

Yo estoy usando una cuenta en un servidor gratuito:

Que admite PHP y Mysql.

Además tiene programas ftp para subir los archivos. Aunque por el elevado número de archivos, yo he usado FileZilla (ver este enlace ) porque resulta mucho más cómodo para cuando tenemos que subir muchos archivos.

2. Luego de subir todo, debemos crear nuestra base de datos Mysql, este es un proceso que es muy particular de cada Hosting (pero es relativamente sencillo).

En 000webhosting se hace pulsando el siguiente icono

Y se introducen los datos (nombre, usuario, claves, etc), que serán necesarios posteriormente en la configuración de la wiki.

3. Luego tenemos que ingresar a la url en donde hemos subimos los archivo y si todo salio bien tendremos que tener esto en pantalla:

Instalando mediawiki
Pulsamos “Set up the wiki”
4. Aquí vamos a ver que hay muchos campos para llenar, pero solamente comentare sobre los que son imprescindibles los demás el software los instalara por defecto y de esa forma evitaremos muchas complicaciones:

Wiki name: El nombre de la wiki.
Contact e-mail: Email que usara el software para realizar las notificaciones como así también el destino de las recuperaciones de passwords perdidas.

Admin username, Password y Password confirm: Los datos necesarios para ingresar al panel de administración del wiki.

Database config: En esta serie de campos directamente colocamos los mismos datos con los que creamos la base de datos en el punto anterior, recuerden que muchas veces en el host funciona colocar localhost, salvo ciertos casos como por ejemplo los que nos alojamos en Dreamhost, aquí simplemente ponemos el host de la base mysql y listo.

Luego de terminar eso y dejando todos los demás campos por defecto presionamos el botón “Install MediaWiki!”

Nota:
Además nos sale una opción de configuración avanzada, en donde podemos definir desde el logo, hasta el tipo de wiki a crear (si todos el mundo puede acceder a crear articulos, etc).

5. Luego si hicimos todo bien nos aparecera un texto y abajo “Installation successful!” ahora simplemente, descargamos el archivo LocalSettings.php y lo subimos a nuestro servidor en la carpeta principal (donde esta el archivo index.php)

Una vez hecho esto, volvemos a irnos a la pagina de nuestra web... y tendríamos que ver esta pantalla:

Y si le damos a "iniciar sección", pasamos a que nos piden el login del usuario y contraseña:

Y una vez introducido nuestro usuario y password, entramos en la pagina inicial...

Y ya tenemos nuestra wiki preparada para ir introduciendo nuestros articulos.

Aqui podeis ver la wiki que estoy preparando:

wikimapbd

&lt;p&gt;&amp;lt;br /&amp;gt; &amp;lt;p&amp;gt;Your browser does not support iframes.&amp;lt;/p&amp;gt;&lt;/p&gt;

Fuentes:
http://www.kabytes.com/programacion/guia-como-instalar-un-wiki/
http://alfonsomorcuende.com/blog/alfonso-morcuende/subir-imagenes-en-nuestra-wiki

c++: Funcion Split sobre cadenas, usando la clase vector, strtok

2012-02-01T12:04:00.000-08:00

Aquí os dejo varias formas de hacer la función split (partir una cadena en varias separadas por un carácter espacio " ").

He realizado tres funciones:

1) vector<string> splitCadena(string cadena) -> esta recibe una clase cadena

2) vector<string> splitCaracteres(char * caracteres) -> esta recibe un array de caracteres.

Las dos devuelven vectores tipo string.

3) int tamano(vector<string> myvector) -> devuelve un entero indicando el numero de cadenas que contiene (tamaño del vector)

Código fuente:

#include <iostream>

#include <vector>

#include <string>

#include <stdio.h>

#include <string.h>

using namespace std;

//funcion que nos dice que tamaño tiene un vector.

int tamano(vector<string> myvector);

vector<string> splitCadena(string cadena);

vector<string> splitCaracteres(char * caracteres);

vector<string> splitCadena(string cadena){

vector<string> myvector(1);

char *ptr;

int a=1;

char linea[1000];

char * cstr;

cstr = new char [cadena.size()+1];

strcpy(cstr, cadena.c_str());

// empiezo a partir...

ptr=strtok(cstr," ");

strcpy(linea, ptr);

string cadenita (linea);

myvector[0] =cadenita;

while( (ptr = strtok( NULL, " " )) != NULL ) //Posteriores llamadas

{

myvector.resize(a+1);

strcpy(linea, ptr);

string cadenita (linea); // cadenita: es una cadena temporal que me sirve para parar los caracteres a una cadena

myvector[a]=cadenita; // se la asigno al vector

a++;

}

return myvector;

}

vector<string> splitCaracteres(char * caracteres){

vector<string> myvector(1);

char *ptr;

int a=1;

char linea[1000] ;// definimos una cadena de caracteres de 1000

// empiezo a partir...

//char* s1="holita";

ptr=strtok(caracteres," ");

strcpy(linea, ptr);

string cadenita (linea);

myvector[0] =cadenita;

while( (ptr = strtok( NULL, " " )) != NULL ) //Posteriores llamadas

{

myvector.resize(a+1);

strcpy(linea, ptr);

string cadenita (linea); // cadenita: es una cadena temporal que me sirve para parar los caracteres a una cadena

myvector[a]=cadenita; // se la asigno al vector

a++;

}

return myvector;

}

int main ()

{

//haciendo split a un array de caracteres y a una cadena de caracteres

cout << "-----------Sin usar la funcion split ...--------" << endl;

char *ptr;

int a=1;

char linea[1000];

char s1[1000]="Esto es una linea de caracteres";

vector<string> myvector (1);

//empiezo a partir....

ptr = strtok( s1, " " );

strcpy(linea, ptr);

// 1º elemento...

string cadenita (linea);

myvector[0] =cadenita;

//partir recursivamente...

while( (ptr = strtok( NULL, " " )) != NULL ) // Posteriores llamadas

{

// redimensiono....

myvector.resize(a+1);

// copio nuevo array de caracteres

strcpy(linea, ptr);

// los convierto en una cadena

string cadenita (linea);

//defino el nuevo vector, con esa cadena creada

myvector[a]=cadenita;

//aumento el contandor

a++;

}

//veo cual es el tamaño del vector creado

unsigned int i; //importante definirla asi, para que no de problemas en el for con sz

vector<int>::size_type sz = myvector.size();

cout << "myvector contiene:" << endl;

for (i=0; i<sz; i++)

cout << i<< ": " << myvector[i] << endl;

cout <<"--------------Usando funcion split en un char[]--------------------------------"<<endl;

vector<string> prueba(0);

char s2[]="Usando split en un char []";

//uso la funcion...

prueba=splitCaracteres(s2);

int sz2;

//uso funcion para saber el tamaño del vector

sz2=tamano(prueba);

cout << "Cadena a char[].... " << endl;

for (int i=0;i<sz2;i++)

cout << "vector string: " << i << ": " << prueba[i] << endl;

cout <<"----------------Split con una cadena -----------"<<endl;

vector<string> pruebaCadena(0);

string scadena="Usando Split en una cadena string";

cout << "Cadena a analizar: " << scadena << endl;

pruebaCadena=splitCadena(scadena);

int sz3;

//uso funcion para saber el tamaño del vector

sz3=tamano(pruebaCadena);

for (int i=0;i<sz3;i++)

cout << "vector string: " << i << ": " << pruebaCadena[i] << endl;

// system ("PAUSE"); usado en windows, para parar la pantalla de la consola

// return EXIT_SUCCESS;

return 0;

}

// determina el tamaño del vector..

int tamano(vector<string> myvector){

vector<int>::size_type sz2 = myvector.size();

return sz2 ;

}

// fuentes:
// http://www.cplusplus.com/reference/stl/vector/operator[]/
// http://social.msdn.microsoft.com/Forums/es-ES/vcppes/thread/ef3bf7ee-c25c-4427-97fc-78c8978e2c61
// http://www.cplusplus.com/reference/string/string/c_str/

Nota:

1) Windows a Linux Problemas con el juego de caracteres....

Este programa lo realice con DEV-C++ en windows XP.

El archivo lo abrí luego en linux, con el gedit, lo guarde como... con el juego de caracteres UTF8, para luego abrirlo con el codelite.

2)Usar el método push_back en vez de .resize

En vez de:

// redimensiono....

myvector.resize(a+1); //(linea a)

// copio nuevo array de caracteres

strcpy(linea, ptr);

// los convierto en una cadena

string cadenita (linea);

//defino el nuevo vector, con esa cadena creada

myvector[a]=cadenita; //(linea b)

Podemos hacer sustituir las lineas a y b por :

myvector.push_back(cadenita);

C++: ejemplo de uso de clase

2012-01-31T08:15:00.000-08:00

Un pequeño ejemplo de uso de clases:

#include <iostream>

#include <string>

using namespace std;

class pareja {

private:

// Datos miembro de la clase "pareja"

int a, b;

string cad;

public:

// Funciones miembro de la clase "pareja"

void Lee(int &a2, int &b2);

void Guarda(int a2, int b2) {

a = a2;

b = b2;

}

void leeCadena(string &cadena) {

cadena=cad;

}

void guardaCadena(string cadena){

cad=cadena;

}

string anadir(string cadena){

cad += cadena;

return cad;

}

};

// añadiendo un método a la clase

void pareja::Lee(int &a2, int &b2) {

a2 = a;

b2 = b;

}

int main() {

pareja par1;

int x, y;

string cadenatrabajada;

par1.guardaCadena("hola");

par1.leeCadena(cadenatrabajada);

par1.Guarda(12, 32);

par1.Lee(x, y);

cout << "Valor de par1.a: " << x << endl;

cout << "Valor de par1.b: " << y << endl;

cout << "Valor de la cadena: " << cadenatrabajada << endl;

cadenatrabajada=par1.anadir(" voy a anadir un texto");

cout << "Texto sumado: " << cadenatrabajada << endl;

par1.leeCadena(cadenatrabajada);

cout << "texto de la clase: " << cadenatrabajada << endl;

//system ("PAUSE");

//EXIT_SUCCESS;

return 0;

}

Fuente:

http://anaturb.net/C/string_exapm.htm

C++: Ejemplo de guardar texto en un archivo y leerlo.

2012-01-30T09:25:00.000-08:00

Manejo de un archivo tipo TXT en c++:

Guardar y Abrir archivo

Este es un simple ejemplo de como trabajar con un fichero de texto en cpp:
Crea un archivo tipo TXT, y le añade unas cadenas de caracteres,y luego las lee.
Para mostrar lo que he leido, primero en el bucle de lectura lo va escribiendo y ademas va definiendo un array. Este array se mostrará luego otra vez por pantalla.

#include <iostream>

#include <fstream>

#include <string.h>

using namespace std;

int main() {

char cadena[3128];

char linea[50][3000];

string texto;

string lineacadena;

int a=0;

int b=0;

// Crea un fichero de salida

cout <<"-------------------------------------\n";

cout <<"Escribiendo y leyendo un fichero\n";

cout <<"-------------------------------------\n";

ofstream fs("nombre.txt");

char* mensaje="hola esto es un mensaje\0";

char* mensaje2="hola 2\0";

char* mensaje3="un mensaje3\0";

cout << mensaje<<"\n";

cout <<mensaje2<<"\n";

cout <<mensaje3<<"\n";

// Enviamos una cadena al fichero de salida:

fs << mensaje << endl;

fs << mensaje2 << endl;

fs << mensaje3 << endl;

// Cerrar el fichero,

// para luego poder abrirlo para lectura:

fs.close();

// Abre un fichero de entrada

ifstream fe("nombre.txt");

// Leeremos mediante getline, si lo hiciéramos

// mediante el operador << sólo leeríamos

// parte de la cadena:

cout <<"-------------------------------------\n";

cout <<"\nContenido del fichero:\n";

cout <<"-------------------------------------\n";

a=-1;

while (!fe.eof()){

fe.getline(cadena,3000);

a++;

string lineacadena (cadena); // añadido: convierto array de char a cadena

texto +=lineacadena + '\n'; // añado a la cadena texto.

strcat(linea[a],cadena); //añadido trabajando con cadenas

cout << cadena << endl; // añadido: escribo.

}

cout <<"-------------------------------------\n";

cout <<"Contenido del fichero, en un array guardado\n";

cout <<"-------------------------------------\n";

for(b=0;b<=a;b++){

cout << linea[b];

cout << "\n";

}

cout <<"----------------------------------------\n";

cout <<"imprimo una cadena\n";

cout <<"----------------------------------------\n";

cout << texto;

//system ("PAUSE");

//EXIT_SUCCESS;

return 0;

}

Nota:

31 de enero de 2012

He añadido también como trabajar con cadenas

Algoritmos: Para Juegos (IA) y dibujo 2d

2012-01-24T08:37:00.000-08:00

Os dejo 2 enlaces donde os podeis descargar unos documentos .pdf, donde podeis ver algunos algoritmos para juegos- Inteligencia Artificial (minimax, por ejemplo), y dibujo 2d (relleno de areas)

Algoritmos2d.pdf

Algoritmos_Juegos.pdf

Saludos

Calculadora de Expresiones en Gambas: usando script realizados en Gambas

2012-01-22T01:41:00.000-08:00

Calculadora De Expresiones

Este es un ejemplo de como realizar una calculadora de expresiones. He usado un script en gambas. Con gambas también podemos hacer script para ejecutarlo en la terminal.
Podeis ver más información en la siguiente pagina: Scripting_con_Gambas

Esta es una captura del programa funcionando:

Este es el enlace de descarga del código fuente: calculadora-0.0.1.tar.gz

El programa es muy simple:

Tiene un archivo tipo ".gbs" (el script):

#!/usr/bin/env gbs2
DIM a,b,c,x,y AS float
a=<a>
b=<b>
c=<c>
x=<x>
y=<y>
PRINT <formula>

que es copiado al disco duro y modificado por las siguientes funciones:

' Gambas module file
PUBLIC FUNCTION ecuacion(expresion AS String, OPTIONAL a AS String, OPTIONAL b AS String, OPTIONAL c AS String, OPTIONAL x AS String, OPTIONAL y AS String) AS String
    DIM cadena AS String
    DIM comando AS String
    DIM valor AS String
    TRY KILL User.home & "/programa.gbs"
    COPY "programa.gbs" TO User.home & "/programa.gbs"
    cadena = File.Load(User.home & "/programa.gbs")
    IF a <> NULL THEN
          cadena = Replace(cadena, "<a>", var.ConvierteComaaPto(a))
      ELSE
          cadena = Replace(cadena, "<a>", "0")
    ENDIF

    IF b <> NULL THEN
      cadena = Replace(cadena, "<b>", var.ConvierteComaaPto(b))
    ELSE
      cadena = Replace(cadena, "<b>", "0")
    ENDIF
    IF c <> NULL THEN
      cadena = Replace(cadena, "<c>", var.ConvierteComaaPto(c))
    ELSE
      cadena = Replace(cadena, "<c>", "0")
    ENDIF

    IF x <> NULL THEN
      cadena = Replace(cadena, "<x>", var.ConvierteComaaPto(x))
    ELSE
      cadena = Replace(cadena, "<x>", "0")
    ENDIF

    IF y <> NULL THEN
      cadena = Replace(cadena, "<y>", var.ConvierteComaaPto(y))
    ELSE
      cadena = Replace(cadena, "<y>", "0")
    ENDIF

    cadena = Replace(cadena, "<formula>", expresion)

    File.Save(User.home & "/programa.gbs", cadena)
    WAIT 0.1
    EXEC ["chmod", "777", User.home & "/programa.gbs"] WAIT
    EXEC [User.home & "/./programa.gbs"] TO valor
    IF valor <> "" THEN
           RETURN Replace(valor, "\n", "")
    ENDIF
   Message.Info("Posible error en en la expresión, o al realizar la operación")
   RETURN 0
END

PUBLIC FUNCTION ConvierteComaaPto(cadena AS String) AS String

RETURN Replace(cadena, ",", ".")

END

En el formulario principal:

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()
ME.Center
END

PUBLIC SUB ToolButtonCalcular_Click()
DIM lista AS String

TextBoxResultado.text = var.ecuacion(TextBoxExpresion.text, ValueBoxA.value, ValueBoxB.Value, ValueBoxC.value, ValueBoxX.value, valueboxy.value)

lista = Str$(ListViewExpresiones.Count + 1)

ListViewExpresiones.Add(lista, TextBoxExpresion.text & " = " & TextBoxResultado.text)
END

Nota:

Gambas tiene un componente gb.eval, que es usado expresamente para evaluar expresiones. Podéis ver el ejemplo que trae de Calculadora, para verlo como se usa.

Algunos comandos de consola, interesantes para ayudarnos a programar.

2012-01-21T11:43:00.000-08:00

Estoy haciendo una aplicación, y algunas veces, durante la depuración del programa, se queda "colgado" aparentemente el ordenador.

¿que hacer en estos casos?

Si funciona el teclado (por ejemplo, si le damos la tecla de bloqueo de numeros, y se enciende la luz), podemos unar la combinación de CTRL+ALT+Fn (n=1,2,3,4,5,6) para irnos a una consola y ver que esta ocurriendo.
Con CTRL+ALT+F7, regresamos al entorno grafico.

Si pulsamos, por ejemplo CTRL+ALF+F!, pasamos a una consola (habrá que introducir de nuevo nuestro usuario y clave)

Una vez en la consola, podemos usar el comando
$top
o
$htop
(este último tiene un entorno gráfico de consola y hay que instalarlo, ya que no viene por defecto en Ubuntu)

Estos nos muestran información sobre los procesos cargados en memoria (por ejemplo, la carga de cada uno en la CPU y el consumo de Memoria

Otro comando interesante es
$kill

El cual puede mandar distintas señales a los procesos (por ejemplo, intentar cerrarlos o directamente matarlos).
En la captura de pantalla vemos que el proceso PID 3024, es el que htop.
Si entramos en otra consola (pulsando, por ejemplo, CTRL+ALT+F2) y le damos la orden:
$kill 3024

El programa htop, se parará.

Otro comando interesante es
$lsof

Nos muestra mucha información acerca de lo que se esta ejecutando en nuestro ordenador. (ver: http://es.wikipedia.org/wiki/Lsof y pagina man de lsof (traducido por google)

Nos muestra tanta información que tendremos que "filtrarla", para ello usamos el comando grep y more
Por ejemplo:
$lsof |grep gbx2 |more
Podemos ver que esta usando gbx2 (gambas).

Otro ejemplo:
$lsof |grep gbx2 |more | grep sqlite

Estamos filtrando toda la información donde aparezca gbx2 y sqlite

Caso práctico:
Yo lo uso cuando estoy programando en el IDE de gambas, y al ejecutar el programa que estoy haciendo se me queda "pillado el ordenador", como habrá dos procesos (PID distintos), uno del IDE de gambas y otro del programa haciendo, puedo parar el programa sin parar el IDE de programación de gambas.

Saludos

Nota:
Otra comando interesante es
$nano
Es un editor de texto con el cual podemos editar archivos de configuración.

Gambas en Twitter: #gambas_es y @gambas_es_org

2012-01-11T07:38:00.000-08:00

Ya tenemos hastag para Gambas en Twitter:

#gambas_es

Nueva version MapBD v.0.1.0

2012-01-10T11:25:00.000-08:00

Nueva Versión MapBD

versión 0.1.0

Mejoras en Consultas MultiTablas

He seguido trabajando el este programa, ya que me encontraba con la dificultad de poder trabajar con sentencias sql, que manejaran varias tablas, y mostrar sus resultados en un gridviews...

Pues bien, ya le he incluido esa mejora.

Ahora (además de las clases que creaba la antigua versión), crea dos nuevas clases, para manejar los "registros de datos" que salen de resultado en las sentencias con multiples tablas.
Se llaman,respectivametne:
a)     BD{nombre_base_de_datos}Registro
                 Que es la que contiene todas las propiedades (coinciden con todos los campos que tienen todas la tablas de la base de dato, siendo el nombre de la propiedad igual al nombre de la tabla+guion bajo ("_") +nombre del campo

b) BD{nombre_base_de_datos}
               Esta clase va a tener los métodos con la que trabajaremos con la clase anterior.

En esta versión tiene los siguientes métodos:
           PUBLIC SUB Abrir()
abre la conexión a la base de datos
           PUBLIC SUB Cerrar()
                 cierra la conexión de la base de datos
           PUBLIC FUNCTION sql(consulta AS String) AS result
                 ejecuta una consulta SQL y devuelve un "result"
           PUBLIC SUB resultObject(resultado AS Result) AS object[]
                  convierte un "result" en Objetos
           PUBLIC SUB EscribeObjetos(t AS Object[])
                  escribe los objetos en la consola
           PUBLIC FUNCTION GridObjetos(t AS object[], grid AS gridview) AS
gridview
                   formatea un gridview dado (grid), con los datos de los objetos obtenido en la sentencia anterior.

Os lo explico con el ejemplo, que creo que se verá mucho más claro, su utilización:
"En el programa de Consulta Medica, queremos que se nos muestre un gridviews, con todos los enfermos y la enfermedad que padecen. Nota: Hay alguno que padecen más de una enfermedad."

La sentencia SQL seria:

Select nombre,Apellido,TablaExpediente.enfermedades
FROM TablaEnfermo,TablaExpediente
WHERE tablaenfermo.idenfermo=tablaexpediente.idenfermo

¿Como lo haríamos con los nuevos métodos?
DIM paso2 AS NEW BDControlConsulta 'nueva Clase que maneja Resultados de sentencias SQL que usan Varias Tablas
DIM obj AS Object[] 'creamos un array de objetos, que van a contener los resultados
Dim resultado as result 'contiene el resultado de la consulta sql

'abrimos la conexion a la base de datos
paso2.Abrir

'obtenemos el resultado de la sentencia SQL

resultado=paso2.sql("SELECT nombre,Apellido,TablaExpediente.enfermedades FROM TablaEnfermo,TablaExpediente WHERE tablaenfermo.idenfermo=tablaexpediente.idenfermo")

'extraemos los objetos
obj = paso2.resultObject(resultado)

'rellemos el gridviews, con los objetos (incluido el titulo de cada columna)
GridView1 = paso2.GridObjetos(obj, GridView1)

Y el resultado en pantalla es....

¿Resulta muy cómodo verdad? Y solo en 7 lineas de código !!!

Podéis descargaros el código fuente en: www.jsbsan.tk/mapbd/MapBD-0.1.0.tar.gz

Podéis descargaros el ejemplo en: www.jsbsan.tk/mapbd/ConsultasMed-0.1.2.tar.gz

Nota:
- Para que se añadan estos métodos a vuestro proyecto, debéis de ejecutar la nueva versión de MapBD, para actualizar las clases.

- El código generado en compatible con Gambas2 y Gambas3

En programa esta en pleno desarrollo, si encontrais algún bug o alguna mejora, me lo comentais.

Videotutoriales: Programa paso a paso en Gambas con MapBD

2012-01-09T08:36:00.000-08:00

Os dejo 6 video tutoriales, donde resumo, lo que comenta el manual del anterior post, para que veais como diseñar un programa usando Gambas y la herramienta MapBD

1 de 6

2 de 6

3 de 6

4 de 6

5 de 6

6 de 6

Saludos

Consulta Medica: Paso a Paso. Un programa realizado usando MapBD

2012-01-07T11:27:00.000-08:00

Consulta Médica

Manual y Programa

Una aplicación realizada con MapBD,

explicada "Paso a Paso"

Os traigo esta pequeña aplicación que es un ejemplo para llevar un control de consulta de enfermos, enfermedades y tratamiento.

El objetivo del programa es "hacer uso" de las clases que genera MapBD, como ejemplo de su potencia y facilidad.

Además he hecho un manual para explicar los principales pasos a seguir para realizar una aplicación informática.

Aquí tenéis un pantallazo del programa:

Descarga del código Fuente:ConsultasMed-0.0.2.tar.gz

Descarga del manual: Manual Paso a Paso de Consulta Media. Un programa hecho con la herramienta MapBD

Saludos

MapBD: Mapeado de base de datos. El Hibernate para Gambas

2012-01-07T10:58:00.000-08:00

MapBD v.0.0.4

Mapeado de

Bases de Datos

para Gambas

Cuando me enseñaron Java, este verano, me comentaron que existia un framework, llamado Hibernate para java, que facilitaba mucho el trabajo del programador al trabajar con las bases de datos,ya que crea clases para trabajar con el paradigma de la programación orientada a objetos con las bases de datos.

Como en gambas no existe nada parecido, he realizado esta herramienta que es capaz de realizar el trabajo de conversión de tablas de bases de datos a clases, incluyendo muchos métodos, para facilitar la vida al programador.

Además he creado un manual, para explicar su uso y como hace la conversión de la base de datos a las clases.

Enlace de descarga del programa:

Paquete .deb: gambas-mapbd_0.0-4_all.deb

Ejecutable: MapBD004.gambas

Codigo fuente: MapBD-0.0.4.tar.gz

Enlace de descarga del manual: Manual MapBD v00.pdf

Enlace de descarga de un ejemplo: Ejemplo

Espero, también sacar varios videostutoriales para explicar toda la potencia del programa.

Nota:

1) Las clases que crea son compatible tanto para gambas2 como para gambas3

2) La herramienta esta en desarrollo, informarme de los bugs, y mejoras que creais oportunas.

9.enero.2012: version 0.0.4
Se ha añadido una mejora, la cual es si se introduce una sentencia mal escrita en el método .SQL, informa del error, sin salir bruscamente del programa. (ver videostutoriales en mi canal de youtube)

10.enero.2012: Version 0.1.0
Se ha añadido una gran mejora, ahora se pueden trabajar con sentencias SQL con multiples tablas. Para ver mas detalles visita:
http://jsbsan.blogspot.com/2012/01/nueva-version-mapbd-v010.html

LibreOffice: Extensión para el Coloreado de código fuente

2012-01-06T11:32:00.000-08:00

Colorea el Código Fuente

en tus documentos realizados

con LibreOffice

De la página de extensiones de LibreOffice, ( http://extensions.libreoffice.org/extension-center/code-colorizer-formatter ), he encontrada esta útil extensión para el coloreado de código fuente, ideal para la realización de manuales.

Puedes colorear los códigos fuentes de los siguientes lenguajes:

Basic, C++, Java, Perl, Python, R, XML, C#, 8085 Assembler, and x86 Assembler.

Es un complemento que usaba hace mucho tiempo en openoffice, y echaba de menos en LibreOffice.

¿como instalarlo?
1) Descarga el archivo macroformatteradp_3_0_1.oxt

2) En tu libreoffice writer, te vas al menu Herramientas / Administrador de Extensiones

3) Pulsas el botón "Añade", y busca en la carpeta de descarta el archivo que te acabas de descargar.

4) Reinicia tu libreoffice

5) Para usarlo, marca en tu documento un texto escrito en lengua Basic (por ejemplo), y en el menu Herramienta, Complementos, MacroformatterADP, eliges la opción de "Basic seleccionado Color", y aplicará el formateo automáticamente a tu código.

Espero que os sea útil, saludos

Nota: 22 de enero 2012
Extensión COOODER para openoffice y libreoffice

Hay una extensión para openoffice, muy buena, llamada coooder, pero no he podido descargarla (falla el servidor donde estaba alojada). Hoy he podido encontrar el archivo en uno de mis copias de seguridad y la he subido para que os la podais descargar e instalar, Ademas es compatible con LIBREOFFICE

Enlace de descarga: Pulsa aqui para descargar

Todo cambia con ..... mi propio anuncio sobre gnu/linux y el software libre

2012-01-05T18:34:00.000-08:00

Todo Cambia Con...

Desde que empezo el año 2012, no paran de repetir el anuncio de Windows 7 "Toda cambia con...", en los distintos canales de televisión de España.

Cansado de verlo.... he hecho mi propia versión.... :)

Saludos

Promoción: Gana 20 Euros !!

2012-01-05T06:11:00.000-08:00

Hola, Beruby ha mandado un correo a todos sus afiliados, donde informan de la siguiente promoción:

"...para ayudaros en la cuesta de enero desde beruby lanzamos la primera promoción de invitación del 2012: hasta el 31 de enero, por cada nuevo invitado que confirme su cuenta recibirás 0,20 euros, con un máximo de 100 nuevos invitados. ¡Todos a invitar como locos!"

Facilmente podeis ganar 20 euros, solo tenéis que:
1) apuntaros a beruby (si no lo estais ya)

2) saber cual es tu link de invitación:
Cuando entreis en Beruby, esta el parte superior, derecha, en el menu "Mi red"

al pulsar en "link de invitación" os saldrá esta pantalla

Por ejemplo, mi link de invitación es

http://es.beruby.com/promocode/uVQwjO

(el vuestro será distinto)

3) pasar vuestro link de invitación por correo electrónico, publicarlo en vuestro muro de Facebook, Tuenti, blog, etc... para que se apunten vuestros amigos y conocidos..... y por cada uno de ellos que confirme su cuenta en beruby, ganais 0.20 euros, con un máximo de 20 euros (100 invidatos x 0,20 euros = 20 euros).

Nota:
Confirmar la cuenta de beruby es muy fácil, simplemente cuando alguien se apunta recibe en el correo un mensaje de beruby, donde tendrá que hacer clik en el enlace que viene, y asi estará confirmado su cuenta.

¿a que estais esperando?, apuntaros y pasar vuestro link de invitacion

Saludos

¡Gracias por apuntaros a beruby a traves de mi link !!

Kazam: Grabando video y sonido en Ubuntu 11.10

2012-01-05T03:32:00.000-08:00

Kazam en un programa para grabar video y sonido del escritorio del ordenador.

Lo he usado desde que lo encontré en el blog de juanetebitel.

Para Ubuntu 11.10, he encontrado el repositorio para instalarlo (ver fuentes)

Es un magnifico programa de grabación de video y sonido, ideal para hacer videos tutoriales (los mios los hago con él :) )

Os dejo las instrucciones de instalación desde la consola:
1) Añadir el repositorio de la versión de Ubuntu 11.10
$ sudo add-apt-repository ppa:bigwhale/kazam-oneric

2) Actualizar
$ sudo apt-get update

3) Instalar:
$ sudo apt-get install kazam

4) Ejecutar el programa:
$ kazam

Y ya esta, ya tenéis la herramienta para hacer vuestros videos !!!

El archivo de video que crea en del tipo .WebM, que lo puedes subir sin problemas a youtube. Os dejo una muestra:

Fuentes:
-http://walldownloadzone.blogspot.com/2011/12/kazam-screenrecording-para-ubuntu-1110.html Danubio Rodriguez

-http://www.ubuntu-guia.com/2010/11/kazam-grabar-escritorio-ubuntu.html

¿que es el formato Webm? http://es.wikipedia.org/wiki/WebM

Saludos

Subir el volumen a un video...

2012-01-03T05:08:00.000-08:00

Hola amigos, he estado preparando un video tutorial (el 1º del año 2012 :) ), y he tenido el siguiente problema, lo he grabado con el sonido muy bajo.

Para poderlo escuchar en "condiciones", he tenido que hacer lo siguiente:

Nota: La captura del video tutorial lo hice con el programa "recordMyDesktop", que crea un archivo con la extensión .ogv

1) Con mencoder lo pase a avi:
mencoder -idx out.ogv -ovc lavc -oac mp3lame -o video.avi

2) Con Avidemux, extraje el sonido
Primero seleccione en la Barra Audio: MP3 (lame)

Luego guarde la pista de sonido: Menu Audio / Guardar Audio

y le puse el nombre de sonido.mp3

3) Con el programa mp3again, subo el sonido, en la consola:
$mp3gain -g 9 audio.mp3

4) También se puede usar Audacity, que tiene en su menu Efecto, la posibilidad de Amplificación y Reducción de ruido

5) Una vez hecho esto, nos queda unir la nueva pista de sonido a nuestro video. Esto lo hacemos con Avidemux, en el Menu Audio, redefinimos el canal principal de audio, con el archivo .mp3 que hemos modificado.

6) Grabamos el video con su nuevo sonido:
Menu Archivo / Guardar / Guardar Video
y le ponemos un nuevo nombre al archivo de video.

Fin...

Saludos

Fuentes:
http://linkcode.wordpress.com/2008/10/11/aumentando-el-volumen-de-las-peliculas-en-linux/
http://www.ubuntu-es.org/node/107727
http://aprendeenlinea.udea.edu.co/lms/moodle/mod/resource/view.php?inpopup=true&id=77755

Instalar Guadalinex desde una memoria USB: Versión Candidata V8

2012-01-02T12:10:00.000-08:00

Acaba de salir la versión candidata a definitiva de Guadalinex V8:

Con un consumo de memoria inferior a la mitad que la conocida Ubuntu, esta candidata a definitiva incluye algunas correcciones y mejoras que solucionan los errores que nos habéis comunicado a través de la página web, además de los que nuestro propio equipo ha detectado.

Entre otros cambios, ahora el menú de aplicaciones tiene un mejor aspecto, algunos programas que faltaban (como la calculadora o el reproductor de audio) ya están incorporados, y la documentación y personalización del navegador están mucho más pulidos.

Y gracias a un nuevo sistema de producción de las imágenes de disco, es más fácil probar e instalar Guadalinex. El mismo archivo que descargas para grabar en DVD, puedes pasarlo directamente a una memoria USB ¡y arrancar con ella!

Aprovecha estos días de vacaciones para descargar Guadalinex V8 y ¡empieza el 2012 con tu ordenador como nuevo!
http://www.guadalinex.org/noticias/noticias/empieza-el-2012-con-guadalinex-v8

Para probarla, lo he decidido instalar en un USB, y no quemar un DVD (que la economía no esta para tirar el dinero...).

Aqui teneis una captura del programa:

Usa el escritorio Gnome-Shell

Saludos

Gambas3 ya esta aqui... Una nueva versión de esta fantástica herramienta de programación para gnu/linux

2012-01-01T03:25:00.000-08:00

Gambas3 ya esta aquí

Una nueva versión de esta fantástica herramienta de programación para gnu/linux

Ya tenemos la nueva versión de Gambas, como informa jguardon en el foro gambas-es.org:

Tras una frenética actividad por parte de Benoit en la corrección de bastantes bugs y la implementación de nuevas funcionalidades en el último minuto, nos anuncia la disponibilidad de Gambas 3 para descarga de sus fuentes desde la web del proyecto.

Ahora deberían comenzar a trabajar los diferentes desarrolladores y empaquetadores en las distribuciones más importantes, aunque lógicamente no hay una fecha fija para ver finalmente Gambas3 en los repositorios oficiales.

Creo que Benoit se merece unas buenas vacaciones, porque estos dos o tres últimos dias ha trabajado verdaderamente duro. Para haceros una idea, el anuncio del lanzamiento lo ha hecho a las 5h de la madrugada, hora local. Como él mismo dice, "creo que es un buen regalo para 2012".

Nuestro agradecimiento a este gran representante de la cultura del software libre.

¡Gracias, Benoît!

Para instalarla:

Ya hay un repositorio PPA para Ubuntu:

$sudo add-apt-repository ppa:nemh/gambas3

$sudo apt-key adv --keyserver keyserver.ubuntu.com --recv-keys 73C62A1B

$sudo apt-get update

$sudo apt-get install gambas3

Para los que no tengais Ubuntu, tendreis que compilar (algo más lento):

Ver este enlace donde lo explico (lo explicaba para la versión gambas3-2.99.2, ahora solamente tendréis que sustituir el 2.99.2, por 3.0.0)

(nota importante:

Yo tenía una versión de pruebas de gambas3 en ubuntu 11.10, tuve que borrar desde el synaptic todo lo que me aparecía de gambas3, y he tenido que compilarla de nuevo.)

Fuentes:

http://www.gambas-es.org

http://gambas.sourceforge.net

Gambas 3 En Ubuntu desde PPA

Beruby: Mi primer regalo de 2012

2011-12-30T02:42:00.000-08:00

Beruby: Mi primer regalo de 2012

La verdad es que me he llevado una grata sorpresa con Beruby.

Han tardado menos de una hora en enviarme el pago del mes del diciembre, ¡¡¡ cuando, según ellos, mismos tardan de 2 a 3 dias laborales !!!

Aquí teneis el comprobante del pago de mi paypal:

Es muy fácil ganar algo de dinero con ellos, dedicándole todos los días 10 minutos:

Visitando a sus anunciantes (ganar por visitas)
Comprando en las tiendas virtuales (ganar por comprar)
Registrándote en los anunciantes (ganar por registro)
Ganar Por Invitados (hasta un 2º nivel)

Te invito a probar Beruby apuntate con mi link de invitación.

Si tienes alguna duda sobre el funcionamiento, pues me preguntas :)

Aqui teneis un video que hice a principios del 2011, para que veais como es:

Saludos y Feliz 2012

Compartir carpetas en redes linux mediante nfs

2011-12-28T12:22:00.000-08:00

Hola, estoy haciendo un programa el cual va a estar trabajando en distintos ordenadores, pero los datos (ficheros de imagenes), van a estar en uno en concreto (al que le llamo ordenador_servidor).
¿Como se pueden compartir un carpeta entre varios ordenadores con sistemas linux todos ellos?

Pues en el blog de http://www.technoblog.com.ar/index.php/2010/01/como-compartir-carpetas-en-una-red-linux-usando-nfs/
encontre la solución.

Pasos a seguir:
1. Instalo en los ordenadores servidor y clientes el programa nfs:

sudo apt-get install nfs-common nfs-kernel-server

2. En el ordenador servidor, editamos el archivo /etc/exports para crear la carpeta compartida y añadimos en la ultima linea lo siguiente

/home/test *(rw,sync,no_subtree_check)

Con esta linea indicamos que estamos compartiendo la carpeta que esta en /home/test con todos los usuarios de la red (por eso le ponemos "*"), y con los permisos de lectura y escritura. ("rw")

Guardamos los cambios del archivo.

3. Reiniciamos el servicio nfs en el ordenador servidor:

sudo /etc/init.d/nfs-kernel-server restart

4. Para comprobar que se ha compartido escribimos:

sudo exportfs

Y nos mostrara que las carpetas carpetas que tengamos compartidas

5. Ahora necesitamos saber cual es el IP del ordenador servidor:

ifconfig

Este comando nos dara cual es el ip. Suponemos que nos haya dado el numero:
Direc. inet:192.168.1.102

6. Nos vamos al ordenador cliente, creamos una carpeta en nuestro directorio llamada "compartida_ext"

mkdir /home/usuario/compartida_ext

, y creamos con gedit un script en bash, llamandolo "compartida.sh":

gedit compartida.sh

Y le añadimos:
sleep 30
echo "password_root" |sudo -S mount 192.168.1.102:/home/test /home/usuario/compartida_ext

La palabra password_root, la tenemos que sustituir por pasword del root de nuestro sistema en el ordenador cliente.

Esto lo que hace es esperar 30 segundo,para que de tiempo al ordenador conectarse a la red, y luego monta la carpeta compartida.

Podemos poner en el inicio del sistema que arranque este script, asi siempre que arranquemos el ordenador a los 30 segundos tendremos la carpeta ya accesible.

¡¡¡ terminado y funcionando !!!

Fuente:
-http://www.technoblog.com.ar/index.php/2010/01/como-compartir-carpetas-en-una-red-linux-usando-nfs/

- http://es.wikipedia.org/wiki/Network_File_System

- https://sites.google.com/site/fpoprogramadorsistemas/nfs-protocolo-de-red-sistema-de-archivos-de-red

Liberad ya a Miguel Montes Neiro #Montesacasa

2011-12-27T03:18:00.000-08:00

Liberad ya a Miguel Montes Neiro #Montesacasa

Acción promovida por Familia Montes Neiro

A pesar del indulto del gobierno, Miguel Montes sigue en la cárcel. La Audiencia y la cárcel se lavan las manos. Pedimos a Gallardón que interceda.

Nuestro hermano Miguel Montes Neiro lleva más de 35 años en la cárcel, y es el preso más antiguo de España.
Miguel ingresó en la cárcel con 26 años y desde entonces ha acumulado condenas por delitos menores e intentos de fuga, y en principio debía permanecer en prisión hasta 2021.Ahora tiene 61 años y sufre de hepatitis y tuberculosis.
Tras conseguir el apoyo de más de 50.000 personas a través de una petición en Actuable, el gobierno le concedió el indulto el pasado 16 de diciembre.Desde entonces intentamos saber cuando vamos a poder abrazar a Miguel de nuevo. Hemos ido a la cárcel, a la Audiencia de Granada, a los Juzgados, presentado escritos, solicitado permisos...pero nadie nos dice nada, todo el mundo se pasa la pelota.
El problema es que no somos ricos, ni tenemos ejércitos de abogados. Si fuese así, Miguel ya estaría en la calle. Lo único que pedimos es que Miguel pueda empezar el año con nosotros. Gracias a vosotros conseguimos el indulto. Ahora os pedimos que nos ayudéis a que Miguel salga de la cárcel de una vez, pidiéndole al nuevo Ministro de Justicia que interceda para lograr su liberación.
Millones de gracias por vuestro apoyo

Al firmar la petición estarás enviando esta carta

Destinatario: Sr. D. Alberto Ruiz-Gallardón, Ministro de Justicia

Estimado señor Ministro:
Sé que conoce bien el caso de D. Miguel Montes Neiro, el preso más antiguo de España. Miguel lleva casi 35 años en prisión a pesar de no haber cometido ningún delito de sangre.
El pasado 16 de diciembre, el Consejo de Ministros aprobaba dos indultos parciales a Miguel. A su vez, el Tribunal Supremo ha dictaminado que la Audiencia de Granada debe revisar el cálculo de las penas de Miguel. Ese nuevo cálculo supondría el tercer grado inmediato.
A pesar de todo esto, Miguel sigue en la cárcel, y nadie parece hacerse responsable de liberarle. La Audiencia y la dirección de la prisión hacen caso omiso a las peticiones de la familia de saber cuando podrá salir.
Por ello, le ruego que haga todo lo que esté en sus manos para acelerar el trámite de su puesta en libertad, para que Miguel pueda empezar el año con los suyos.
Atentamente,

Para firmar:
http://actuable.es/peticiones/liberad-ya-miguel-montes-neiro-montesacasa-2

Videotutoriales para Diseño Gráfico en Gnu Linux: Gimp

2011-12-25T03:45:00.000-08:00

Videotutoriales para

Diseño Gráfico en Gnu Linux

Usando Gimp

Os dejo esta dirección del canal de keinek

que se ha "currado" 28 videotutoriales de Gimp

Curso de Diseño Gráfico en Gnu Linux Usando Gimp