Variables Y Matrices

Librerías finalizadas programadas por usuarios entusiastas

Variables Y Matrices

Notapor PowerDeath » Sab Ago 09, 2014 12:35 pm

Esta librería permite la creación y administración de variables y matrices en cualquier sección de nuestros programas.
Viene con descripciones claras sobre su uso, espero que les sea útil.

Código: Seleccionar todo
Importar "Utiles.prp"

Privado:
Var h_Value:Entero
Proc GetEnvironmentVariable(lpName:Cadena,Referencia lpBuffer:Cadena,nSize:Entero):Entero, "Kernel32.dll" "GetEnvironmentVariableA"
Público:

' Obtiene el valor de una variable pública de windows por su nombre.
Proc ObtVar(sName:Cadena):Cadena
    Resultado = Espacio(255) ' Procedimiento alternativo "RepCarac(0,255)"
    GetEnvironmentVariable(sName, Resultado, CadLong(Resultado))
    Resultado = TruncarCadena(Resultado)
FinProc

' Establece los datos a una variable publica de windows, tambien se puede utilizar para crearla.
Proc EstVar(lpName,lpValue:Cadena):Entero, "Kernel32.dll" "SetEnvironmentVariableA"

' Estas clases permiten crear variables en cualquier sección del programa, consta de 3 procedimientos basicos.
' 1_ CrearVariable [Sin parametros] ReDimenciona una Matriz y devuelve el puntero del nuevo elemento creado.
' 2_ EstablecerDatos [Puntero,Datos] Establece los datos de la nueva variable creada, utiliza _
' El puntero devuelto por "CrearVariable" Procedimiento para verificar la posición en la matriz y asi _
' Establecer los datos.
' 3_ ObtenerDatos [Puntero] Obtiene los datos de la variable creada, utiliza como parametro el puntero devuelto _
' Por "CrearVariable" Procedimiento.

Clase VarBooleano,Matriz1[]:Booleano,i:Entero ' BOOLEANO

   Proc CrearVariable:Entero
      ReDim Preservar Matriz1,LongMat(Matriz1) + 1
      Devolver Matriz1[Límite(Matriz1)]@
   FinProc

   Proc EstablecerDatos(Puntero:Entero,Datos:Booleano):Booleano
      Contar i = 0 a Límite(Matriz1)
         Si (Matriz1[i]@ = Puntero) Entonces ; Matriz1[i] = Datos ; Devolver Verd ; FinSi
      Seguir
      Devolver Falso
   FinProc

   Proc ObtenerDatos(Puntero:Entero):Booleano
      Contar i = 0 a Límite(Matriz1)
         Si (Matriz1[i]@ = Puntero) Entonces Devolver Matriz1[i]
      Seguir
      Devolver 0
   FinProc

FinClase

Clase VarByte,Matriz1[]:Byte,i:Entero ' BYTE

   Proc CrearVariable:Entero
      ReDim Preservar Matriz1,LongMat(Matriz1) + 1
      Devolver Matriz1[Límite(Matriz1)]@
   FinProc

   Proc EstablecerDatos(Puntero:Entero,Datos:Byte):Booleano
      Contar i = 0 a Límite(Matriz1)
         Si (Matriz1[i]@ = Puntero) Entonces ; Matriz1[i] = Datos ; Devolver Verd ; FinSi
      Seguir
      Devolver Falso
   FinProc

   Proc ObtenerDatos(Puntero:Entero):Byte
      Contar i = 0 a Límite(Matriz1)
         Si (Matriz1[i]@ = Puntero) Entonces Devolver Matriz1[i]
      Seguir
      Devolver 0
   FinProc

FinClase

Clase VarByteSig,Matriz1[]:ByteSig,i:Entero ' BYTESIG

   Proc CrearVariable:Entero
      ReDim Preservar Matriz1,LongMat(Matriz1) + 1
      Devolver Matriz1[Límite(Matriz1)]@
   FinProc

   Proc EstablecerDatos(Puntero:Entero,Datos:ByteSig):Booleano
      Contar i = 0 a Límite(Matriz1)
         Si (Matriz1[i]@ = Puntero) Entonces ; Matriz1[i] = Datos ; Devolver Verd ; FinSi
      Seguir
      Devolver Falso
   FinProc

   Proc ObtenerDatos(Puntero:Entero):ByteSig
      Contar i = 0 a Límite(Matriz1)
         Si (Matriz1[i]@ = Puntero) Entonces Devolver Matriz1[i]
      Seguir
      Devolver 0
   FinProc

FinClase

Clase VarWord,Matriz1[]:Word,i:Entero ' WORD

   Proc CrearVariable:Entero
      ReDim Preservar Matriz1,LongMat(Matriz1) + 1
      Devolver Matriz1[Límite(Matriz1)]@
   FinProc

   Proc EstablecerDatos(Puntero:Entero,Datos:Word):Booleano
      Contar i = 0 a Límite(Matriz1)
         Si (Matriz1[i]@ = Puntero) Entonces ; Matriz1[i] = Datos ; Devolver Verd ; FinSi
      Seguir
      Devolver Falso
   FinProc

   Proc ObtenerDatos(Puntero:Entero):Word
      Contar i = 0 a Límite(Matriz1)
         Si (Matriz1[i]@ = Puntero) Entonces Devolver Matriz1[i]
      Seguir
      Devolver 0
   FinProc

FinClase

Clase VarWordSig,Matriz1[]:WordSig,i:Entero ' WORDSIG

   Proc CrearVariable:Entero
      ReDim Preservar Matriz1,LongMat(Matriz1) + 1
      Devolver Matriz1[Límite(Matriz1)]@
   FinProc

   Proc EstablecerDatos(Puntero:Entero,Datos:WordSig):Booleano
      Contar i = 0 a Límite(Matriz1)
         Si (Matriz1[i]@ = Puntero) Entonces ; Matriz1[i] = Datos ; Devolver Verd ; FinSi
      Seguir
      Devolver Falso
   FinProc

   Proc ObtenerDatos(Puntero:Entero):WordSig
      Contar i = 0 a Límite(Matriz1)
         Si (Matriz1[i]@ = Puntero) Entonces Devolver Matriz1[i]
      Seguir
      Devolver 0
   FinProc

FinClase

Clase VarEntero,Matriz1[]:Entero,i:Entero ' ENTERO

   Proc CrearVariable:Entero
      ReDim Preservar Matriz1,LongMat(Matriz1) + 1
      Devolver Matriz1[Límite(Matriz1)]@
   FinProc

   Proc EstablecerDatos(Puntero:Entero,Datos:Entero):Booleano
      Contar i = 0 a Límite(Matriz1)
         Si (Matriz1[i]@ = Puntero) Entonces ; Matriz1[i] = Datos ; Devolver Verd ; FinSi
      Seguir
      Devolver Falso
   FinProc

   Proc ObtenerDatos(Puntero:Entero):Entero
      Contar i = 0 a Límite(Matriz1)
         Si (Matriz1[i]@ = Puntero) Entonces Devolver Matriz1[i]
      Seguir
      Devolver 0
   FinProc

FinClase

Clase VarEnteroSig,Matriz1[]:EnteroSig,i:Entero ' ENTEROSIG

   Proc CrearVariable:Entero
      ReDim Preservar Matriz1,LongMat(Matriz1) + 1
      Devolver Matriz1[Límite(Matriz1)]@
   FinProc

   Proc EstablecerDatos(Puntero:Entero,Datos:EnteroSig):Booleano
      Contar i = 0 a Límite(Matriz1)
         Si (Matriz1[i]@ = Puntero) Entonces ; Matriz1[i] = Datos ; Devolver Verd ; FinSi
      Seguir
      Devolver Falso
   FinProc

   Proc ObtenerDatos(Puntero:Entero):EnteroSig
      Contar i = 0 a Límite(Matriz1)
         Si (Matriz1[i]@ = Puntero) Entonces Devolver Matriz1[i]
      Seguir
      Devolver 0
   FinProc

FinClase

Clase VarReal,Matriz1[]:Real,i:Entero ' REAL

   Proc CrearVariable:Entero
      ReDim Preservar Matriz1,LongMat(Matriz1) + 1
      Devolver Matriz1[Límite(Matriz1)]@
   FinProc

   Proc EstablecerDatos(Puntero:Entero,Datos:Real):Booleano
      Contar i = 0 a Límite(Matriz1)
         Si (Matriz1[i]@ = Puntero) Entonces ; Matriz1[i] = Datos ; Devolver Verd ; FinSi
      Seguir
      Devolver Falso
   FinProc

   Proc ObtenerDatos(Puntero:Entero):Real
      Contar i = 0 a Límite(Matriz1)
         Si (Matriz1[i]@ = Puntero) Entonces Devolver Matriz1[i]
      Seguir
      Devolver 0
   FinProc

FinClase

Clase VarDecimal,Matriz1[]:Decimal,i:Entero ' DECIMAL

   Proc CrearVariable:Entero
      ReDim Preservar Matriz1,LongMat(Matriz1) + 1
      Devolver Matriz1[Límite(Matriz1)]@
   FinProc

   Proc EstablecerDatos(Puntero:Entero,Datos:Decimal):Booleano
      Contar i = 0 a Límite(Matriz1)
         Si (Matriz1[i]@ = Puntero) Entonces ; Matriz1[i] = Datos ; Devolver Verd ; FinSi
      Seguir
      Devolver Falso
   FinProc

   Proc ObtenerDatos(Puntero:Entero):Decimal
      Contar i = 0 a Límite(Matriz1)
         Si (Matriz1[i]@ = Puntero) Entonces Devolver Matriz1[i]
      Seguir
      Devolver 0
   FinProc

FinClase

Clase VarCadena,Matriz1[]:Cadena,i:Entero ' CADENA

   Proc CrearVariable:Entero
      ReDim Preservar Matriz1,LongMat(Matriz1) + 1
      Devolver Matriz1[Límite(Matriz1)]@
   FinProc

   Proc EstablecerDatos(Puntero:Entero,Datos:Cadena):Booleano
      Contar i = 0 a Límite(Matriz1)
         Si (Matriz1[i]@ = Puntero) Entonces ; Matriz1[i] = Datos ; Devolver Verd ; FinSi
      Seguir
      Devolver Falso
   FinProc

   Proc ObtenerDatos(Puntero:Entero):Cadena
      Contar i = 0 a Límite(Matriz1)
         Si (Matriz1[i]@ = Puntero) Entonces Devolver Matriz1[i]
      Seguir
      Devolver ""
   FinProc

FinClase

' Estas clases permiten crear Matrices administrables que se pueden crear en cualquier sección de sus _
' Programas, constan de 4 Procedimientos Públicos, 2 Privados y 2 Propiedades.
' CrearMatriz [Longitud] lo que hace en realidad es redimencionar la matriz que viene por defecto en la clase _
' Para poder utilizarla.
' EstablecerDatos [Posición,Datos] Establece datos en la matriz en la posición de la matriz que establescamos _
' en el primer parametro. // Si la posición establecida es superior a la disponible en la matriz, el _
' Procedimiento se cancela.
' ObtenerDatos [Posición] Obtiene los datos de la matriz.
' ReDimencionar [Longitud,PreservarMatriz] Re-dimenciona la matriz.
' ObtenerMatriz Devuelve la matriz completa, para utilizar este procedimiento es necesario declarar una matriz _
' dinamica del mismo tipo [Ejemplo: Cadena].
' LímiteMatriz [Propiedad] Obtiene el límite de la matriz dentro de la clase.
' LongitudMatriz [Propiedad] Obtiene la longitud total de la matriz.

Clase VarMatrizCadena,Matriz1[]:Cadena,i:Entero ' CADENA

   Privado:

   Proc LímiteMat:Entero
      Devolver Límite(Matriz1)
   FinProc

   Proc LongitudMat:Entero
      Devolver LongMat(Matriz1)
   FinProc

   Público:

   Proc CrearMatriz(Longitud:Entero)
      ReDim Matriz1,Longitud
   FinProc

   Proc EstablecerDatos(Posición:Entero,Datos:Cadena):Booleano
      Si (Posición > Límite(Matriz1)) Devolver Falso
      Matriz1[Posición] = Datos ; Devolver Verd
   FinProc

   Proc ObtenerDatos(Posición:Entero):Cadena
      Si (Posición > Límite(Matriz1)) Salir
      Devolver Matriz1[Posición]
   FinProc

   Proc ReDimencionar(Longitud:Entero,PreservarMatriz:Booleano):Booleano
      Si PreservarMatriz = Verd
         ReDim Preservar Matriz1,Longitud
      SiNo
         ReDim Matriz1,Longitud
      FinSi
   FinProc

   Proc ObtenerMatriz:Cadena[]
      Resultado = Matriz1
   FinProc

   Prop LímiteMatriz:Entero
   Lec:LímiteMat
   FinProp

   Prop LongitudMatriz:Entero
   Lec:LongitudMat
   FinProp

FinClase

Clase VarMatrizBooleano,Matriz1[]:Booleano,i:Entero ' BOOLEANO

   Privado:

   Proc LímiteMat:Entero
      Devolver Límite(Matriz1)
   FinProc

   Proc LongitudMat:Entero
      Devolver LongMat(Matriz1)
   FinProc

   Público:

   Proc CrearMatriz(Longitud:Entero)
      ReDim Matriz1,Longitud
   FinProc

   Proc EstablecerDatos(Posición:Entero,Datos:Booleano):Booleano
      Si (Posición > Límite(Matriz1)) Devolver Falso
      Matriz1[Posición] = Datos ; Devolver Verd
   FinProc

   Proc ObtenerDatos(Posición:Entero):Booleano
      Si (Posición > Límite(Matriz1)) Salir
      Devolver Matriz1[Posición]
   FinProc

   Proc ReDimencionar(Longitud:Entero,PreservarMatriz:Booleano):Booleano
      Si PreservarMatriz = Verd
         ReDim Preservar Matriz1,Longitud
      SiNo
         ReDim Matriz1,Longitud
      FinSi
   FinProc

   Proc ObtenerMatriz:Booleano[]
      Resultado = Matriz1
   FinProc

   Prop LímiteMatriz:Entero
   Lec:LímiteMat
   FinProp

   Prop LongitudMatriz:Entero
   Lec:LongitudMat
   FinProp

FinClase

Clase VarMatrizByte,Matriz1[]:Byte,i:Entero ' BYTE

   Privado:

   Proc LímiteMat:Entero
      Devolver Límite(Matriz1)
   FinProc

   Proc LongitudMat:Entero
      Devolver LongMat(Matriz1)
   FinProc

   Público:

   Proc CrearMatriz(Longitud:Entero)
      ReDim Matriz1,Longitud
   FinProc

   Proc EstablecerDatos(Posición:Entero,Datos:Byte):Booleano
      Si (Posición > Límite(Matriz1)) Devolver Falso
      Matriz1[Posición] = Datos ; Devolver Verd
   FinProc

   Proc ObtenerDatos(Posición:Entero):Byte
      Si (Posición > Límite(Matriz1)) Salir
      Devolver Matriz1[Posición]
   FinProc

   Proc ReDimencionar(Longitud:Entero,PreservarMatriz:Booleano):Booleano
      Si PreservarMatriz = Verd
         ReDim Preservar Matriz1,Longitud
      SiNo
         ReDim Matriz1,Longitud
      FinSi
   FinProc

   Proc ObtenerMatriz:Byte[]
      Resultado = Matriz1
   FinProc

   Prop LímiteMatriz:Entero
   Lec:LímiteMat
   FinProp

   Prop LongitudMatriz:Entero
   Lec:LongitudMat
   FinProp

FinClase

Clase VarMatrizByteSig,Matriz1[]:ByteSig,i:Entero ' BYTESIG

   Privado:

   Proc LímiteMat:Entero
      Devolver Límite(Matriz1)
   FinProc

   Proc LongitudMat:Entero
      Devolver LongMat(Matriz1)
   FinProc

   Público:

   Proc CrearMatriz(Longitud:Entero)
      ReDim Matriz1,Longitud
   FinProc

   Proc EstablecerDatos(Posición:Entero,Datos:ByteSig):Booleano
      Si (Posición > Límite(Matriz1)) Devolver Falso
      Matriz1[Posición] = Datos ; Devolver Verd
   FinProc

   Proc ObtenerDatos(Posición:Entero):ByteSig
      Si (Posición > Límite(Matriz1)) Salir
      Devolver Matriz1[Posición]
   FinProc

   Proc ReDimencionar(Longitud:Entero,PreservarMatriz:Booleano):Booleano
      Si PreservarMatriz = Verd
         ReDim Preservar Matriz1,Longitud
      SiNo
         ReDim Matriz1,Longitud
      FinSi
   FinProc

   Proc ObtenerMatriz:ByteSig[]
      Resultado = Matriz1
   FinProc

   Prop LímiteMatriz:Entero
   Lec:LímiteMat
   FinProp

   Prop LongitudMatriz:Entero
   Lec:LongitudMat
   FinProp

FinClase

Clase VarMatrizWord,Matriz1[]:Word,i:Entero ' WORD

   Privado:

   Proc LímiteMat:Entero
      Devolver Límite(Matriz1)
   FinProc

   Proc LongitudMat:Entero
      Devolver LongMat(Matriz1)
   FinProc

   Público:

   Proc CrearMatriz(Longitud:Entero)
      ReDim Matriz1,Longitud
   FinProc

   Proc EstablecerDatos(Posición:Entero,Datos:Word):Booleano
      Si (Posición > Límite(Matriz1)) Devolver Falso
      Matriz1[Posición] = Datos ; Devolver Verd
   FinProc

   Proc ObtenerDatos(Posición:Entero):Word
      Si (Posición > Límite(Matriz1)) Salir
      Devolver Matriz1[Posición]
   FinProc

   Proc ReDimencionar(Longitud:Entero,PreservarMatriz:Booleano):Booleano
      Si PreservarMatriz = Verd
         ReDim Preservar Matriz1,Longitud
      SiNo
         ReDim Matriz1,Longitud
      FinSi
   FinProc

   Proc ObtenerMatriz:Word[]
      Resultado = Matriz1
   FinProc

   Prop LímiteMatriz:Entero
   Lec:LímiteMat
   FinProp

   Prop LongitudMatriz:Entero
   Lec:LongitudMat
   FinProp

FinClase

Clase VarMatrizWordSig,Matriz1[]:WordSig,i:Entero ' WORDSIG

   Privado:

   Proc LímiteMat:Entero
      Devolver Límite(Matriz1)
   FinProc

   Proc LongitudMat:Entero
      Devolver LongMat(Matriz1)
   FinProc

   Público:

   Proc CrearMatriz(Longitud:Entero)
      ReDim Matriz1,Longitud
   FinProc

   Proc EstablecerDatos(Posición:Entero,Datos:WordSig):Booleano
      Si (Posición > Límite(Matriz1)) Devolver Falso
      Matriz1[Posición] = Datos ; Devolver Verd
   FinProc

   Proc ObtenerDatos(Posición:Entero):WordSig
      Si (Posición > Límite(Matriz1)) Salir
      Devolver Matriz1[Posición]
   FinProc

   Proc ReDimencionar(Longitud:Entero,PreservarMatriz:Booleano):Booleano
      Si PreservarMatriz = Verd
         ReDim Preservar Matriz1,Longitud
      SiNo
         ReDim Matriz1,Longitud
      FinSi
   FinProc

   Proc ObtenerMatriz:WordSig[]
      Resultado = Matriz1
   FinProc

   Prop LímiteMatriz:Entero
   Lec:LímiteMat
   FinProp

   Prop LongitudMatriz:Entero
   Lec:LongitudMat
   FinProp

FinClase

Clase VarMatrizEntero,Matriz1[],i:Entero ' ENTERO

   Privado:

   Proc LímiteMat:Entero
      Devolver Límite(Matriz1)
   FinProc

   Proc LongitudMat:Entero
      Devolver LongMat(Matriz1)
   FinProc

   Público:

   Proc CrearMatriz(Longitud:Entero)
      ReDim Matriz1,Longitud
   FinProc

   Proc EstablecerDatos(Posición:Entero,Datos:Entero):Booleano
      Si (Posición > Límite(Matriz1)) Devolver Falso
      Matriz1[Posición] = Datos ; Devolver Verd
   FinProc

   Proc ObtenerDatos(Posición:Entero):Entero
      Si (Posición > Límite(Matriz1)) Salir
      Devolver Matriz1[Posición]
   FinProc

   Proc ReDimencionar(Longitud:Entero,PreservarMatriz:Booleano):Booleano
      Si PreservarMatriz = Verd
         ReDim Preservar Matriz1,Longitud
      SiNo
         ReDim Matriz1,Longitud
      FinSi
   FinProc

   Proc ObtenerMatriz:Entero[]
      Resultado = Matriz1
   FinProc

   Prop LímiteMatriz:Entero
   Lec:LímiteMat
   FinProp

   Prop LongitudMatriz:Entero
   Lec:LongitudMat
   FinProp

FinClase

Clase VarMatrizEnteroSig,Matriz1[]:EnteroSig,i:Entero ' ENTEROSIG

   Privado:

   Proc LímiteMat:Entero
      Devolver Límite(Matriz1)
   FinProc

   Proc LongitudMat:Entero
      Devolver LongMat(Matriz1)
   FinProc

   Público:

   Proc CrearMatriz(Longitud:Entero)
      ReDim Matriz1,Longitud
   FinProc

   Proc EstablecerDatos(Posición:Entero,Datos:EnteroSig):Booleano
      Si (Posición > Límite(Matriz1)) Devolver Falso
      Matriz1[Posición] = Datos ; Devolver Verd
   FinProc

   Proc ObtenerDatos(Posición:Entero):EnteroSig
      Si (Posición > Límite(Matriz1)) Salir
      Devolver Matriz1[Posición]
   FinProc

   Proc ReDimencionar(Longitud:Entero,PreservarMatriz:Booleano):Booleano
      Si PreservarMatriz = Verd
         ReDim Preservar Matriz1,Longitud
      SiNo
         ReDim Matriz1,Longitud
      FinSi
   FinProc

   Proc ObtenerMatriz:EnteroSig[]
      Resultado = Matriz1
   FinProc

   Prop LímiteMatriz:Entero
   Lec:LímiteMat
   FinProp

   Prop LongitudMatriz:Entero
   Lec:LongitudMat
   FinProp

FinClase

Clase VarMatrizReal,Matriz1[]:Real,i:Entero ' REAL

   Privado:

   Proc LímiteMat:Entero
      Devolver Límite(Matriz1)
   FinProc

   Proc LongitudMat:Entero
      Devolver LongMat(Matriz1)
   FinProc

   Público:

   Proc CrearMatriz(Longitud:Entero)
      ReDim Matriz1,Longitud
   FinProc

   Proc EstablecerDatos(Posición:Entero,Datos:Real):Booleano
      Si (Posición > Límite(Matriz1)) Devolver Falso
      Matriz1[Posición] = Datos ; Devolver Verd
   FinProc

   Proc ObtenerDatos(Posición:Entero):Real
      Si (Posición > Límite(Matriz1)) Salir
      Devolver Matriz1[Posición]
   FinProc

   Proc ReDimencionar(Longitud:Entero,PreservarMatriz:Booleano):Booleano
      Si PreservarMatriz = Verd
         ReDim Preservar Matriz1,Longitud
      SiNo
         ReDim Matriz1,Longitud
      FinSi
   FinProc

   Proc ObtenerMatriz:Real[]
      Resultado = Matriz1
   FinProc

   Prop LímiteMatriz:Entero
   Lec:LímiteMat
   FinProp

   Prop LongitudMatriz:Entero
   Lec:LongitudMat
   FinProp

FinClase

Clase VarMatrizDecimal,Matriz1[]:Decimal,i:Entero ' DECIMAL

   Privado:

   Proc LímiteMat:Entero
      Devolver Límite(Matriz1)
   FinProc

   Proc LongitudMat:Entero
      Devolver LongMat(Matriz1)
   FinProc

   Público:

   Proc CrearMatriz(Longitud:Entero)
      ReDim Matriz1,Longitud
   FinProc

   Proc EstablecerDatos(Posición:Entero,Datos:Decimal):Booleano
      Si (Posición > Límite(Matriz1)) Devolver Falso
      Matriz1[Posición] = Datos ; Devolver Verd
   FinProc

   Proc ObtenerDatos(Posición:Entero):Decimal
      Si (Posición > Límite(Matriz1)) Salir
      Devolver Matriz1[Posición]
   FinProc

   Proc ReDimencionar(Longitud:Entero,PreservarMatriz:Booleano):Booleano
      Si PreservarMatriz = Verd
         ReDim Preservar Matriz1,Longitud
      SiNo
         ReDim Matriz1,Longitud
      FinSi
   FinProc

   Proc ObtenerMatriz:Decimal[]
      Resultado = Matriz1
   FinProc

   Prop LímiteMatriz:Entero
   Lec:LímiteMat
   FinProp

   Prop LongitudMatriz:Entero
   Lec:LongitudMat
   FinProp

FinClase
Imagen
PowerDeath
 
Mensajes: 160
Registrado: Sab Ago 11, 2012 5:29 am

Sponsor


Volver a Librerias

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado

cron