Trucos de programacion

[SQL] Obtener información de tablas

2015-02-17T14:50:00.002+01:00

Buenas a todos.

Os propongo una forma rápida de obtener información sobre tablas de vuestra base de datos.
Vamos a ver como recuperar los nombres de las tablas, los campos y las claves foraneas de nuestra base de datos.

Nombre de las tablas de nuestra BBDD

USE MyDatabase

SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES

Información de los campos de las tablas

USE MyDatabase

SELECT TABLE_NAME as Tabla, COLUMN_NAME as Campo,

DATA_TYPE as Tipo, CHARACTER_MAXIMUM_LENGTH as Longitud,

NUMERIC_PRECISION as Precision,NUMERIC_SCALE as Decimales

FROM INFORMATION_SCHEMA.COLUMNS

ORDER BY TABLE_NAME

Información de claves foraneas

SELECT fk.name as FK,

OBJECT_NAME(fk.parent_object_id) AS TableName,

COL_NAME(fc.parent_object_id, fc.parent_column_id) as ColumnName,

OBJECT_NAME(fk.referenced_object_id) as ReferenceTableName,

COL_NAME(fc.referenced_object_id, fc.referenced_column_id) as ReferenceColumnName

FROM sys.foreign_keys as fk

INNER JOIN sys.foreign_key_columns AS fc on fk.OBJECT_ID = fc.constraint_object_id

No hace falta decir que estas sentencias se pueden poner condiciones WHERE para acotar los resultados.

Y por supuesto, si estamos usando Microsoft SQL Server Management Studio, si escribimos el nombre de nuestra tabla a examinar, y pulsamos ALT+F1, obtendremos toda esa información.
Tambien usando la sentencia sp_help MiTabla

[W8] Megathon - Resumen, ¿Y ahora que?

2013-04-18T09:09:00.000+02:00

Hola a todos.

Ya ha pasado el Megathon 2013, ha sido un suspiro....

Tres días frenéticos de código, emociones, colaboraciones, charlas....

Voy a hacer un resumen de lo que pasó en Málaga.

Día 12 Abril - Viernes
Llegada de los participantes, inscripción y charla inaugural.

La participación en Málaga fue abrumadora, la media de asistencia fue de 50 personas al día, tendiendo en cuenta que fue en fin de semana, algunos podrían tener compromisos, pero los equipos se organizaron muy bien.

No todos tenían equipos, se unieron a algunos ya formados y otros se formaron en el Megathon.

En total... 15 equipos con sus proyectos, 15 maravillosas ideas.

Día 13 Abril - Sábado

En esta panorámica se puede ver como estaba la sala de trabajo, nadie se quería perder este evento, las charlas.

Los mentores no dábamos a basto, todos nos llamaban por todas partes, desde el que venía con nivel 0 y no traía ni el Windows 8 ni Visual Studio 2012 instalado, hasta el profesional que nos pedía ayuda de accesos a Azure. Una locura, pero genial.

Veíamos como la competición era sana, diseñadores prestando sus conocimientos a otros equipos, ayudando en todo. Nadie quería perderse el evento, ni herido.

Bocadillo para reponer fuerzas

Llegada la hora de acabar la jornada del Sábado, nadie quería irse, son las 22:00 y todavía hay gente haciendo cosas. Se disfrutaba mucho

Día 14 Abril - Domingo
Llegó el último día. Todos con los nervios a flor de piel, ultimando detalles, pruebas de ultima hora, gritos porque la demo no funciona, los clásicos nervios del día de entrega

15 proyectos, 15 ideas geniales

Y tras la presentación, a la que todos dieron consejos a los compañeros de como mejorarla, de mas ideas.. los votos.

En Málaga se decidió hacer la votación en secreto, cada equipo elegía tres aplicaciones y le daba 3, 2 o 1 punto. Para que el resultado sea lo más repartido posible.

Además de los premios locales ya anunciados, la organización decidió regalar las tabletas Watcom que Microsoft había regalado a los mentores y organizadores del evento. Así que hubo 3 primeros premios.

Tercera posición: BabyTube. Una aplicación para controlar los videos que nuestros hijos estan viendo en la tableta, pero podemos monitorizar desde el movil, controlando el tiempo del video, y la camára para ver que estan haciendo y estar tranquilos. Premio de Tablet Watcom

Segunda posición: Flippa. Una aplicación de animación flip book, donde dibujas y animas tus dibujos. Ideal para dispositivos táctiles y de fácil uso. Premio de Tablet Watcom

Primera posición: Gift wish. La lista de deseos cooperativa que todos hemos querido tener. Tu eliges los regalos que quieres tener para cumpleaños, boda, navidad, y tus amigos sabrán que quieres y como compartir los gastos. Premio de Tarjeta Cerbuino Bee, Licencia Nokia Dev, Licencia RadarC Premium

Además se sorteó una licencia RadarC basic entre todos los equpos participantes, siendo los chicos de FaceList los ganadores. Una aplicación para gestionar y agrupar los permisos de tus contactos de Facebook.

Todo un éxito de participación, colaboración y "buen rollito". Muchos amigos, mucho Twitter y muchos emails.

¿Y ahora que?

Pues a trabajar duro para que las aplicaciones estén listas antes del 15 de Mayo y optar a los premios nacionales. Los mentores estamos a disposición de los asistentes para cualquier duda, y os puedo asegurar que no paran.. seguid así, que nos gusta que nos molestéis.

Si queréis colaborar con este post, por favor, añadir comentarios con vuestra experiencia, fotos, etc...

Un saludo cordial.

@KurroLopez

[W8] Megathon 2013 - Sede Málaga

2013-04-07T00:52:00.000+02:00

Hola a todos.

Voy a indicar algunas cosas importantes si vas a asistir al Megathon 2013 Windows 8 / Windows Phone 8 en la sede de Málaga

¿Cuándo se celebrará?
Como bien dice en la pagina oficial los días 12, 13 y 14 de Abril de 2013

Viernes 12 de abril: 17:00 – 20:00 Bienvenida, creación de grupos de trabajo y sesiones de formación
Sábado 13 de abril: 10:00 – 19:00 Día completo para desarrollar con el grupo
Domingo 14 de abril: 10:00 – 14:00 Media jornada para desarrollar y finalización del evento

¿Dónde se celebra?

La sede en Málaga es ProMalaga Coworking,

Calle Severo Ochoa 27
Párque Tecnológico de Andalucía
29590 Málaga

Ver mapa más grande

¿Cómo llegar?
Autobús EMT, Línea 25. Parada 2524. Consultar horarios y recorrido aquí

Transporte privado:
Por MA-20 tomar la salida 7 - A357 Dirección Cártama - PTA
Aproximadamente 10Km salida 61, Parque tecnológico

Por AP-46 / A7, tomar la salida 234 hacía A357 Cártama
Aproximadamente 4 Km salida 61, Parque tecnológico

¿Cómo es la sala de trabajo?
Visita las instalaciones en la siguiente visita virtual.

¿Necesito algo que llevarme?
Por supuesto, un equipo informático (Sobremesa, portatil, etc..) con las siguientes aplicaciones:
Windows 8. Si no tienes licencia de Windows 8, puedes descargar la versión de evaluación de Windows 8 de 90 días.
Visual Studio 2012 Ultimate versión de prueba o bien la versión gratuita Visual Studio 2012 Express for Windows 8
Windows Phone SDK si vas a desarrollar APPs para Phone 8
Cable de red (Muy recomendado), no dejes tu trabajo en manos de una WiFi
Si quieres trabajo en grupo, recomiendo usar TFSPreview para almacenar vuestro código.

Enlaces imprescindibles
Pagina oficial del Megathon: http://www.microsoft.es/megathon
Bases oficiales del concurso: http://msdn.microsoft.com/es-es/dn197202
Formación: http://msdn.microsoft.com/es-es/dn186230
Twitter: #megathon
Premios: En las bases oficiales y en la entrada Premios de este blog.

Atento que en Málaga tenemos además un premio adicional.

[W8] Megathon 2013 - Premios

2013-04-03T18:07:00.004+02:00

Hola a todos.

Ya conocemos cuales son los premios del Megathon 2013.

Premios locales:
1er premio a la mejor aplicación desarrollada en el Megathon. Sera entregado el domingo día 14 de Abril
- Placa Cerbuino Bee
- Nokia Premium Dev Program

Premios nacionales:
Estos premios serán otorgados por un jurado a nivel nacional a las aplicaciones que se han publicado posteriormente al megathon en un plazo de un mes.

Premio	Windows 8	Windows Phone 8
1º Clasificado	Entrada para TechEd 2013 + cupón de promoción Adduplex por valor de 1.000.000 de impresiones + Subscripción de VS Anywhere en Cloud durante 12 meses + Licencia Premium por 1 año de Fórmula Radarc a elegir entre Windows 8 y Windows Phone 8.
2º Clasificado	Nokia Lumia 920 + Suscripción de 6 meses a VS Anywhere en Cloud + cupón de promoción Adduplex por valor de 100.000 de impresiones + Licencia por 1 año de Fórmula Radarc a elegir entre Windows 8 y Windows Phone 8.
3º Clasificado	Nokia Lumia 820 + cupón de promoción Adduplex por valor de 100.000 de impresiones + Licencia por 1 año de Fórmula Radarc a elegir entre Windows 8 y Windows Phone 8.
4º Clasificado	Nokia Lumia 820 + cupón de promoción Adduplex por valor de 100.000 de impresiones + Licencia por 1 año de Fórmula Radarc a elegir entre Windows 8 y Windows Phone 8.
5º Clasificado	Nokia Lumia 820 + cupón de promoción Adduplex por valor de 100.000 de impresiones + Licencia por 1 año de Fórmula Radarc a elegir entre Windows 8 y Windows Phone 8.
6º Clasificado	Nokia Lumia 820 + cupón de promoción Adduplex por valor de 100.000 de impresiones + Licencia por 1 año de Fórmula Radarc a elegir entre Windows 8 y Windows Phone 8.
7º Clasificado	Una cazadora de Snow Nokia + cupón de promoción Adduplex por valor de 100.000 de impresiones + Licencia por 1 año de Fórmula Radarc a elegir entre Windows 8 y Windows Phone 8.	Juego Xbox 360 + cupón de promoción Adduplex por valor de 100.000 de impresiones + Licencia por 1 año de Fórmula Radarc a elegir entre Windows 8 y Windows Phone 8.

El primer premio es único, es decir que no hay categoría, el resto es un premio para cada una de ellas.

Premios adicionales

Además este año el #megathon tiene la colaboración de @appcampus que nos ofrece la posibilidad de obtener 50.000€ para tu proyecto

Además, en Málaga ser dará una licencia de Radarc premium (valorada en 400€) por cortesia de iCinetic a la mejor aplicación.

Pues ya sabes, si quieres conseguir algunos de estos premios. Apúntate ya

http://www.microsoft.es/megathon

[W8] Megathon 2013 - Webcasts

2013-03-21T19:37:00.000+01:00

Aquí estarán las direcciones donde podréis ver los distintos webcast de preparación para el Megathon 2013 de Microsoft.

A medida que se vayan realizando iré actualizando los enlaces.

Dia 21 Marzo
Plataforma y herramientas de desarrollo de Windows Store Apps (@fernandoescolar)

En esta sesión daremos una visión general de la nueva interfaz gráfica de Windows 8 y su arquitectura técnica. También hablaremos del nuevo PLM y recorreremos las herramientas de desarrollo y su soporte para ALM.

Diseñando apps de Windows Phone 8

En esta sesión presentaremos el lenguaje de diseño de Windows Phone y cómo empezar a diseñar una app; la estructura de la app y los modelos de navegación, introducción a XAML, Temas y estilos de controles, introducción a MVVM y asociación de datos (databinding), diseño de plantillas para ítems de listas, etc.

Dia 22 Marzo
Diseño de Windows Store Apps (@ToniRecio)

Nos centraremos en aspectos concretos del diseño de Apps Windows 8 como su layout y formas de interacción. También cubriremos funciones como Semantic Zoom, Tiles y notificaciones.

Dia 02 Abril
Profundizando en el desarrollo de Windows Store Apps (@guerrerotook)

En esta sesión daremos una visión general de la nueva interfaz gráfica de Windows 8 y su arquitectura técnica. También hablaremos del nuevo PLM y recorreremos las herramientas de desarrollo y su soporte para ALM.

Dia 03 Abril
Windows 8 para desarrolladores JavaScript (@acasquete)

¿Te gusta JavaScript y quieres desarrollar Apps para Windows8? Esta es tu charla :) Veremos como desarrollar Apps usando JavaScript y las librerías que ya conoces, como JQuery, interactuando directamente con el sistema gracias a WinJS.

Dia 04 Abril
Windows 8 para desarrolladores .NET (@guerrerotook)

¿Eres desarrollador .Net y quieres dar el salto a Windows 8? Tranquilo, todo lo que conoces sigue siendo válido. En esta sesión hablaremos sobre WinRT y el nuevo modelo de APIs asíncronas.

Dia 08 Abril
¿Cómo y cuándo se ejecutan las Windows Store Apps? (@ToniRecio)

En esta sesión profundizaremos en el ciclo de vida de las Apps. Haremos hincapié en cómo afecta al desarrollador y daremos consejos y buenas prácticas para aprovecharnos del nuevo modelo.

Dia 09 Abril
Mejorando la experiencia de usuario con Contratos en las Windows Store Apps (@isabelcabezasm)

Windows 8 se centra en la experiencia de usuario y eso quiere decir que como desarrolladores, debemos tenerlo muy presente. Windows 8 nos lo pone fácil y nos permite compartir la información con otras apps e integrarnos con el sistema de búsqueda. En esta sesión hablaremos de todas estas técnicas.

Dia 10 Abril
Tiles y Notificaciones en las Windows Store Apps (@acasquete)

Todo lo que siempre quisiste saber sobre las notificaciones y los tiles. Actualiza tus tiles localmente o desde Internet, con fotos o con texto. Envía notificaciones, haz que caduquen o asegúrate de que el usuario las lea... todo esto y mucho más en esta sesión.

Dia 11 Abril
Lo que siempre quisiste saber sobre la Windows Store (@acasquete y @tonirecio)

La Tienda de Windows es el punto de entrada y descubrimiento de aplicaciones en Windows 8. En esta sesión te contaremos su funcionamiento y cómo puedes hacer negocio con tus aplicaciones incluyéndoles publicidad, micropagos, subscripciones y cualquier cosa que se te ocurra.

[W8] MEGATHON 2013

2013-03-15T22:45:00.000+01:00

¡Vuelve el Megathon Windows 2013!

Si no puedes ver este email correctamente, haz click aquí

¡Vuelve el Megathon Windows 2013!

Por segundo año consecutivo, tendrá lugar el Megathon Windows, un hackathon que se celebra de manera simultánea en varias ciudades, donde tendrás la oportunidad de crear apps para Windows 8 y Windows Phone, aprender y conocer a otros programadores y ganar fabulosos premios.

Además como novedad, este año hemos preparado una serie de cursos y webcasts gratuitos de desarrollo de apps para Windows 8 y Windows Phone previos al evento para que puedas empezar a prepararte a fondo para el gran día.

¡Accede a la web del Megathon Windows para apuntarte a los cursos y no olvides registrarte en alguna de las ciudades que ya tenemos confirmadas!

¡Empieza a prepararte! ¡Contamos contigo!

[General] Descargas

2013-01-20T16:15:00.000+01:00

Aqui teneis todas las descargas disponibles del blog:

Entrada	Fichero	Dropbox	Mega
Hacer binding a las propiedades de un UserControl	KurroSoftware.Sample.UserControls.zip (20 KB)	Link	Link
ComboBox con datos de un enumerado	Enum2ComboBox.zip (18 KB)	Link	Link
Crear barra de botones de forma dinamica	ButtonBar.zip (Librearia PBL, PBT y PBW) (10 KB)	Link	Link
Crear barra de botones de forma dinamica	ButtonBar_source.zip (Ficheros sru, sra y srw) (4 KB)	Link	Link
Mi primera aplicación para Android	Sounds.zip (Source)	Link	Link
Mi primera aplicación para Android	Sounds.apk (App) (121 KB)	Link	Link
Usar el servicio de Google Geocoding	KurroSoftware.Geocoding.Zip (20 KB)	Link	Link
Convertir Latitud y Longitud en Grados - Minutos y segundos	KurroSoftware.Common.zip (3 KB)	Link	Link
Genera GUID	CreateGUID.zip (14 KB)	Link	Link
Convertir número en letra	ncst_num2txt.rar (3 KB)	Link	Link

[W8] Konverter - Mi primera aplicación en Windows 8

2013-01-10T07:32:00.001+01:00

Hola a todos.

Ya está disponible mi primera aplicación para Windows 8.

Konverter es una simple aplicación de conversión de unidades de Longitud, Volumen, Temperatura y Velocidad.

Está en 4 idiomas disponibles: Ingés, Español, Italiano y Portugués.

Iré desgranando poco a poco algunos pequeños trucos para la programación en XAML e intentaré hacer una aplicación sencilla, para ponerla en Market si es posible,

Disfrutad de ella.

En enlace de la la aplicación es
http://apps.microsoft.com/windows/app/konverter/7e919e40-267e-4648-82c1-de705bcecfa7

Comentar que la aplicación ya está en su versión 1.2, corregida un problema con las conversiones de longitud. Además, si usas la aplicación de antivirus Avast! comprobar si no bloquea la aplicación porque se queda siempre en el splash inicial. Revisad esto, y disfrutad de la aplicación.

Pero recuerda, que tienes que usar la Tienda Microsoft en tu Windows 8 para poder instalarla.

Espero tus comentarios.

[Silverlight] Hacer binding a las propiedades de un UserControl

2012-06-07T22:14:00.000+02:00

Hola a todos.

Ahora voy a explicar un problema que me ha surgido hace unos días y me gustaría compartir por si alguna vez os encontráis en la misma situación.

Escenario:
Tenemos un proyecto en Silverlight y hemos creado un UserControl porque lo vamos a utilizar en mas de una vista y no vamos a duplicar el código.

Problema 1: ¿Cómo comunico los datos de mi UserControl con el exterior?

En este caso, creamos una Dependency Property por cada uno de los campos que queremos "comunicar"

private DependencyProperty UserNameProperty =
DependencyProperty.Register("UserName", typeof(string), typeof(UserForm), new PropertyMetadata(string.Empty));

Luego definimos una property pública para enlazar esta Dependecy Property:

[System.ComponentModel.Category("User properties")]

[System.ComponentModel.Description("User Name")]

public string UserName

{

get { return (string)GetValue(UserNameProperty); }

set { SetValue(UserNameProperty, value); }

}

Hasta aquí es lo esperado...

Pero en el XAML tenemos que hacer binding contra estas propiedades, lo que hacemos es definir como DataContext a si mismo.

y nuestros campos hacemos el binding como siempre:

<TextBox x:Name="UserNameval"

HorizontalAlignment="Stretch"

VerticalAlignment="Top"

Text={Binding UserName, Mode=TwoWay}/>

Si ponemos nuestro UserControl en una ventana de Silverlight, y aplicamos los valores a estas propiedades, estas aparecen en nuestro control,

<my:UserForm HorizontalAlignment="Stretch"

Name="userForm1"

VerticalAlignment="Top"

UserName="{Binding Mode=TwoWay, Path=UserName}"

Address="{Binding Mode=TwoWay, Path=Address}"

Phone="{Binding Mode=TwoWay, Path=Phone }" />

El gran problema está en que aunque hemos definido como TwoWay, esto no modifica la propiedad en nuestro DataContext.

Esto tiene una sencilla explicación.

Como hemos definido en nuestro UserControl el DataContext a si mismo, para poder leer los valores de las propias propiedades, no existe una comunicación con el DataContext de la ventana contenedora, pues para él esta definido de forma egoísta.

Esto tiene fácil solución.

En lugar de definir el DataContext y hacemos el binding en el XAML, lo hacemos en el CodeBehind, definiendo mediante C#.

UserNameval.SetBinding(TextBox.TextProperty, new Binding() { Source = this, Mode = BindingMode.TwoWay, Path = new PropertyPath("UserName") });

El resultado es el mismo, pero el XAML no esta definiendo el DataContext, por lo que adoptará el de la ventana donde coloquemos el control.

Osea, que quitamos la definición del DataContext del inicio y la instrucción de Binding de nuestro TextBox, porque ya lo hacemos en el CodeBehind.

De esta forma existe una real comunicación de nuestro control con nuestra ventana host y sus propiedades.

El ejemplo, como siempre, a continuación en el siguiente enlace.

KurroSoftware.Sample.UserControls.zip

Espero tus comentarios.

[Silverlight] ComboBox con datos de un enumerado

2012-04-24T23:39:00.000+02:00

Hola a todos.

Hoy vamos a ver como hacer un binding en un ComboBox con los valores de un enumerado.
La idea es que usamos el combo con valores de texto, pero después tenemos que convertir al enumerado correspondiente.

Primero vamos a crear una función para convertir el enumerado en un array de elementos Enum.

public Enum[] EnumToArray(Enum enumeration)

  //get the enumeration type

  Type et = enumeration.GetType();
  //get the public static fields (members of the enum)

  System.Reflection.FieldInfo[] fi = et.GetFields(BindingFlags.Static | BindingFlags.Public);
  //create a new enum array

  Enum[] values = new Enum[fi.Length];
//populate with the values

for (int iEnum = 0; iEnum < fi.Length; iEnum++)
{

      values[iEnum] = (Enum)fi[iEnum].GetValue(enumeration);
  }

//return the array

return values;
}

Luego vamos a crear un enumerado sencillo... Type1, Type2 y Type3 que es el que vamos a utilizar para rellenar el combo box.
Para ello vamos a crear una función en MainPage.xaml.cs invocando a esta función y usando un bucle foreach rellenamos el combo Box.

private void PopulateListBox()
{
  Enum2ListViewViewModel viewModel = DataContext as Enum2ListViewViewModel;
  if (viewModel != null)
  {
      Enum[] enumValues = viewModel.EnumToArray(new Enum2ListViewViewModel.MyType());
      myListEnum.Items.Clear();
      foreach(Enum enums in enumValues)
      {
          myListEnum.Items.Add(enums.ToString());
          // Note that the combo has strings values
          // however, we going to update a Enum value
      }
}
}

Como dice el comentario, en el combo vamos a poner string, pero vamos a bindearlo contra un enumeado. ¿Donde está la magia?
Pues la magia está en las funciones Converter.

Creamos una clase para convertir el valor, heredando de IValueConverter.

namespace KurroSoftware.Enum2ListView.Converters
{
public class MyTypeEnumToStringConverter: IValueConverter
{

public object Convert(object value, Type targetType, object parameter, System.Globalization.CultureInfo culture)
{
return value.ToString();
}

public object ConvertBack(object value, Type targetType, object parameter, System.Globalization.CultureInfo culture)
{
return (Enum2ListViewViewModel.MyType)Enum.Parse(typeof(Enum2ListViewViewModel.MyType), value.ToString(), true);
}
}
}

Como veras, usamos el Enum.Parse para convertir el string en el enumerado del tipo MyType.

Luego en el XAML, hacemos el binding del combo de la siguiente forma

<ComboBox x:Name="myListEnum"
Grid.Column="0"
Grid.Row="0"
HorizontalAlignment="Stretch"
VerticalAlignment="Stretch"
SelectedValue="{Binding TypeEnum, Converter={StaticResource MyTypeEnum}, Mode=TwoWay}"
Grid.ColumnSpan="2" />

Como verás, esta accediendo directamente a la property TypeEnum que es del tipo MyEnum, pero usando el Converter, se hace la traducción string-enum.

xmlns:converter="clr-namespace:KurroSoftware.Enum2ListView.Converters"
......

<UserControl.Resources>
<converter:MyTypeEnumToStringConverter x:Key="MyTypeEnum" />
</UserControl.Resources>

Usando este pequeño truco, podemos hacer un binding directamente con el content.

Para rizar el rizo, y como estoy acostumbrado a la metodología de MVVM (Model-View-ViewModel), he usado la clase CommandDelegate para que la lógica del botón que está en la vista, esté siendo ejecutada en el ViewModel, en lugar del View.
Esto es sencillo usando el patrón Prism (ver http://msdn.microsoft.com/es-es/magazine/dd943055.aspx ), pero por no tener que usar todas las librerías de este patrón, he usado el CommandDelegate que publicó Kunal Chowdhury en CodeProject, (ver Step by Step Guide to Silverlight 4 Command Binding )

Bueno, pues ya sabes, el código en el siguiente enlace.
Enum2ComboBox.zip

Espero tus comentarios.

[PB] Crear barra de botones de forma dinámica

2012-03-05T22:24:00.000+01:00

Hola de nuevo... hoy, Power Builder, esta vez en PB 10.5

La idea de tener una barra de botones de forma dinámica me hizo idear el siguiente código.

Podemos crear un objeto de forma dinámica directamente en nuestra window usando el comando OpenUserOject.
this.OpenUserObject(uo_boton)
Esta instrucción en la ventana, pondrá un objeto de usuario llamado uo_boton en la ventana, luego podemos invocar las propiedades para poner el botón en el sitio que queremos (X=23, Y=24, etc..)

Pero el problema era que lo que tenia era un objeto de usuario y quería poner esos botones dentro del objeto de usuario... grave problema.

La solución la dio nuestro amigo Microsoft, porque nos facilita las cosas usando los manejadores de los objetos.

Function ulong SetParent (ulong hWndChild, ulong hWndNewParent) Library "USER32.DLL"

Esta API cambia el manejador padre de un objeto dado, es decir, si tengo el Handle del objeto de usuario y el Handle del boton, puedo decirle al botón, que en lugar de tener como padre el Handle del Window, usa el Handle del objeto de usuario.

Y con todo esto, que puedo sacar de provecho?

Pues podemos crear una barra de botones de forma totalmente dinámica, pudiendo poner las opciones que queremos según el usuario, la ventana, etc... estando los parámetros en una base de datos, fichero XML, o cualquier otra forma.

Primero me he creado un objeto del tipo picturebutton, y lo he llamado uo_button, luego le pondremos código al mismo.

Luego he creado un objeto de usuario visible llamado uo_buttonbar, el cual lo voy a considerar el contenedor de botones.

Le añado las variables de instancia de valores por defecto de los botones, la ultima posición, el array de los botones y los manejadores de los mismos.

uo_button iPb_Button[]

Integer iIndex[], iLastIndex

window iw_win

Long iHandle[]

Integer iLastX = 4, iLastY = 4

Constant Integer HEIGHT_BUTTON = 88

Constant Integer WIDTH_BUTTON = 110

Al constructor, le indicaremos el handle del parent, osea, la ventana.

iw_win = Parent

y nuestro contenedor, tendrá un método para añadir el botón de forma dinámica.

//////////////////////////////////////////////////

// Objeto: uo_buttonbar

// Función: of_add

// Argumentos: value integer ai_id

// value string as_picture

// value string as_tag

// value boolean ab_initialstate

// Retorno: integer

// Descripción: Añade un botón en la barra y

// recalcula la siguiente posición

//////////////////////////////////////////////////

iLastIndex = UpperBound(ipb_button)

iLastIndex ++

ipb_button[iLastIndex] = Create uo_button

ipb_button[iLastIndex].visible = True

// Después de crear el PictureButton lo ponemos sobre la

// ventana donde esta el objeto visual de usuario.

iw_win.openUserObject(ipb_button[iLastIndex])

// Obtenemos el Handle del PictureButton.

iHandle[iLastIndex] = Handle(ipb_button[iLastIndex])

// Cambiamos el Padre del PictureButton asignandole ahora

// como tal al uo_barra_botoenes

SetParent( iHandle[iLastIndex], Handle(This))

// Aquí continuamos con el código normal... sin

// olvidarse de hacerlo visible.

ipb_button[iLastIndex].x = iLastX

ipb_button[iLastIndex].y = iLastY

ipb_button[iLastIndex].height = HEIGHT_BUTTON

ipb_button[iLastIndex].Width = WIDTH_BUTTON

ipb_button[iLastIndex].PictureName = as_picture

ipb_button[iLastIndex].visible = True

if as_tip <> "" then

ipb_button[iLastIndex].powertiptext = as_tip

end if

ipb_button[iLastIndex].enabled = ab_InitialState

iLastX = iLastX + HEIGHT_BUTTON

iIndex[iLastIndex] = ai_Id

Return 1

mmmmm, interesante código.. vamos a ver que hace...

Esto crea un array con los botones, y usando el SetParent, lo insertamos en el contenedor, porque el método, OpenUserObject lo inserta en la ventana (iw_win osea, el parent) pero lo movemos al contenedir (Handler(this)). Luego, lo posicionamos con respecto AL CONTENEDOR (x,y,heigh,width)

Luego calcula cual es la siguiente posición del próximo botón.

Pero, al ser un botón dinámico, como controlo cuando se ha pulsado el botón?

Para ello, vamos a controlar el handler del contenedor cuando creamos el botón.

Al objeto uo_boton, añadimos variable de instancia

ULong iul_Handle

Aquí, almacenaremos el handle del contenedor cuando lo estamos creando, creamos una función llamada sethandle (unsignedlong aul_handle)

iul_Handle = aul_Handle

y al evento click, le añadimos el siguiente código.

Send(iul_Handle, 1024, Handle(this), 0)

Esto hace que invoquemos al contenedor, llamando al evento 1024 haciendo referencia al manejador del botón...

Lo cualo????

El evento 1024 en el contenedor es el evento definido por el usuario en power builder, asi que el contenedor vamos a crear un nuevo evento llamado ue_buttonclick

lo definimos del tipo pbm_custom01

a que a veces te habías preguntado para que servían estos Event ID, pues el 1024 para custom01, el 1025 para custom02, etc...

En nuestro caso, vamos a recorrer el array de handler, y cuando coincida con nuestro botón, recogemos el ID que hemos añadido antes.

Recordad, en el código de of_Add, hay que añadir el código para indicarle al botón cual es el handler del contenedor.

// Obtenemos el Handle del PictureButton.

iHandle[iLastIndex] = Handle(ipb_button[iLastIndex])

ipb_button[iLastIndex].SetHandle(Handle(This))

y nuestro evento ue_buttonclick, el código para controlar el evento click de los botones.

Integer li_For, li_Ret, li_Total

Long lHandle

// Buscamos quien tiene el Handle

li_Total = UpperBound(iHandle)

For li_For = 1 TO li_Total

if wparam = iHandle[li_for] then

Messagebox("Pulsado", "Ha pulsado el botón con el ID = " + String(iIndex[li_for]) )

Return 1

Exit

End if

Return 0

Interesante, no te parece?

Ya sabes, el código de ejemplo lo tienes en el siguiente enlace. El código está en Power Builder 10.5, si tienes una versión anterior, puedes usar el segundo enlace que tiene los componentes exportados.

ButtonBar.zip (Librearia PBL, PBT y PBW)

ButtonBar_source.zip (Ficheros sru, sra y srw)

Si te ha gustado este truco me gustaría saberlo. :D

[Android] Mi primera aplicación para Android (y IV)

2012-03-02T02:01:00.000+01:00

Ahora lo vamos a poner en marcha...
La primera vez, necesitaremos indicar cual es "emulador", por lo que depende de la versión de Android que vamos a usar. Seleccionamos el icono y creamos un nuevo dispositivo.

De esta forma, cuando pongamos en marcha nuestra aplicación, le indicaremos que use el emulador "DefaultDevice".
Cuando le demos a "Run as", elegimos el ADV para acceder.... y paciencia, pues como dije en su momento, son emuladores y no van a la misma velocidad que un dispositivo Android.

y cuando se ponga en marcha y se instale el paquete de la aplicación.. tendremos en marcha nuestro teléfono Android

bonito teléfono.. :D
Desbloqueamos y tendremos nuestra aplicación instalada

Nota: Te recomiendo que tengas el emulador en marcha antes de ejecutar la aplicación, porque tarda mucho en ponerse en marcha, así que cuando pruebes, NO CIERRES EL EMULADOR... si lo haces, te acordaras de estas palabras.
Otro consejo es si no cabe el emulador en pantalla porque se está ejecutando con una resolución bastante alta, no dudes en modificarlo, por ejemplo, modificar el parámetro skin, a WVGA400

Si hacemos click en nuestra aplicación, esta se abrirá y aparecerán los 3 pulsadores con sus sonidos

tachan....!!!

Pues como siempre... aquí tenéis los enlaces, incuido el apk por si lo quieres instalar directamente en tu Android

Source:
Sounds.zip

App:
Sounds.apk

[Android] Mi primera aplicación para Android (III)

2012-03-01T22:56:00.000+01:00

Ahora vamos a crear la interface de nuestra aplicación.
He añadido tres iconos en los directorios drawable-hdpi, drawable-ldpi y drawable-mdpi, en cualquier resolución vamos a usar el mismo. Como observarás, el fichero R.java se ha regenerado con los nuevos iconos.
Hacemos doble click en main.xml, tendremos algo como esto:

Se recomienda cambiar el tipo de versión de Android a 2.2 para que sea lo mas compatible posible con muchos modelos de Android.
Borraremos el TextView con el "Hello World!" que viene por defecto.
Seleccionamos la pestaña de main.xml y modificamos el "LinearLayout" por un "ScrollView"

<?xml version="1.0" encoding="utf-8"?>
<ScrollView xmlns:android="http://schemas.android.com/apk/res/android"
android:layout_width="fill_parent"
android:layout_height="fill_parent">
</ScrollView>
Añadimos un "TableLayout" al que llamaremos "ListSound"
Luego le daremos al botón derecho sobre el objeto y seleccionaremos "Add Row", añadiremos 3 rows, para nuestros tres sonidos.

Seleccionaremos "ImageButton" en la paleta de herramientas (Images & Media) y lo arrastramos dentro de cada uno de las filas, de igual forma arrastramos el objeto "TextView". En cada uno de los botones, lo llamamos "perroBtn", "ovejaBtn" y "patoBtn". Modificamos el texto en cada fila.
Los textos deben de estar registrados en el fichero de recursos, por lo que abriremos el fichero "string.xml" que está en la carpeta "Values", añadimos los tres textos que necesitamos

entonces, cuando seleccionamos el texto, lo que realmente estamos seleccionado es la referencia a un atributo, de esta forma, podemos tener una aplicación multi-idioma, pues la referencia es la misma, solo cambia el valor según el resource que esté usando.

Seleccionaremos el botón y modificamos la propiedad "Src", pondremos el valor "@drawable/ic_menu_play", y al texto le ponemos la propiedad "Layout Gravity" "Layout gravity center_vertical|center_horizontal"

Bueno.. pues la interface parece estar lista, pero solo es una fachada. Vamos a ponerle un poquito de negocio a estos botones.

Creamos una nueva clase, al que llamaremos "Sounds.java", dentro del paquete "src"

La Superclass ha de ser "android.app.Activity" que es la que se ejecuta al iniciar una aplicación en Android.
Tambien tenemos que añadir el fichero de recurso.
import kurro.software.sounds.R;Como vamos a controlar botones y vamos a ejecutar sonidos, también debemos de importar las librearias de MediaPlayer e ImageButton.

import android.media.MediaPlayer;
import android.widget.ImageButton;

Tambien necesitamos las librerías para el control de errores (log) y objetos de mapeo de objetos (budle)

import android.util.Log;
import android.os.Bundle;
Hacemos un "Override" del método "onCreate", porque vamos a indicarle cual es el Layout que debe de mostrar al inicio, así como el método a ejecutar cuando pulsemos los botones.
@Override
public void onCreate(Bundle savedInstanceState)
{
try
{
// Invocamos al parent y ejecutamos el método onCreate
super.onCreate(savedInstanceState);
// Definimos cual es el ContentView (usamos el Id almacenado en R)
setContentView(R.layout.main);

// Recogemos el handler de los botones
ibPerro = (ImageButton) findViewById(R.id.perroBtn);
ibOveja = (ImageButton) findViewById(R.id.ovejaBtn);
ibPato = (ImageButton) findViewById(R.id.patoBtn);

}catch (Exception e)
{
Log.d("onCreate", "Error: "+e.toString());
}
}
Ahora vamos a asociar el listener del evento onClick a una función para que ejecute el sonido correspondiente. Nota que cuando vamos a asociarle el evento, automáticamente va ha hacer el override del evento.

// Asociamos el evento onClick a la función PlaySound()
ibPerro.setOnClickListener(new View.OnClickListener() {
@Override
public void onClick(View v) {
// TODO Auto-generated method stub
Log.d("Sounds", "Perro Clicked");
playSound(R.raw.perro);
}
});

Repetimos lo mismo para los otros botones, obviamente, con su correspondiente Id de sonido.
La función de playSound tiene el siguiente aspecto.
protected void playSound(int soundId) {

try {
Log.d("playingSound", "playing sound " + soundId);
if (mediaPlayer != null) {
mediaPlayer.release();
mediaPlayer = null;
}
mediaPlayer = MediaPlayer.create(this, soundId);
mediaPlayer.start();
} catch (Exception e) {
Log.d("playSound", e.toString());
}
}

No nos olvidemos de destruir el objeto de media player cuando cerremos la aplicación.

@Override
protected void onDestroy() {
super.onDestroy();
// TODO Auto-generated method stub
if (mediaPlayer != null) {
mediaPlayer.release();
mediaPlayer = null;
}
}

Antes de nada.... configurar el manifest.xml para que sepa nuestro Android como tiene que ejecutar la aplicación.

<?xml version="1.0" encoding="utf-8"?>
<manifest xmlns:android="http://schemas.android.com/apk/res/android"
package="kurro.software.sounds"
android:versionCode="1"
android:versionName="1.0">
<uses-sdk android:minSdkVersion="8" />

<application android:label="@string/app_name"
android:icon="@drawable/ic_menu_happy"
android:description="@string/description">
<activity android:description="@string/description" android:name="Sounds" android:label="@string/app_name" android:icon="@drawable/ic_menu_happy">
<intent-filter>
<action android:name="android.intent.action.MAIN"></action>
<category android:name="android.intent.category.LAUNCHER"></category>
</intent-filter>
</activity>
</application>
</manifest>

[Android] Mi primera aplicación para Android (II)

2012-02-20T22:21:00.000+01:00

Ahora vamos a explicar que son todos estos directorios y ficheros que hay por defecto en nuestro proyecto.

Dentro de la carpeta "res" es donde están todos los recursos.
drawable-xxxx es donde estarán todos las imágenes de nuestro proyecto.
Según sea el tamaño y densidad, ahí es donde tienen que estar.

xhdpi - Extra High density ( 960dp x 720dp )
hdpi - High density ( 640dp x 480dp )
mdpi - Medium density ( 470dp x 320dp )
ldpi - Low density ( 426dp x 320dp )

Para más información de estos directorios, os recomiendo que sigas el siguiente enlace http://developer.android.com/guide/practices/screens_support.html

La carpeta "Layout" es donde estará nuestro formulario, la UI, la parte visible de nuestra aplicación.
La carpeta "Values" es donde estarán las variables y valores globales de nuestra aplicación, por ejemplo, versión del producto, nombre de la aplicación, etc..
También tendremos un directorio llamado "Raw" que es donde estarán alojados los ficheros de sonido en mp3. En nuestro ejemplo, es importante porque es donde estarán los sonidos que vamos a usar en nuestra aplicación. Por defecto no se crea este directorio, por lo que hay que crearlo a mano.

Luego tenemos el fichero R.java, este fichero está bajo el paquete "Gen"

Como has observado, este fichero se auto-genera cuando modificamos, o añadimos cualquier cosa en la carpeta "Res" (de ahí, el nombre de R.java, vamos, se han estrujado mucho el cerebro los diseñadores, jejeje).

Si haces cualquier cambio en este fichero, es ignorado pues cuando se compila o se modifica algo en este directorio, se elimina automáticamente pues se genera nuevamente el fichero R.Java.

Y la próxima entrada... el final, que sera cuando generemos la aplicación, la compilemos, la probemos y la instalemos en nuestro Android.

[Android] Mi primera aplicación para Android (I)

2012-02-14T22:53:00.002+01:00

Hola a todos.
Hoy vamos a hacer nuestra primera aplicación para Android.
Para ello necesitamos los siguientes ingredientes:

Eclipse ( http://www.eclipse.org )
ADT ( Plugin for Eclipse http://developer.android.com/sdk/eclipse-adt.html )
Android SDK ( http://developer.android.com/sdk/index.html )

Para mas información de como empezar con el SDK de Android, visita la página http://developer.android.com/sdk/index.html

Una vez instalado todo, vamos a hacer una aplicación simple, que reproduce un sonido cuando pulsamos un botón.

Para empezar, debemos de seleccionar cual es la versión de Android vamos a usar, asi como el emulador a usar. Nota: Los emuladores son eso, emuladores, asi que no esperes que vaya muy rápido ni nada por el estilo, porque son muy, pero que muy lentos.

Primero, seleccionamos nuevo proyecto, y en el apartado "Other", seleccionamos nueva aplicación Android.

Le indicamos cual es el nombre de nuestro proyecto, asi como la versión de Android, en nuestro caso vamos a usar la versión 2.2 para que sea bastante compatible.

Le damos a finalizar y tendremos el siguiente paquete:

Luego veremos que son estas carpetas y como creamos nuestro UI... en la siguiente entrega

[INTERNAL] Codigos de ejemplos no disponibles

2012-01-27T10:07:00.001+01:00

Hola a todos...

Desgraciadamente, los señores del FBI basándose en la premisa de Norteamerica de "Todos son culpables, hasta que se demuestre lo contrario, y ya veremos...", han cerrado Megaupload, que era el servidor donde estaban alojados los ejemplos de este blog.

Mientras encuentre otro sitio fiable donde poder compartir estos ficheros LEGALES, y además, yo soy el propietario intelectual de estos ficheros, que cedo libremente a todos los usuarios, para uso y disfrute, los ejemplos no estarán disponibles para descargar.

Intentare modificar los enlaces lo mas pronto posible para que usen correctamente. Cualquier sugerencia será bienvenida.

Nota: También me gustaría usar algún tipo de licencia libre (GNU) o CopyLeft, si alguien puede suministrar alguna información sobre este tipo de licencias, manda comentario.

Gracias a todos.
Kurro Software

[29/01/12] Ya están disponibles los ficheros, están alojados en Rapidshare, no es la opción mas rápida, pero si están disponibles para todos.
[22/02/12] Nuevamente cambiado el alojamiento de ficheros porque Rapidshare los eliminará en breve, o pagas o pasado 30 días lo borran.... Que simpáticos :D

[.NET] Usar el servicio de Google Geocoding

2011-11-01T16:25:00.000+01:00

Hola de nuevo.

En esta entrega vamos a ver como acceder al servicio de geoposicionamiento de Google Geocoding.

Tal y como indica en las especificaciones de Geocoding, se puede acceder de dos formas diferentes. Una usando XML y otra usando JSON.

La primera seria invocando la dirección directamente a la URL http://maps.google.com/maps/api/geocode/xml?address=Puerta+del+sol,1+Madrid+Spain&region=sp&sensor=false.
En este caso, nos devuelve la lista de posibles direcciones, junto a cada una de sus posiciones geográficas.

<type>street_address</type>

<formatted_address>Callede Peña del Sol, 1, 28034 Madrid, España</formatted_address>

<address_component>

<long_name>1</long_name>

<short_name>1</short_name>

<type>street_number</type>

</address_component>

<address_component>

<long_name>Calle dePeña del Sol</long_name>

<short_name>Calle dePeña del Sol</short_name>

<type>route</type>

</address_component>

<address_component>

<long_name>Madrid</long_name>

<short_name>Madrid</short_name>

<type>locality</type>

<type>political</type>

</address_component>

<address_component>

<long_name>Madrid</long_name>

<short_name>M</short_name>

<type>administrative_area_level_2</type>

<type>political</type>

</address_component>

<address_component>

<long_name>Comunidadde Madrid</long_name>

<short_name>Comunidadde Madrid</short_name>

<type>administrative_area_level_1</type>

<type>political</type>

</address_component>

<address_component>

<long_name>España</long_name>

<short_name>ES</short_name>

<type>country</type>

<type>political</type>

</address_component>

<address_component>

<long_name>28034</long_name>

<short_name>28034</short_name>

<type>postal_code</type>

</address_component>

</location>

<location_type>RANGE_INTERPOLATED</location_type>

</southwest>

</northeast>

</viewport>

</southwest>

</northeast>

</bounds>

</geometry>

<partial_match>true</partial_match>

</result>

</GeocodeResponse>

Menudo chorizo!!

Pero, como podemos usar la opción de JSON, vamos a creare un WCF para recuperar este resultado.
Así, que lo primero que necesitamos crear es un DataContract para almacenar los resultados.

Si ejecutamos la sentencia anterior, sustituyendo XML por JSON, te puedes hacer una idea de como tiene que ser nuestro interface.

[DataContract]

public class GeoResponse

{

[DataMember(Name= "status")]

public string Status { get; set; }

[DataMember(Name= "results")]

public CResult[] Results { get;set; }

[DataContract]

public class CResult

{

[DataMember(Name= "formatted_address")]

publicstring formatted_address { get; set; }

[DataMember(Name= "address_components")]

publicGeocodeAddressComponent[] AddressComponents{ get; set; }

[DataContract]

publicclass GeocodeAddressComponent

{

[DataMember(Name= "long_name")]

publicstring LongName { get;set; }

[DataMember(Name= "short_name")]

publicstring ShortName { get;set; }

[DataMember(Name= "types")]

publicstring[] Type { get;set; }

}

[DataMember(Name= "geometry")]

publicCGeometry Geometry { get; set; }

[DataContract]

publicclass CGeometry

{

[DataMember(Name= "location")]

publicCLocation Location { get; set; }

[DataContract]

publicclass CLocation

{

[DataMember(Name= "lat")]

publicdouble Latitude { get;set; }

[DataMember(Name= "lng")]

publicdouble Longitude { get;set; }

}

Ahora, definimos la función que usaremos para llamar al Geocoding.

[OperationContract]

GeoResponseCallGeoWS(string address);

Ahora, a crear la clase que implementa este interface.

public class Geocoding : IGeocoding

{

public GeoResponse CallGeoWS(stringaddress)

{

stringurl = string.Format(

"http://maps.google.com/maps/api/geocode/json?address={0}&region=sp&sensor=false",

HttpUtility.UrlEncode(address)

);

varrequest = (HttpWebRequest)HttpWebRequest.Create(url);

request.Headers.Add(HttpRequestHeader.AcceptEncoding, "gzip,deflate");

request.AutomaticDecompression= DecompressionMethods.GZip | DecompressionMethods.Deflate;

DataContractJsonSerializerserializer = new DataContractJsonSerializer(typeof(GeoResponse));

varres = (GeoResponse)serializer.ReadObject(request.GetResponse().GetResponseStream());

return res;

}

Como veréis, la URL usada es la de Geocode, este nos devolverá el bloque en ZIP y lo descomprimimos automáticamente, a la par que hacemos la deseralización del resultado usando el contract que hemos creado antes.

Como ves, es muy sencillo.

Solo a tener en cuenta una cosa.. La librería de JSON la puedes encontrar en C:\Program Files\Reference Assemblies\Microsoft\Framework\v3.0\System.Runtime.Serialization.dll

Bueno... y después de todo esto, ¿Qué se puede hacer

Pues vamos a usarlo para mostrar información de direcciones y mostrarlo en un mapa de Google Maps.

En este caso, vamos a utilizar la opción de mapas staticos de Google.

http://maps.google.com/maps/api/staticmap?center=latitud,longitud

Geocoding.Geocodinggc = new Geocoding.Geocoding();

GeoResponse gr;

String address = "Paseodel Prado,1,Madrid,Spain";

GeoResponse geocodingResponse = gc.CallGeoWS(address);

Nos devuelve un objeto del tipo GeoResponse, que vamos a recorrer para montar un ListView.

listViewResult.Items.Clear();

foreach(GeoResponse.CResultresult in _geocodingResponse.Results)

{

ListViewItem lv = new ListViewItem(result.formatted_address,0);

lv.SubItems.Add(Coordenates_ToString(Functions.Convert2DegressMinutesSeconds(result.Geometry.Location.Longitude,true)));

lv.SubItems.Add(Coordenates_ToString(Functions.Convert2DegressMinutesSeconds(result.Geometry.Location.Latitude)));

listViewResult.Items.Add(lv);

}

Como habrás notado, estoy usando la función de conversión de Grados Minutos y segundos que se ha comentado anteriormente, para mostrar la posición geográfica en unidades de GPS.

La función Coordenates_ToString es para formatear nuestras coordenadas.

privateString Coordenates_ToString(Functions.Coordenatescoordenates)

{

return(coordenates.Geo + " " +coordenates.Degress.ToString() + "º "+

coordenates.Minutes.ToString() + "' " +

coordenates.Seconds.ToString() + "'' ");

}

Si quieres ver todo esto en funcionamiento, descárgate el código y el TestHarness para probarlo.

KurroSoftware.Geocoding.Zip

[.NET] Convertir Latitud y Longitud en Grados - Minutos y segundos

2011-11-01T15:14:00.001+01:00

Hola a todos.

Esta es una función para convertir un número de posición geográfica en grados, minutos y segundos.

Como algunos pocos recordarán,una posición geográfica esta definida por latitud (Norte / Sur) y longitud (Este / Oeste) teniendo como referencia para la longitud el meridiano de Greenwich (Meridiano 0) y para la latitud la linea del Ecuador (Paralelo 0). Por lo que siempre hablaremos de posición "Grados Norte", o "Grados Este".

Ahora es cuando entra en juego las matemáticas y la trigonometría (he de admitir que me encantan :D ). El hemisferio norte o sur solo tendría 90° Norte o Sur. Por ejemplo, El polo norte está a 90° 0' 0'' N de latitud. La longitud podríamos considerar el 0° 0' 0'' (estamos en el polo norte, por lo que es un solo punto, no hay longitud).

En cambio, si nos movemos alrededor de la tierra por la linea de Ecuador, la latitud será 0° 0' 0'' (ni al norte, ni al sur) pero de Este a Oeste nos moveremos en un rango de 180°. Desde el Meridiano de Greenwich al Meridiano de cambio de fecha (el 180). Por ejemplo, la ciudad de Calacalí, en Ecuador, E 70° 30' 47'' - N 0° 0' 0'' (por algo es llamada la ciudad en la mitad del mundo).

Después de esta breve clase de geografía, vamos a poner en práctica estos conocimientos con las nuevas tecnologías.

En algunas aplicaciones de geoposicionamiento (Latitude de Google, Loopt de Apple, etc..), estas posiciones son dadas en un numero con (mas o menos) 8 decimales. Signo + o -, esto significa que esta al Este u Oeste (si es Longitud) o Norte o Sur (si es Latitud).

Ejemplo:
Puerta del Sol de Madrid.
Latitud: 40.4166846
Longitud: -3.7025638

Lo que tenemos que hacer es convertir esta numeración en Grados Minutos y Segundos.

1) Los grados serán la parte entera
2) Los minutos serán la diferencia de la parte decimal multiplicado por 60
3) Los segundos será lo que queda multiplicado por 60

Ahora lo vemos en código:

double absValue = Math.Abs(Math.Round(position * 1000000));
int sign = Math.Sign(position);

Int Degress = (int)Math.Floor(absValue / 1000000);
Int Minutes = (int)Math.Floor(((absValue / 1000000) - Math.Floor(absValue / 1000000)) * 60);
Decimal Seconds = (Decimal)Math.Floor(((((absValue / 1000000) - Math.Floor(absValue / 1000000)) * 60) - Math.Floor(((absValue / 1000000) - Math.Floor(absValue / 1000000)) * 60)) * 100000) * 60 / 100000;

Pero vamos a ser un poco mas sofisticados. Como es una función para calcular posiciones geográficas, vamos a usar una estructura para contener esta información:

public struct Coordenates

{

public int Degress;

public int Minutes;

public decimal Seconds;

public String Geo; // N,S,E,W

}

El valor Geo tendrá el valor de Norte, Sur, Este y (W)Oeste. Por lo que tenemos que tener algún parámetro para saber si es Latitud o Longitud. Empezamos a definir nuestra función:

public static Coordenates Convert2DegressMinutesSeconds(double position, bool isLong)

Vamos a sobrecargar esta función para que por defecto, lo que vamos a convertir es una Latitud.

public static Coordenates Convert2DegressMinutesSeconds(double position)

{

// By default, it is a Latitude (North / South)

return Convert2DegressMinutesSeconds(position, false);

}

y como había dicho antes, si es positivo, y es latitud, estamos hablando de Norte.

Signo	Posición	isLong
Positivo	Norte	False
Negativo	Sur	False
Positivo	Este	True
Negativo	Oeste	True

Esta sería la función final.

public static Coordenates Convert2DegressMinutesSeconds(double position, bool isLong)

{

Coordenates ret = new Coordenates();

// Negative: North

// Positive: South

// if isLong = true

// Negative: East

// Positive: West

double absValue = Math.Abs(Math.Round(position * 1000000));

int sign = Math.Sign(position);

ret.Degress = (int)Math.Floor(absValue / 1000000);

ret.Minutes = (int)Math.Floor(((absValue / 1000000) - Math.Floor(absValue / 1000000)) * 60);

ret.Seconds = (Decimal)Math.Floor(((((absValue / 1000000) - Math.Floor(absValue / 1000000)) * 60) - Math.Floor(((absValue / 1000000) - Math.Floor(absValue / 1000000)) * 60)) * 100000) * 60 / 100000;

if (isLong)

if (sign > 0)

ret.Geo = "W";

else

ret.Geo = "E";

else

if (sign > 0)

ret.Geo = "N";

else

ret.Geo = "S";

return ret;

}

¿A que es bonita?

Como siempre, la función la puedes encontrar en el siguiente enlace.
KurroSoftware.Common.zip

[SYS] - Instalar una impresora PDF virtual

2011-10-15T14:11:00.001+02:00

Hola de nuevo.

Muchas veces nos hemos visto obligado a convertir un documento en PDF y es un fastidio si no tenemos la licencia correspondiente de Adobe para editar y crear nuestros propios PDF.

Estas son las instrucciones que encontré hace mucho tiempo de como crear una impresora PDF virtual. El enlace es el siguiente: http://www.aitoroliveira.com/hazlotumismo/impresorapdf.php

Es muy útil, sobre todo si no tienes impresora o quieres mandar algún documento por email.

[VB] - Generar GUID

2011-10-15T01:31:00.000+02:00

Esta si es buena...
Como se nota que VB es un lenguaje con "solera", es decir, con años pero con robustez. Pero le pasa como al abuelo Cebolleta, tiene experiencia pero para los nuevos tiempos... ains.. le falta algo.

Hoy en dia no sabriamos hacer nada sin un buen GUID, sobre todo si lo que queremos es identificar de forma unica y constante algun registro, objeto u otro componente.

Usando SQL podemos generar un GUID en un santiamen a traves de la instrucción NEWID(), podemos crear un nuevo GUID en .NET usando la clase GUID.. pero... como lo hacemos con Visual Basic 6?

Para empezar, vamos a ver en que se compone un GUID

¿Que es un GUID?
Su significado es Globally Unique Identifier, osea Identificador globalmente único. Y su misión es la de proporcionar un identificador, de forma que es practicamente imposible que existan dos iguales en el mundo.
Se compone de una palabra de 4 bytes, 3 palabras de 2 bytes y una de 6 bytes.
Originalmente fue una idea de Microsoft para identificar sus objetos OLE, estos se denominan CLSID.

{C802231C-140D-4D91-BEFF-0B9DC2A2877B}

¿Como hacemos esta maravilla de identificador?
Para ello vamos a usar el método coCreateGUID de la libreria OLE32.DLL y crearemos un Type con la configuración de un GUID (ya sabes, 4-2-2-2-6)

Private Type newGUID

Data1 As Long

Data2 As Integer

Data3 As Integer

Data4(7) As Byte

End Type

Un momento.... hemos dicho 4-2-2-2-6, entonces ¿Por qué hacemos una estructura de 4 (Long), 2 (Integer), 2 (Integer) y Array(7) Byte (osea, 8 Bytes)?

Muy facil, realmente el 3er grupo de 2 bytes es parte del ultimo grupo de 6 Bytes, solo que va separado de este último grupo, es un poco lioso pero en resumidas cuenta, el último grupo lleva los bytes correspondiente al último grupo de 2 Bytes y el grupo de 6 Bytes.
{Data1 - Data2 - Data3 - 2Bytes de Data4 - 6Bytes de Data4}
¿A que ahora queda un poco mas claro?

Luego invocamos a la función coCreateGUID para rellenar este tipo

Private Declare Function CoCreateGuid Lib "OLE32.DLL" (pGuid As newGUID) As Long

Esta función devuelve 0 si se ha procesado correctamente, y rellenará los valores. Solo tenemos que volver a convertirlos en una cadena String

Dim udtGUID As newGUID

Dim GetGUID As String

If (CoCreateGuid(udtGUID) = 0) Then

GetGUID = _

String(8 - Len(Hex$(udtGUID.Data1)), "0") & Hex$(udtGUID.Data1) & "-" & _

String(4 - Len(Hex$(udtGUID.Data2)), "0") & Hex$(udtGUID.Data2) & "-" & _

String(4 - Len(Hex$(udtGUID.Data3)), "0") & Hex$(udtGUID.Data3) & _

IIf((udtGUID.Data4(0) < &H10), "0", "") & Hex$(udtGUID.Data4(0)) & "-" & _

IIf((udtGUID.Data4(1) < &H10), "0", "") & Hex$(udtGUID.Data4(1)) & _

IIf((udtGUID.Data4(2) < &H10), "0", "") & Hex$(udtGUID.Data4(2)) & _

IIf((udtGUID.Data4(3) < &H10), "0", "") & Hex$(udtGUID.Data4(3)) & _

IIf((udtGUID.Data4(4) < &H10), "0", "") & Hex$(udtGUID.Data4(4)) & _

IIf((udtGUID.Data4(5) < &H10), "0", "") & Hex$(udtGUID.Data4(5)) & _

IIf((udtGUID.Data4(6) < &H10), "0", "") & Hex$(udtGUID.Data4(6)) & _

IIf((udtGUID.Data4(7) < &H10), "0", "") & Hex$(udtGUID.Data4(7))

End If

Esta función la puedes descargar en el siguiente enlace

CreateGUID.zip

[SQL] - Encriptar y desencriptar contraseñas

2011-10-14T00:01:00.000+02:00

Hay veces que nos complicamos la vida de una forma complicada e intentamos volver a inventar la pólvora, la rueda y todo a la vez.

La encriptación de contraseñas es una de esas cosas que la complicamos. Podemos usar las funciones que tiene SQL Server 2008 y posterior.

Para este ejemplo, vamos a usar las funciones ENCRYPTBYPASSPHRASE y DECRYPTBYPASSPHRASE. Para ello vamos a necesitar una palabra clave que es la que vamos a usar como patrón. Veamos como se las gasta esta función.

SELECT ENCRYPTBYPASSPHRASE('KurroSoftware','MyPassword')

Esta función esta usando la palabra KurroSoftware para su algoritmo de encriptación. El resultado es el siguiente:

0x01000000B8C73A18B8157E470A120864E04D58B8BB12C1E38B2C3BF36A5768883925821C64120CC0E5309A39

Esta claro, no?

Pues usando lo mismo pero en sentido contrario es como funciona la función DECRYPTBYPASSPHRASE, es decir, usa la palabra clave y el valor binario:

DECLARE @Var AS VARBINARY(8000)
SET @Var = 0x01000000B8C73A18B8157E470A120864E04D58B8BB12C1E38B2C3BF36A5768883925821C64120CC0E5309A39
SELECT CAST(DECRYPTBYPASSPHRASE('KurroSoftware',@Var) AS VARCHAR(MAX))

Esto nos devuelve, la clave desencriptada.

MyPassword

Pues ahora a jugar con estas funciones. Yo propongo las siguientes funciones de usuario.

CREATE FUNCTION [dbo].[fn_EncryptPassword(@Password AS VARCHAR(100))]

RETURNS VARBINARY(8000)

AS

BEGIN

    DECLARE @Encrypted AS VARBINARY(8000)

    SET @Encrypted = ENCRYPTBYPASSPHRASE('KurroSoftware',@Password)

    RETURN @Encrypted

END

CREATE FUNCTION [dbo].[fn_DecryptPassword(@Password AS VARBINARY(8000))]
RETURNS NVARCHAR(100)
AS
BEGIN
    DECLARE @Decrypted VARCHAR(100)

    SET @Decrypted = DECRYPTBYPASSPHRASE('KurroSoftware',@Password)

    RETURN @Decrypted
END

Si quieres mas información sobre estas dos funciones, usa los siguientes enlaces:
ENCRYPTBYPASSPHRASE - http://technet.microsoft.com/en-us/library/ms190357.aspx
DECRYPTBYPASSPHRASE - http://technet.microsoft.com/en-us/library/ms188910.aspx

[PB] - Convertir Numero en Letra

2011-10-12T15:41:00.000+02:00

¿Alguna vez has necesitado crear un proceso que tenga que traducir números a letras?
Por ejemplo, para un proceso de emisión de cheques.

Pues esta es la rutina que necesitas
En este caso, vamos a desarrollar un traductor en dos idiomas, es castellano y en catalán.

Para ello vamos a usar la función GlobalReplace que viene con las PFC's, pero si no las usas, no importa porque la he extraído para este ejemplo.

1- Creamos un objeto de usuario no visual autoinstanciable, por ejemplo lo llamamos ncst_num2txt

2- Definimos las siguientes variables de instancia

private String is_cifra[],is_centenas[]

3- Creamos las funciones de of_GloblalReplace y otra para sobrecargar por defecto la opción de IgnoreCase (Esto lo puedes encontrar en la PFCs)

public function string of_GlobalReplace (string as_Source, string as_Old, string as_New, boolean ab_IgnoreCase);
//////////////////////////////////////////////////////////////////////////////
//
// Function: of_GlobalReplace
//
// Access: public
//
// Arguments:
// as_Source The string being searched.
// as_Old The old string being replaced.
// as_New The new string.
// ab_IgnoreCase A boolean stating to ignore case sensitivity.
//
// Returns: string
// as_Source with all occurrences of as_Old replaced with as_New.
// If any argument's value is NULL, function returns NULL.
//
// Description: Replace all occurrences of one string inside another with
// a new string.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 5.0 Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
// Copyright © 1996 Powersoft Corporation. All Rights Reserved.
// Any distribution of the PowerBuilder Foundation Classes (PFC)
// source code by other than Powersoft is prohibited.
//
//////////////////////////////////////////////////////////////////////////////

Long ll_Start, ll_OldLen, ll_NewLen
String ls_Source

//Check parameters
If IsNull(as_source) or IsNull(as_old) or IsNull(as_new) or IsNull(ab_ignorecase) Then
string ls_null
SetNull(ls_null)
Return ls_null
End If

//Get the string lenghts
ll_OldLen = Len(as_Old)
ll_NewLen = Len(as_New)

//Should function respect case.
If ab_ignorecase Then
as_old = Lower(as_old)
ls_source = Lower(as_source)
Else
ls_source = as_source
End If

//Search for the first occurrence of as_Old
ll_Start = Pos(ls_Source, as_Old)

Do While ll_Start > 0
// replace as_Old with as_New
as_Source = Replace(as_Source, ll_Start, ll_OldLen, as_New)

//Should function respect case.
If ab_ignorecase Then
ls_source = Lower(as_source)
Else
ls_source = as_source
End If

// find the next occurrence of as_Old
ll_Start = Pos(ls_Source, as_Old, (ll_Start + ll_NewLen))
Loop

Return as_Source

end function

public function string of_GlobalReplace (string as_Source, string as_Old, string s_New);
//////////////////////////////////////////////////////////////////////////////
//
// Function: of_GlobalReplace
//
// Access: public
//
// Arguments:
// as_Source The string being searched.
// as_Old The old string being replaced.
// as_New The new string.
//
// Returns: string
// as_Source with all occurrences of as_Old replaced with as_New.
// If any argument's value is NULL, function returns NULL.
//
// Description: Replace all occurrences of one string inside another with
// a new string.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 5.0 Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
// Copyright © 1996 Powersoft Corporation. All Rights Reserved.
// Any distribution of the PowerBuilder Foundation Classes (PFC)
// source code by other than Powersoft is prohibited.
//
//////////////////////////////////////////////////////////////////////////////

Integer li_Start, li_OldLen, li_NewLen

//Check parameters
If IsNull(as_source) or IsNull(as_old) or IsNull(as_new) Then
string ls_null
SetNull(ls_null)
Return ls_null
End If

//The default is to ignore Case
as_Source = of_GlobalReplace (as_source, as_old, as_new, True)

Return as_Source

end function

4 - Definimos la función of_GetCifra(integer ai_numero) return String

private function string of_getcifra (integer ai_numero);
//////////////////////////////////////////////////////////////////////////////
//
// Función: of_getcifra
//
// Argumentos: integer ai_numero
//
// Retorno: string
//
// Descripción: Devuelve el número en letra
//
//////////////////////////////////////////////////////////////////////////////
//
// Historial de revisiones Autor: FLH
//
// Fecha Versión
// 15/07/2004 1.0 Versión inicial
//
//////////////////////////////////////////////////////////////////////////////
String ls_CurrItm
Integer li_numero, li_pos

IF ai_numero <= 20 THEN
ls_CurrItm = is_cifra[ai_numero] // Del 1 al 20 coincide con la matriz
ELSE
li_numero = ai_numero - 30
CHOOSE CASE li_numero
CASE IS < 0
li_numero = li_numero * -1
li_pos = Int(li_numero / 10) + 21
CASE 0
li_pos = 21
CASE ELSE
li_pos = Int(li_numero / 10) + 21
END CHOOSE
ls_CurrItm = is_cifra[li_pos]
END IF

RETURN ls_CurrItm

end function

5 - Definimos la función of_trio(String as_trio, String as_codidiom) return String, esta función evalúa de 3 en 3 las cifras (cien, diez, etc..)

private function string of_trio (string as_trio, string as_codidiom);
//////////////////////////////////////////////////////////////////////////////
//
// Función: of_trio
//
// Argumentos: string as_trio
// string as_codidiom
//
// Retorno: string
//
// Descripción: Traduce un número de 1, 2 o 3 cifras en letras
//
//////////////////////////////////////////////////////////////////////////////
//
// Historial de revisiones Autor: FLH
//
// Fecha Versión
// 15/07/2004 1.0 Versión inicial
//
//////////////////////////////////////////////////////////////////////////////
String ls_cif
String ls_ciento, ls_cientas, ls_and, ls_y
Integer li_cif1, li_cif2, li_cif3

ls_cif = ''
li_cif1 = Integer(LEFT(as_trio,1))
li_cif2 = Integer(MID(as_trio,2,1))
li_cif3 = Integer(MID(as_trio,3,1))

Choose Case as_codidiom
case 'ESPA'
ls_ciento = 'cien'
ls_and = ''
ls_y = ' y '
case 'CATA'
ls_ciento = 'cent'
ls_and = ''
ls_y = ''
end choose

// Primera cifra. (Centenas)
CHOOSE CASE li_cif1
CASE 1
if li_cif2 = 0 and li_cif3 = 0 then
ls_cif = ls_ciento
else
ls_cif = is_centenas[li_cif1] + ' '
end if
CASE IS > 1
ls_cif = is_centenas[li_cif1] + ' '
END CHOOSE

// Segunda cifra (Decenas)
CHOOSE CASE li_cif2
CASE 3 TO 9
// Eliminamos las cifras que empiezan por 1 y 2
CHOOSE CASE li_cif3
CASE 0
// Decenas exactas
ls_cif = ls_cif + ls_and + of_GetCifra(li_cif2 * 10) + ' '
CASE IS > 0
ls_cif = ls_cif + ls_and + of_GetCifra(li_cif2 * 10) + ls_y
END CHOOSE
CASE 2
// En este caso, tenemos que tener en cuenta que 20 ( Veinte ) es diferente que Veinti
CHOOSE CASE li_cif3
CASE 0
// Veinte exacto
ls_cif = ls_cif + ls_and + is_cifra[29] + ' ' // Veinte
CASE IS > 0
// Igual que en el resto de números
ls_cif = ls_cif + ls_and + of_GetCifra(li_cif2 * 10)
END CHOOSE
CASE 1
// Esta forma tiene otra gestión
// Debemos de indicarle la 3º cifra
ls_cif = ls_cif + ls_and + of_GetCifra((li_cif2 * 10) + li_cif3) + ' '
END CHOOSE

// Tercera cifra (Unidad)
IF li_cif3 > 0 THEN
// Tenemos que tener en cuenta que las deceneas ( 10 ) ya están gestionadas
IF li_cif2 <> 1 THEN
ls_cif = ls_cif + of_GetCifra(li_cif3)
END IF
END IF

RETURN ls_cif

end function

6- Y por último definimos la función de traducción con la parametrización de las palabras según idioma. of_num2txt (decimal adc_numero, string as_codidiom) return String

public function string of_num2txt (decimal adc_numero, string as_codidiom);
//////////////////////////////////////////////////////////////////////////////
//
// Función: of_num2txt
//
// Argumentos: decimal adc_numero
// string as_codidiom
//
// Retorno: string
//
// Descripción: Convierte un número en texto
//
//////////////////////////////////////////////////////////////////////////////
//
// Historial de revisiones Autor: FLH
//
// Fecha Versión
// 15/07/2004 1.0 Versión inicial
//
//////////////////////////////////////////////////////////////////////////////
String ls_texto, ls_decimal
String ls_numero, ls_billones, ls_millardo, ls_millones, ls_miles, ls_centenas
Integer li_for
dec ldec_residuo
String ls_txt_billon, ls_txt_millon, ls_txt_miles, ls_txt_un
String ls_txt_billones, ls_txt_millones, ls_txt_cien, ls_conjuncion, ls_and
Boolean lb_decimal

lb_decimal = FALSE
// Si tiene parte decimal ponemos 'con'
ldec_residuo = adc_numero - (truncate(adc_numero,0))
if ldec_residuo >= 0.01 then
adc_numero = truncate(adc_numero,0)
lb_decimal = true
// si tiene decimales SIEMPRE trataremos solo dos decimales
ldec_residuo = Truncate((ldec_residuo * 100),0)
end if

Choose case as_codidiom
case 'ESPA'
ls_conjuncion = 'con'
ls_txt_billon = 'billón'
ls_txt_millon = 'millón'
ls_txt_billones = 'billones'
ls_txt_millones = 'millones'
ls_txt_miles = 'mil'
ls_txt_cien = 'cien'
ls_txt_un = 'un'
ls_and = ''
is_cifra[1] = "uno"
is_cifra[2] = "dos"
is_cifra[3] = "tres"
is_cifra[4] = "cuatro"
is_cifra[5] = "cinco"
is_cifra[6] = "seis"
is_cifra[7] = "siete"
is_cifra[8] = "ocho"
is_cifra[9] = "nueve"
is_cifra[10] = "diez"
is_cifra[11] = "once"
is_cifra[12] = "doce"
is_cifra[13] = "trece"
is_cifra[14] = "catorce"
is_cifra[15] = "quince"
is_cifra[16] = "dieciseis"
is_cifra[17] = "diecisiete"
is_cifra[18] = "dieciocho"
is_cifra[19] = "diecinueve"
is_cifra[20] = "veinti"
is_cifra[21] = "treinta"
is_cifra[22] = "cuarenta"
is_cifra[23] = "cincuenta"
is_cifra[24] = "sesenta"
is_cifra[25] = "setenta"
is_cifra[26] = "ochenta"
is_cifra[27] = "noventa"
is_cifra[29] = "veinte"

// Cargamos las centenas
is_centenas[1] = 'ciento'
is_centenas[2] = 'doscientos'
is_centenas[3] = 'trescientos'
is_centenas[4] = 'cuatrocientos'
is_centenas[5] = 'quinientos'
is_centenas[6] = 'seicientos'
is_centenas[7] = 'setecientos'
is_centenas[8] = 'ochocientos'
is_centenas[9] = 'novecientos'
case 'CATA'
ls_conjuncion = 'amb'
ls_txt_billon = 'bilió'
ls_txt_millon = 'milió'
ls_txt_billones = 'bilions'
ls_txt_millones = 'milions'
ls_txt_miles = 'mil'
ls_txt_cien = 'cent'
ls_txt_un = 'un'
ls_and = ''
is_cifra[1] = "u"
is_cifra[2] = "dos"
is_cifra[3] = "tres"
is_cifra[4] = "quatre"
is_cifra[5] = "cinc"
is_cifra[6] = "sis"
is_cifra[7] = "set"
is_cifra[8] = "vuit"
is_cifra[9] = "nou"
is_cifra[10] = "deu"
is_cifra[11] = "onze"
is_cifra[12] = "dotze"
is_cifra[13] = "tretze"
is_cifra[14] = "catorze"
is_cifra[15] = "quinze"
is_cifra[16] = "setze"
is_cifra[17] = "disset"
is_cifra[18] = "divuit"
is_cifra[19] = "dinou"
is_cifra[20] = "vint-i-"
is_cifra[21] = "trenta-"
is_cifra[22] = "quaranta-"
is_cifra[23] = "cinquanta-"
is_cifra[24] = "seixanta-"
is_cifra[25] = "setanta-"
is_cifra[26] = "vuitanta-"
is_cifra[27] = "noranta-"
is_cifra[29] = "vint"

// Cargamos las centenas
is_centenas[1] = 'cent'
is_centenas[2] = 'dos-cents'
is_centenas[3] = 'tres-cents'
is_centenas[4] = 'quatre-cents'
is_centenas[5] = 'cinc-cents'
is_centenas[6] = 'sis-cents'
is_centenas[7] = 'set-cents'
is_centenas[8] = 'vuit-cents'
is_centenas[9] = 'nou-cents'
case else
return 'No definido idioma ' + as_codidiom
end choose
ls_numero = String(adc_numero,'000000000000000')
ls_billones = LEFT(ls_numero,3)
ls_millardo = MID(ls_numero,4,3)
ls_millones = MID(ls_numero,7,3)
ls_miles = MID(ls_numero,10,3)
ls_centenas = MID(ls_numero,13,3)

ls_texto = ''

FOR li_for = 1 TO 5
CHOOSE CASE li_for
CASE 1
// Construccion de los billones
CHOOSE CASE Integer(ls_billones)
CASE 1
ls_texto = ls_txt_un + ' ' + ls_txt_billon
CASE is > 1
ls_texto = of_trio(ls_billones, as_codidiom) + ' ' + ls_txt_billones
END CHOOSE
CASE 2
// Construcción de los millardos
CHOOSE CASE Integer(ls_millardo)
CASE 1
ls_texto = ls_texto + ' ' + ls_txt_miles
CASE is > 1
ls_texto = ls_texto + ' ' + of_trio(ls_millardo, as_codidiom) + ' ' + ls_txt_miles
END CHOOSE
CASE 3
// Construcción de los millones
CHOOSE CASE Integer(ls_millones)
CASE 1
ls_texto = ls_texto + ' ' + ls_txt_un + ' ' + ls_txt_millon
CASE is > 1
ls_texto = ls_texto + ' ' + of_trio(ls_millones, as_codidiom) + ' ' + ls_txt_millones
CASE ELSE
// Si ha habido millardos pero no ha habido millones, ha
// de aparecer la palabra millones
if Integer(ls_millardo) > 0 then
ls_texto = ls_texto + ' ' + ls_txt_millones
end if
END CHOOSE
CASE 4
// Construcción de los miles
CHOOSE CASE Integer(ls_miles)
CASE 1
ls_texto = ls_texto + ' ' + ls_txt_miles
CASE is > 1
ls_texto = ls_texto + ' '+ of_trio(ls_miles, as_codidiom) + ' ' + ls_txt_miles
END CHOOSE
CASE 5
// Construcción de las centenas
ls_texto = ls_texto + ' ' + of_trio(ls_centenas, as_codidiom)
END CHOOSE
NEXT

if lb_decimal then
// Ponemos la parte decimal
ls_texto = ls_texto + ' ' + ls_conjuncion + ' ' + of_num2txt(ldec_residuo,as_codidiom)
end if

ls_texto = of_GlobalReplace(ls_texto,' ',' ')

Return ls_texto

end function

Una vez creado nuestro objeto solo tendremos que llamarlo de la siguiente forma

ncst_num2txt lncst_num2txt
Decimal ldec_numero, ls_idioma
String ls_texto

ls_idioma = 'ESPA'

ldec_numero = 1234.56

ls_texto = lncst_num2txt.of_num2txt(ldec_numero,ls_idioma)

MessageBox("Num2Txt" + String(ldec_numero) + " en castellano" ls_texto)
ls_idioma = 'CATA'

ls_texto = lncst_num2txt.of_num2txt(ldec_numero,ls_idioma)
MessageBox("Num2Txt " + String(ldec_numero) + " en catalán" ,ls_texto)

Espero que os sea útil

Por si lo queréis descargar, aquí tenéis el enlace....
ncst_num2txt.rar

[INIT] - IDENTIFICATION DIVISION

2011-10-11T22:32:00.000+02:00

Hola a todos:

Creo que por fin, después de haber visto cientos de blogs, páginas y sitios donde el hombre ha pasado jamas, me he decidido a abrir este blog para compartir mis conocimientos con otras personas.
Tengo muchas cosas que he ido aprendiendo a lo largo de estos años y van siendo hora de empezar a guardarlas en un sitio para que otros lo puedan consultar.

La idea de este blog es compartir conocimientos en programación en varios lenguajes de programación, así como intentar hacer un punto de encuentro entre programadores sin ánimo de lucro.

... Si, ya sé que hay muchos sitios, y muy profesionales que hacen lo mismo, no pienso imitarlos ni tan siquiera mejorarlos, simplemente... me lo está pidiendo el cuerpo.

Bueno, compañeros de aventuras, aquí empezamos y espero no terminar nunca.

IDENTIFICATION DIVISION.
PROGRAM-ID TrucosDeProgramacion.
AUTHOR KurroSoft.
INSTALLATION Blogspot.com.
DATE-WRITTEN 2011-10-11.
DATE-COMPILED 2011-10-11.
REMARKS A disfrutar.

Un saludo a todos
Francisco López

P.D. El título es un homenaje a ese lenguaje de programación que le tuve mucho odio hace muchísimo tiempo