¿Cómo bloquear los puertos usb a medios de almacenamiento?

Este procedimiento me lo han pedido sobre todo en Inglés y ya que es un idioma mas o menos entendido por los informáticos (Ya si no, jejeje), decidí desarrollar una utilería a la cual he denominado USB Storage Management, la cual nos hace la vida un poco más agradable a la hora de seguir procedimientos tediosos y sobre todo si hay que aplicarlos a varias computadoras. La liga para descargar el ZIP de Nombre USBSTOR es http://cornerstone.mx/usbstor.php y contiene los archivos necesarios para ejecutarse, el logro de esto es que no requiere instalación alguna y puedes utilizarla incluso desde un medio de almacenamiento USB. PD esta herramienta no afecta ni bloquea el uso de otros dispositivos USB como lo son Keyboards, Mouses, Printers, etc.

¿Qué es mejor, ASP o PHP?

Algunos nos hemos preguntado que es mejor ¿ASP o PHP?, bueno la verdad es que yo no soy experto en el tema, pero hay quienes si, así que les comparto el Link para que hagan sus propias conclusiones. Saludos.

http://www.oracle.com/technology/pub/columns/hull_php2.html

¿Cómo reparar archivos PST de MS Outlook 2007?

Esto es muy sencillo!

Cuando tienes problemas con los archivos .PST de Outlook 2007 ve a la siguiente ruta

C:\Archivos de programa\Microsoft Office\Office12

y busca el archivo SCANPST.EXE haz doble click sobre el y busca el archivo .PST con el cual tienes problemas. Esta pequeña aplicación en la mayoría de los casos resuelve los problemas con estos archivos de MS Outlook

El identificador de la instancia activa no es válido

Alguién se acuerda del MSDE? bueno pues me acabo de topar con algunas aplicaciones que lo usan y funcionan muy bien, pero el problema viene cuando quieres usar esa tecnología de acceso a datos propietaria de Microsoft en una tecnología de servidores Windows 2008, tambien propiedad de Microsoft; en fin con el problema con el que me enfrenté es que desde el primer click en el SETUP.EXE para instalarlo, Windows 2008 te manda un mensaje de "problemas conocidos con dicho Software (MSDE)" y eso que contaba con el último Service Pack para el producto en ese momento. Decidí omitir esos mensajes que me acompañaron durante la instalación para terminar en un mensaje similar a este: "El identificador de la instancia activa no es válido".

Me quedé con cara de signo de interrogación, acompañada de un tremendo "WHAT?".

Pero después de un rato de ver por la ventana, logré que la instalación funcionara, solo que haciendo la instalación desde la linea de comandos.

c:\MSDE\SETUP.EXE INSTANCENAME = "MyInstance"

Esto me creó un servicio MSSQL$MyInstance el cual tienes que iniciar y dejarlo de automático, ademas de hacer lo mismo con el Agente SQL.

Puedes usar el MSSQLManagement Studio para validar tu instancia y/o crear tu Base de Datos, si es que no tienes una aún.

Espero y te sirva el Tip!!.

PD El logo también es propiedad de MicroSoft Corp.

Respaldar correos Outlook 2007

Recibí el día de hoy en mi cuenta de correo la solicitud de explicar como respaldar tu información en Outlook 2007. da click en la siguiente liga y descargaras un archivo .PDF con los pasos para poder hacerlo. Espero te sirva

http://cid-a4785f61acc6a2c6.skydrive.live.com/self.aspx/MundoComputacion/Respaldar%20Outlook%202007.pdf

Tambien contiene la manera de restaurar lo respaldado. Cuidate!!!

Desarrollo MultiPlataforma

Que tal a todos?, para todos los programadores que como yo, tenemos algunos años recorridos; tengo a bien presentarles una opción que verdad pensé que habian olvidado.. El proyecto Harbour!!!. Ese tan esperado sucesor de CA-Clipper pero en versión OpenSource.

Lo descargué y lo pusé en marcha y para mi sorpresa, podemos correr nuestras aplicaciones tanto en Windows 32 y 64 bits como en Linux (claro con respectiva compilación según el SO). Y no solo eso si no también tenemos la posibilidad de utilizar Bases de Datos en MySQL, en lugar de la corrompibles DBFs. hay además un grupo interensate de herramientas de terceros tanto de licencia convencional (o sea de paga) y las que prefiero "Open Source"; entre muchas otras como acceso a XML.

Agrego que las aplicaciones creadas en harbour, se cargan y se ejecutan con una velocidad que me dejó asombrado; para veteranos programadores de Clipper el cambio hacia Harbour será muy agradable, y lo mejor del caso es que puedes resucitar parte de tu viejo código!.

Si te interesa puedes descargarlo desde http://www.harbour-project.org/

Mi PC esta muy lenta, ¿Qué puedo Hacer?

La mayoría de los correos que recibo solicitando apoyo, es con respecto a lentitud experimentada en las PCs.

Esto puede deberse a varias razones, la más común es que tengas algún tipo de malware como lo son virus, spyware, dialers entre otros. Para lo cual te recomiendo adquieras un buen software antivirus original (es decir debidamente licenciado, ¡Di no a la piratería!) con protección adicional para los distintos tipos de malware. Otra recomendación es evitar a toda costa los softwares crackeados ya que estos son unos de los principales medios de propagación de infecciones que afectan al rendimiento de tu equipo.

Si tu estás dentro de la elite de usuarios que tiene su software original y cuentas con una herramienta anti-malware, lo que se debe hacer es darle "mantenimiento preventivo" a tu sistema operativo, el cual consta de varias tareas que tu mismo puedes realizar.

a) Eliminar archivos innecesarios de tu disco duro(archivos temporales, cookies, etc.)

b) Vaciar tu papelera de reciclaje.

c) Realizar una desfragmentación del Disco Duro.

d) Revisar los programas que se ejecutan al iniciar tu pc, por lo general son los programas de mensajería instantánea como live messenger y yahoo messenger, estos los puedes quitar de tu lista de inicio, para que el inicio de tu PC sea más rápido y solo se carguen cuando necesites realmente estas aplicaciones.


Esto debe mejorar el performance de tu PC, si no sabes como realizar el detalle de cada tarea descrita en esta sección, sigue al pendiente, ya que próximamente desarrollare la explicación de las mismas.

¿Cómo hacer que se ejecuten aplicaciones TSR DOS en Windows XP?

Parecerá bastante raro este caso para algunos, (¡ incluso lo es para mí !) pero he estado recibiendo corrreos de Humberto Leija de la cd.Oaxaca, preguntándome ¿Cómo hacer que se puedan ejecutar aplicaciones TSR de DOS en una PC con Windows XP desde el command ?. Esto porque tiene un sistema desarrollado en business basic residente en memoria que solo corre bajo el interpréte de comandos. Es muy sencillo de hacerlo, solo hay que utilizar el comando DOSONLY y para ello debemos llamarlo desde el archivo CONFIG.NT ubicado en c:\windows\system32.

Ubica el archivo CONFIG.NT abrelo con el block de notas o si estas desde el interpréte de comandos usa el comando EDIT para editarlo; agrega en la última línea la palabra DOSONLY y tu programa permanecerá residente en memoria.

¿Cómo estar tranquilo cuando tus hijos están Internet?

¿Tienes hijos?, ¿Tienes una conexión de internet en tu casa?; si tu respuesta es sí a ambas preguntas encontrarás interesante éste artículo.



Existen diferentes maneras de establecer un control en cuanto al contenido de los Websites que visitan tus hijos, una de ellas y la más común, porque es la que tenemos a la mano, es habilitar el asesor de contenido de nuestro Internet Explorer, en donde defines los sitios permitidos en los que se puede navegar, ya sea filtrando el tipo de contenido o enumerando la lista de las direcciones de las páginas permitidas. pero OJO ésto solo aplica cuando se usa el Internet Explorer. Hoy en día existen varios browsers o navegadores de internet, el más popular después del Internet Explorer es el Firefox de Mozilla que desplazó al buen recordado Netscape; y lo especial del caso, es que aunque tengas habilitado el asesor de contenido del internet explorer que viene con tu windows, tu hijo podrá tarde o temprano adquirir las habilidades necesarias (si es que no las tiene ya) para instalar cualquier otro navegador de internet que no respete los bloqueos configurados en débil navegador i.e. y tener libre albedrío y acceso en toda la red mundial.



Lo anterior puede ser frustrante sobre todo cuando los padres de familia pudieran tener poca experiencia en este tipo de administración de seguridad informática. Lo mejor en este caso es establecer una seguridad independiente del tipo de navegador que usen tus hijos, mi recomendación en este sentido si es que no tienes conocimientos sobre como crear políticas de seguridad en tu sistema operativo y/o en tu ruteador de banda ancha, es instalar el software K9 Web Protection de Blue Coat, que pasa por sobre cualquier navegador web. Con este sencillo software podrás establecer además del horario en el que permites que se use el internet, bloquear aplicaciones P2P, Messengers y definir la lista de direcciones web permitidas (URL Filtering), así como el contenido permitido o bloqueado de las páginas. Lo más agradable es que es absolutamente confiable y es Freeware!!!.



Haz la descarga desde su HomePage http://www1.k9webprotection.com/ y pruébalo, estoy seguro de que te gustará!!!. Sólo tienes que registrarte!!!



Si eres administrador de una pequeña red y quieres tener control sobre las actividades en internet de tus usuarios tambien te servirá ésta aplicación ya que tiene estadísticas de fechas, horario y lugares visitados. Recuerda que puedes bloquear los mensajeros instantáneos, algo muy solicitado por las PyMEs.



P.D. en la sección de comentarios puedes dejar tus comentarios sobre el artículo, si deseas que publique algún artículo que TU hayas escrito; mándamelo por correo y con gusto lo publicamos, respetando tu autoría. Lo que no se vale es copiar contenido técnico de otros sites y enviarlos como tus comentarios. Gracias a todos por su compresión en los alcances que delimitan este blog. Aspectos que requieren de un nivel más elevado de conocimientos como lo son los SUPERSERVIDORES de la NASA con sistemas operativos UNIX, LINUX o AS400 ciertamente no están contemplados en este blog, pero si tienes dudas o alguna necesidad de soporte técnico a un mayor nivel, contáctame por email y te haré llegar las tarifas de mis honorarios.



Paz y Salud!!!!

¿Qué es mejor, Windows o Linux?

Hola a todos, nuevamente por aquí en este su Blog, ya que es de ustedes y para ustedes!!!!!. Prometo ser más constante :-)

Vamos directo al artículo; hay muchas dudas, mitos y temores todavía en cuanto a la migración de sistema operativo; en especial para los que durante nuestra vida hemos participado de la evolución de la computadora teniendo como plataforma de trabajo la mancuerna WINTEL ( Windows - Intel ) es como describen los grandes analistas de la administracion empresarial - LA RESISTENCIA AL CAMBIO - pero no se alarmen demás, veamos esto de los sistemas operativos en cuanto a la diversidad se refiere (Windows, Linux, MacOs, Solaris, FreeBSD, etc.) como a la gran oportunidad que la oferta y la competencia por el mercado nos permiten gozar de mejores y más económicas opciones para nosotros los consumidores (Al final es lo que realmente somos) . Tomemos el ejemplo de la telefonía en México, antes solo era TELMEX y si no te gustaba te aguantabas o te quedabas sin telefono, ahora las cosas han cambiado y tenemos una verdadera oferta de servicios al respecto con compañias que ofrecen servicios mejores o similares a precios más razonables, - no menciono nombres porque no me han pagado nada "es broma, para que no te aburras leyendo todo este rollo"- en fin, lo que te quiero dar a entender es que el mejor sistema operativo va a ser aquel con el que estés agusto, con el que te identifiques y puedas realizar todo lo que quieras en tu pc.

Del mito de que MicroSoft es una basura, no estoy muy de acuerdo, pero tampoco lo defiendo, simplemente también he tenido difcultades con algunas distribuciones de Linux que en ocasiones te desesperan más que incluso las dificultades que se me han presentado con MicroSoft. Lo que si es cierto es que no me han aparecido las tan odiosas pantallas azules de Windows corriendo Linux.

La ventaja en mi opinión de los sistemas operativos de libre distribución, en especial Linux, es que la comunidad dedicada a realizar mejoras tanto al Kernel, como a las aplicaciones de utilerías y sistemas de interfase de usuario está creciendo día a día y creo que ninguna empresa del mundo podrá igualar a la creatividad y diversidad de ideas que tienen el total de las personas involucradas en los proyectos, desde programadores, diseñadores gráficos, traductores, depuradores, etc. Creo que al final vencerán los Softwares de licenciamiento abierto (Open).

Es natural que quieras indagar o curiosear con Linux, y está bien!!!, hazlo!!!, sólo que debes prepararte psicológicamente a romper los paradigmas con los que te haz educado en la informática(Windows) hasta este momento. aunque los sistemas GUI sean similares a los de Windows.

Nadie puede decirte que es lo mejor para ti!!!, prueba y si te sientes cómodo, cambia sin temor a que te estés equivocando, se acabaron los tiempos de un solo sistema operativo.

Te puedo asegurar que lo que puedes en Windows, también lo puedes hacer de alguna manera en Linux...... Por cierto éste artículo lo estoy editando con mi navegador FireFox desde Linux en su distribución Ubuntu 8.04 LTS, la cual recomiendo ampliamente!!!

Comandos Windows XP / Vista (Parte I)

Disculpen que no escriba los comandos en orden alfabético, pero los iré escribiendo conforme los vayan solicitando a mi correo. espero les sean útiles.


Nota : para ejecutar cada uno de los comandos deberán iniciar una sesión de Símbolo del Sistema, esto lo puedes hacer en windows XP en la opción ejecutar escribiendo Command o en Windows Vista da click en el boton Buscar y escribe command, esto te mostrará el icono del Símbolo del Sistema, da click en el y listo estarás en el intérprete de commandos.


SYSTEMINFO : Te mostrará datos muy completos de equipo, como por ejemplo el nombre host, memoria Ram, dirección IP, tipo de procesador y algunos datos más.


PERFMON : Abre la utilería para diagnosticar el rendimiento del equipo.


CLEANMGR : Abre la utilería para liberar espacio en tu disco duro, elimina los archivos temporales y vacía la papelera de reciclaje.

Conceptos de POO (Parte II)

Ya hemos establecido las bases para entender la técnica de la Programación Orientada a Objetos.

Sabemos distinguir entre propiedades, métodos y eventos, lo cual es clave.

Con el ejemplo del teclado, podemos agregar que en nuestra conceptualización del objeto tecla, solo bastó con definir un solo objeto y a partir de el podremos completar todo un teclado.

¿Por qué?, bastante sencillo, si observamos las teclas de nuestro teclado, todas son muy similares y comparten la mayoría de las características definidas en nuestro objeto base (clase), y solo cambian los caracteres grabados en ellas (propiedad) y lo que se realiza al presionar una de ellas (método). Esto me da la pauta para hablar de otra característica de la técnica de Programación Orientada a Objetos, la Herencia; así como nosotros "heredamos" de nuestros padres ciertas características como forma de nariz, color de ojos, estatura, inteligencia, etc. aunque también poseemos otras características diferentes a ellos que nos hacen únicos. Nosotros podemos reproducir más objetos muy parecidos al objeto "padre" o "clase" pero con algunas diferencias; tal es el caso de cada una de las teclas que requiera nuestro teclado.

Es decir podemos hacer que nuevos objetos hereden características y funcionalidades de otros objetos ya existentes.... WOW esto si que ahorra tiempo en el desarrollo!!!

¿Interesante Verdad?

(Esta historia continuará...)

Problemas con Bluetooth

Para Diego Iduarte Galindo de Tampico

Que tal Diego, de nuevo es un placer poder ayudarte, y de nuevo una disculpa por la tardanza, pero ya sabes tiempo es lo que falta para poder realizar todo lo que nos proponemos. Bien, de acuerdo al modelo que me diste de tu computadora, solo tienes que descargar el archivo R117967.EXE del siguiente link dando doble click en el. Elimina primero el archivo que habías descargado anteriormente. (tiene el mismo nombre)

http://support.dell.com/support/downloads/download.aspx?c=mx&l=es&s=dhs&releaseid=R117967&SystemID=INSPIRONI6400/E1505&servicetag=&os=WW1&osl=sp&deviceid=7388&devlib=0&typecnt=0&vercnt=2&catid=-1&impid=-1&formatcnt=1&libid=5&fileid=156024

Asegurate de fijarte bien en donde lo descargas y después ejecutalo dando doble click sobre el icono del archivo, sigue las instrucciones que aparecerán en la pantalla y tendrás funcionando de nuevo tu Bluetooth.

Saludos.

Envien sus comentarios, dudas y sugerencias a gt_alejandro@hotmail.com, sean pacientes...

Realizar una "Traza"

a Solicitud de Francisco Hernández

Útil cuando quieres conocer la dirección de IP de un equipo en tu red, sin necesidad de ir a la computadora y checarla en las propiedades del TCP/IP.

inicia en una sesión de comandos (DOS) desde inicio-ejecutar y escribe las letras CMD (esto iniciará la sesión de comandos) para windows 200o/XP, en Windows 95,98,Me desde inicio-ejecutar escribe la palabra COMMAND.

Una vez realizado esto, supongamos que quieres averiguar la dirección de la máquina que tiene por nombre "LAPC1"; desde la sesión de comandos escribe la palabra TRACERT LAPC1 y esto te dará por resultado la dirección IP de dicha máquina.

También lo puedes usar para conocer la ruta completa por la que tienes que pasar "digitalmente" para llegar a un Website por ejemplo, tecleea desde la sesión de comandos TRACERT WWW.GOOGLE.COM.MX

obtendrás primero que nada la dirección IP del WebSite, luego la dirección de tu equipo, posteriormente la(s) dirección(es) de tu proveedor de servicios de internet y la de los servidores por los que pasa tu trazado hasta llegar al destino de la traza, en este caso el website de google méxico.

Saludos, espero te sirva!!!

Conexión Directa con Windows XP

y porque Diego Iduarte Galindo de Tampico city, lo pidió.



Para hacer, la conexión directa entre dos computadoras con windows XP para pasar tus fotos o lo que sea que quieras transferir, te recomiendo utilizar un cable de Red (UTP) , el cual debe ir conectado a ambas computadoras en la tarjeta de red.

Antes de hacer cualquier configuración para la conexión debes checar lo siguiente:

que ambas computadoras pertenezcan al mismo grupo de trabajo, para revisarlo da click derecho sobre el icono de Mi PC, y da click en la opción propiedades, al hacer esto te aparece una ventana con varias paginas llamada propiedades del sistema, selecciona nombre de equipo, ahi encontrarás la leyenda GRUPO_TRABAJO y a la derecha de esta, el nombre del grupo de trabajo al que pertenece tu equipo, para cambiarlo da click en el boton Cambiar y modifica el Grupo de Trabajo. Cuando hayas terminado el sistema puede sugerirte reiniciar para que los cambios tomen efecto.

Después de haber establecido el grupo de trabajo, necesitas checar que el "idioma" que hablan las 2 maquinas sea el mismo; es decir que cuenten con el mismo protocolo de comunicación, windows XP cuenta de manera predeterminada con el protocolo TCP/IP y bastará con establecer direcciones comunes para que se de la comunicación, entra al menu Inicio - Panel de Control - Conexiones de red ahi verás un icono que se llama conexión de area local da click derecho en el y entra a la opcion propiedades, busca la opción protocolo internet (TCP/IP), seleccionalo con un click, y presiona el boton propiedades, una vez hecho esto, selecciona el boton de radio usar la siguiente dirección IP en las casillas de lado derecho teclea de tal manera que quede como el ejemplo de abajo.

dirección ip 192.168.1.1
máscara de subred 255.255.255.0


cuando hayas terminado da click en el boton Aceptar. haz lo mismo con la otra computadora pero sustituye la dirección IP por 192.168.1.2


Ahora si estamos listos para configurar la conexión directa.


Sigue los siguientes pasos:

menu Inicio
Panel de Control
Conexiones de Red
Crear una conexión nueva
Siguiente
Configurar una conexión avanzada
Siguiente
Conectar directamente a otro equipo
Siguiente

Al llegar a este punto te pregunta si deseas configurar este equipo como Host o como Invitado, para que identifiques cual usar.

Host : debe ser el equipo que tiene los archivos de las fotos (para definir el equipo como Host debes tener permisos de administrador de equipo)

Invitado : debe ser el equipo al que quieres pasar las fotos


Despues debes dar click en Siguiente

y selecciona el adaptador de red, da click en siguiente y marca la casilla invitado, esto permitirá a los invitados conectarse a tu pc

Siguiente

Finalizar

y Listo!!!!! espero te sea de utilidad.

tus equipos ya están conectados, recuerda crear una carpeta compartida para que la puedas accesar desde la otra pc.

PD esta configuración puedes hacerla también con cable RS232 conectado a los puertos seriales pero ahí necesitarias configurar los puertos también, se me hace más sencillo con el cable de red.

Sorry por la tardanza pero no siempre tengo el tiempo que quisiera para seguir desarrollando la página. Saludos!!!

Conceptos de POO (Parte I)

La Programación Orientada a Objetos (POO u OOP por sus siglas en inglés Object Oriented Programming) ,es una técnica de desarrollo de Software que nos hace tener una visión más real de los componentes y su funcionamiento , así como también la interacción entre ellos. Este modelo de diseño es soportado hoy en día en la gran mayoría de lenguajes de alto nivel tal y como lo son Visual Basic, C Sharp, Java, Delphi, Visual Fox Pro, por citar algunos.

La POO está basada en el tratar de enfocar nuestros análisis a objetos tangibles, para de ahí poder identificar todas sus características ("propiedades") y las actividades que realizan estos objetos o que se pueden realizar con ellos ("métodos").

Un ejemplo que se me ocurre, (no se por qué) es el teclado; el cual es un sistema. Entendamos por sistema a un conjunto de elementos que trabajan de manera relacionada para llevar a cabo una tarea determinada (a esto se le llama "colaboración"), ahora bien, éste sistema es decir el teclado está formado por varios "objetos" llamados teclas. Una tecla tiene ciertas características o propiedades, como por ejemplo :

• Color
• Tamaño
• Forma
• Caracter grabado
• Posición Horizontal
• Posición Vertical

Además de que cuando presionamos una de ellas ocurre algo (a esto se le llama "evento") , y es precisamente la tarea que la tecla tiene asignada al ocurrir el evento usuario-presionótecla y para poder hacerlo tiene una manera predefinida (a esto se le llama "método"). De lo anterior podemos tener ya conceptualizada una descripción general de una tecla. Ahora les hago una pregunta :

¿ Las teclas de una sumadora, un control remoto o un video juego, serán diferentes en cuanto concepto se refiere a la tecla que acabamos de analizar?

NO, ¿ verdad ? , Pues ésta es una de las bondades de utilizar la POO, los objetos que nosotros conceptualizamos y construimos siguiendo las particularidades de cada lenguaje, nos permiten reutilizar el código de un objeto (en su definición es llamado "clase", es decir el molde de los objetos), en proyectos muy diferentes, gracias a este concepto el tiempo de desarrollo de una aplicación se puede disminuir notablemente, aunque el éxito de esto depende de que tan a detalle hagas el análisis conceptual de los objetos.

(Esta historia continuará...)

Marquesina, Muy buen Efecto!!!!

*****************************************
*Aplicación de ejemplo para crear
* una Marquesina deslizante con la
* fecha y hora actual.
* © Alejandro Gómez Torres
* Espero les guste!!!
****************************************

WITH _Screen
.AddObject( [MySign], [Sign], 0, 0 )
.AddObject( [MyTime], [OnTime] )
.WindowState= 2 && Maximizada
.Caption = [Marquesina]
.BackColor= RGB(0,0,0)
.BindControls= .F.
.ClipControls= .F.
.Closable = .F.
.ControlBox= .F.
.Visible = .T.
ENDWITH

** pon algún codigo por aquí
** puedes abrir un pequeño form
** pero cuida que sea más pequeño
** que el tamaño del form de VFP

READ EVENTS


_Screen.RemoveObject ([MyTime])
_Screen.RemoveObject ([MySign])


****************************************
* Definición de la clase Sign
* Contendrá La fecha y la hora actual
****************************************


DEFINE CLASS Sign AS Label
Visible = .T.
BackStyle= 0
FontName =[Times New Roman]
FontSize = 20
Height = 50
Left = _Screen.Width+ 1
Top = _Screen.Height- 50
Autosize = .T.
Autocenter= .T.
Caption = []
ForeColor= RGB ( 255,255,128)

PROCEDURE Init
LPARAMETERS nTop, nLeft
THIS.Top= _Screen.Height - 100
ENDPROC

ENDDEFINE


****************************************
* Definición de la clase OnTime
* Timer que creará el efecto de animación
****************************************

DEFINE CLASS OnTimeAsTimer
InterVal= 10

PROCEDURE Timer
LPARAMETERS nTop, nLeft

cFechaHora= []

DO Case
CASE DOW(DATE()) = 1
cFechaHora = "Domingo"
CASE DOW(DATE()) = 2
cFechaHora = "Lunes"
CASE DOW(DATE()) = 3
cFechaHora = "Martes"
CASE DOW(DATE()) = 4
cFechaHora = "Miércoles"
CASE DOW(DATE()) = 5
cFechaHora = "Jueves"
CASE DOW(DATE()) = 6
cFechaHora = "Viernes"
CASE DOW(DATE()) = 7
cFechaHora = "Sábado"

EndCase
cFechaHora= cFechaHora + " " +;
ALLTRIM(STR(DAY(DATE()))) + " de "

DO Case
CASE MONTH(DATE()) = 1
cFechaHora= cFechaHora + ;
" Enero "
CASE MONTH(DATE()) = 2
cFechaHora = cFechaHora + ;
" Febrero "
CASE MONTH(DATE()) = 3
cFechaHora = cFechaHora + ;
" Marzo "
CASE MONTH(DATE()) = 4
cFechaHora = cFechaHora + ;
" Abril "
CASE MONTH(DATE()) = 5
cFechaHora = cFechaHora + ;
" Mayo "
CASE MONTH(DATE()) = 6
cFechaHora = cFechaHora + ;
" Junio "
CASE MONTH(DATE()) = 7
cFechaHora = cFechaHora + ;
" Julio "
CASE MONTH(DATE()) = 8
cFechaHora = cFechaHora + ;
" Agosto "
CASE MONTH(DATE()) = 9
cFechaHora = cFechaHora + ;
" Septiembre "
CASE MONTH(DATE()) = 10
cFechaHora = cFechaHora + ;
" Octubre "
CASE MONTH(DATE()) = 11
cFechaHora = cFechaHora + ;
" Noviembre "
CASE MONTH(DATE()) = 12
cFechaHora = cFechaHora + ;
" Diciembre "

ENDCASE
cFechaHora= cFechaHora + "de " + ;
ALLTRIM(STR(YEAR(DATE()))) + " " + ;
TIME()

_screen.MySign.Caption = cFechaHora
IF _Screen.MySign.Left >= -500
_Screen.MySign.Left = ;
_Screen.MySign.Left - 1
ELSE
_Screen.MySign.Left = ;
_Screen.Width + 1
EndIf
ENDPROC

ENDDEFINE

Manipular Excel

********************************************
* ExcelTest
*
* Propósito : Pruebas de Manipulación de
* Excel desde VFP
*
* Alejandro Gómez
*
********************************************

&& Declaramos el objeto que vamos a usar
LOCAL oExcelBook

&& Creamos una instancia de Excel
oExcelBook = CREATEOBJECT("Excel.application")

&& Muestra Excel
oExcelBook.Visible = .T.

&& Agrega un libro de trabajo
oExcelBook.Workbooks.Add

* las celdas son en el formato ( x,y ) en
* donde "x" es igual a los renglones de
* Excel y "y" a las columnas de tal manera
* si *quieres hacer referencia a la celda C1
* las *coordenadas para esta serán (3,1)

&& Escribe la leyenda prueba en A1
oExcelBook.Cells(1,1).Value = "Prueba"

&& Cambiamos en tipo de letra de A1
oExcelBook.Cells(1,1).Font.name = "Tahoma"

&& y lo establecemos en negritas
oExcelBook.Cells(1,1).Font.Bold = .T.

&& Escribe el número 5 en A2
oExcelBook.Cells(1,2).Value = 5

&& Escribe el número 10 en B2
oExcelBook.Cells(2,2).Value = 10

&& Escribe una linea doble en C2

oExcelBook.Cells(3,2).Value = "'=========="

&& Escribe el numero 15 en D2
oExcelBook.Cells(4,2).Value = 15

&& establece en negrita la linea doble de C2
oExcelBook.Cells(3,2).Font.Bold = .T.


oExcelBook.Cells(6,1).Value = "Libro Creado
desde Visual Foxpro"

&& that´s me, jejeje
oExcelBook.Cells(7,1).Value = "Alejandro
Gómez Torres"

&& para cerrar el libro de excel
oExcelBook.WorkBooks.Close

&& para salir de excel
oExcelBook.Quit

&& por etica no se te olvide liberar la
instancia a excel
RELEASE oExcelBook

Resolución de Monitor

****************************************************************
* Propósito .. : Checar la resolución actual de tu monitor.
*
* Supongamos que tu aplicación requiere por necesidad la resolución
* de 1024x768 pixeles; Para asegurarte de que esto es así puedes
* colocar el siguiente código al inicio de la aplicación ya sea directamente
* en módulo principal, en una clase o procedure
* (dependerá de tu ingenio)
*
* Suerte!!
*
* (c) Alejandro Gómez
*


IF Sysmetric(1) <> 1024 .and. Sysmetric(2) <> 768
_Screen.Visible = .F.
MESSAGEBOX ( "se requiere 1024 x 768 pixeles de resolución",16+4096,"Crítico" )
Return
EndIf

Algunos creen que tener talento es cuestión de suerte, casi nadie que la suerte puede ser cuestión de talento

Cálculo de Porcentaje

*-------------------------------------------------------
* Función.....: _CalcPercent( tnCuantos, tnDeCuantos )
*
* Descripción.: Calcula el porcentaje que representa tnCuantos
* con respecto a tnDeCuantos
*
* Parámetros..: Es mas que obvio
*
* Devuelve....: Valor Numerico osease el porcentaje
*
* Uso.........: Excelente para actualizar un progres barr!
*
* (c) Alejandro Gomez
*-------------------------------------------------------
FUNCTION _CalcPercent( tnCuantos,tnDeCuantos )
Local lnPercent
lnPercent = (tnCuantos/tnDeCuantos) * 100
RETURN lnPercent