Mensajes

HOLA!!!

La forma en la que lo estan planteando es incorrecta, se pierden muchos recursos sin sentido...

La forma correcta es

Código (vb) [Seleccionar] Expandir

        Select Case edadInt
           Case Is < 2
               strEtapa = "Guarderia y/o Maternal"

           Case 3 To 5 'Porqué aca no entra? Si intEdad = 5?
               strEtapa = "Edad para Kinder"

           Case 6
               strEtapa = "Edad para Primaria"
           Case Is < 12
               strEtapa = "Debes tener entre 6 y 11 años"
           Case 13 To 15
               strEdad = "Debe ir a la seundaria"
           Case Else
               strEdad = "Debes estar en otra etapa de estudio"
       End Select

PERO...

Tu algoritmo de seleccion es muy errado tambien...

si la persona tiene menos de 0 años tambien dira " guarderia"
Si la persona tiene 2 años dira "Debes estar en otra etapa de estudio"
Si la persona tiene 12 años dira "Debes estar en otra etapa de estudio"
Fijate que un < o > no son iguales a <= o >=.

GRACIAS POR LEER!!!

HOLA!!!

...

Este tema es del 2010 

No encontre solucion.

(no es con el ie ni nada de eso, es con el predeterminado)

Hasta luego.

P.D: Reportado.

GRACIAS POR LEER!!!

HOLA!!!

El HC-SR04 es un sensor de distancia que funciona por ultrasonido. Básicamente lo que hace es enviar un pulso llamado trigger, inaudible para cualquier ser humano, rebotar en algún objeto y recibirlo (eco). Con este principio es posible medir distancias sabiendo que la velocidad del sonido es de 345m/s.

Podemos calcular la distancia con una sencilla formula:


El módulo adquirido en la página china DealExtreme presenta las siguientes características:

Tensión de trabajo: 5VDC
Corriente de reposo: <2mA
Angulo: <15º
Distancia: 2 a 450cm
Resolución: 0,3cm

Con el sensor HC-SR04 y una placa Arduino  podemos armar un medidor de distancia en menos de 5 minutos. Utilizando la librería Ultrasonic  (disponible para la descarga en forma gratuita) podemos medir distancias con muy poco código. Por defecto solo es posible medir hasta 51cm de distancia, pero con una sencilla modificación en el archivo ultrasonic.ccp podemos llegar hasta los 5m. Buscamos la siguiente línea y modificamos el valor de time_out:

    Time_out=3000; // 30ms para 5 metros // 3ms para 50cm

A continuación el ejemplo que viene con la librería. Funciona muy bien y es sencillo de implementar:

Código [Seleccionar] Expandir

// Ultrasonic - Library for HR-SC04 Ultrasonic Ranging Module.
// Rev.4 (06/2012)
// J.Rodrigo ( www.jra.so )
// more info at www.ardublog.com

#include <Ultrasonic.h>

Ultrasonic ultrasonic(9,8); // (Trig PIN,Echo PIN)

void setup() {
  Serial.begin(9600);
}

void loop() {
  Serial.print(ultrasonic.Ranging(CM)); // CM or INC
  Serial.println(" cm" );
  delay(100);
}

También se puede resolver el código sin utilizar librerías. Haciendo uso del comando pulseIn que nos brinda el entorno Arduino podemos hacer lo mismo con un poco más de elaboración. El ejemplo a continuación:

Código [Seleccionar] Expandir

/ HC-SR04 & ARDUINO

#define ECHO 8        // Pin para recibir el pulso de eco
#define TRIGGER 9     // Pin para enviar el pulso de disparo

unsigned int tiempo, distancia;

void setup() {
  Serial.begin(9600);
  pinMode(ECHO, INPUT);
  pinMode(TRIGGER, OUTPUT);
}

void loop() {
  digitalWrite(TRIGGER, LOW);
  delayMicroseconds(2);
  digitalWrite(TRIGGER, HIGH);
  delayMicroseconds(10);
  digitalWrite(TRIGGER, LOW);
  // Calcula la distancia midiendo el tiempo del estado alto del pin ECHO
  tiempo = pulseIn(ECHO, HIGH);
  // La velocidad del sonido es de 340m/s o 29 microsegundos por centimetro
  distancia= tiempo/58;
  //manda la distancia al monitor serie
  Serial.print(distancia);
  Serial.println(" cm");
  delay(200); 
}

Imagenes del proyecto terminado:



Fuente AutomatismosMDQ

GRACIAS POR LEER!!!

HOLA!!!

El 23 de mayo se realizará un seminario gratuito sobre el software Niple. Los autores garantizan que en menos de 2 horas Usted aprenderá a programar microcontroladores PIC de una manera sencilla y eficaz.



Conste que no tengo nada que ver con el seminario.

GRACIAS POR LEER!!!

HOLA!!!

Por favor postea tu codigo y las paginas a las que te quieres loguear...

Ese error creo que es por que estas buscando un ID o componente de la pagina por ejemplo un TextBox Inexistente.

GRACIAS POR LEER!!!

HOLA!!!

Mira, hablo de la ignorancia... Pero lo mas logico es que lo mejor sean los mainframes ya que son mas caros y confiables, los clusters suelen ser utilizados para crear supercomputadoras de bajo coste para universidades y demas.

GRACIAS POR LEER!!!

HOLA!!!

Espero que entiendas el codigo que arme.

Es un ejemplo, la funcion devolvera numeros enteros entre el minimo y el maximo inclusive exeptuando los numeros que se encuentren en el Vector "Excluir".

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Dim Excluidos(2) As Long
    Excluidos(0) = 2
    Excluidos(1) = 4
    Excluidos(2) = 5
    Debug.Print RndExcluye(1, 7, Excluidos)
    End
   
End Sub
Private Function RndExcluye(Min As Long, Max As Long, Excluir() As Long) As Long
    Dim Num As Long
    Dim Flag As Boolean
        Randomize Timer
        Flag = True
        Do While Flag = True
            Num = CLng((Min - Max) * Rnd + Max)
            Flag = False
            For x = 0 To UBound(Excluir)
                If Excluir(x) = Num Then Flag = True
            Next
        Loop
        RndExcluye = Num
End Function


GRACIAS POR LEER!!!

HOLA!!!

Entonces lo que queres es una funcion de numeros aleatorios que no repita y tenga un minimo y un maximo?

GRACIAS POR LEER!!!

HOLA!!!

Esto es programacion basica!

Te diria que leas esto, seguramente encuentres la respuesta:
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/71.htm

GRACIAS POR LEER!!!

HOLA!!!

Seria interesante que postearas el codigo en otro tema asi todos pueden ver lo que creaste!

GRACIAS POR LEER!!!