los sockets excelentes pero dificiles de usar o quiza puedes usar la libreria CDO es facil usarla creas un nuevo objeto apartir de esa clase y lo configuras y lo envias!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: 79137913 en 23 Mayo 2011, 21:15 PM
HOLA!!!
Sorry, no quise molestar
GRACIAS POR LEER!!!
Cita de: _katze_ en 23 Mayo 2011, 02:20 AM
generas el numero en primera medida...y la guardas en una variable termporal...en una iteracion recorres el vector si esta salis de la iteracion y generas de nuevo...y si esta lo guardas y lo mostras
Cita de: XXX-ZERO-XXX en 23 Mayo 2011, 01:40 AM
Mmm esque no es asi, usa el Do-While para que guarde todos los numeros generados mientras no sea igual a uno que ya se guardo, es decir, podrias crear una funcion, Repetido() as Boolean para que sea la verificacion en el while
Dim n As Integer
Dim a(9) As Integer
Dim m As Integer
Dim z As Integer
For z = 1 To 10 ' generar 10 numero aleatoreos
Randomize
n = Int((10 * Rnd) + 1) ' genero el numero aleatoreo = n
For m = 0 To 9
If a(m) <> n Then a(z - 1) = n
Next
Next
randomize
T = Int((10 * Rnd) + 1)