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