Encender leds en secuencia con Arduino.

Hoy expondré como programar una secuencia de leds en Arduino.
Los leds encienden con lógica negativa, es decir en estado bajo (0) o conexión a tierra.
Los leds están conectados a los pines 10-13 de la tableta Arduino ADK. En el resto de las tabletas Arduino Uno también puede funcionar.
A continuación pueden ver el esquema eléctrico y el código fuente de Arduino.

// LUCES SECUENCIALES

// Se establecen las pines 10 al 13 como salidas digitales
int salidas[] = {10,11,12,13};
int contador = 0;

void setup() {                
  for(contador = 0; contador < 4; contador++){
    pinMode(salidas[contador], OUTPUT);
    digitalWrite(salidas[contador], HIGH); // La conexion del circuito es LOW ACTIVE, el estado HIGH apaga el led.
  }       
}

void loop() {
  contador = 0;
  while(contador < 4){
    digitalWrite(salidas[contador], LOW); // Enciende el led especificado en el arreglo
    delay(1000); // Retarda 1 segundo en el arreglo
    digitalWrite(salidas[contador], HIGH); // Apaga el led especificado en el arreglo
    if(contador == 4) contador = 0; // Reinicia la secuencia
    contador++; // Incrementa la salida de led a encender
  }
}

Leap Year function in Sql Server

Here is a function to determine if a year is a leap year in Sql Server.

The rules to determine a leap year are:

• Must be divisible by 4.
• Must NOT be divisible by 100.
• Must be divisible by 400.

CREATE FUNCTION isLeapYear(
 @date DATETIME
) RETURNS BIT 
AS
BEGIN
 DECLARE 
  @year INT,
  @isLeapYear BIT
  
 SET @year = YEAR(@date)

 IF @year % 4 = 0 AND (@year % 100 <> 0 OR @year % 400 = 0)
 BEGIN
  SET @isLeapYear = 1
 END
 ELSE
 BEGIN
  SET @isLeapYear = 0
 END 

 RETURN @isLeapYear
END

Introducción a Programando Chácharas

Estimados lectores, les doy la bienvenida a Programando Chácharas; un sitio dedicadoa cubrir temas básicos sobre los aspectos de la programación a

Activar xp_cmdshell en Sql server 2005 - 2008

El procedimiento xp_cmdshell sirve para ejecutar comandos de DOS desde SQL Server.

Se preguntarán para que me sirve ejecutar comandos DOS desde Sql Server. Pues a veces es util crear directorios, leer su contenido o copiar archivos, cuando no se tiene acceso directo o de consola al servidor en el que está instalado Sql Server.

El comando viene desactivado porque representa un hueco de seguridad que puede ser usado en nuestra contra, pero hay veces que es útil saber de su existencia y usarlo para salir del paso.

Para habilitar su uso se requiere ser administrador de la base de datos. Estos son los comandos:

USE master;

GO

EXECUTE SP_CONFIGURE 'show advanced options', 1
RECONFIGURE WITH OVERRIDE

GO
 
EXECUTE SP_CONFIGURE 'xp_cmdshell', '1'
RECONFIGURE WITH OVERRIDE

GO

EXECUTE SP_CONFIGURE 'show advanced options', 0
RECONFIGURE WITH OVERRIDE

GO

Para deshabilitarlo:

USE master;

GO

EXECUTE SP_CONFIGURE 'show advanced options', 1
RECONFIGURE WITH OVERRIDE

GO
 
EXECUTE SP_CONFIGURE 'xp_cmdshell', '0'
RECONFIGURE WITH OVERRIDE

GO

EXECUTE SP_CONFIGURE 'show advanced options', 0
RECONFIGURE WITH OVERRIDE

GO

Para usarlo:

EXECUTE master.dbo.xp_cmdshell 'dir c:\'

Trigger en Oracle

Este es un trigger transaccional de Oracle para comunicarse a Sql Server

CREATE OR REPLACE 
TRIGGER tgrInsertaLocalizadorEnKuve
  AFTER UPDATE ON tarima
  REFERENCING NEW AS NEW
  FOR EACH ROW
DECLARE PRAGMA AUTONOMOUS_TRANSACTION;
  vFecha DATE := SYSDATE;
  --vClaveProducto CHAR(40);
  --vClaveTipoProducto NUMBER;
BEGIN

  -- LoteInterno = noLocalizador
  -- CostoPromedio = idEstatus
  -- loteFabricante = imei
  -- loteProveedor = numeroControl
  
  --SELECT claveTipoProducto 
  --INTO vClaveTipoProducto
  --FROM producto
  --WHERE claveProducto = vClaveProducto;
  
  --IF vClaveTipoProducto = 1 THEN -- Si el producto es de tipo GPS
  IF :NEW.claveProducto IN ('1', '2', '21', '22') THEN

    INSERT INTO localizadorTemporal@hsodbcDes
    VALUES(:NEW.loteInterno, :NEW.costoPromedio,  :NEW.loteFabricante, :NEW.loteProveedor, vFecha);
    COMMIT;
    
  END IF;
  
  EXCEPTION
  WHEN OTHERS THEN
      raise_application_error(-20001,'Hubo error: '||SQLCODE||' -ERROR- '||SQLERRM);

END;

Actualización de registros en SQL Server con unión de tablas y recuperación de registros actualizados

Este script demuestra cómo actualizar 2 tablas relacionadas mediante un JOIN y como poder recuperar los registros actualizados.

DECLARE @tablaReferencia TABLE(

 id INT,

 valorReferencia INT

)



DECLARE @tablaAActualizar TABLE(

	id INT,

	valor INT DEFAULT 0,

	otro INT DEFAULT 0

)



DECLARE @actualizados TABLE(

	id INT,

	valor INT,

	otro INT

)



INSERT INTO @tablaReferencia(id, valorReferencia) VALUES(1, 4)

INSERT INTO @tablaReferencia(id, valorReferencia) VALUES(2, 5)



INSERT INTO @tablaAActualizar(id) VALUES(1)

INSERT INTO @tablaAActualizar(id) VALUES(2)

INSERT INTO @tablaAActualizar(id) VALUES(3)



SELECT * FROM @tablaReferencia

SELECT * FROM @tablaAActualizar



UPDATE @tablaAActualizar

SET valor = tr.valorReferencia, otro = 6

OUTPUT 

	INSERTED.id, INSERTED.valor, INSERTED.otro 

INTO @actualizados

FROM @tablaAActualizar ta

INNER JOIN @tablaReferencia tr

ON ta.id = tr.id





SELECT * FROM @tablaAActualizar

SELECT * FROM @actualizados

Año bisiesto en SQL Server

He aquí una función que determina el ano bisiesto en SQL Server.

Las reglas para que un año sea bisiesto son:

• Divisible entre 4


• No divisible entre 100


• Divisible entre 400

CREATE FUNCTION esBisiesto(
 @fecha DATETIME
) RETURNS BIT 
AS
BEGIN

 DECLARE 
  @anio INT,
  @esBisiesto BIT
  
 SET @anio = YEAR(@fecha)

 IF @anio % 4 = 0 AND (@anio % 100 <> 0 OR @anio % 400 = 0)
 BEGIN
  SET @esBisiesto = 1
 END
 ELSE
 BEGIN
  SET @esBisiesto = 0
 END 

 RETURN @esBisiesto
END

Función para reportar errores en SQL Server 2008

Esta es una función que reporta errores en SQL Server 2008.

CREATE FUNCTION [dbo].[fnDevuelveError]()
RETURNS VARCHAR(MAX)
AS
BEGIN
 RETURN 'No. de Error: ' + CONVERT(VARCHAR, ERROR_NUMBER()) + CHAR(13) + CHAR(10) + --{CR}{LF}
          'Mensaje: ' + ISNULL(ERROR_MESSAGE(),'') + CHAR(13) + CHAR(10) +  
          'Procedimiento: ' + ISNULL(ERROR_PROCEDURE(),'')
END

Aquí hay otras funciones de útiles:

 ERROR_NUMBER()
 ERROR_SEVERITY()
 ERROR_STATE()
 ERROR_PROCEDURE()
 ERROR_MESSAGE()
 ERROR_LINE()

ERROR_LINE()

Lista de transferencia de responsabilidad

Hay veces que necesitamos transferir el conocimiento o la resposabilidad de los proyectos de software. Aquí hay una lista de pasos a seguir para hacerlo correctamente:

Lista de transferencia

    ¿Cuales son las prioridades de acuerdo a tu criterio?
    ¿Qué dudas o ideas tienes que no han sido mencionadas?
    ¿Cuales son tus próximos pasos clave, y cuando piensas completarlos?
    ¿Qué necesitas de mi parte para que seas exitoso?
    ¿Hay contingencias clave que debiéramos planear?
    ¿Cuando revisaremos los progresos y/o problemas?
    ¿Quien mas necesita saber de nuestros planes y como se los informaremos?

Escribir archivos de texto en C#

using System;
using System.IO;

namespace Utilerias
{
    public class Escritor
    {
        public static void EscribirEnArchivo(string archivo, string texto, bool sobreescribirArchivo)
        {
            TextWriter escritor = null;

            try
            {
                escritor = (sobreescribirArchivo) ?
                    File.CreateText(archivo) :
                    File.AppendText(archivo);

                escritor.Write(texto);
            }
            catch (Exception exc)
            {
                throw exc;
            }
            finally
            {
                if (escritor != null)
                {
                    escritor.Close();
                    escritor.Dispose();
                }
            }
        }
    }
}

Para usar la clase se utiliza:

using System;
using Utilerias;

namespace EscritorEnTextoPrueba
{
    class Program
    {
        static void Main(string[] args)
        {
            try
            {
                Escritor.EscribirEnArchivo(@"D:\directorio\archivo.txt",
                    "Este es un texto de prueba\r\n"
                    + "Este es un texto de prueba\r\n"
                    + "Este es un texto de prueba\r\n"
                    + "Este es un texto de prueba\r\n"
                    + "Este es un texto de prueba\r\n"
                    + "Este es un texto de prueba\r\n", false);

                Console.Write("Archivo creado correctamente");
            }
            catch (Exception exc)
            {
                Console.Write(exc.Message);                
            }
            finally
            {
                Console.ReadLine();
            }
        }
    }
}