SoloCodigo

Disculpen por mi ignorancia pero tengo una cámara IP Linksys y mi idea es poder mostrar la imágenes de video en una aplicación de Visual Basic 6 y no doy pie con bola. Si alguien me puede ayudar se los agradecería.

Sres:

    Alguien sabe como puedo ejecutar un script en php pulsando un boton desde una pagina html ?

desde ya muchas gracias

Gente:

     Ha llegado a mis manos un sensor lineal inductivo al cual quiero sacarle provecho, por ejemplo para medir posicionamiento de cualquier cosa ( piston, nivel de agua en un tanque ) lo que se pueda ocurrir. El tema es que estoy teniendo problemas con la lectura de el mismo ya que no esta muy estable, es decir por ejemplo dejo el iman en una posicion sin tocarlo y cuando leo la entrada analogica este no me muestra siempre el mismo valor sino que me va tirando el valor correcto y erroneamente me muestra otros valores ( si por ejemplo esta en la posicion 234, ademas de ese valor puede ser que me tire 234,233,235,236 ). Igualmente les paso el programa que hice para leerlo el cual no creo que tenga problemas. Yo estoy pensando que el problema esta en que no lo estoy adaptando electricamente bien cuando lo conecto directo al PIC. Si alguno puede ayudarme les agradezco dado que estoy hace un tiempo con el y no loe encuentro la vuelta. Hice dos programas, uno que saca el promedio del maximo y otro que no pero no hay caso. Les adjunto la hoja de datos del sensor que baje de internet.
Cabe aclarar como veran que lo que leo lo envio por MAX232 a una hiperterminal

PROGRAMA CON PROMEDIO DE LA MEDIDA


#include <18f4525.h>
#fuses HS, NOWDT, NOPROTECT, NOLVP, NOBROWNOUT, PUT
#use delay(clock=20000000)
#use rs232(baud=57600, xmit=PIN_C4, rcv=PIN_C5)
#include <STDLIB.H>
#define Delay 5

float LeoSensor(int Sensor)
{
   int i = 0;
   float max, maxii;
   float min,minii;
   float ant = 0;
   float suma = 0;

   max = maxii = 0;
   min = minii = 255;
   
   set_adc_channel(Sensor);

   for (i=1;i<11;i++)
   {
      delay_us(10);
      ant = read_adc();
      if (ant>max)
         max = ant;
      if (ant<min)
         min = ant;
      suma+=ant;
   }
   ant = (suma - max - min)/8;
   return ant;
}

void main(void)
{
    int MinA, MaxA, sentidoA;
    int MinB, MaxB, sentidoB;
    long PosicionA,PosicionB;
    long i;
    boolean on = true;
   
   
    sentidoA  = 1;
    MaxA = MaxB = 0;
    MinA = MinB = 255;
   
        set_tris_c(0x00);
   set_tris_b(0x00);
   set_tris_a(0xFF);

   i = 0;   
    setup_adc_ports(AN0_TO_AN1);
    setup_adc(ADC_CLOCK_DIV_16);



   while(on)
   {
         PosicionA = LeoSensor(0);
         printf("%Lu \n", PosicionA);      
   }

}



AHORA LES PASO EL PROGRAMA SIN EL PROMEDIO


#include <18f4525.h>
#fuses HS, NOWDT, NOPROTECT, NOLVP, NOBROWNOUT, PUT
#use delay(clock=20000000)
#use rs232(baud=57600, xmit=PIN_C4, rcv=PIN_C5)
#include <STDLIB.H>
#define Delay 5

float LeoSensor(int Sensor)
{
   float ant = 0;

   set_adc_channel(Sensor);
   delay_us(10);
   ant = read_adc();

   return ant;
}

void main(void)
{
    int MinA, MaxA, sentidoA;
    int MinB, MaxB, sentidoB;
   long PosicionA,PosicionB;
   long i;
    boolean on = true;
   
   
    sentidoA = sentidoB = 1;
    MaxA = MaxB = 0;
    MinA = MinB = 255;
   
    set_tris_c(0x00);
    set_tris_b(0x00);
    set_tris_a(0xFF);

    setup_adc_ports(AN0_TO_AN1);
    setup_adc(ADC_CLOCK_DIV_16);



   while(on)
   {
         PosicionA = LeoSensor(0);
         printf("%Lu \n", PosicionA);      
   }

}



ARACTERITICAS DEL SENSOR

Auf dem Schuffel 9, D-58513 Lüdenscheid, Germany
Postfach 8130 D-58489 Lüdenscheid, Germany
Tel: + 49.2351.95870
Fax: + 49.2351.56491
www.mtssensor.de
JAPAN
Linearity error -0.3 mm ≤ EL ≤ 0.3 mm
Repeatability error -25µm ≤ ER ≤ 25µm
Hysteresis error -25µm ≤ EH ≤ 25µm
Temperature Drift -10µm/°K ≤ ETPWM≤ 10µm/°K
-20µm/°K ≤ ETvoltage≤ 20µm/°K
Current consumption 20mA ≤ Is ≤ 40mA
Operating temperature Operating temperature range:
-30°C ≤ AR ≤ 115°C
Power supply voltage 4.75V ≤ Vs ≤ 5.50V
Output load The PWM push-pull output is designed to
sink and source 1mA. Therefore, the
minimum impedance of the input side to
ground and /or + 5V should be the value of:
5000Ω ≤ RL
The capacity to ground is defined to:
CL ≤ 100pF
The load resistor for the voltage output
should be connected to the sensors ground
with a value of:
6kΩ ≤ RL
The capacity to ground is defined to:
CL < 100pF
Magnet The sensor is designed for use with magnet
part number
Package CSPI IP67

Gente:

      Necesito saber si alguno de ustedes conoce donde poder conseguir el PIC 18F4525 en Agentina. Muchas gracias.

Gente. ya estuve trabajando con displays de 16x2 sin problemas, pero en este momento tengo que trabajar con un display 20x4 y tengo el problema de que no lo puedo o no se como inicializarlo. En los 16x2 lo inicializo con 0x38, pero no se como hacerlo con estos. Si alguien me puede dar una mano se los agradezco.

El LCD que estoy usando es el WH2004L

Sres:

     Estoy teniendo problemas serios dado que hice un programita de 167 lineas de codigo en CCS y al compilarlo me da error de ROM y me resulta extrano dado que
no es un programa significativamente grande. Lo unico que hago es chequear las entradas analogicas A0 y A1 y luego efectuar algunas cuentas y segun lo leido prendo
dos salidas a las que conecto 2 LEDs. Si alguien tiene algo de experiencia y me puede
indicar los pasos a seguir, les estare agradecido.

Muchas gracias.

Gente:

    Necesitaria saber como poder trabajar en ASEMPBLER numeros decimales con coma, dado que tengo que trabajar con relaciones de 0,1 / 0,75 / etc las lecturas que hago desde el conversor analogico en un 16F877. Si me pueden dar una mano se los agradezco.

Gracias.

Gente:

   Estoy teniendo problemas para visualizar la temperatura en un LCD tomando como referencia un LM35 en Ra0. El display funciona perfectamente pero no se realmente la rutina read_adc() que me tira ( binario, hex, ? ).
Yo estoy implementando estas lineas que les paso a continuacion pero me muestra en el display cualquier cosa. Ya chequee el LM35 con un tester y varia perfectamente como dice el datasheet 10 mV/C. Les paso el codigo.

#include <16F877.h>

#fuses XT,NOWDT,NOPROTECT,NOLVP
#use delay(clock=10000000)
#include <LCD2.h>

 int medicion;
 float temper, paco;
 int i, value, min, max;



main() {

   setup_port_a( ALL_ANALOG );
   setup_adc( ADC_CLOCK_INTERNAL );
   set_adc_channel( 0 );

 
   lcd_init(); //Inicia LCD

   while (1)
 
      {
 
        setup_adc( ADC_CLOCK_INTERNAL );

      delay_us (20);
      medicion=read_adc (); //Hace conversión AD
      setup_adc (adc_off); //Apaga ADC      
     
      temper=(medicion*5)256;
     
      lcd_gotoxy(1,1);
   
      printf(lcd_putc,"%03.1f",temper);
   
      delay_ms (1000);
   }

}

Desde ya muchas gracias.

Gente:

     Alguno de ustedes tendria un ejemplo de lectura de teclado matricial ?. Estoy desde hace rato tratando y no doy pie con bola. Si alguien me puede dar una mano se los agradezco.

Quisiera conocer si alguno estuvo o tiene un ejemplo de como implementar PID (Proportional-Integral-Derivative) para control de temperatura.

Muchas gracias.

Sres:

      Estuve viendo el soft MIKROC y en un ejemplo de conversion A/D en el medio de sentencias en lenguaje C ponen la siguiente efectuando un llamado al ASM:


asm {
          MOVF  Math_Main_global_UpperWord_1,W
          MOVWF _tlong0_3
          MOVF  Math_Main_global_UpperWord_2,W
          MOVWF _tlong0_4
          }

Necesitaria saber si alguno de ustedes sabe que es en realidad esta sentencia y que significa por ejemplo "Math_Main_global_UpperWord_2,W".

Les pongo el programa.


unsigned char  ch0;
int , t0;
char a[17],  *tc0;
long  tlong0;


void main() {

  LCD8_Config(&PORTB, &PORTD, 2,1,0, 7,6,5,4,3,2,1,0); // Same as previous
  LCD8_Init(&PORTB, &PORTD);   // Initialize LCD8 connected to PORTB
  LCD8_Cmd(LCD_CLEAR);       // Clear display
  LCD8_Cmd(LCD_CURSOR_OFF);  // Turn cursor off
  //LCD8_Out(1,1, text);       // Print text to LCD8, 2nd row, 1st column


  OPTION_REG = 0x80;
  ADCON1 = 0x82;
  TRISA = 0XFF;

  tc0 = "Voltaje";
 
  do {
 
    t0 = ADC_read(0);
    LCD8_Out(1,1,tc0);
    tlong0 = t0 * 5000;
     
     asm {
          MOVF  Math_Main_global_UpperWord_1,W
          MOVWF _tlong0_3
          MOVF  Math_Main_global_UpperWord_2,W
          MOVWF _tlong0_4
          }  
       
        t0 = tlong0 >> 10;
        ch0 = t0/1000;
       
        LCD8_Chr(1,9,48+ch0);
       
        LCD8_Chr_CP('.');
       
        ch0 = (t0/1000) % 10;
       
        LCD8_Chr_CP(48+ch0);
       
        ch0 =(t0/10) % 10;
       
        LCD8_Chr_CP(48+ch0);
       
        ch0 = t0 % 10;
       
        LCD8_Chr_CP(48+ch0);
       
        LCD8_Chr_CP('V');
       

       
       
    }while (1);    

Muchas gracias.

Gente:
     Tengo el siguiente dilema. Quiero sensar 24 volts de continua utilizando el optoacoplador 4N28. El problema que tengo es que polarizo al diodo emisor con una resistencia de 1K y 24 volts para tener una corriente de 24 mA con lo cual según la hoja de datos es una corriente aceptable. Luego alimento el transistor de salida con 5 V y una resistencia de 4K7 y el mismo lo conecto a una pata del micro. Con este esquema puedo detectar la falta de los 24 V perfectamente pero tengo el problema que la resistencia de entrada calienta tanto que casi puedo freir unos huevos. El paso siguiente fue baar la tensión a 12 V con lo cual tengo sobre el diodo emisor 12 mA que segun la hoja de datos del 4N28 funcionaria perfecto. De este modo la resistencia no calienta tanto pero el PIC no me reconoce el 1 o 0, esta muy inestable. Le pido al que tenga experiencia en Optoacopladores si me puede dar una mano porque mis conocimientos no dan para mas.

Desde ya muchas gracias como siempre.