En un año pasan muchas y hoy es un poco tarde para resumirlas todas… Voy a resumirlo con “quieres que salta todo perfecto”. Ea… pues he decidido que ya no va a ser así… Es más divertido vivir a lo loco y que pase lo que tenga que pasar…

Por eso me he buscado un compañero que me acompaña en las salidas… no se quien esta más zumbao si él o yo… pero nos lo pasamos en grande…. Estar a 100 metros de altitud colgados de una cuerda y que al abrir la única botella de agua  se te caiga el tapón montaña abajo no tiene precio….

Y ya para ir finalizando, os recomiendo que veáis la película “El santuario”. Me la recomendó un gran amigo, Samuel, y me quedo con la ultima frase de la película (120 minutos) “Si te caigo mal es que no me conoces realmente”.

¿El futuro? Buf… nose… cada día pienso una cosa diferente…

Me acaba de surgir la duda de crear un formulario de contacto en wordpress.com ya que no te dejan instalar plugins como Contact Form 7 o Custom Contact Forms.

Buscando un poco por internet he visto que desde wordpress.com han habilitado algo tan sencillo como:

1. Creas una página nueva en tu blog
2. Le pones el titulo que quieras
3. Y en el cuerpo del mensaje pones este texto: 

Podéis ver mi formulario de contacto creado con este método AQUÍ

Wikiloc, un portal gratuito, dónde podemos encontrar más de 200.000 rutas de senderismo, bicicleta y otros medios de transporte, repartidas por los cinco continentes.

Su uso es muy facil. Se trata de realizar una búsqueda de una zona o un nombre y la aplicación nos muestra las rutas disponibles.

Wikiloc es “wiki” y , os permite crear y subir vuestras propias rutas.

Para darle el toque personal diré que este año me he creado una cuenta en wikiloc y le estoy sacando bastante provecho. He subido varios tracks y me he descargado otros tantos que luego he seguido y me han servido de mucho (con la ayuda de mi Motorola Defy con Android 2.2.1 y el programa OruxMaps (web oficial))

Si queréis ver mi perfil en wikiloc.com entrar en http://es.wikiloc.com/wikiloc/user.do?name=favy

Aquí os dejo lo último que me traigo entre manos con este portal… realizar todas las vías ferratas de la provincia de Alicante

Vía | sendasycaminosdealicante

Ask.fm según mi punto de vista es otra moda pasajera.

Se trata de un portal donde te puedes crear un perfil y la gente te va dejando preguntas firmadas o anónimas y tu las puedes contestar por escrito o te puedes grabar en video y subirlo.

Hay opiniones para todos los gustos… desde que es una basura, hasta que es una copia de un portal anterior llamado Formspring.me.

Os dejo con varios enlaces que hablan de este portal. Al final del artículo os dejo mi perfil de ask.fm

• http://lamiradaescrutadora.blogspot.com/2011/03/askfm-la-nueva-porqueria.html
• http://wwwhatsnew.com/2010/10/20/ask-fm-un-clon-de-formspring-me/
• http://desmotivaciones.es/977530/Desde-que-Ask.fm

EDITO: se me olvidaba añadir mi perfil en ask.fm –> http://ask.fm/manteca

hace un tiempo unos amigos me pidieron que les instalara el Homebrew Channel (HBC) en la wii.

Para ponerse al día de toda la scene de Wii, es decir, de todas las cosas “wais” que se pueden hacer con tu wii y que nintendo no te da cuando la compras puedes visitar esta web http://wii.scenebeta.com/tutorial/ponte-al-dia-en-10-minutos-la-scene-wii

Esta mañana me he puesto a buscar y he encontrado varias alternativas:

• Método Indiana Pwns
• Método Smash Stack
• Método Yu-Gi-OWNED! / Yu-Gi-Vah
• Método BannerBomb v1
• Método BannerBomb v2
• Método Twilight Hack

Dependiendo de la versión del firmware que tengamos en nuestra wii deberemos de utilizar uno u otro. Yo personalmente utilicé el método Twilight Hack hace ya unos años.

Os dejo unos enlaces donde tenéis toda la información

• http://www.emudesc.net/foros/wii-scene/286796-tema-oficial-the-homebrew-channel-descripcion-instalacion-y-dudas-v4.html (muy bueno, lo van actualizando)
• http://wii.scenebeta.com/tutorial/instalacion-de-homebrew-channel-con-bannerbomb
• http://bannerbomb.qoid.us/index.new.php

Ya me decís algo. Un saludo a todos!

Si estáis desarrollando aplicaciones de contabilidad, y necesitáis calcular el dígito de control del IBAN (cuenta internacional española),  al final tenéis un código que podréis aplicar en vuestras aplicaciones, yo lo he probado y funciona.

Os explico como funciona… La función esta en Visusal Basic 6 (VB6). La función recibe el número de cuenta de la persona a crear el dígito de control del IBAN.

Como no hay variable capaz de almacenar un número de 26 dígitos se trabaja con un string y luego se trocea en partes de 8 y se trabaja con grupos más pequeños. Se calculan por separado y se va obteniendo el modulo de 97. El resultado final se resta a 98 y lo que obtenemos es el dígito de control del IBAN.

cuenta = Format(rs!idbanco, String(4, “0″))
cuenta = cuenta & Format(rs!idSucursal, String(4, “0″))
cuenta = cuenta & Format(rs!digitocontrol, String(2, “0″))
cuenta = cuenta & Format(rs!cuenta, String(10, “0″))

digitoControl = dcIBAN(cuenta)

Function dcIBAN(ccc As String)
Dim n, v, r, j

‘para calcular el digito de control de IBAN hay que poner la iniciales del pais ES
‘E = 14 ; S = 28
‘ y añadirselas al final del numero de cuenta mas 00

ccc = ccc & “142800″

‘ahora hay que obtener el MOD 97 del ccc
‘para ello troceamos el numero de 26 digitos en trozos

v = Split(Format(ccc, “###### ###### ###### ###### ######”), Space(1))

r = val(v(0)) Mod 97

For j = 0 To UBound(v) – 1
r = (r & v(j + 1)) Mod 97
Next j

‘una vez que tenemos el mod 97 del CCC hay que restarselo a 98
‘y devolverlo con 2 digitos

dcIBAN = Format(98 – val(r), String(2, “0″))
End Function

Hoy después de estar dos meses poniendo a prueba la web de mi nueva empresa os la doy a conocer

http://www.sginmuebles.es/

En ella vais a poder encontrar inmuebles en venta, alquiler. También tenemos locales, plazas de parking, oficinas…. Os invito a que os deis una vuelta por ella.

Felices fiestas!!

Hace ya casi un año (http://favy.wordpress.com/2009/02/08/cudu/) os hablamos del proyecto llamado CUDÚ para la adminsitración y gestión de asociaciones juveniles sin ánimo de lucro. Pues bien, ya esta operativo!! Para visualizarlo podéis entrar en http://cudu.scoutsfev.org/

Hago esta entrada en el blog, para informaros también de que este proyecto es de código libre GPL 3 si no me equivoco. En sus incios estaba alojado en Google Code http://code.google.com/p/cudu/ pero ahora lo hemos cambiado de host, el nuevo host donde podéis colaborar en este magnifico proyecto es https://github.com/fev/cudu

Un saludo a todos!! y espero que os guste!

Como proyecto final de la asignatura de programación orientaba a objetos cuando estudié 1º año de Técnico superior en desarrollo de aplicaciones informáticas en el IES Doctor Balmis de Alicante, tuvimos que hacer un juego en XNA.

La verdad que XNA da muchas opciones para muchas plataformas.

Mi proyecto

Mi proyecto consistía en crear una clase que manejara a al robot. El robot cuando se jugara el partido de fútbol tendría que moverse por si solo, el programador no podía tocar nada, solo la tecla especifica para restaurar la posición, es decir, al programar se la pasa una clase que hereda todas las propiedades del robot y tiene que programar la IA (inteligencia artificial).

Podéis descargar mi aplicación completa desde — AQUI –

El proyecto esta hecho con la versión 2008 de Microsoft Visual Studio en C# y con las XNA 3.0

Os dejo unos cuantos blobs con ejemplos y tutoriales de XNA

• http://aprendiendoxna.wordpress.com/
• http://www.xna-tutorial.com/
• http://desarrolloxna.wordpress.com/
• http://xna-para-torpes.blogspot.com

http://www.foro.vb-mundo.com/f24/imprimir-documento-a-pdf-vb6-18073/index2.html

Si leéis las 3 páginas que tiene ahora el tema, veréis que han creado una clase OPDF para poder imprimir a PDF utilizando PdfCreator, que lo podéis descargar desde aquí

http://sourceforge.net/projects/pdfcreator/

Copio el código a continuación por si lo borran:

'---------------------------------------------------------------------------------------
' Módulo    : mcPDFCreator
' Fecha     : 04/08/2010 11:37
' Autor     : FJGD
' Finalidad : Convertir a PDF cualquier salida impresa
'---------------------------------------------------------------------------------------
' Ejemplo de uso------------------------------------------------------------------------
'
'   Private WithEvents oPDFCreator As mcPDFCreator
'
'   Private Sub Form_Load()
'     ...
'     Set oPDFCreator = New mcPDFCreator
'     ...
'   End Sub
'
'   Private Sub Form_Unload(Cancel As Integer)
'     ...
'     Set oPDFCreator = Nothing
'     ...
'   End Sub
'
'   Private Sub cmdPrintPDF_Click()
'     ...
'     If oPDFCreator.cConfigPrint("C:\", "Ejemplo") Then
'       'Si hay posibilidad de error de ejecución aquí
'       'hay que cerrar oPDFCreator en el controlador de errores.
'       strPrinter = oWord.ActivePrinter
'       oWord.ActivePrinter = "PDFCreator"
'       oWord.PrintOut
'       oWord.ActivePrinter = strPrinter
'       oPDFCreator.cPrinterStop = False
'     Else
'       MsgBox "Programa ocupado. No se puede convertir a PDF en este momento."
'     End If
'     'Aquí no se puede hacer oWord.Quit si se ha ejecutado el PDFCreator.
'     'Si se desea, habría que hacerlo en los eventos
'     ...
'   End Sub
'
'   Private Sub oPDFCreator_eReady(sOutputFilename As String)
'     MsgBox "Se ha creado el archivo " & sOutputFilename
'   End Sub
'
'   Private Sub oPDFCreator_eError(lError As Long, sDescription As String)
'     MsgBox "Error[" & lError & "]: " & sDescription
'   End Sub
'---------------------------------------------------------------------------------------
Option Explicit

Private WithEvents moPDFCreator As PDFCreator.clsPDFCreator

Public Event eReady(sOutputFilename As String)
Public Event eError(lError As Long, sDescription As String)

Private Sub Class_Terminate()

  'Por si acaso
  cClose

End Sub

'---------------------------------------------------------------------------------------
' Proc/Func.: Start
' Fecha     : 30/07/2010 11:13
' Autor     : FJGD
' Finalidad : Arranque de PDFCreator
' Retorno   : <True> = No existía una instancia activa
'             <False> = Ya existía una instancia activa. Cancelar impresión.
' Parámetros: Para este uso, en principio solo se utiliza el parámetro por defecto
'---------------------------------------------------------------------------------------
Private Function cStart(Optional sParams As String = "/NoProcessingAtStartup") As Boolean

  Set moPDFCreator = New PDFCreator.clsPDFCreator
  cStart = moPDFCreator.cStart(sParams)
  If Not cStart Then
    Set moPDFCreator = Nothing
    'Hay más de una instancia. Se puede forzar el arranque con la siguiente línea:
    'moPDFCreator.cStart sParams, True
  End If

End Function

'---------------------------------------------------------------------------------------
' Proc/Func.: cConfigPrint
' Fecha     : 30/07/2010 12:30
' Autor     : FJGD
' Finalidad : Configurar comportamiento y salida.
' Retorno   : <True> si se puede imprimir
' Parámetros: <sDirectory> = Directorio donde se ubicará el PDF
'             <sFileName>  = Nombre que se le asignará al PDF
'             <lStartStandardProgram> = Indica si se abrirá el PDF al finalizar
'---------------------------------------------------------------------------------------
Public Function cConfigPrint(sDirectory As String, _
                            sFileName As String, _
                            Optional lStartStandardProgram As Long = 1) As Boolean

  cConfigPrint = cStart()
  If Not cConfigPrint Then
    Exit Function
  End If
  moPDFCreator.cOption("UseAutosave") = 1
  moPDFCreator.cOption("UseAutosaveDirectory") = 1
  moPDFCreator.cOption("AutosaveDirectory") = sDirectory
  moPDFCreator.cOption("AutosaveFileName") = sFileName
  moPDFCreator.cOption("AutosaveFormat") = 0
  moPDFCreator.cOption("AutosaveStartStandardProgram") = lStartStandardProgram
  moPDFCreator.cClearCache

End Function

'---------------------------------------------------------------------------------------
' Proc/Func.: cClose
' Fecha     : 30/07/2010 11:20
' Autor     : FJGD
' Finalidad : Cierra PDFCreator y pone a Nothing la variable privada.
' Retorno   : <True> = Se cerró sin error
'---------------------------------------------------------------------------------------
Public Function cClose() As Boolean

  If Not (moPDFCreator Is Nothing) Then
    cClose = moPDFCreator.cClose
    Set moPDFCreator = Nothing
  End If

End Function

'---------------------------------------------------------------------------------------
' Proc/Func.: cPrinterStop
' Fecha     : 04/08/2010 10:31
' Autor     : FJGD
' Retorno   : El estado de actividad de PDFCreator
'---------------------------------------------------------------------------------------
Public Property Get cPrinterStop() As Boolean

  cPrinterStop = moPDFCreator.cPrinterStop

End Property

'---------------------------------------------------------------------------------------
' Proc/Func.: cPrinterStop
' Fecha     : 04/08/2010 10:31
' Autor     : FJGD
' Finalidad : Establece estado de actividad de PDFCreator
'---------------------------------------------------------------------------------------
Public Property Let cPrinterStop(ByVal bcPrinterStop As Boolean)

  moPDFCreator.cPrinterStop = bcPrinterStop

End Property

'---------------------------------------------------------------------------------------
' Proc/Func.: moPDFCreator_eError
' Fecha     : 30/07/2010 12:27
' Autor     : FJGD
' Finalidad : Transmite evento de error de PDFCreator y cierra (si hubiera posibilidad
'             de errores no fatales no se debería cerrar aquí).
'---------------------------------------------------------------------------------------
Private Sub moPDFCreator_eError()

  RaiseEvent eError(moPDFCreator.cError.Number, moPDFCreator.cError.Description)
  cClose

End Sub

'---------------------------------------------------------------------------------------
' Proc/Func.: moPDFCreator_eReady
' Fecha     : 30/07/2010 12:27
' Autor     : FJGD
' Finalidad : Transmite evento de finalización de proceso. Pasa como parámetro el nombre
'             del fichero creado y cierra.
'---------------------------------------------------------------------------------------
Private Sub moPDFCreator_eReady()

  moPDFCreator.cPrinterStop = True
  RaiseEvent eReady(moPDFCreator.cOutputFilename)
  cClose

End Sub