Mithos World

Legibilidad en lenguajes de programación

2011-09-05T07:02:00.000-07:00

por Alfred Thompson

Recientementevi una comparación de un montón de lenguajes de programación en línea.Lenguajes de script: PHP, Perl, Python, Ruby Mi primera y segunda reacción fue¡rayos! Ahora tengo mis prejuicios - prejuicios que pueden no ser compartidospor otros, por supuesto. Pero me gusta el código legible y para mí cada vez queveo un carácter especial (cualquier cosa que no es un alfanumérico) me frena.Esto me hizo pensar acerca de ¿hacia dónde vamos en el diseño de lenguajes deprogramación?, ¿Nos estamos moviendo hacia adelante (lo que sea que esosignifique) o hacia atrás o hacia los lados justo?

Hacetiempo, cuando empecé a programar en los años 40's, los tres grandes lenguajesde programación eran FORTRAN y COBOL con un pujante lenguaje llamado BASIC.FORTRAN fue usado por los matemáticos y los científicos. COBOL se utiliza paraaplicaciones de negocios. BASIC era un lenguaje de enseñanza / aprendizaje quese extendía a los negocios. COBOL fue a la vez amado y odiado por diferentespersonas por su palabrería. Pero por lo menos comprensible. Tomemos de ejemploel siguiente ciclo:

PERFORM VARYING WS-BOTTLE-NUM FROM 98 BY -1

               UNTIL WS-BOTTLE-NUM < 2

END-PERFORM

Muycerca de una sentencia de Inglés. Compare eso con esta muestra de un lenguajeal estilo de C (C #).

for (WSBOTTLENUM = 98; WSBOTTLENUM < 2; WSBOTTLENUM--)

¿Cuáles más evidente? Haz de cuenta que no eres un programador experimentado.

BASIC(Visual Basic, en este caso) está en un punto intermedio.

For WSBOTTLENUM = 98 To 1 Step -1

Next

ElStep - la cuenta atrás - es más fácil de entender, para mí al menos. Ahoraechemos un vistazo a algo muy simple.

k = i / 10;

Estolleva a los principiantes una locura. ¿Qué está pasando aquí? Claro que losprogramadores saben, pero para algunos principiantes es difícil entender la direcciónen que la operación va. Compare esto con el mismo código en COBOL

divide i by 10 giving k

¿Muchaspalabras? Claro, pero por lo menos hasta un principiante puede leerlo. Ahora,no estoy diciendo que todos debemos volver a COBOL, aunque honestamente con IDE'smodernos y características como Intellisence sería mucho más fácil de lo queera cuando yo estaba escribiendo a tarjetas perforadas.

Másbien estoy sugiriendo que para un principiante los idiomas pueden yprobablemente deberían ser más claros en su lectura en lugar de más oscuros - queel Inglés es más fácil de aprender en vez de "¿qué significa # en estelenguaje de programación?"

Solopor diversión, si desean ver como lucen diferentes lenguajes de programación,visiten el sitio 99 botellas de cerveza.

Estesitio Web contiene una colección de la canción de 99 botellas de cerveza programadosen diferentes lenguajes de programación. En realidad, la canción se representaen 1434 diferentes lenguajes de programación y sus variaciones.

Creando elementos de interfaz gráfica - Parte 1

2011-09-02T14:47:00.000-07:00

En mas de unaocasión me ha sido necesario el utilizar los métodos de dibujo que trae pordefaul Visual Basic, ya sea para realizar una gráfica, un reporte o simplementepara enriquecer la interfaz de nuestra aplicación, por lo que creo que estetutorial de 3 partes les será de gran utilidad para adentrarse en este tema,cabe mencionar que el tutorial original en Ingles lo pueden consultar enExforsys.

Creando elementos gráficos utilizando System.Drawing

En este tutorialvamos a aprender acerca de los objetos gráficos (Graphics Object), sistema decoordenadas de los formularios de Windows, dibujar textos en un formulario,dibujar figuras y trabajar con imágenes.

Entendiendo los objetos gráficos (Graphics Object)

La dirección de gráficosen Visual Studio .NET esta basado en GDI+ (Graphics Device Interface). Lainterfaz de dispositivo de gráficos nos permite exhibir gráficos en unapantalla o una impresora sin tener que manejar los detalles de un dispositivode exhibición específico. Todo lo que se necesita hacer es hacer llamadas a losmétodos de las clases de GDI+ y a estos métodos se encargan de hacer la correspondientellama a los drivers de los dispositivos según lo necesitado, ya sea manejar lapantalla o la impresora.

Crear un objeto grafico (Graphics Object)

Esto se puedehacer de diferentes maneras:

I. Recibiendouna referencia del objeto grafico parte de System.Windows.Forms.PaintEventArgsen el evento System.Windows.Forms.Control.Paint de un formulario o control.Esta es la manera usual de obtener una referencia a un objeto grafico cuando secrea codigo de pintado en un control.

II. Llamando almetodo System.Windows.Forms.Control.CreateGraphics de un formulario o controlpara obtener una referenciia al objeto System.Drawing.Graphics que representala interfaz de dibujo de un control o formulario que ya existe.

III. Creando unobjeto System.Drawing.Graphics de cualquier objeto que herede deSystem.Drawing.Image. Este acercamiento es útil cuando usted quiere alterar unaimagen ya existente.

Veamos unejemplo rápido:

Private SubForm1_Paint(ByVal sender As Object, ByVal pe As PaintEventArgs)Handles _ MyBase.Paint

' Declara el objeto gráfico

' Proveido en PaintEventArgs.

Dim g As Graphics =pe.Graphics

' Insertar el código de dibujo aquí

EndSub

Se puedeadministrar el Objeto Graphic fácilmentecomo se ve en el siguiente fragmento de código:

Public ClassForm1

PrivateSub PaintObj(ByVale As PaintEventArgs)

Dim graphics AsGraphics = e.Graphics

Dim pen As New Pen(Color.Blue) 'Opaque blue

graphics.DrawRectangle(pen, 10, 10, 200, 100)

EndSub

PrivateSub Form1_Paint(ByValsender As Object,ByVal e AsSystem.Windows.Forms.PaintEventArgs) Handles Me.Paint

PaintObj(e)

EndSub

End Class

Este códigogenera la salida que se muestra a continuación:

Entendiendo el sistema de coordenadas de WindowsForms

GDI+ utiliza 3tipos de coordenadas: World, page y device. Las coordenadas World son lascoordenadas que se utilizan para modelar un gráfico particular y son lascoordenadas que se pasan a los métodos de. NET Framework. Las coordenadas Pagese refieren al sistema de coordenadas utilizado por una superficie de dibujo,como un formulario o control. Las coordenadas Device son las coordenadasutilizadas por un dispositivo físico que se dibuja en una pantalla o una hojade papel.

Cuando se llamaal método myGraphics.DrawLine(myPen, 0, 0, 160, 80), los puntos que se pasan alSystem.Drawing.Graphics.DrawLine metodo —(0, 0) y (160, 80)— están encoordenadas World. Antes de que GDI+ pueda trazar la línea en la pantalla, lascoordenadas pasan a través de una secuencia de transformaciones. Unatransformación, llamada transformación World, convierte las coordenadas deWorld a coordenadas Page y otra transformación, llamada transformación Page,la convierte a coordenadas de dispositivo.

Transformaciones y sistemas de coordenadas

Suponga quedesea trabajar con un sistema de coordenadas que tiene su origen en el cuerpodel área de cliente en lugar de la esquina superior izquierda. Digamos, porejemplo, que desea que el origen hasta los 100 píxeles desde el borde izquierdodel área de cliente y 50 píxeles desde la parte superior del área de cliente.En la ilustración siguiente se muestra el sistema de coordenadas.

Al realizar la llamadade myGraphics.DrawLine(myPen, 0, 0, 160, 80), se obtiene la línea que semuestra en la ilustración siguiente.

Las coordenadasde los extremos de la línea en los tres espacios de coordenadas son lassiguientes:

World

(0, 0) to (160,80)

Page

(100, 50) to(260, 130)

Device

(100, 50) to (260,130)

El fragmento decódigo para dibujar la línea que se muestra en la imagen de arriba es lasiguiente:

myGraphics.TranslateTransform(100,50)

myGraphics.DrawLine(myPen,0, 0, 160, 80)

Convertir Coordenadas UTM a Geodésicas

2011-09-02T11:22:00.000-07:00

Si bien existen por Internet varios lugares donde se pueden conseguir convertidores de coordenadas, siempre puede ser útil el tener tu propia rutina de conversión, sobre todo cuando te propones mostrar ubicaciones por medio de Google Maps en tus aplicaciones, y viendo que no hay mucha información al respecto, les comparto una función para este objetivo.

Para poder utilizar esta funcion es necesario importar la clase Math:

Imports System.Math

se declaran las siguientes constantes:y ahora si, les dejo la función:

Const SeMa = 6378206.4                'Semimajor axis (a) (m)
Const pi As Double =3.14159265358979 'Pi
Const FE = 500000                     'Falseeasting (m)
Const CSF = 0.9996                    'CentralScale factor (K0)
Const ZD = 6                          'Zone width (degrees)
Const LCMZ = -177                     'Longitudeof the central meridian of zone 1(degrees)
Const iflat =294.9786982138          'Inverse flattening (1/f)

y ahora si, les dejo la función:

Public Function Geodesicas(ByValUTMX As Double,ByVal UTMY As Double, ByVal Zona As Integer) As Double()

        '******************************************
        'Variables de Generales para el Calculo
        '******************************************

        'Achatamiento (f)
        Dim flat As Double = 1 / iflat
        'Excentricidad (e2)
        Dim Ex As Double = (2 * flat) - (flat * flat)
        'Semi-minor axis (b) (m)
        Dim SeMb As Double = SeMa * (1 - flat)

        Dim n As Double = (SeMa - SeMb) / (SeMa + SeMb)
        Dim n2 As Double = n ^ 2
        Dim n3 As Double = n ^ 3
        Dim n4 As Double = n ^ 4
        Dim G As Double = SeMa * (1 - n) * (1 - n2) * (1 + (9 * n2) /4 + (255 * n4) / 64) * pi / 180

        Dim m As Double = UTMY / CSF
        Dim Sigma As Double = (m * pi) / (G * 180)
        Dim Sigma2 As Double = Sigma * 2
        Dim Sigma4 As Double = Sigma * 4
        Dim Sigma6 As Double = Sigma * 6
        Dim Sigma8 As Double = Sigma * 8

        'Easting
        Dim E As Double = UTMX - FE

        'Foot Point latitude
        Dim Term1 As Double = Sigma
        Dim Term2 As Double = ((3 * n / 2) - (27 * n3 / 32)) * Sin(Sigma2)
        Dim Term3 As Double = ((21 * n2 / 16) - (55 * n4 / 32)) *Sin(Sigma4)
        Dim Term4 As Double = (151 * n3) * Sin(Sigma6) / 96
        Dim Term5 As Double = 1097 * n4 * Sin(Sigma8) / 512

        Dim Lat As Double = Term1 + Term2 + Term3 + Term4 + Term5
        Dim SinLat As Double = Sin(Lat)
        Dim SecLat As Double = 1 / Cos(Lat)

        'Radios de curvatura
        Dim RhoAs Double =SeMa * (1 - Ex) / (1 - Ex * SinLat * SinLat) ^ 1.5
        Dim Nu As Double = SeMa / (1 - Ex * SinLat * SinLat) ^ 0.5

        'x = E'/(k0n')
        Dim x As Double = (E / CSF) / Nu

        't'=tanj'
        Dim t As Double = Tan(Lat)
        Dim t2 As Double = t ^ 2
        Dim t4 As Double = t ^ 4
        Dim t6 As Double = t ^ 6

        'y'=n'/r'
        Dim y As Double = Nu / Rho
        Dim y2 As Double = y ^ 2
        Dim y3 As Double = y ^ 3
        Dim y4 As Double = y ^ 4

        'Pie punto de latitud
        Dim Tm1 As Double = -((t / (CSF * Rho)) * x * E / 2)
        Dim Tm2 As Double = (t / (CSF * Rho)) * ((x ^ 3) * E / 24) * (-4 * y2 + 9 * y* (1 - t2) + 12 * t2)
        Dim Tm3 As Double = -(t / (CSF * Rho)) * ((x ^ 5) * E / 720) * (8 * y4 * (11 -24 * t2) - 12 * y3 * (21 - 71 * t2) + 15 * y2 * (15 - 98 * t2 + 15 * t4) + 180* y * (5 * t2 - 3 * t4) + 360 * t4)
        Dim Tm4 As Double = (t / (CSF * Rho)) * ((x ^ 7) * E / 40320) * (1385 + 3633* t2 + 4095 * t4 + 1575 * t6)
        Dim SumTm As Double = Lat + Tm1 + Tm2 + Tm3 + Tm4

        'Latitud geodesica
        Dim Latitud As Double = (SumTm / pi) * 180

        'Meridiano Central
        Dim CMDeg As Double = (Zona * ZD) + LCMZ - ZD
        Dim CMRad As Double = (CMDeg / 180) * pi

        Dim lon1 As Double = SecLat * x
        Dim lon2 As Double = -SecLat * ((x ^ 3) / 6) * (y + 2 * t2)
        Dim lon3 As Double = SecLat * ((x ^ 5) / 120) * (-4 * y3 * (1 - 6* t2) + y2 * (9 - 68 * t2) + 72 * y * t2 + 24 * t4)
        Dim lon4 As Double = -SecLat * ((x ^ 7) / 5040) * (61 + 662 * t2+ 1320 * t4 + 720 * t6)

        Dim SumLon As Double = CMRad + lon1 + lon2 + lon3 + lon4

        Dim Longitud As Double = (SumLon / pi) * 180

        Dim CLL(2) As Double
        CLL(1) =Latitud
        CLL(2) =Longitud

        Return CLL

End Function

Esta función nos devuelve las coordenadas Latitud y Longitud en un arreglo numérico, y así, ya podremos utilizarla en nuestras aplicaciones

Cabe mencionar que esta función no es totalmente de mi autoria, sino que esta basada en el trabajo de Gabriel Ortiz en cuanto a la conversion de coordenadas UTM Nad27 a Geodésicas WGS84.

Dias del Mes en SQL

2011-09-01T09:56:00.000-07:00

Funcion asincrona para calcular los dias del mes de una fecha dada, muy util en ciertos casos

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go

– =============================================
– Author:
– Create date: <10/10/2009>
– Description:
– =============================================
ALTER FUNCTION [dbo].[ufn_DiasDelMes] ( @pDate DATETIME )
RETURNS INT
AS
BEGIN

RETURN CASE WHEN MONTH(@pDate) IN (1, 3, 5, 7, 8, 10, 12) THEN 31
WHEN MONTH(@pDate) IN (4, 6, 9, 11) THEN 30
ELSE CASE WHEN (YEAR(@pDate) % 4 = 0 AND
YEAR(@pDate) % 100 != 0) OR
(YEAR(@pDate) % 400 = 0)
THEN 29
ELSE 28
END
END

END

Ya declarada, su uso es sumamente simple:

Select ufn_DiasDelMes(Fecha) as Meses From Tabla

Validando controles en VB.NET

2011-09-01T09:51:00.000-07:00

Recientemente tuve la necesidad de validar los datos de un formulario en VB.NET, si bien ya existen componentes propietarios que lo hacen automaticamente, en ocasiones tenemos la necesidad o la unica alternativa de utilizar los que Visual Studio trae incorporados, en este caso y para hacerlo de una forma mas sencilla lo haremos con un ciclo For Each.

Lo primero que debemos de hacer es especificar que componentes del formulario vamos a validar, para hacerlo, lo seleccionamos y establecemos su propiedad Tag = 1, de la siguiente manera:

TextBox1.Tag = 1

Lo segundo es establecer una etiqueta para saber a que componente nos referimos al validarlo, para esto podemos usar la propiedad AccessibleName, de la siguiente manera:

TextBox1.AccessibleName = “Pozo” ‘En este caso el componente guardara el nombre de un pozo

Y por ultimo, les dejo la funcion de validación:

Private Function ValidaDatos() As Boolean

Dim Ctl As Control
Dim x As Integer

For x = Me.Controls.Count – 1 To 0 Step -1

Ctl = Me.Controls.Item(x)

If TypeOf (Ctl) Is TextBox Then
Dim Control As TextBox = Ctl
If Control.Tag = 1 Then

If Control.Text.Trim = “” Then
MsgBox(“Debe de establecer el valor de: ” & Control.AccessibleName)
Control.BackColor = Color.Yellow
Control.Focus()
ValidaDatos = False
Exit Function
Else
Control.BackColor = Color.White
End If

End If
End If

If TypeOf (Ctl) Is ComboBox Then
Dim Control As ComboBox = Ctl
If Control.Tag = 1 Then

If Control.Text.Trim = “” Then
MsgBox(“Debe de establecer el valor de: ” & Control.AccessibleName)
Control.BackColor = Color.Yellow
Control.Focus()
ValidaDatos = False
Exit Function
Else
Control.BackColor = Color.White
End If

End If
End If

Next

ValidaDatos = True

End Function

Como pueden ver en la funcion recorremos los componentes del formulario de manera inversa, esto lo hice porque de alguna manera el orden de los componentes queda en orden inverso al realizado al momento de su creación, tambien vemos que primero validamos el tipo de componente (TextBox y ComboBox) y despues si es necesaria su validación, en este caso la unica validación es que el componente no este vacio, si lo esta le ponemos el fondo amarillo, caso contrario le ponemos el fondo blanco (Determinado).

Si bien el ejemplo es sencillo, con algunas modificaciones podemos validar varios escenarios, solo es cuestion de hechar a volar la imaginación.

Nota: El ejemplo esta hecho en Visual Studio 2008 con framework 3.5

Generando graficos por codigo en XtraChart

2011-09-01T09:39:00.000-07:00

Pues viendo que no hay mucha información al respecto les dejo la manera de como generar gráficos mediante código en VB.NET 2008 con el componente XtraChart

Para esto debemos tener un formulario y un componente XtraChart al que llamaremos “cGrafico”

Primeramente importamos la referencia a XtraChart en el encabezado del formulario

Imports DevExpress.XtraCharts

Y aqui va el codigo:

‘Eliminamos las series del componente
cGrafico.Series.Clear()

‘Ponemos el titulo al grafico
cGrafico.Titles.Item(0).Text = Pozo_G

‘Declaramos una variable del tipo Series
Dim series2 As Series = New Series()

‘Agregamos la serie al componente
cGrafico.Series.Add(series2)

‘Cambiamos el tipo de grafico de la Serie al tipo Linea
series2.ChangeView(ViewType.Line)

‘Asignamos el nombre de la Serie
series2.Name = “Caudal”

‘Asignamos el nombre campo del argumento
series2.ArgumentDataMember = “Indice”
‘Asignamos el tipo de valor del Argumento
series2.ArgumentScaleType = ScaleType.Numerical

‘Asignamos del nombre del campo de los datos a graficar
series2.ValueDataMembers.AddRange(“caudal_gas”)
‘Asignamos el tipo de valor de los datos a graficar
series2.ValueScaleType = ScaleType.Numerical

‘Ocultamos las etiquetas de la serie
series2.Label.Visible = False

‘Cambiamos el color de la linea a Azul
CType(series2.View, LineSeriesView).Color = Color.Blue
‘Ocultamos los marcadores de la linea para que no se vea abultada
CType(series2.View, LineSeriesView).LineMarkerOptions.Visible = False
‘Ponemos el grueso de la linea a 1
CType(series2.View, LineSeriesView).LineStyle.Thickness = 1

‘Ponemos el titulo al eje de la Y, lo ponemos en azul y visible
CType(series2.View, LineSeriesView).AxisY.Title.Text = “Caudal (MMpcd)”
CType(series2.View, LineSeriesView).AxisY.Title.TextColor = Color.Blue
CType(series2.View, LineSeriesView).AxisY.Title.Visible = True

‘Asignamos los datos por medio de un DataTable a la Serie
series2.DataSource = m_Datos.Rs2DataTable(“Select * From v_Produccion_Oficial_Acumulado Where Pozo = ‘” & Pozo_G & “‘ Order By Fecha ASC”)

Y listo tenemos nuestra gráfica como vemos a continuación, como podemos ver, es sencillo y rápido.

Jessica Biel, la celebridad mas peligrosa de la red

2009-08-26T06:07:00.000-07:00

Pues McAfee ha puesto la alerta de las celebridades mas peligrosas de la red, y no es que sean hackers o algo asi, lo que pasa es que son las mas buscadas por los usuarios de internet y por supuesto algunas personas lo han notado, por lo que crean paginas con fotografias de las celebridades, las cuelgan en la red, las registran en los buscadores y mas de un incauto al entrar ya instalo Malware o cualquier otro bicho en su PC.

Ni modo raza, habra que tener cuidado al buscar información de su celebridad favorita, asi que ni modo, Jessica Biel, Beyonce y Jennifer Aniston, ya no las vere tanto, jejeje.

La vida en 5 botellas

2009-08-26T06:01:00.000-07:00

Pues por ahi me mandaron esta imagen y pues parece la pura verdad para algunos, jeje, si alguien se identifica, ahi me avisa, jeje

Iconos gratis

2009-08-24T15:15:00.000-07:00

Pues viendo el Blog de Kumail.H.T`s, veo que tiene un paquete gratis de Iconos, no se si ustedes no batallen, pero para mi esdificil encontrar imagenes de buena calidad y gratis para mis aplicaciones, asi que aqui les dejo el enlace al Blog para si estan interesados, lo descargen.

Descargar

Comenzando de nuevo

2009-08-24T14:53:00.000-07:00

Pues por aqui andamos otra vez, igual a nadie le interesa, pero me hace ilusión escribir de nuevo, aunque estas palabras parescan sin sentido, hoy empiezo a retomar en mi tercer intento el tener mi blog, si ningun tema en especial, solo lo que se me vaya ocurriendo y pasando, lo interesante que vea, lea o escuche, asi que no esperen gran cosa (que tampoco salgo mucho), pero si llegan a ver algo que les interese, un comentario no estaria nada mal, jejeje, en fin, por aqui ando y haber que sale.

Pano

2008-12-11T11:37:00.000-08:00

Justo cuando se empieza a oír esto del Cloud Computing (eso de usar software en internet y no en el ordenador), que alguien se decidiera a inventar un ordenador sin CPU, ni memoria ni sistema operativo, era cuestión de tiempo. Ya tenemos aquí el Pano Zero Client.

El Pano Zero Client es un ordenador (o casi), que funciona trabajando con el sistema operativo y los programas instalados en un servidor o directamente en internet. Incorpora un puerto USB, entrada y salida de audio, conexión Ethernet y salida VGA. No necesita más. Con él, aparte de ahorrarte todos los problemas que supone el tener el software en el ordenador (virus, actualizaciones…), ahorra en electricidad, pues no consume prácticamente nada, solo 5 vatios, los que supone un 3% de lo que necesita un ordenador normal.

La idea no está nada mal, ahora solo hace falta ver en que situaciones puede resultar útil y si realmente tendrá la acogida necesaria, pues de momento solo se me ocurren tres o cuatro casos en los que sería útil, y no estoy del todo seguro si compensa el gasto (desconocido por el momento) y la integración de otro cacharro en el escritorio. Tiempo al tiempo.

Carta de un Padre a su Hijo...

2008-06-02T15:48:00.000-07:00

Era una mañana como cualquier otra. Yo, como siempre, me hallaba de mal humor. Te regañé porque te estabas tardando demasiado en desayunar, te grité porque no parabas de jugar con los cubiertos y te reprendí porque masticabas con la boca abierta. Comenzaste a refunfuñar y entonces derramaste la leche sobre tu ropa. Furioso te levanté por los cabellos y te empujé violentamente para que fueras a cambiarte de inmediato.

Camino a la escuela no hablaste. Sentado en el asiento del auto llevabas la mirada perdida. Te despediste de mí tímidamente y yo solo te advertí que no te portaras mal.

Por la tarde, cuando regresé a casa después de un día de mucho trabajo, te encontré jugando en el jardín. Llevabas puestos unos pantalones nuevos y estabas sucio y mojado. Frente a tus amiguitos te dije que debías cuidar la ropa y los zapatos, que parecía no interesarte mucho el sacrificio de tus padres para vestirte. Te hice entrar a la casa para que te cambiaras de ropa y mientras marchabas delante de mí te indiqué que caminaras erguido.

Más tarde continuaste haciendo ruido y corriendo por toda la casa. A la hora de cenar arrojé la servilleta sobre la mesa y me puse de pie furioso porque no parabas de jugar. Con un golpe sobre la mesa grité que no soportaba más ese escándalo y subí a mi cuarto.

Al poco rato mi ira comenzó a apagarse. Me di cuenta de que
había exagerado mi postura y tuve el deseo de bajar para darte una
caricia, pero no pude.

¿Cómo podía un padre, después de hacer tal escena de indignación, mostrarse sumiso y arrepentido?

Luego escuché unos golpecitos en la puerta. 'Adelante' dije adivinando que eras tú. Abriste muy despacio y te detuviste indeciso en el umbral de la habitación.

Te miré con seriedad y pregunté: ¿Te vas a dormir?, ¿vienes a despedirte?
No contestaste. .. Caminaste lentamente con tus pequeños pasitos y sin que me lo esperara, aceleraste tu andar para echarte en mis brazos cariñosamente.

Te abracé y con un nudo en la garganta percibí la ligereza de tu delgado cuerpecito. Tus manitas rodearon fuertemente mi cuello y me diste un beso suavemente en la mejilla. Sentí que mi alma se quebrantaba. 'Hasta mañana, papito' me dijiste.

¿Qué es lo que estaba haciendo?, ¿por qué me desesperaba tan fácilmente?
Me había acostumbrado a tratarte como a una persona adulta, a exigirte como si fueras igual a mí y ciertamente no eras igual.

Tú tenías unas cualidades de las que yo carecía: eras legítimo, puro, bueno y sobre todo, sabías demostrar amor. ¿Porqué me costaba tanto trabajo?, ¿porqué tenía el hábito de estar siempre enojado? ¿Qué es lo que me estaba aburriendo? Yo también fui niño. ¿Cuándo fue que comencé a contaminarme?

Después de un rato entré a tu habitación y encendí una lámpara con cuidado. Dormías profundamente. Tu hermoso rostro estaba ruborizado, tu boca entreabierta, tu frente húmeda, tu aspecto indefenso como el de un bebé. Me incliné para rozar con mis labios tu mejilla, respiré tu aroma limpio y dulce. No pude contener el sollozo y cerré los ojos. Una de mis lágrimas cayó en tu piel. No te inmutaste. Me puse de rodillas y le pedí Perdón al Señor en silencio. Te cubrí cuidadosamente con las cobijas y salí de la habitación. Al día siguiente, tu también me perdonaste.

Si Dios me escucha y te permite vivir muchos años, algún día sabrás que los padres no somos perfectos, pero sobre todo, ojalá te des cuenta de que, pese a todos mis errores, te amo más que a mi vida..

Pininos en diseño

2008-04-24T12:14:00.000-07:00

Bueno, pues ahora estoy teniendo la idea de meterme al diseño, y como la mayoria saben, no se mucho de esas cosas, pero en el camino vamos aprendiendo, por lo pronto les dejo unas portadas de cd que voy acabando, espero sus comentarios, haganme trizas, jejejeje.

3 verdades de la vida

2008-02-28T10:39:00.000-08:00

bueno raza, pues les dejo un video de la visita de Steve Jobs a una graduación en la universidad de Stanford, chequen el discurso, creo realmente que es interesante, haria algunas modificaciones, pero en general es un buen mensaje.

el video:

En McDonalds

2008-02-21T09:51:00.001-08:00

Pues aqui les dejo un video de una salida a cenar con la raza.

¡Cristianismo light!

2007-08-07T13:01:00.000-07:00

Tal parece que hoy en día todo es light. Hay refrescos light, crema light, helados light, mayonesa light, café descafeínado, azúcar que no es azúcar pero que parece es.

La moda light de nuestros tiempos no se reduce a los alimentos sino a las formas de vivir y de pensar. Hoy todo parece ser moderado; si pudiéramos decirlo en una frase diríamos que todo es 'como-que-sí-pero-como-que-no', y aquel que se atreve a ser radical es segregado y considerado intolerante. Tristemente parece que el cristianismo no ha escapado de esto.

Cada vez más encontramos ideas, posturas, doctrinas, líderes, tipos de culto, ¡pastores y hasta iglesias! que enseñan un tipo de vida en donde el cristiano puede serlo sin comprometerse de lleno.

Además hay toda una corriente que afirma que todas las religiones buscan lo mismo y lo que importa es tener fe en lo que sea. Así, Jesús y el cristianismo pasan a ser una religión de tantas que pueden brindar a los hombres salvación. Un cristiano que afirme que Jesús es el único camino para llegar al Padre corre el riesgo de ser considerado fanático e intolerante.

De esta manera, varios jóvenes cristianos, algunos presa de su libertinaje y sus deseos y otros del miedo social, no se atreven a vivir su cristianismo de manera radical.

Si algunos de esos 'cristianos' compartieran de Jesús y defendieran su fe con la mitad de entusiasmo con que defienden sus 'permisitos' y su forma 'liberal' de ejercer su cristianismo, muchas vidas, familias e iglesias comenzarían a ver el PODER y las bendiciones de Dios de una manera sorprendente.

En realidad todo se reduce a querer servir a Dios o ser cristiano pero amar primero tus propios caminos o en amar los caminos de Dios dejando tus intereses en segundo plano.

No es lo mismo ser un estudiante, profesionista, novio, etc... y que bueno.. también es cristiano, a ser un hijo de Dios que vive por y para Cristo y que además es estudiante, profesionista, novio o lo que sea pero en nada de eso fundamenta su vida.

Jesús dijo: ' Si alguno quiere venir en pos de mi, niégese a si mismo, tome su cruz cada día y sígame'.

¿Amas más a tus caminos que a Dios? ¿Si Dios te pidiera hoy lo que más amas y anhelas se lo darías?

Si crees que puedes ser cristiano y seguir viviendo como si no lo fueras, es decir vivir un cristianismo 'light', déjame decirte algo: estás equivocado. En los planes de Dios nunca entraron los tibios, ni las medias tintas. Dios no ideó un plan de vida para cristianos comprometidos y otro para cristianos moderados que sigen viviendo con un pie en el mundo.

Dios tiene un plan para todos los hombres y es que cada uno nos entreguemos por completo a Él. Aceptar a Jesús como salvador pero seguir pecando es como tirar su sangre derramada por ti a la basura.

Si aún no has creído en Jesucristo como tú único Salvador lee esto: Jesús murió por ti, dio su vida para que puedas ser perdonado; él quiere que le des tu vida por completo y dejes que él la haga nueva.

Si tú ya creíste en Jesús y sabes lo que debes hacer en teoría pero no lo haces en la práctica, hoy es el tiempo de que lo dejes señorear a Él en tu vida. Pon tu vida en manos de Cristo y deja que Él empieza a obrar sus maravillas.

Basta de ser cristianos light. Atrévete a confiar en Jesús y prepárate para ver tu vida transformada.

Por Alejandro Navarrete

Video - Los Debiles

2007-06-20T15:34:00.000-07:00

Ivan Isaí - Matrix

2007-06-20T09:58:00.000-07:00

Herederos

2007-06-18T11:11:00.000-07:00

Bueno pues aqui les dejo unas fotos de mis 2 herederos, puras bendiciones del Altisimo

Ivan Isaí

Isaac Abraham

Otakus

2007-06-12T11:48:00.001-07:00

Pues despues de ver lo de la sierra, me encontre con este video, que vaya, esta muy divertido, pero tambien nos enseña lo malo que es ver tanta tele, jejeje, chequenlo y comentenlo

Sierra que no corta dedos

2007-06-12T11:30:00.000-07:00

Bueno, pues no se si sea verdad o una edición, pero si esto existe sera lo que le compre a mi papa el proximo año, asi ya podre ayudarlo sin miedo, jejeje, les dejo el video para que lo vean.

Joost

2007-06-08T08:11:00.000-07:00

Bueno, con anterioridad he probado algunos programas para ver la YV por Internet con malos resultados, si bien he podido sintonizar alguno que otro canal, la verdad es que mi conexion daba mucho que desear, y es que con 1mb de velocidad no se puede hacer mucho, pero al probar este programa, vaya que funciona, si bien los canales estan en ingles, hay que reconocer que se lucieron para poder hacer esto posible, ver la TV por internet, con una conexion chica a muy buena velocidad y excelente resolución, pero para no hacerla mas de emoción, les dejo la dirección para que se lo bajen.

https://www.joost.com

Space Time

2007-06-08T07:00:00.000-07:00

Bueno, pues navegando por la web, me encontre con este programa en fase beta, que suena muy interesante, la idea fundamental es hacer busquedas en 3D, en los sitios de busquedas mas solicitados, al dia de hoy se pueden hacer busquedas para eBay, Google, Yahoo!, Flickr e Images y proximamente para Amazon, YouTube, Email, MySpace, Music, RSS, Live y muchos mas, asi que suena interesante, pero para una mejor ilustración, les dejo la dirección de su web para que lo vean y si les gusta, lo bajen.

http://www.spacetime.com/

Ivan Isaí

2007-06-07T13:55:00.000-07:00

Bien pues este domingo 10 de junio, mi primer hijo, Ivan Isaí, llegara a la edad de 2 años, llegar a esta edad no debe ser facil, en realidad no recuerdo, pero con un padre como yo, a nadie debe de hacersele facil, jeje, lo unico rescatable ha de haber sido su mama, que es la que lo cuida diario, en fin, espero poder publicar fotos de el la semana entrante.

Comenzamos

2007-06-07T13:46:00.000-07:00

Bueno, aunque un poco tarde, empezamos esta aventura de los blogs, realmente no se que hare con este espacio, no soy una persona lo que se dice muy comunicativa, pero lo intentaremos, asi que espero verlos seguido por aqui, dejen sus comentarios y a bloguear, jeje