Colaboradores - jorge_alberto_portillo.2007

MYGNET: http://mygnet.net/index.php [Imprimir | Cerrar vista de impresión]

Inicio | Colaboradores | Jorge alberto portillo | Articulos

Artículos publicados

9 artículos publicados por Jorge Alberto Portillo

Estado del Modem

vb | Miércoles 03 de enero de 2007 a las 20:33:14

Option Explicit Public Declare Function InternetGetConnectedState _ Lib "wininet.dll" (ByRef lpdwFlags As Long, _ ByVal dwReserved As Long) As Long 'Local system uses a modem to connect to ' the Internet. Public Const INTERNET_CONNECTION_MODEM As Long = &H1 'Local system uses a LAN to connect to t ' he Internet. Public Const INTERNET_CONNECTION_LAN As Long = &H2 'Local system uses a proxy server to con ' nect to the Internet. Public Const INTERNET_CO

Numero decimal a letras

fox pro | Miércoles 03 de enero de 2007 a las 20:30:16

Este articulo lo encontre por la Web, es muy facil y sencillo, pero no tengo el Link, disfrutenlo, bytes!! PARAMETER XNUM DECLARE U(10),D(10),C(10),E(10) U(1) = "" U(2) = "UNO" U(3) = "DOS" U(4) = "TRES" U(5) = "CUATRO" U(6) = "CINCO" U(7) = "SEIS" U(8) = "SIETE" U(9) = "OCHO" U(10) = "NUEVE" ***---- D(1) = "" D(2) = "DIEZ" D(3) = "VEINTE" D(4) = "TREINTA" D(5) = "CUARENTA" D(6) = "CINCUENTA" D(7) = "SESENTA" D(8) = "SETENTA" D(9) = "OCHENTA" D(10) = "NOVENTA" ***----- C(1) = "" C(2) = "CIENTO" C(3) = "DO

Detectar varias teclas apretadas a la vez.

vb | Martes 14 de noviembre de 2006 a las 14:44:43

Detectar varias teclas apretadas a la vez. Usaremos el API de Windows, concretamente la función GetKeyState. Cuando queramos saber si una tecla está pulsada o no, tenemos que llamar a la función pasándole como parámetro el código ASCII de la tecla que queremos analizar. Si la tecla está pulsada, la función devuelve –127 o –128. (Se van alternando los valores a cada pulsación completa.) Cuando no está apretada, la función devuelve 0 o 1. Resumiendo, la tecla está pulsada si la función devuelve un núme

Arrastrar ficheros a un cuadro de texto

vb | Martes 14 de noviembre de 2006 a las 14:42:01

Arrastrar ficheros a un cuadro de texto. Crea un TextBox llamado Text1, ponle _OLEDropMode = 1 (Manual)_ y escribe: PRIVATE SUB TEXT1_OLEDRAGDROP( DATA AS DATAOBJECT, EFFECT AS LONG, BUTTON AS INTEGER, SHIFT AS INTEGER, X AS SINGLE, Y AS SINGLE) On Error Resume Next Text1.Text = Data.Files(1) End Sub Si se han arrastrado varios archivos, usaremos el array _Data.Files(número)_ para saber el nombre de cada uno de ellos.

Numero decimal a Binario

fox pro | Domingo 22 de enero de 2006 a las 11:32:33

PARAMETERS XNUM XBIN = "" DO WHILE XNUM > 0 XRES = MOD(XNUM,2) XBIN = STR(XRES,1,0) + XBIN XNUM = INT(XNUM/2) ENDDO RETURN XBIN

Numero decimal a Romano

fox pro | Martes 17 de enero de 2006 a las 15:55:34

PARAMETERS XNUM * CONVERTIR NUMEROS DECIMALS A ROMANOS DIMENSION NUMEROS(13),ROMANOS(13) NUMEROS(1) = 1 NUMEROS(2) = 4 NUMEROS(3) = 5 NUMEROS(4) = 9 NUMEROS(5) = 10 NUMEROS(6) = 40 NUMEROS(7) = 50 NUMEROS(8) = 90 NUMEROS(9) = 100 NUMEROS(10) = 400 NUMEROS(11) = 500 NUMEROS(12) = 900 NUMEROS(13) = 1000 ROMANOS(1) = "I" ROMANOS(2) = "IV" ROMANOS(3) = "V" ROMANOS(4) = "IX" ROMANOS(5) = "X" ROMANOS(6) = "XL" ROMANOS(7) = "L" ROMANOS(8) = "XC" ROMANOS(9) = "C" ROMANOS(10) = "CD" ROMANOS(11) = "D" ROMANOS(12) = "

Buscar coincidencias en una cadena de caracteres

fox pro | Martes 17 de enero de 2006 a las 15:53:25

SELECT ALIAS() GO TOP SCAN FOR LIKE('*'+UPPER(ALLTRIM(THISFORM.Text1.Value))+'*',UPPER(&cdato)) IF MESSAGEBOX([Descripción :]+&cdato+CHR(13)+CHR(13)+; [¿ Desea Continuar Buscando... ?],36,[Confirme])=6 thisform.Refresh() ELSE thisform.Refresh() EXIT ENDIF ENDSCAN IF EOF() IF MESSAGEBOX([No se encontrarón mas coincidencias, vuelva a intentarlo...]+CHR(13)+; [ ¿ Desea ir al principio

Conversion de Numeros a su literal

vb | Martes 17 de enero de 2006 a las 15:50:19

BEGIN MultiUse = -1 \\\\\\\'True Persistable = 0 \\\\\\\'NotPersistable DataBindingBehavior = 0 \\\\\\\'vbNone DataSourceBehavior = 0 \\\\\\\'vbNone MTSTransactionMode = 0 \\\\\\\'NotAnMTSObject END Attribute VB_Name = \\\\\\\"Literal\\\\\\\" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Option Explicit Private m_sUltimoError As String Private Function fnUnidades(ByVal nNumero As Long, Optional ByVal bMl As Boolean =

Calcular Edad

vb | Martes 17 de enero de 2006 a las 15:47:39

Calculo de edad Public Function CalcularEdad(Nacimiento As Date) As String Dim n_dias As Double Dim anio As Integer Dim meses As Integer n_dias = Date - Nacimiento anio = Int(n_dias / 365.25) n_dias = n_dias - (365.25 * anio) meses = Int(n_dias / 30.4375) CalcularEdad = anio & "a " & meses & "m" End Function

JorgePortillo

Recursos publicados

9 artículos

21 códigos fuentes

6 enlaces

84 respuestas en foros

20 notas de interes

68 manuales

Estadísticas

Registrado: 14/01/2006

Último acceso: 05/03/2010

Accesos: 183

Ingreso

Últimos registrados

  eltenaza
  fredyedgar
  rbdul
  zupra
  veco
  deliacristinacruz
  coimaya
  kruspe
  jpenagos
  betty10

Estadísticas

Seleccionar Navegadores

¿Más sobre ti?

¿Cuantos años tienes?
¿Eres...?
Tu correo?

¿En que te desempeñas actualmente?

Saber más de ti nos ayudara a construir una comunidad más de acuerdo a tus necesidades.

El futuro tiene muchos nombres. Para los débiles es lo inalcanzable. Para los temerosos, lo desconocido. Para los valientes es la oportunidad.
( Victor Hugo - 1802-1885. Novelista francés.)

MyGnet © Agosto 2005 - Marzo 2010, My Group Net - La comunidad de programación

usuario
contraseña