En mi búsqueda de un nuevo trabajo, y viendo mi CV, veo que no lo he alimentado como debe ser, realmente son unas pocas paginas, sin embargo hace algún tiempo me llego un buen CV. De entre muchos CV, que he visto en mi corta vida, este es uno bueno, mucho mejor que el de mucha gente que conozco, incluso mis superiores que se supone son de “alto rendimiento”. Un curriculum que muestra experiencia laboral y supone la empresa que se haga de este tipo de personal, estará confiada que se llevara a cabo cualquier proyecto que se encomiende.

Aquí les dejo el link al CV, por a alguien le interesa.
http://rgeek.wordpress.com/curriculum-vitae/

La mayoría de las aplicaciones que desarrollo en el trabajo están realizadas en visual basic 6, aunque hace unas semanas ya tengo .NET 2005 para probar algún desarrollo, sin embargo me he ganado la fama de hacer programas en este lenguaje, creo que uno se gana la fama de programador de un lenguaje más por las capacidades de la empresa donde se labora que por gusto, pues mi lenguaje preferido ha sido PHP, aunque hace muchos meses que no lo he usado, he probado con Ruby on Rails, y me pareció un lenguaje de desarrollo muy rápido y con el cual poco código hace demasiado, por otra parte mi segundo lenguaje favorito es C++ con el IDE Turbo C++ de Borland , aunque algunos prefieran simplemente C, me ha ganado el corazón C++, pues fue el primer lenguaje con el programe seriamente, anterior a este utilice Clipper, que me había gustado en un principio por las modificaciones que realizó un profesor para poder utilizar pseudocódigo bajo Clipper, sin embargo al llegar a la parte de de utilización de base de datos no me convenció mucho, aunque cabe destacar que estas BD utilizan muy poco espacio, posteriormente a C++, comencé a utilizar Delphi, el cual se me dificulto un poco por el paradigma de C++ que ya tenia mentalizado, sin embargo al llegar Vb6 fue mas cómodo el programar, en estos momentos estoy pensando en volver a retomar el camino de los lenguajes web, justo el día de mañana me descargaré las aplicaciones para mi servidor WAMP.

Espero poder recordar las configuraciones de Apache, jejejeje

un saludo a todos los programadores (^_^)V

Algunas veces cuando desarrollamos aplicaciones es necesario crear reportes, y comúnmente se nos viene a la mente diversas formas de crearlos, muchos programadores que conozco utilizan la aplicación Crystal Reports, aun en mi trabajo el área administrativa utiliza este software, sin embargo algunos no contamos con dicha licencia para crear aplicaciones comerciales, por lo que nos quedan como opciones utilizar MSExcel, o en su caso MSWord, para este post expkicare a grandes rasgos como enviar algunos datos desde VB6 a MSWord.

'declaramos los objetos
Public MSWord As New Word.Application
Public Documento As Object

Private Sub cmd_exportar_click()

                'Establecemos la ruta de nuestro archivo
                ruta = App.Path & "\orden.doc"

                'Seteamos el archivo al objeto documento
                Set Documento = MSWord.Documents.Open(ruta)

                'opcionalmente podemos guardar el archivo
                'en mi caso lo guardo con una extensión diferente (cab|tmp|pot|etc)
                MSWord.Selection.Document.SaveAs (App.Path & "\printme.cab&quot  

                'Establecemos la fuentre que utilizaremos
                MSWord.Selection.Font.Name = "Arial"

                'Configuramos la alineacion de nuestro parrafo
                MSWord.Selection.Paragraphs.Alignment = wdAlignParagraphCenter

                'Activamos la fuente en Negrita
                MSWord.Selection.Font.Bold = True

                'Y el tamaño a 16 puntos
                MSWord.Selection.Font.Size = 16

                'con esta opcion podemos comenzar a escribir dentro de nuestro docuemnto
                MSWord.Selection.TypeText "Aqui podemos escribir el texto en el documento" & vbCrLf

                'Declaramos una tabla de 1 fila por 3 columnas
                MSWord.Selection.Tables.Add MSWord.Selection.Range, 1, 3

                'Seleccionamos la celda 1,2
                MSWord.Selection.Tables(1).Cell(1, 2).Select

                'establecemos el ancho de la celda
               MSWord.Selection.Tables(1).Cell(1, 2).Width = 70

                'configuramos los bordes
                MSWord.Selection.Tables(1).Cell(1, 2).Borders(wdBorderTop).Visible = True
                MSWord.Selection.Tables(1).Cell(1, 2).Borders(wdBorderLeft).Visible = True
                MSWord.Selection.Tables(1).Cell(1, 2).Borders(wdBorderBottom).Visible = True
                MSWord.Selection.Tables(1).Cell(1, 2).Borders(wdBorderRight).Visible = True

                'Y la alineación del texto dentro de la celda
                MSWord.Selection.Paragraphs.Alignment = wdAlignParagraphLeft

                'Seguido escribimos texto en dicha celda
                MSWord.Selection.TypeText "Nombre"

                'seleccionamos la celda 1,3
                MSWord.Selection.Tables(1).Cell(1, 3).Select

                'Establcemos el color de fondo de la celda (Trama)
                MSWord.Selection.Cells.Shading.BackgroundPatternColor = wdColorGray20

                'Escribimos en dicha celda
                MSWord.Selection.TypeText "nombre2"

                'esta opcion nos permite salir de la edición de la tabla, o bajar una fila
                MSWord.Selection.MoveDown

                'por ultimo mostramos el documento de word
                MSWord.Visible = True

                'vaciamos los objetos de la  memoria
                Set documento = nothing
                Set Msword=nothing

end sub

con esto podemos establecer los datos del reporte que encesitemos, auqnue es algo mas laborioso que utilizar Crystal Reports, es una opción que hay que tomar en cuenta. espero le sea de ayuda a alguno de los lectores.

saludos (^o^)_v

Las operaciones CRUD (Create, Retrieve, Update, Delete), son utilizadas comúnmente en consultas SQL, más aun dentro de programas que utilicen alguna base de datos, por lo que aquí dejo el código para una pequeña función que ejecuta dichas operaciones en determinada tabla, haciendo uso del ADODB de Visual basic.

'****************************
'Modulo con declaraciones y funciones
'****************************

Public xcon As New ADODB.Connection  'Declaramos un objeto ADO, 

Public Function exec_sql(ByVal SQL As String) 'Función de operaciones CRUD, sobre la Base de datos.
    On Error GoTo chec
        With xcon
            .BeginTrans
            .Execute SQL
            .CommitTrans
        End With
    Exit Function
chec:
    xcon.RollbackTrans
    MsgBox Err.Description
End Function
'-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
'-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-

'****************************
'*******     Formulario
'****************************

Private Sub cmd_record_Click()
        ´'Aquí generamos nuestra consulta; en este caso un "Update"
        SQL = "Update consumibles set existencia=" & cantidad & " where id=" & ID & ""

        'Seguido, enviamos la query a nuestra función
        exec_sql SQL
End Sub
'-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
'-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-

Por ahora solo he publicado código en VB6, más adelante utilizare otros lenguajes.

* That’s all folks *

“Gonna tell her that I’m sorry for the pain that I’ve caused…”

Me entere hace unos días que ubuntu ha abierto una pagina web donde podemos hacer sugerencias, o votar por las que ya existan,
Ubuntu Brainstorm, entre las mas destacada, esta la corrección de suspensión e hibernación, interfaz gráfica simple para manejar cualquier tipo de conexión con el PC, administración de energía, y reducción en los menús de administración de preferencias, por mi parte veo que una bun idea es la interfaz gráfica para las conexiones, cualquier conexión!, eso es bluetooth, puerto infrarojo, wireless, dial-up, celular USB, etc, eso en realidad sería una gran ayuda, así podría tener una sola aplicación para la conexión de cualquier dispositivo o red a mi laptop, aún me he registrado pues aun no termino de redactar mi idea, que es básicamente hacer funcionar todas las características de las impresoras multifuncionales en Linux, eso realmente me hubiera ayudado mucho hace unos años con la multifuncional lexmark que teníamos en casa, pero ahora me enfoco en las que son compatibles con mi sistemas.

Bueno hoy les traigo más código, muchas veces cuando hago búsquedas en MSDN me desespero por el tiempo que tarda en mostrar los resultado, aunque este trozo de código no funciona igual de efectivo, me resulta mas sencillo hacer búsquedas en las listas, les cuento que me desperté a las 6:00 am y sentí un gran ocio, así que encendí mi laptop y me puse a escribir una pequeña rutina para hacer una busca de texto sobre una lista (listbox), es algo muy sencillo y creo que hasta cutre, lo sient tendrá que soportarlo así que lo dejo para que lo copien y pegue o incrusten en un modulo, con una función que reciba, la lista y el cuadro de texto jajaja o haber que se les ocurre.

Primero necesitamos obviamente un formulario (jajaja) un textbox y un listbox, me quedo mas o menos así

Luego añadimos los ingredientes en el código:

Private Sub Form_Load()
'Lleno mi lista
    lista_nombres.AddItem "Qwerty"
    lista_nombres.AddItem "Dvorak"
    lista_nombres.AddItem "Bixho"
    lista_nombres.AddItem "Bugcillo"
    lista_nombres.AddItem "Fzagato"
    lista_nombres.AddItem "Adairstarkey.wordpress.com"
    lista_nombres.AddItem "José Luis"
    lista_nombres.AddItem "AlbertDeath"
    lista_nombres.AddItem "Kike Santiago"
    lista_nombres.AddItem "CLAU M."
    lista_nombres.AddItem "GPretorian"
    lista_nombres.AddItem "Areyce"
    lista_nombres.AddItem "Canito"
    lista_nombres.AddItem "León"
    lista_nombres.AddItem "Dwiki"
    lista_nombres.AddItem "Mono"
    lista_nombres.AddItem "Varv"
End Sub

Private Sub txt_busca_Change()
'La mini-rutina
 For i = 0 To lista_nombres.ListCount
        If StrComp(Mid(lista_nombres.List(i), 1, Len(txt_busca)), txt_busca, vbTextCompare) = 0 Then
            lista_nombres.Selected(i) = True
        Exit For
       End If
   Next
End Sub

Y Listo!!!!!
Que pasen buen día,
HOY ES SÁBADO voy a descansar jejeje.

Hace unos dias, estuve desarrollando una pequeña aplicación en la cual era necesario extraer la lista de usuarios de el active directory que se encuentra en el servidor, vaya que tarde algunas horas (casi 4 hrs), pero al final lo resolví de una manera un poco práctica. Primeramente revisemos la estructura del active directory

Como pueden darse cuenta, tenemos el dominio, un grupo de trabajo, y por ultimo los usuarios de ese grupo.

Para leer de nuestro active directory desde visual basic añadimos en la referencia Active DS Type Library.

Con el siguiente código podremos accesar a la lista de usuarios y cargarla en un listbox.

Public Function load_user(ByVal lista As ListBox)
Dim ou As IADs
On Error GoTo Cleanup
'La sintaxis en DC, y en OU corresponden a los
'folders que deseamos acceder.
Set ou = GetObject("LDAP://OU=Usuarios, OU=group" & _
", DC=domain, DC=org " )
' El child en OU es Usuarios
For Each Child In ou
    nombre = Mid(Child.Name, 4)
    If valida(nombre) = False Then
        lista.AddItem nombre
   End If
Next
Set ou = Nothing
Exit Function
Cleanup:
    If (Err.Number  0) Then
        MsgBox ("Ha ocurrido el error: " & Err.Number)
    End If
    Set ou = Nothing
End Function

Con esto tendremos un listbox, cargado con los nombre de los usuarios, jejejeje, para poner la sintaxis de codigo VB6 me sirvio la pagina de Vargas, donde trae un vinculo hacia los FAQ’s de wordpress, donde explica la sintaxis a utilizar para que se vea un poco mas bonito el código.

saludos

Hace unos días tuvimos un problema con una impresora (HP 2110 PSC), al instalarla marcaba que hacia falta una librería, la famosa librería del mal hpzr3207.dll, por lo que aquí en el depto nos dispusimos a descargar el driver directo de HP (Hache-PE para algunos), sin embargo ni el software del fabricante soluciono el problema, pero claro googleando me encentro que algunos paquetes de HP solo traen las funciones básicas y raras ocasiones hay que descargar un software adicional en mi caso era un tal ENU ahora dejo los enlaces Descarga aqui el dichoso archivo enu , Aqui el paquete original de Hache Pe, o si gustas descargar solo la librería.

El software original solo instala algunos componentes, posteriormente me instale el archivo ENU, este ultimo me genero una folder con toooodos los archivos que solicita la instalación de la impresora, al final nos llevo unas 4 horas terminar de instalar funcional esta impresorita, debido al peso de los archivos, ojala a alguien le resulte útil esta info.

Me he descaragdo la ultima del GIMP (2.4.1), vaya que tiene grandes mejoras con respecto a la carga de la aplicación, la modificación de los iconos me ha gustado mucho,ya he logrado mi primera creación les dej la muestra.

Foto original

Foto retocada con GIMP

Descarga GIMP aquí

Debido al poco espacio que tenia en el cuarto me vi en la necesidad de acomodar algunas cosas, por lo que moví todas las cosas del cuarto, limpie un poco, creo que no es muy higiénico tener un PC tan sucio, solo un poco, pero no tanto a fin de cuentas tuve que desconectar mi PC, compre un cable telefónico de 4 vías para el módem que me dieron al contratar infiernitum, asi fue como lllegue al ultimo uptime del mes, solamente duro 15 días encendida sniff, sniff, aqui les dejo la ultima captura de pantalla que saque antes de desconectarla.

Por suerte hasta ahora lleva ya 3 días con 12:07,ojala pronto lleguemos a los 365.

Aun sigo con el endemoniado programa para administrar una BD de encuestas, sin embargo siento que no he tenido un avance normal en la velocidad de desarrollo, a estas alturas uno ya esta acostumbrado a las consultas SQL (querys) para operaciones CRUD, al grado de tenerlas como funciones dentro de alguna dll, no se cual será el motivo, quizá la falta de practica, la desidia, o algun otro factor que me han impedido en este avance. no sé que me pasa he tenido errores de sintaxis muy obvios, me paso horas buscando el error para encontrar que se trata de una variable string y no integer, setear las variables a null, y demás cuestiones, creo que esta noche leeré algún libro de programación para tener sueños lindos, imaginándome en algún registro, dentro de alguna base de datos lejana y perdida en la red, que esta siendo atacada por inyecciones SQL, o siendo consultada por algún motor de búsqueda que lee una y otra vez el mismo haciéndome pasar desapercibido, mientras la federación de sysadmin envía la caballería tipo exploit al atacante, entrando or un backdoor, al mismo tiempo levantando un firewall, para evitar mas intrusiones y yo sentado en mi byte disfrutando de la escena. Creo que con lo anterior a cualquiera de nosotros se nos antoja leer un poco.

Por ahora continuare tipeando código, y recuerden…

Pasando por http://86400.es/2007/06/26/bloxorz-geometria-3d-avanzada/, me encontré con este adictivo juego Bloxorz por el momento estoy en el nivel 21, veremos hasta donde llego.

Un juego para practicar que tan hábil eres con el mouse, no he durado mucho jugandolo, realmente me aburrió un poco, me gusta mas el Xeno Tactic
Blockfrenzy

Mi puntuación aunque se de antemano que hay muchas mejores, les pongo la mía (^o^)

Como les he comentado en post anteriores últimamente he estado demasiado tiempo en la red, navegando, leyendo, jugando y haciendo actividades diversas, en llámame lola, encontré este llamamelola.com“>adictivo juego Xeno tactic, donde al inicio te dan un capital para invertir en armas, las cuales deben impedir que la raza alíen cruce a tu territorio, lo que me gusto es el upgrade que puedes hacer a las armas, por el momento voy en el nivel 4. Espero terminarlo pronto (0_o).