Te monto tu blog

Buenas,

Si quieres montar tu propio blog te ofrezco montarlo con la plataforma WordPress. Si ya lo tienes en plataformas como wordpress.org y quieres hacerlo mas profesional y mas libertad esta es tu oportunidad de poder hacer mas cosas.

COSTE: 20 €

¿Que incluye?

Instalación de WordPress en bruto con uno de lo temas gratuitos que existen en el mercado y que tu elijas.
Soporte por email a las dudas en la utilización de wordpress durante los primeros 15 días desde la instalación.

¿Que no incluye?

Hosting: No incluye el coste de hosting. Pero si te puedo ayudar al que mejor se ajuste a tus necesidades.
Dominio: No incluye el coste de compra de un dominio para su web, pero si incluye la gestión y configuración del mismo para su utilización con el blog que te monte.
Plugins: No incluye instalaciones de plugins. Los plugins te aportan mas funcionalidad si fuera necesaria.
Tema: No se hacen modificaciones en los temas. Los temas aportan la apariencia de colores y disposición del contenido a su web.

Servicios Adicionales

Cualquier servicios adicional se deberá contratar una bolsa de horas o bajo presupuesto por acción.

Tawk.to – Chat online para tu sitio web

Da igual si tienes una tienda online como cualquier otro sitio web, no hay nada mejor que la posibilidad de hablar y atender a los visitantes de tu sitio web.
Hay muchas opciones disponibles en el mercado que puedes evaluar y que yo mismo he hecho para diferentes proyectos. Y con el que estoy mas contento tanto a nivel de funcionalidad como decir que es completamente gratis es TAWK.TO.

A continuación destaco alguna de las características que me parecen interesantes. Invitando de todas maneras a cualquier visitante a probarlo.

Múltiples usuarios y departamentos
Puedes crear diferentes usuarios y departamentos para atender a los visitantes de su web.

Administrador de sitios web
Desde un mismo panel puedes controlar los chats online de los sitios web que manejes. De tal manera la gestión de facilita mucho.

Personaliza widget chat
Puedes personalizar colores y otras opciones de widget para que se ajuste a imagen de su web.

Mensajes Offline
Si en ese momento no estas conectado al chat tus visitantes te pueden dejar mensajes. Los cuales puedes leer y respondes desde el panel de control.

Supervisor Online
Puedes saber en tiempo real los visitantes que tiene tu web. Para poder lanzar en el momento que desees chats a tus visitantes si lo deseas.

Mensajes automáticos
Puedes configurar que se lancen mensajes automáticos a los visitantes de su web cuando pasen determinado tiempo visitando la web.

 

VBA Access: Validar NIF/CIF/NIE

A continuación os pongo las funciones necesarias para la validación de NIE,NIF y CIF en Access.

Función isNIFCIFNIE

Esta función es a la que se llama desde un botón o evento para validar el contenido. Identifica si es un NIF;NIE o CIF para validarlo de forma correcta.

Public Function isNIFCIFNIE(DNI As String) As Boolean
Dim cadena As String
 
cadena = left(Trim(DNI), 1)
 
Select Case cadena
 
 Case "B", "A", "J", "H", "Q", "S", "R", "D"
 isNIFCIFNIE = testCIF(DNI)
 
 Case "X", "Y", "Z"
 isNIFCIFNIE = testNIE(DNI)
 
 Case Else
 If IsNumeric(CInt(cadena)) = True Then
  isNIFCIFNIE = testNIF(DNI)
 Else
  MsgBox "NIF/CIF Incorrecto"
 End If
 
End Select
End Function

Función testCIF
Función que valida los NIE.

Public Function testCIF(ByVal valor As String)
 
Dim strLetra As String, strNumero As String, strDigit As String
    Dim strDigitAux As String
    Dim auxNum As Integer
    Dim i As Integer
    Dim suma As Integer
    Dim letras As String
 
    letras = "ABCDEFGHKLMPQSXYZ"
 
    valor = UCase(valor)
 
    If Len(valor) < 9 Or Not IsNumeric(Mid(valor, 2, 7)) Then
        testCIF = False
        Exit Function
    End If
 
    strLetra = Mid(valor, 1, 1)     ' letra del CIF
    strNumero = Mid(valor, 2, 7)    ' Codigo de Control
    strDigit = Mid(valor, 9)        ' CIF menos primera y ultima posiciones

    If InStr(letras, strLetra) = 0 Then ' comprobamos la letra del CIF (1ª posicion)
        testCIF = False
    End If
 
    For i = 1 To 7
        If i Mod 2 = 0 Then
            suma = suma + CInt(Mid(strNumero, i, 1))
        Else
            auxNum = CInt(Mid(strNumero, i, 1)) * 2
            suma = suma + (auxNum \ 10) + (auxNum Mod 10)
        End If
    Next
 
    suma = (10 - (suma Mod 10)) Mod 10
 
    Select Case strLetra
        Case "K", "P", "Q", "S"
            suma = suma + 64
            strDigitAux = Chr(suma)
        Case "X"
            strNumero = Mid(valor, 1, 8)
            strNumero = Replace(strNumero, "X", 0)
            strDigitAux = Mid(CalcularLetra(strNumero), 9, 1)
'        Case "Y"
'            strNumero = Mid(valor, 1, 8)
'            strNumero = Replace(strNumero, "Y", 1)
'            strDigitAux = Mid(CalculaNIF(strNumero), 9, 1)
'        Case "Z"
'            strNumero = Mid(valor, 1, 8)
'            strNumero = Replace(strNumero, "Z", 2)
'            strDigitAux = Mid(CalculaNIF(strNumero), 9, 1)
        Case Else
            strDigitAux = CStr(suma)
    End Select
 
    If strDigit = strDigitAux Then
        testCIF = True
    Else
        testCIF = False
    End If
 
End Function

Función CalcularLetra
Función a la que llama testNIF para calcular la letra del final.

Public Function CalcularLetra(ByVal stra As String) As String
 
Const cCADENA As String = "TRWAGMYFPDXBNJZSQVHLCKET"
    Const cNUMEROS As String = "0123456789"
    Dim a, b, c, i As Integer
    Dim NIF As Long
    Dim sb As New StringBuilder
 
    stra = Trim(stra)
    If Len(stra) = 0 Then
        CalcularLetra = ""
    End If
    ' Dejar sólo los números
    For i = 0 To Len(stra) - 1
        If InStr(stra, cNUMEROS) > -1 Then
            sb.Append (stra)
        End If
    Next
 
    stra = CStr(stra)
    a = 0
    NIF = CLng(stra)
 
    Do
        b = CLng(Int(NIF / 24))
        c = NIF - (24 * b)
        a = a + c
        NIF = b
    Loop While b <> 0
    b = CLng(Int(a / 23))
    c = a - (23 * b)
 
    CalcularLetra = stra & Mid(cCADENA, CInt(c + 1), 1)
 
End Function

Clase StringBuilder

El siguiente código debe guardarse como un Módulo de clase.

Option Compare Database
 
' Class: StringBuilder

Option Explicit
 
Private Const initialLength As Long = 32
 
Private totalLength As Long  ' Length of the buffer
Private curLength As Long    ' Length of the string value within the buffer
Private buffer As String     ' The buffer

Private Sub Class_Initialize()
  ' We set the buffer up to it's initial size and the string value ""
  totalLength = initialLength
  buffer = Space(totalLength)
  curLength = 0
End Sub
 
Public Sub Append(Text As String)
 
  Dim incLen As Long ' The length that the value will be increased by
  Dim newLen As Long ' The length of the value after being appended
  incLen = Len(Text)
  newLen = curLength + incLen
 
  ' Will the new value fit in the remaining free space within the current buffer
  If newLen <= totalLength Then
    ' Buffer has room so just insert the new value
    Mid(buffer, curLength + 1, incLen) = Text
  Else
    ' Buffer does not have enough room so
    ' first calculate the new buffer size by doubling until its big enough
    ' then build the new buffer
    While totalLength < newLen
      totalLength = totalLength + totalLength
    Wend
    buffer = left(buffer, curLength) & Text & Space(totalLength - newLen)
  End If
  curLength = newLen
End Sub
 
Public Property Get Length() As Integer
  Length = curLength
End Property
 
Public Property Get Text() As String
  Text = left(buffer, curLength)
End Property
 
Public Sub Clear()
  totalLength = initialLength
  buffer = Space(totalLength)
  curLength = 0
End Sub

Microsoft Access: Poner contraseña a la base de datos

A continuación os expongo los pasos a seguir para poner una contraseña de acceso a las base de datos access.

1- Abrimos Microsoft Access
2- Damos a Archivo -> Abrir

access_abrir_bd
3- Buscamos la base de datos a la que queremos poner la contraseña. Antes de darle a abrir, hay que dar al lado del botón a abrir. Elegir Abrir en modo exclusivo.

access_abrir_modo_exclusivo
4- Damos a Archivo y seleccionamos “Cifrar con contraseña”.

access_elegir_poner_contraseña

5- Ponemos la contraseña deseada

access_poner_contraseña

Servidor VPS gratis de por vida

¿Que es un VPS?

Un servidor virtual privado (VPS, del inglés virtual private server) es un método de particionar un servidor físico en varios servidores de tal forma que todo funcione como si se estuviese ejecutando en una única máquina. Cada servidor virtual es capaz de funcionar bajo su propio sistema operativo y además cada servidor puede ser reiniciado de forma independiente.La práctica de particionar un único servidor para que funcione en varios servidores ya comenzó con los mainframes y ha vuelto a resurgir con el desarrollo de la virtualización y las tecnologías para otras arquitecturas.Mientras un VPS funciona con su propia copia del sistema operativo, los clientes tienen nivel de acceso de root o superusuario y por tanto, pueden instalar cualquier tipo de software, que posteriormente pueda ser ejecutado bajo su sistema operativo. Algunos programas no ejecutan bien en entornos virtuales, incluyendo firewalls, clientes anti-virus e incluso otras herramientas virtuales; algunos VPS proveen fuertes restricciones, pero generalmente son laxas comparadas con las que existen en los servidores de almacenamiento compartido. Debido a que varios clientes (virtuales) pueden trabajar sobre una sola máquina, un VPS normalmente tiene ciertas limitaciones en cuanto al tiempo de procesamiento, RAM y espacio en el disco.

Fuente | Wikipedia

¿Quieres conseguir un VPS gratis?

Apúntate haciendo clic aquí y entra en al lista para conseguir uno gratis.

 

Chronoshare – Web para contratar o ser contratado para hacer determinadas tareas

Hoy os vengo a contar mi experiencia con chronoshare. Puedo decir que he experimentado la utilización de este portal desde ambos lados.

HE CONTRATADO: He contratado una persona para temas de limpieza. Y el resultado ha sido satisfactorio.
HE PODIDO SER CONTRATADO: Digo he podido, porque la experiencia desde esta posición no ha sido nada satisfactoria.

La experiencia de contratar no la cuento porque es lo mas similar a otros portales existentes en el mercado. Tu pones un anuncio, la gente te contacta para ofrecerte tus servicios. Y decides a quien elegir. Lo único malo ,por decirlo de alguna manera, es que como pones el teléfono puedes recibir una cuantas llamadas muy seguidas, donde la gente son a veces muy pelmas. Pero luego entiendes que es normal cuando te pones desde el lado de ellos.

¿HE PODIDO SER CONTRATADO?

El funcionamiento se basa en créditos (Chronos). Para conseguir los datos de contacto deuna oferta tienes que tener crédito. Depende la oferta te cuesta una cantidad diferente de créditos, pero puede ser unos 3€ por decir un importe.
Una vez conseguidos los datos de contacto puedes ya ponerte en comunicación con la persona para ofrecerle tus servicios.
Posteriormente la persona elige a la persona, y he aquí cuando viene el kit de la cuestión.

No comunica directamente en el portal que ya ha elegido a alguien, con lo cual tienes que estar pendiente para volver a ponerte en contacto para saber que ha pasado. El portal manda correos a la persona como esta la situación de la oferta, pero puede ignorarlos.

¿Y que pasa sino he sido elegido?

Puedes pedir la devolución. Pero no te van a devolver todo, sino solo una parte. Lo cual es bastante frustante, y no puedas apuntarte a muchas ofertas, porque sino se te acaban los créditos enseguida. La verdad que no me convence el sistema. Pensaría mas justo que te quiten una parte de lo cobrado o algo así, pero este sistema me parece que tiras bastante el dinero.