10 nov 2015

CALCULADORA CASIO FX-9860G SD PARA PC

en No hay comentarios:

CALCULADORA CASIO FX-82ES PARA PC


Para descargarlo espere a que termine la cuenta regresiva y haga clic en saltar publicidad

DESCARGAR POR MEGA


en No hay comentarios:

7 mar 2013

Instalar una plantilla Blogger en la nueva interfaz




Saber instalar una plantilla Blogger es una de las primeras cosas que debemos hacer si comenzamos a usar dicha plataforma.
Si bien Blogger ha hecho grandes cambios a su interfaz durante el último año, el procedimiento sigue siendo básicamente el mismo:


  1. Vamos a nuestro Panel de Control/Plantilla.
  2. Hacemos click en Crear copia de seguridad/restablecer.
  3. Veremos un cuadro de diálogo con dos opciones: la primera de ella es “Descargar plantilla completa“, la que debemos utilizar para hacer una copia completa de nuestra plantilla en caso de que queramos volver a ella. Una vez hecho esto (no es obligatorio, pero recomendado), pasaremos al siguiente paso.
  4. Con el botón “Seleccionar archivo” que aparece en el mismo cuadro, seleccionaremos la plantilla que queremos subir, en formato XML. Por ejemplo:NuevaPlantilla.XML.
  5. Hacemos click en “Subir” y esperamos que la plantilla cargue. En unos segundos la veremos instalada en nuestro blog.


Método alternativo:
Otra forma de subir una plantilla Blogger es desde Plantilla/Edición de HTML. Podemos seleccionar todo el contenido, suprimirlo y luego reemplazarlo por el contenido de nuestra plantilla NuevaPlantilla.XML. Eso sí, debemos ser muy cuidadosos en copiar todo el contenido.

Errores a la hora de subir plantillas:

A veces, al intentar subir plantillas, podemos recibir un mensaje de error como este:
“No hemos podido guardar la plantilla. Tu plantilla no se ha podido analizar debido a que su formato no es correcto. Asegúrate de que todos los elementos XML estén cerrados correctamente“.
Si subimos la plantilla con el “método alternativo”,  es probable que no la hayamos copiado completamente.  En tal caso, es recomendable “cargar la plantilla” en vez de copiar su contenido.
Si aun así no puedes subir la plantilla, recomiendo intentar con una de estas posibles soluciones:
  1. Intentar subir con un navegador alternativo (no Internet Explorer).
  2. Aplica una de las plantillas predeterminadas de Blogger. Cambia a una de las nuevas plantillas de Blogger, si ya no tienes una instalada, y trata de instalar de nuevo tu plantilla.
  3. También puedes “Volver a la interfaz anterior de Blogger” (sólo temporalmente), ir aDiseño/Edición de HTML y utilizar una de las plantillas antiguas desde “Seleccionar plantilla de diseño“. A continuación, trata de reinstalar tu plantilla otra vez.

Consideraciones finales

Instalar una plantilla Blogger es un proceso realmente sencillo y rápido si se hace cuidadosamente, aunque de todas maneras siempre es necesario respaldar tu vieja plantilla y conservar tus artilugios (gadgets).
Hoy por hoy es realmente fácil encontrar plantillas Blogger gratuitas y de calidad en la red. Si bien con ellas puedes usar casi todas las funciones de Blogger, debes saber que el 99,9% están construidas bajo una base que no te permitirá usar el “Diseñador de Plantillas” de Blogger.  No obstante, ello puede ser una ventaja si consideras que ya tendrás un diseño armado que podrás configurar con más facilidad (menos código y más simple).
en No hay comentarios:

Trucos para hacer más rápido a Windows 7


Windows 7 ya es un sistema operativo rápido en comparación con Windows Vista, pero aún así puedes hacer que trabaje más rápido, el truco es simple solamente hay que desactivar algunos servicios que se ejecutan automáticamente además de algunas tareas programadas, muy parecido a los trucos para acelerar Windows Vista.
Por ejemplo el servicio de Windows Installer es ejecutado cada vez que instalas un programa hecho por Microsoft y no necesitamos que esté siempre activo, así que vamos a aplicar principalmente 2 trucos, poner algunos servicios en ejecución manual, esto hace que se ejecuten solamente cuando se necesitan y no automáticamente, el otro truco es deshabitar algunas tareas programadas, aquí te dejo la lista de cosas que debes hacer:

Servicios que puedes cambiar a ejecución manual

En el menú inicio escribe “services.msc” y presiona enter, en la aplicación de servicios para poner algún servicio en manual solamente debes hacer clic con el botón derecho sobre el y luego en propiedades y en tipo de inicio poner manual, nunca lo deshabilites.


Estos son los servicios que puedes poner en inicio manual.
  • Experiencia con aplicaciones
  • Administrador de sesión del administrador de ventanas de escritorio
  • Servicio de directivas de diagnóstico
  • Aplicación auxiliar IP
  • Archivos sin conexión
  • Cola de impresión (solamente si no tienes impresora)
  • Almacenamiento protegido
  • Inicio de sesión secundario
  • Centro de seguridad (No se recomienda)
  • Aplicación auxiliar de NetBIOS sobre TCP/IP
  • Temas (solamente si estás usando el tema por default)
  • Servicio de uso compartido de red del Reproductor de Windows Media
  • Hora de Windows (deshabiltalo solamente si no quieres actualizar la hora automáticamente por internet)


Tareas que puedes deshabilitar

En el menú inicio en buscar escribe “Programador de tareas” (Task Scheduler) y ya dentro de este programa en el lado izquierdo en donde dice; “Programador de tareas (local)” y ahí dentro hay una carpeta que se llama “Biblioteca del programador de tareas“, expándelo para ver otra carpeta que se llama “Microsoft” la cual también debes expandir para ver otro que dice “Windows“, expándela también.
Ahí dentro verás una carpeta para cada una de las tareas programadas, para deshabilitar una tarea debes hacer click sobre ella y al centro te salen las ta tareas, luego del lado derecho hay una opción que dice deshabilitar.

Las tareas que puedes deshabilitar son las siguientes Carpeta -> Tarea a deshabilitar:
  • Media Center -> mcupdate
  • MobilePC -> HotStart
  • Windows Media Sharing -> UpdateLibrary

en No hay comentarios:

CONSULTAR DATOS SUNAT POR RUC - VISUAL BASIC 6.0

LES DEJO EL CODIGO PARA CONSULTAR RUC DE LA SUNAT

AQUI LES DEJO EL CODIGO VISUAL BASIC 6.0


' NO OLVIDEN REFERENCIAS --> a Microsoft XML v2.6 ACTIVEN EL CHECK

Option Explicit
Dim xDat As String
Dim xRazSoc As String, xEst As String, xCon As String, xDir As String
Dim xRazSocX As Long, xEstX As Long, xConX As Long, xDirX As Long
Dim xRazSocY As Long, xEstY As Long, xConY As Long, xDirY As Long
Private Sub btnCon_Click()
    If Trim(txtRuc.Text) = "" Then
        MsgBox "Ingrese número del RUC"
        txtRuc.SetFocus
        Exit Sub
    End If
    If IsNumeric(txtRuc.Text) = True Then
        If Len(txtRuc.Text) < 11 Then
            Limpiar
            MsgBox "Ingrese los 11 números del RUC"
            txtRuc.SetFocus
            Exit Sub
        End If
        If Val(Mid(Trim(txtRuc.Text), 2, 9)) = 0 Or Trim(txtRuc.Text) = "23333333333" Then
            Limpiar
            MsgBox "Verificar número del RUC"
            txtRuc.SetFocus
            Exit Sub
        End If
        If Verificar_ruc(txtRuc.Text) = False Then
            Limpiar
            MsgBox "El número del RUC no es válido"
            txtRuc.SetFocus
            Exit Sub
        End If
'        RUC txtRuc.Text
        OTRO txtRuc.Text
    Else
        Limpiar
        MsgBox "Solo se aceptan números"
        txtRuc.SetFocus
    End If
End Sub
Private Sub RUC(ByVal xNum As String)
 On Error Resume Next
    Dim xWml As New XMLHTTP
    xWml.open "POST", "http://www.sunat.gob.pe/w/wapS01Alias?ruc=" & xNum, False
    xWml.send
    If xWml.Status = 200 Then
        Limpiar
        xDat = xWml.responseText
        If Len(xDat) <= 635 Then
            Habilitar False
            MsgBox "El numero Ruc ingresado no existe en la Base de datos de la SUNAT"
            Set xWml = Nothing
            txtRuc.SetFocus
            Exit Sub
        End If
        Habilitar True
        xDat = Replace(xDat, "N&#xFA;mero Ruc. </b> " & xNum & " - ", "RazonSocial:")
        xDat = Replace(xDat, "Estado.</b>", "Estado:")
        xDat = Replace(xDat, "Agente Retenci&#xF3;n IGV.", "ARIGV:")
        xDat = Replace(xDat, "Situaci&#xF3;n.<b> ", "Situacion:")
        xDat = Replace(xDat, "Direcci&#xF3;n.</b><br/>", "Direccion:")
        xDat = Replace(xDat, "     ", " ")
        xDat = Replace(xDat, "    ", " ")
        xDat = Replace(xDat, "   ", " ")
        xDat = Replace(xDat, "  ", " ")
        xDat = Replace(xDat, "( ", "(")
        xDat = Replace(xDat, " )", ")")
       
        xRazSocX = InStr(1, xDat, "RazonSocial:", vbTextCompare)
            xRazSocY = InStr(1, xDat, " <br/></small>", vbTextCompare)
            xRazSocX = xRazSocX + 12
        xRazSoc = Mid(xDat, xRazSocX, (xRazSocY - xRazSocX))

        xEstX = InStr(1, xDat, "Estado:", vbTextCompare)
            xEstY = InStr(1, xDat, "ARIGV:", vbTextCompare)
            xEstX = xEstX + 7
        xEst = Mid(xDat, xEstX, ((xEstY - 34) - xEstX))
       
        xConX = InStr(1, xDat, "Situacion:", vbTextCompare)
            xConY = InStr(1, xDat, "</b></small><br/>", vbTextCompare)
            xDirY = xConX - 23
            xConX = xConX + 10
        xCon = Mid(xDat, xConX, (xConY - xConX))
   
        xDirX = InStr(1, xDat, "Direccion:", vbTextCompare)
            xDirX = xDirX + 10
        xDir = Mid(xDat, xDirX, (xDirY - xDirX))
       
        xRazSoc = Replace(xRazSoc, "&#209;", "Ñ")
        xRazSoc = Replace(xRazSoc, "&#xD1;", "Ñ")
        xRazSoc = Replace(xRazSoc, "&#193;", "Á")
        xRazSoc = Replace(xRazSoc, "&#201;", "É")
        xRazSoc = Replace(xRazSoc, "&#205;", "Í")
        xRazSoc = Replace(xRazSoc, "&#211;", "Ó")
        xRazSoc = Replace(xRazSoc, "&#218;", "Ú")
        xRazSoc = Replace(xRazSoc, "&#xC1;", "Á")
        xRazSoc = Replace(xRazSoc, "&#xC9;", "É")
        xRazSoc = Replace(xRazSoc, "&#xCD;", "Í")
        xRazSoc = Replace(xRazSoc, "&#xD3;", "Ó")
        xRazSoc = Replace(xRazSoc, "&#xDA;", "Ú")
       
        xDir = Replace(xDir, "&#209;", "Ñ")
        xDir = Replace(xDir, "&#xD1;", "Ñ")
        xDir = Replace(xDir, "&#193;", "Á")
        xDir = Replace(xDir, "&#201;", "É")
        xDir = Replace(xDir, "&#205;", "Í")
        xDir = Replace(xDir, "&#211;", "Ó")
        xDir = Replace(xDir, "&#218;", "Ú")
        xDir = Replace(xDir, "&#xC1;", "Á")
        xDir = Replace(xDir, "&#xC9;", "É")
        xDir = Replace(xDir, "&#xCD;", "Í")
        xDir = Replace(xDir, "&#xD3;", "Ó")
        xDir = Replace(xDir, "&#xDA;", "Ú")
       
        txtRazSoc.Text = xRazSoc
        txtEst.Text = xEst
        txtCon.Text = xCon
        txtDir.Text = xDir
    Else
        Habilitar False
        Limpiar
        MsgBox "No responde el servicio de la SUNAT"
    End If
    Set xWml = Nothing
End Sub
Private Sub OTRO(ByVal xNum As String)
On Error Resume Next
    Dim xWml As New XMLHTTP
    xWml.open "POST", "http://www.sunat.gob.pe/w/wapS01Alias?ruc=" & xNum, False
    xWml.send
    If xWml.Status = 200 Then
        Limpiar
        xDat = xWml.responseText
        If Len(xDat) <= 635 Then
            Habilitar False
            MsgBox "El numero Ruc ingresado no existe en la Base de datos de la SUNAT"
            Set xWml = Nothing
            txtRuc.SetFocus
            Exit Sub
        End If
        Habilitar True
        Dim xTabla() As String
       
        xDat = Replace(xDat, "     ", " ")
        xDat = Replace(xDat, "    ", " ")
        xDat = Replace(xDat, "   ", " ")
        xDat = Replace(xDat, "  ", " ")
        xDat = Replace(xDat, "( ", "(")
        xDat = Replace(xDat, " )", ")")
       
        xTabla = Split(xDat, "<small>")
      
        xTabla(1) = Replace(xTabla(1), "<b>N&#xFA;mero Ruc. </b> " & xNum & " - ", "")
        xTabla(1) = Replace(xTabla(1), " <br/></small>", "")
       
        xTabla(4) = Replace(xTabla(4), "<b>Estado.</b>", "")
        xTabla(4) = Replace(xTabla(4), "</small><br/>", "")
       
        xTabla(7) = Replace(xTabla(7), "<b>Direcci&#xF3;n.</b><br/>", "")
        xTabla(7) = Replace(xTabla(7), "</small><br/>", "")
       
        xTabla(8) = Replace(xTabla(8), "Situaci&#xF3;n.<b> ", "")
        xTabla(8) = Replace(xTabla(8), "</b></small><br/>", "")
       
        xRazSoc = CStr(xTabla(1))
        xEst = CStr(xTabla(4))
        xDir = CStr(xTabla(7))
        xCon = CStr(xTabla(8))
       
        xRazSoc = Replace(xRazSoc, "&#209;", "Ñ")
        xRazSoc = Replace(xRazSoc, "&#xD1;", "Ñ")
        xRazSoc = Replace(xRazSoc, "&#193;", "Á")
        xRazSoc = Replace(xRazSoc, "&#201;", "É")
        xRazSoc = Replace(xRazSoc, "&#205;", "Í")
        xRazSoc = Replace(xRazSoc, "&#211;", "Ó")
        xRazSoc = Replace(xRazSoc, "&#218;", "Ú")
        xRazSoc = Replace(xRazSoc, "&#xC1;", "Á")
        xRazSoc = Replace(xRazSoc, "&#xC9;", "É")
        xRazSoc = Replace(xRazSoc, "&#xCD;", "Í")
        xRazSoc = Replace(xRazSoc, "&#xD3;", "Ó")
        xRazSoc = Replace(xRazSoc, "&#xDA;", "Ú")
       
        xRazSoc = Mid(xRazSoc, 1, Len(xRazSoc) - 3)
       
        xDir = Replace(xDir, "&#209;", "Ñ")
        xDir = Replace(xDir, "&#xD1;", "Ñ")
        xDir = Replace(xDir, "&#193;", "Á")
        xDir = Replace(xDir, "&#201;", "É")
        xDir = Replace(xDir, "&#205;", "Í")
        xDir = Replace(xDir, "&#211;", "Ó")
        xDir = Replace(xDir, "&#218;", "Ú")
        xDir = Replace(xDir, "&#xC1;", "Á")
        xDir = Replace(xDir, "&#xC9;", "É")
        xDir = Replace(xDir, "&#xCD;", "Í")
        xDir = Replace(xDir, "&#xD3;", "Ó")
        xDir = Replace(xDir, "&#xDA;", "Ú")
       
        xEst = Mid(xEst, 1, Len(xEst) - 6)
        xCon = Mid(xCon, 1, Len(xCon) - 3)
        xDir = Mid(xDir, 1, Len(xDir) - 3)
       
        txtRazSoc.Text = xRazSoc
        txtEst.Text = xEst
        txtCon.Text = xCon
        txtDir.Text = xDir
    Else
        Habilitar False
        Limpiar
        MsgBox "No responde el servicio de la SUNAT"
    End If
    Set xWml = Nothing
End Sub
Private Sub Limpiar()
    xRazSoc = ""
    xEst = ""
    xCon = ""
    xDir = ""
    txtRazSoc.Text = ""
    txtEst.Text = ""
    txtCon.Text = ""
    txtDir.Text = ""
End Sub
Private Sub Habilitar(ByVal xOpc As Boolean)
    lbl2.Visible = xOpc
    lbl3.Visible = xOpc
    lbl4.Visible = xOpc
    lbl5.Visible = xOpc
    txtRazSoc.Visible = xOpc
    txtEst.Visible = xOpc
    txtCon.Visible = xOpc
    txtDir.Visible = xOpc
End Sub
Private Sub Form_Load()
    Habilitar False
End Sub
Function Verificar_ruc(ByVal xNum As String) As Boolean
    Dim li_suma, li_residuo, li_diferencia, li_compara As Integer
    li_suma = (CInt(Mid(xNum, 1, 1)) * 5) + (CInt(Mid(xNum, 2, 1)) * 4) + (CInt(Mid(xNum, 3, 1)) * 3) + (CInt(Mid(xNum, 4, 1)) * 2) + (CInt(Mid(xNum, 5, 1)) * 7) + (CInt(Mid(xNum, 6, 1)) * 6) + (CInt(Mid(xNum, 7, 1)) * 5) + (CInt(Mid(xNum, 8, 1)) * 4) + (CInt(Mid(xNum, 9, 1)) * 3) + (CInt(Mid(xNum, 10, 1)) * 2)
    li_compara = CInt(Mid(xNum, 11, 1))
    li_residuo = li_suma Mod 11
    li_diferencia = Int(11 - li_residuo)
    If li_diferencia > 9 Then li_diferencia = li_diferencia - 10
    If li_diferencia <> li_compara Then
        Verificar_ruc = False
    Else
        Verificar_ruc = True
    End If
End Function

SI TIENEN DUDAS NO DUDEN EN CONSULTAR
ESPERO COMENTARIOS
en 1 comentario:
Suscribirse a: Entradas (Atom)

pg_tables y schemaname - PostgreSQL

  • Trucos para hacer más rápido a Windows 7
    Windows 7  ya es un sistema operativo rápido en comparación con  Windows Vista , pero aún así puedes hacer que trabaje más rápido, el t...
  • INFORMATICA III 2011-1
    TRABAJO Nº 4 REALIZAR LOS SIGUIENTES PROGRAMAS: - CALCULAR LA DESVIACION STANDAR - CALCULAR LA VARIANZA - CALCULAR LA MODA - CALCULA...
  • DIOS, EL DIABLO Y EL INGENIERO
    Se murió un Ingeniero y se fue a las puertas del Cielo. como es bien sabido los Ingenieros por su honestidad siempre van al cielo. San Pe...