sábado, 24 de marzo de 2012

jueves, 22 de marzo de 2012

sábado, 17 de marzo de 2012

viernes, 16 de marzo de 2012

Agregar widget social sharing/bookmarking con efecto hover

Posted on 10:55 by XSaint with No comments
En este post veran como agregar un widget y agregar el efecto hover con CSS3 para ustedes. Este widget social de sharing/bookmarking con escala de grises y a color lo pueden agregar en su blog y lucira como ven abajo:

Ejemplo




Como instalar este widget sharing/bookmarking

Paso 1: Agregar codigo CSS
  1. Ir a las pestañas de blogger > Pestaña Diseño > Editar HTML
  2. Click en el checkbox Expandir plantilla de artilugios
  3. Busca la etiqueta ]]> y pongan este codigo antes de la etiqueta
#w2b-share ul {list-style: none;clear: none;padding: 0px 0px ;margin: 5px 0;}
#w2b-share ul li {display: inline;background:none;margin:0;padding:0;}
#w2b-share ul li a {display: block;float: left;width: 32px;height:32px;background-image: url('https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgnhbQCS3BMmDifMI9DeNb4wrHZA0anH7ufJKQ7y0c1_fQSflBOCA9WYckKaGoFxlSblCWQ_eUnF_PyYp7PMGSGO2mvKKZ0zoGryGJ4SSN6u7-xa_ieSTPeRngCiplw7hBG3OYoE1CQuN8/s1600/share-icons-sprite.png') ;margin-left:3px;background-repeat: no-repeat;margin-right: 2px;-moz-transition: all 0.3s ease;-o-transition: all 0.3s ease; -webkit-transition: all 0.3s ease; -ms-transition: all 0.3s ease; transition: all 0.3s ease; }
#w2b-share ul li a.twitter    {background-position: -0px -0px;   }
#w2b-share ul li a.twitter:hover {background-position: -0px -33px;  }
#w2b-share ul li a.facebook   {background-position: -32px -0px;  }
#w2b-share ul li a.facebook:hover {background-position: -32px -33px; }
#w2b-share ul li a.stumbleupon  {background-position: -64px -0px;  }
#w2b-share ul li a.stumbleupon:hover{background-position: -64px -33px; }
#w2b-share ul li a.digg    {background-position: -192px -0px; }
#w2b-share ul li a.digg:hover  {background-position: -192px -33px;}
#w2b-share ul li a.reddit   {background-position: -160px -0px; }
#w2b-share ul li a.reddit:hover  {background-position: -160px -33px;}
#w2b-share ul li a.google   {background-position: -128px -0px; }
#w2b-share ul li a.google:hover  {background-position: -128px -33px;}
#w2b-share ul li a.del-icio-us  {background-position: -480px -0px; }
#w2b-share ul li a.del-icio-us:hover{background-position: -480px -33px;}
#w2b-share ul li a.mixx    {background-position: -96px -0px;  }
#w2b-share ul li a.mixx:hover  {background-position: -96px -33px; }
#w2b-share ul li a.technorati  {background-position: -416px -0px; }
#w2b-share ul li a.technorati:hover {background-position: -416px -33px;}
#w2b-share ul li a.linkin   {background-position: -256px -0px; }
#w2b-share ul li a.linkin:hover  {background-position: -256px -33px;}
#w2b-share ul li a.yahoobuzz  {background-position: -448px -0px; }
#w2b-share ul li a.yahoobuzz:hover {background-position: -448px -33px;}
#w2b-share ul li a.myspace   {background-position: -512px -0px; }
#w2b-share ul li a.myspace:hover {background-position: -512px -33px;}
#w2b-share ul li a.more    {background-position: -576px -0px; }
#w2b-share ul li a.more:hover  {background-position: -576px -33px;}
Step 2: Agregar codigo al widget
  1. Busca la etiqueta
  2. Coloca este codigo despues de la etiqueta. y guarda tu template (por si no les funcione antes de este guarden su template en caso de errores)
<b:if cond='data:blog.pageType == &quot;item&quot;'>
<div id='w2b-share'>
<ul>
<li><a class='twitter' expr:href='&quot;http://twitter.com/?status=&quot; + data:post.title + &quot; - &quot; + data:post.url ' rel='nofollow' target='_blank' title='Share this post on twitter'/></li>
<li><a class='facebook' expr:href='&quot;http://www.facebook.com/sharer.php?u=&quot; + data:post.url + &quot;&amp;title=&quot; + data:post.title' rel='nofollow' target='_blank' title='Share this post on Facebook'/></li>
<li><a class='stumbleupon' expr:href='&quot; http://www.stumbleupon.com/submit?url=&quot; + data:post.url + &quot;&amp;title=&quot; + data:post.title' rel='nofollow' target='_blank' title='Share this post on Stunbleupon'/></li>
<li><a class='digg' expr:href='&quot;http://digg.com/submit?url=&quot; + data:post.url + &quot;&amp;title=&quot; + data:post.title' rel='nofollow' target='_blank' title='Share this post on Digg'/></li>
<li><a class='reddit' expr:href='&quot; http://www.reddit.com/submit?url=&quot; + data:post.url + &quot;&amp;title=&quot; + data:post.title' rel='nofollow' target='_blank' title='Share this post on Reddit'/></li>
<li><a class='google' expr:href='&quot;http://www.google.com/bookmarks/mark?op=add&amp;bkmk=&quot; + data:post.url + &quot;&amp;title=&quot; + data:post.title' rel='nofollow' target='_blank' title='Bookmark this post on Google'/></li>
<li><a class='del-icio-us' expr:href='&quot;http://del.icio.us/post?url=&quot; + data:post.url + &quot;&amp;title=&quot; + data:post.title' rel='nofollow' target='_blank' title='Share this post on delicious'/></li>
<li><a class='mixx' expr:href='&quot;http://www.mixx.com/submit?page_url=&quot; + data:post.url + &quot;&amp;title=&quot; + data:post.title ' rel='nofollow' target='_blank' title='Share this post on Mixx'/></li>
<li><a class='technorati' expr:href='&quot; http://technorati.com/faves?add=&quot; + data:post.url + &quot;&amp;title=&quot; + data:post.title' rel='nofollow' target='_blank' title='Fav on Technorati'/></li>
<li><a class='yahoobuzz' expr:href='&quot;http://buzz.yahoo.com/submit/?url=&quot;+ data:post.url' rel='nofollow' target='_blank' title='Share this post on Yahoo!Buzz'/></li>
<li><a class='myspace' expr:href='&quot;http://www.myspace.com/Modules/PostTo/Pages/?u=&quot;+ data:post.url + &quot;&amp;t=&quot; + data:post.title' rel='nofollow' target='_blank' title='Sahre this post on Myspace'/></li>
<li><a class='a2a_dd more' expr:href='&quot;http://www.addtoany.com/share_save?url=&quot; + data:post.url + &quot;&amp;title=&quot; + data:post.title '/><script src='http://static.addtoany.com/menu/page.js' type='text/javascript'/></li>
</ul>
</div>
</b:if>

Como poner widget de ave animada de Twitter volando en tu blogger/blogspot

Posted on 9:48 by XSaint with No comments
Este efecto del ave animada volando es realizado en javascript y cuando tu subas o bajes por la pagina, el ave se posara enfrente de tu pagina. El ave tiene un mensaje un link de follow me para los usuarios de twitter. Si tu ubicas el cursor sobre el ave, un boton "follow me" y un "tweet this" se mostraran. Basado en el link Tweet this es que divido este widget en 2 tipos:

Como instalar este widget en tu blog?

Ave de twitter volando para todas las paginas del blog.
  1. Cambia tu nombre de usuario de twitter
  2. Copia el codigo widget de abajo
  3. En las pestañas de blogger vamos a Diseño > Editar HTML
  4. Darle click en el check Expandir Widgets
  5. Buscar la etiqueta y pega el codigo widget justo despues de este
  6. Guarda el template
<b:if cond='data:blog.pageType == &quot;item&quot;'>
<script type="text/javascript" src="http://bloggerblogwidgets.googlecode.com/files/way2blogging.org-tripleflap.js">
</script>
<script type="text/javascript">
    var twitterAccount = &quot;XSaint&quot;;
    var tweetThisText = &quot; <data:post.title/> ~ <data:post.Url/> &quot;;
    tripleflapInit();
</script>
<noscript>
    <span style="font-size:11px;margin:10px;">
 Flying Twitter Bird Widget By <a href="http://www.way2blogging.org">way2blogging.org</a>
    </span>
</noscript>
</b:if>
donde dice XSaint cambienlo y pongan su cuenta eso es todo.

jueves, 15 de marzo de 2012

lunes, 12 de marzo de 2012

Truco: Expulsar USB desde escritorio en Windows

Posted on 10:53 by XSaint with No comments
Expulsar el dispositivo desde "Mi PC" darle clic derecho y expulsar, ó Irse asta el icono que se encuentra alado del reloj de windows, siempre no es la unica manera de como expulsar los Usb's. En este Post, se le enseñara un truquillo muy sencillo para extraer su dispositivo Usb con un acceso directo desde el escritorio.
Los pasos a seguir son los que muestra en la imagen:
  1. Clic derecho en el Escritorio
  2. Nuevo - Acceso directo
  3. En la ruta necesaria donde dice "Escriba la ubicacion del elemento:" puedes Escribir o Pegar las siguientes direcciones:
    4. control hotplug.dll
    Ó Pueden Usar este, que biene dando lo mismo
    rundll32.exe shell32.dll,Control_RunDLL hotplug.dll
  4. Pueden poner una de las dos direcciones que se les dio anteriormente y dar clic en "Siguiente".
  5. Escribir el nombre de del Acceso Directo y clic en "Finalizar".

Si quieren darle una mejor vista al Icono,
  • Clic derecho al Acceso directo que se acaba de crear
  • Propiedades
  • Cambiar Icono
  • Y en la ruta necesaria escribir o pegar C:\Windows\system32\hotplug.dll
  • Elejir uno de los iconos que se muestran y Aceptar - Aceptar

Cómo hacer transparente el menú del botón derecho en Windows

Posted on 10:05 by XSaint with No comments
El nuevo tema Aero para Windows 7 es sin duda una gran atracción gracias a sus efectos vidriosos y transparentes. Sin embargo no todo es transparente, por ejemplo el menú contextual del botón derecho. Para ello te presentamos una pequeña aplicación freeware con la cual podrás generar un efecto transparente en el menú.
Transparent Context Menu es una aplicación para Windows XP, Windows Vista y Windows 7 con la cual añadir un efecto de transparencia al menú que surge al hacer clic en el botón derecho del mouse.
La aplicación se aloja en la bandeja de la barra de tareas y el efecto es muy interesante.

Truco: Crear una lista con el contenido de una carpeta completa en TXT

Posted on 9:06 by XSaint with No comments
Con los tamaños de los discos duros actuales, no es de extrañar que tengamos nuestros archivos organizados a través de diferentes carpetas, cada una con ella con una extensa cantidad de contenidos.
Si deseas elaborar una completa lista de los archivos existentes en cada carpeta, puedes prepararte a pasar horas copiando nombre por nombre el inventario en un documento de texto o decidirte por un truco que facilitará tu vida. Es válido para Windows XP y versiones anteriores.
Para que automáticamente todos los nombres de los archivos de una carpeta se vuelquen a un documento .txt (Bloc de Notas), debes seguir éstos pasos:
En el ícono MI PC, vas a Herramientas y luego Opciones de Carpeta. En la pestaña “Tipos de Archivo”, pulsas sobre “Carpeta”, y luego en “Opciones Avanzadas”. Ahora se te dará la opción de editar los tipos de archivos.
Al pulsar en el boton Nuevo se abrira esta ventana:

En Acción, escribe el texto que desees se vea en el menú (lista, mis archivos, etc.)
En Aplicación utilizada, copias los siguiente:

command.com /c tree /F /A > C:\Listing.txt

y la ventana lucira asi:
Ahora cada vez que hagas clic con el botón derecho del Mouse sobre una carpeta, verás la opción “Generar Lista de Archivos.” Ejecútala y luego encontrar el resultado en el Disco C bajo el nombre de Listing.txt

sábado, 10 de marzo de 2012

Control de Bodega o Inventario en Excel

Posted on 20:15 by XSaint with No comments
esto lo encontre navegando por internet:
Es una sencilla aplicacion en excel para el control de una bodega, con esta plantilla pueden administrar la facturación y el inventario de una pequeña o mediana empresa (contiene las planillas de registro de bodega, consulta de stock en bodega y registro del inventario).
Espero les sirva como herramienta real de trabajo. Pueden descargarla en el siguiente enlace:
Pincha aqui
Contraseña de desbloqueo de la planilla : constanza

Agregar GO TO TOP BUTTON con CSS & JQUERY para BLOGGER / BLOGSPOT

Posted on 15:27 by XSaint with No comments
Agregar “Go to Top Button” con CSS y Jquery es un atajo .para subir rapidamente a la parte superior de la pagina cuando estas abajo, similar al que yo tengo.
Agregar boton ‘SCROLL TO TOP’ con CSS:
Usa el siguiente boton para agregar este widget en tu blog facilmente:
o utiliza el siguiente codigo y ponlo antes de la etiqueta en tu template y lo guardas.
Back to TOP

Agregar boton ‘SCROLL TO TOP’ con JQUERY:
Usa el siguiente boton para agregar a tu blog facilmente:
o usa el siguiente codigo y colocalo antes de la etiqueta en tu template y guarda.
Tambien podrias personalizar el CSS con tu propio codigo y reemplazar el texto que sale en la esquina inferior izquierda con una imagen.

Rellenar un combobox con los meses del año en Visual Basic

Posted on 15:09 by XSaint with No comments
A continuación, se muestra una técnica para llenar de forma sencilla un ComboBox con los meses del
año:
Private Sub Form_Load()
For i = 1 To 12
Combo1.AddItem Format("28/" & i & "/1997", "mmmm")
Next
End Sub
en la propiedad Text del combobox lo ponen vacio, y al cargar el formulario les saldra asi:

Mostrar el directorio desde donde estamos ejecutando nuestro programa en Visual Basic

Posted on 14:53 by XSaint with No comments
Para obtener el directorio desde donde estamos ejecutando nuestro programa lo único que hay que
hacer es utilizar este código:
Dim Directorio As String
ChDir App.Path
ChDrive App.Path
Directorio = App.Path
If Len(Directorio) > 3 Then
Directorio = Directorio & "\"
End If
Form1.Caption = Directorio
decidi por efectos practicos ponerlo en el evento Load del formulario y mostrarlo en su barra de titulo, en este ejemplo aparece asi:

Abrir la ventana de Propiedades de agregar o quitar programas en Visual Basic

Posted on 14:43 by XSaint with No comments
Para abrir la ventana de Propiedades de agregar o quitar programas desde Visual Basic añada el
siguiente código al boton:
X = Shell("Rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl @0")
y al pulsar el boton les saldra asi:

Redondear un numero en Visual Basic

Posted on 10:38 by XSaint with 6 comments
Utilice la siguiente rutina para redondear un número. Le devolverá el número redondeado en formato
Double con tantos decimales como indique en el parámetro 'intCntDec'.
Public Function Redondear(dblnToR As Double, Optional intCntDec As Integer) As Double
Dim dblPot As Double
Dim dblF As Double
If dblnToR < 0 Then dblF = -0.5 Else: dblF = 0.5
dblPot = 10 ^ intCntDec
Redondear = Fix(dblnToR * dblPot * (1 + 1E-16) + dblF) / dblPot
End Function
y en el codigo del boton escriben esto: 
Private Sub Command1_Click()
Text2.Text = Redondear(CDbl(Text1.Text))
End Sub
Como ven el parametro intCntDec es opcional asi que si no lo colocamos simplemente calcula el numero decimal al entero proximo como la figura de abajo:
pero si desearan redondear a una cierta cantidad de decimales tendrian que colocar otro textbox y cambiar el codigo en el procedimiento click del boton para que luzca asi:
y en el codigo del boton tendrian que hacer esto: 
Private Sub Command1_Click()
Text3.Text = Redondear(CDbl(Text1.Text), CInt(Text2.Text))
End Sub
espero les sirva el codigo :)

8 maneras en que Excel puede ayudar en el marketing en buscadores(SEO & PPC)

Posted on 8:34 by XSaint with No comments
La mayoria de nosotros que estamos inmersos en la industria del marketing de buscadores tenemos nuestra propia coleccion de herramientas favoritas. Si bien no he sido un gran seguidor de estas herramientas llamadas herramientas SEO, hay una de la cual puedo sacar mucho provecho – adivinaste lo correcto, MS Excel.
Esto es probablemente la unica herramienta que es igualmente relevante para SEO asi como para campañas PPC y es usada en casi todas las fases de la campaña. En este articulo estoy intentando listar algunos de los modos que Excel puede ser usado para SEO asi como para campañas PPC.
Uso de Excel en SEO

  • Keyword Research: El primer paso en cualquier campaña SEO es la investigacion de keywords y el uso de Excel empieza desde alli. Es una fantastica herramienta para listar todas las keywords, clasificarlas en grupos pequeños, ten en cuenta tus estadisticas (competencia, trafico, etc ) y si quisieras calcular el KEI (Indice de Efectividad de Keywords) para tus keywords, Excel tambien lo hace por ti.
  • Keyword Mapping: Mientras que algunos SEOs podrian diferir, you encuentro esto como un paso extremadamente importante donde basicamente planificamos toda la campaña con respecto a las diferentes paginas del sitio web y cada keyword que se dirigen a ellas. Nuevamente Excel es una gran herramienta en la creacion de un mapa facil y claro de las distintas keywords y de las distintas paginas del sitio web a las que seran direccionados.
  • Link Building – Ninguna campaña SEO esta completa sin link building y Excel es probablemente el mejor camino para construir una base de datos de las oportunidades de enlaces posibles asi como tambien mantener una lista sistematica de todos los enlaces que recibe su sitio. Una base de datos de las perspectivas de enlace probablemente tendria informacion como la URL del sitio web/pagina, nicho, Page Rank, Outbound Links (vinculos salientes), Inbound Links (vinculos entrantes), tipo (Directorio, Directorio de articulo, Revision de sitio, Blogs, Paid etc), informacion de contacto. El grado de detalle que desea hacer de su base de datos dependera toda de ti.
    • Si tu eres un profesional SEO, es recomendable que mantengas estas bases de datos contigo incluso despues que tus proyectos sean superados porque tu nunca sabes cuando aterrizas con otro proyecto de la misma industria o relacionada. Tu puedes usar un simple filtro en tu archivo Excel y extraer todos los enlaces que tienes de un nicho particular. Cuando se utiliza Excel para mantener un inventario de tus enlaces, ademas de los puntos anteriores, debes incluir texto de anclaje utilizado para el enlace el cual apunta a una URL. Poner todo junto en un archivo Excel te permite comprobar en cualquier momento cuantos links tienes actualmente por cada palabra clave y la pagina a la que apunta.
  • Reporting – Para la mayoria de proyectos clientes SEO se insiste en una tabla de clasificacion para las keywords y Excel aqui podria ayudarte. Si tu tienes una minima comprension de Excel tu puedes preparar graficos mostrando las keywords y sus rankings y esto puede mejorarse aun mas guardando los datos historicos en el periodo de la campaña y dibujandolo en un grafico.
  • Para quienes dominan SEO de una forma mas avanzada, tu probablemente quisieras mostrar el trafico de datos a tus clientes. Ahora que Google y muchas herramientas analiticas ofrecen una opcion "Exportar a Excel", tu puedes usar eso con alguna personalizacion para creat tu propio cuadro de mando.
Uso de Excel en PPC

  • Keyword Research : Aunque un poco similar a SEO, hay algunas diferencias mayores en investigacion de keywords para una campaña PPC comparada a SEO. Las campañas PPC normalmente tienen muchas mas keywords que una campaña SEO y en este caso Excel no solo te ayuda a listar efectivamente todas las keywords y sus estadisticas, tambien puedes elegir las mas apropiadas, pero hace un trabajo impresionante en ayudar a separar las keywords relevantes en campañas y grupos de anuncios, lo que ayuda a planificar la estructura de su campaña.
  • Creating Your Ad Copies: La mayoria de motores de busqueda tienen su propio formato y limtaciones de caracteres para textos de anuncios. Al escribir una texto de anuncio es un trabajo creativo, podria volverse algo aburrido de hacer un seguimiento de la cantidad de caracteres contados de cada linea de tus textos de anuncios, especificamente cuando tu estas trabajando en grandes cuentas con cientos de copias del anuncio. Usa la formula LEN para que Excel cuente los caracteres en tu copia de texto. Tambien, tu puedes realmente usar formato condicional en Excel para asegurar que los textos de los anuncios que van ams alla de sus limites de caracteres estipulados se marquen de rojo o del color que usted prefiera.
  • Upload Set up –Para aquellos que manejan la busqueda de cuentas mejor pagadas se vuelve muy dificil establecer una cuenta manualmente y en la mayoria de casos se termina utilizando alguna herramienta como Editor Adwords (para Google). Todas estas herramientas te permiten crear archivos Excel en formatos especificos y subirlo masivamente a los motores de busqueda a traves de interfaces.
  • Performance Reports – El marketing de buscadores y particularmente PPC proporcionan informacion muy detallada sobre el rendimiento de la campaña y esos datos realmente funcionan como fundamento de la mejora y optimizacion de tus campañas. Mientras la mayoria de estos reportes pueden ser exportados en formato Excel para la visualizacion hay mucho mas que puedes hacer con Excel. Particularmente, Excel puede trabajar como una herramienta muy util cuando tu estas intentando combinar data de multiples fuentes (multiples motores de busqueda, los anuncios DART o en otros sistemas). Las tablas dinamicas tambien son una gran ayuda en procesar estos datos y crear otros reportes utiles segun el requisito. Con frecuencia también es útil y te hace ver más impresionante y profesional cuando se sirve a sus clientes informes con algunos gráficos de lujo que se pueden crear en Excel en un santiamén.

Los puntos que escribí más arriba son sólo la punta del iceberg, no hay límite a lo que se puede hacer con Excel. En el caso de algunos de ustedes ya están haciendo algo bueno con Excel para ayudar a su campaña de marketing en buscadores, no dudes en compartirlo en los comentarios. Y si usted todavía no ha empezado a utilizar Excel extensamente para sus campañas, ya es hora de, de empezar a usar esta herramienta de búsqueda de marketing maravilloso.

jueves, 8 de marzo de 2012

Como pasar de numeros romanos a arabes en Visual Basic 6

Posted on 8:51 by XSaint with 2 comments
explicare brevemente lo que hace este codigo con esta foto:
lo que van a hacer es implementar 2 funciones, la primera convertira el numero a arabe:
Function ConvertirArabe(Romano As String) As Integer
    Dim Numero As Integer, Valor1 As Integer
    Dim Valor2 As Integer, Cadena As String
    If Len(Romano) = 0 Then ConvertirArabe = 0: Exit Function
    Cadena = Trim(Romano)
    Numero = 0
    Do
    Valor1 = VerValor(Left(Cadena, 1))
    Cadena = Right$(Cadena, Len(Cadena) - 1)
    Valor2 = VerValor(Left(Cadena, 1))
    If Valor1 >= Valor2 Then
    Numero = Numero + Valor1
    Else
    Numero = Numero - Valor1
    End If
    Loop Until Len(Cadena) = 0
    ConvertirArabe = Numero
End Function
aca como se puede ver utilizamos la funcion len y la funcion trim, la funcion len nos permite conocer la cantidad de caracteres que tiene una determinada cadena y la funcion trim borra espacios en blanco de toda la cadena. Tambien tenemos la funcion Left, Right$ y VerValor. La funcion Left(string, length) les explicare con este ejemplo XSaint= Left("naufrago", 3) ' XSaint = "nau". La funcion Right(string, length) hace esto: XSaint= Right$("naufrago", 3) ' XSaint = "ago". Como vemos la funcion Left devuelve una subcadena del lado izquierdo indicando el numero de caracteres. Lo mismo con Right( pero del lado derecho. Ahora la funcion VerValor no es una funcion propia del Visual Basic. Esta funcion la implementaremos aqui:
Function VerValor(Simbolo As String) As Integer
    Select Case Simbolo
    Case "I"
    VerValor = 1
    Case "V"
    VerValor = 5
    Case "X"
    VerValor = 10
    Case "L"
    VerValor = 50
    Case "C"
    VerValor = 100
    Case "D"
    VerValor = 500
    Case "M"
    VerValor = 1000
    Case "Q"
    VerValor = 5000
    Case "H"
    VerValor = 10000
    End Select
End Function
esta funcion devuelve el valor decimal por cada caracter que se extrae con las funciones Right y Left y luego compara sus valores. Y para terminar implementan este codigo en el procedimiento click del boton:
Private Sub Command1_Click()
Text2.Text = ConvertirArabe(Text1.Text)
End Sub
disculpen si no les puedo explicar todo el codigo, se que estoy saltandome algunas partes pero es que no tengo mucho tiempo como antes, pero espero igual les sirva para seguir aprendiendo y jugando con el codigo hasta luego :)

Colocar la hora y la fecha en la barra de titulo de un MDI Form en Visual Basic 6

Posted on 8:04 by XSaint with No comments
Vamos a darle click al objeto tipo Timer en el formulario MDI.

el valor de la propiedad Interval del objeto Timer debe ser 1000.

elimine el valor de la propiedad Caption del formulario.
en el procedimiento Timer del objeto escriba el siguiente codigo:

.Caption = "" &
Format(Date, "dd-mm-yyyy") & " " & Format(Now, "h:nn:ss AM/PM")
en NombreForm escriben el nombre de su formulario MDI y Nombre de la aplicación (o podrian poner el nombre que deseen).
En el procedimiento Load del formulario escriba el siguiente código:
timer1.Enabled = true

y al ejecutar el formulario veran que el titulo del formulario lucira asi:

miércoles, 7 de marzo de 2012

Programming: Escribir texto en 3 dimensiones en Visual Basic 6

Posted on 16:42 by XSaint with No comments
lo primero que vamos a hacer es crear un nuevo proyecto, y en el formulario vamos a añadir un boton y un textbox de este modo:
y ponemos este codigo al presionar el boton:
Dim I As Integer, X As Integer, Y As Integer
ForeColor = &HFF0000: X = CurrentX: Y = CurrentY
CurrentX = X: CurrentY = Y: FontSize = 14
For I = 1 To 50
Print Text1.Text
X = X + 1: Y = Y + 1: CurrentX = X: CurrentY = Y
Next I
ForeColor = &HFF00&
Print Text1.Text
y cuando presionen el boton les aparecera asi:

jueves, 1 de marzo de 2012

Descargar Emulador de calculadora cientifica Casio

Posted on 16:16 by XSaint with No comments
Te ha ocurrido que justo cuando más necesitas tu calculadora científica, resulta que la dejaste en casa? Eres de los que han "perdido" más de una vez esta importante herramienta? No te preocupes, este tipo de situaciones es más común de lo que imaginas y dado que entendemos la importancia de tener siempre a mano la salvadora calculadora científica, te queremos presentar una excelente solución!
Conoces los "emuladores de calculadora científica"? Dichos emuladores son aplicaciones generalmente gratuitas que permiten realizar absolutamente todas las operaciones matemáticas que desarrollas habitualmente en tu calculadora "material". Además, tienen la cualidad de poseer la misma apariencia de una calculadora científica real, lo cual hace mucho más valiosa y sencilla su utilización.
Es muy simple, únicamente debes descargar un pequeño archivo .rar y descomprimirlo en tu computador, luego de ello, cada vez que necesites utilizar tu emulador de calculadora científica, solamente ejecutas el archivo .exe y listo. Esto quiere decir que no es necesario instalar la aplicación y que puedes almacenarla en tu pendriver para utilizarla en cualquier PC, sin ningún problema.
Para recomendar, elegimos estos dos emuladores de calculadora científica, procurando que correspondan a las marcas y/o modelos más comúnmente utilizados (has clic para descargar):
  1. Casio Fx82es
  2. Fx570ms
Espero les sirva :)

Convertir celda con texto a letra capital en Excel 2007 con macros

Posted on 8:57 by XSaint with 1 comment
esto lo hacemos en caso de que deseemos cambiar el texto a letra capital en varias celdas.
primero vamos a Vista->Macros->Grabar Macro.
Una vez aqui nos saldra una ventana como esta:
en macro3 cambiamos al nombre que deseemos cambiar la macro podria ser CapitalLetter y en Metodo abreviado sera el atajo de teclado que vamos a usar para llamar a la macro (en la casilla en blanco pongan una letra).
ahora presionen el boton de Stop que esta abajo de Libro1.
ahora presionamos ALT+F11 para ir al Editor de Visual Basic. Una vez aqui vamos a la Ventana de Proyectos y vamos a la carpeta Modulos y damos doble click en Modulo1.
una vez aqui nos saldra una ventana como esta.
una vez aqui ponemos antes de End Sub este codigo.
jaxx = ActiveCell.Value 
If VarType(jaxx) = 8 Then 
ActiveCell.Value = WorksheetFunction.Proper(jaxx) 
End If
ActiveCell.Offset(1, 0).Select
OJO que esto lo hacemos habiendo puesto STOP en el paso que esta arriba.
Ahora cierran el editor y prueben escribiendo un texto en una celda y presionando el atajo de teclado que les dije anteriormente deberia salirles asi (en la figura que veran abajo escribi un texto y presione Ctrl+c y resulto)
espero les haya sido util este ejemplo.

Cambiar texto de mayusculas a minusculas o al reves en Excel 2007 con macros

Posted on 8:36 by XSaint with No comments
en este ejemplo explicare como pasar un texto de mayuscula a minuscula, y le asignaremos un atajo de teclado como en los ejemplos anteriores que he posteado.
Lo que hacemos primero es abrir una hoja de Excel y vamos a Vista->Macros->Grabar nueva macro.
Elegimos un nombre podemos ponerle Upper_to_Lower
y en metodo abreviado es el atajo de teclado que vamos a usar para llamar a la macro.
Aceptamos y detenemos la grabacion (podemos ver que abajo hay un boton de Stop, le damos click y detenemos la grabacion).
Ahora presionamos ALT+F11 para abrir el Editor de Visual Basic. Una vez aqui abrimos la carpeta Modulos y damos doble click en Modulo 1.
les aparecera una ventana con un texto como este:
Sub Upper_to_Lower()
'
' Upper_to_Lower Macro
' by XSaint
'
' Acceso directo: CTRL+x
'
End Sub
como ven aqui solo contiene comentarios, no tiene codigo. Lo que vamos a hacer es implementar esta macro con el siguiente codigo. Para esto nos ubicamos una linea antes de End Sub y ponemos este codigo:
stone=ActiveCell.Value
If VarType(stone)=8 Then
ActiveCell.Value=UCase(stone)
End If
ActiveCell.Offset(1,0).Select
quedando asi:
Cerramos el Editor y automaticamente regresamos al Excel que dejamos abierto. Ahora que la macro ya quedo implementada podemos utilizarla.
Ahora si queremos pasar de minusculas a mayusculas hacemos todos los pasos que hicimos anteriormente, cambiando el nombre de la macro y el atajo de teclado que puede ser la combinacion de teclas que deseen menos el Ctrl+x que pusimos arriba.
y el codigo que van a poner es este:
basement = ActiveCell.Value
If VarType(basement) = 8 Then
ActiveCell.Value = LCase(basement)
End If
ActiveCell.Offset(1, 0).Select
como ven se parece mucho al que implementamos anteriormente salvo el metodo que estamos llamando que en este caso es LCase.
y podemos ver como queda.
Suscribirse a: Entradas (Atom)