Mensajes

HOLA!!!

Primero, aca te dejo un reto donde Black y yo hicimos funciones que emulan los operadores binarios, hay una breve explicacion y estan los codigos, espero que entiendas http://foro.elhacker.net/empty-t323992.0.html

Te pongo un ejemplo de para que sirve:

Saber si un numero es par o no:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    For x = 0 To 100
        If (x And 1) Then
            Debug.Print "no_es_par " & x
        Else
            Debug.Print "si_es_par " & x
        End If
    Next
End Sub

GRACIAS POR LEER!!!

HOLA!!!

LEE ARRIBA ^^^^^^

Ahi te actualice la explicacion, espero que entiendas, por si las dudas te dejo como funcionan:
OR es parecido solo que con que uno de los dos sea 1 en esa posicion sera 1.
XOR es parecido a OR pero solo devuelve 1 en esa posicion si uno de los 2 (no los dos, osea 1, 1 es 0, pero 1,0 o 0,1 es 1).

GRACIAS POR LEER!!!!

HOLA!!!

Mira and lo que hace es comparar los Bits (los unos y ceros)... si hay dos 1 en la misma posicion se coloca un uno en dicha posicion del resultado.

Si no sabes que es el sistema binario te recomiendo este video de u AlteradosPorPi, muy buen programa. http://www.youtube.com/watch?v=ghNtjZ2aP0I

Ahora que ya entendemos mas o menos que es el sistema binario vamos a la operacion AND.

Te lo explico con ejemplos, es mas facil:

Código [Seleccionar] Expandir

x = 50 and 100

    50 = 0100110
   100 = 0010011
        ----------
         0000010   =8

Por que da este resultado?

    50 = 0100110
   100 = 0010011
        ----------
         0000010   =8
         ^^^^^^^
         |||||||____> 0 y 1 son diferentes entonces 0
         ||||||_____> 1 y 1 son iguales entonces 1
         |||||______> 1 y 0 son diferentes entonces 0
         ||||_______> 0 y 0 son iguales entonces 0
         |||________> 0 y 1 son diferentes entonces 0
         ||_________> 1 y 0 son diferentes entonces 0
         |__________> 0 y 0 son iguales entonces 0

x = 58 and 232

    58 = 01011100
   232 = 00010111
        ----------
         00010100   =40

Por que da este resultado?

    58 = 01011100
   232 = 00010111
        ----------
         00010100   =40
         ^^^^^^^^
         ||||||||____> 0 y 1 son diferentes entonces 0
         |||||||_____> 0 y 1 son diferentes entonces 0
         ||||||______> 1 y 1 son iguales entonces 1
         |||||_______> 1 y 0 son diferentes entonces 0
         ||||________> 1 y 1 son iguales entonces 1
         |||_________> 0 y 0 son iguales entonces 0
         ||__________> 1 y 0 son diferentes entonces 0
         |___________> 0 y 0 son iguales entonces 0



GRACIAS POR LEER!!!

HOLA!!!

El operador logico AND tomara el valor binario de ambos numeros y los comparara de esta manera (sigo tus ejemplos)

Código [Seleccionar] Expandir

x = 50 and 100

   50 = 0100110
  100 = 0010011
       ----------
        0000010   =8

x = 3 and 1000

    3 = 1100000000
 1000 = 0001011111
       --------------
        0000000000   =0
x = 25 and 5000

   25 = 1001100000000
 1000 = 0001000111001
       -----------------
        0001000000000   =32


GRACIAS POR LEER!!!

HOLA!!!

Alianza, Elfo Alto, Mago.
o
Alianza, Humano, Paladin.

GRACIAS POR LEER!!!

HOLA!!!

PD: Mar del plata esta en Argentina (para los no entendidos)

¬¬ No te habias ido. Jajaja XD

GRACIAS POR LEER!!!

HOLA!!!

Hay alguien de Mar del Plata aca en el foro?

GRACIAS POR LEER!!!

HOLA!!!

Otro que me corrige.. yo se que son muchos mejores ustedes pero dejenme contestar una aunquesea que siempre me ganan de mano jaja, con lo que yo le puse entenderá bien y aprendera esos bucles que se ve que no los conocia.

Sorry, no quise molestar

GRACIAS POR LEER!!!

HOLA!!!

No se hacen tareas ni se dan codigos, Busca en GOOGLE sobre Split y listo .

GRACIAS POR LEER!!!

HOLA!!!

xxxZEROxxx, Indesta el codigo, se lee mejor asi, y no es necesario un Do loop, se puede hacer con for, editando el valor de las variables del for XD.

Raul100, viendo tu manera de pensar, arme este codigo que funciona con tu estructura:

Código (vb) [Seleccionar] Expandir

Dim A(9) As Long
Dim X As Long
Dim Y As Long
   Randomize
   For X = 0 To 9
       A(X) = Int(Rnd() * 10) + 1
       For Y = 0 To 9
           If A(X) = A(Y) And Y <> X Then X = X - 1: Exit For
       Next
   Next

GRACIAS POR LEER!!!