Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Cracky7 en 12 Octubre 2010, 14:49 pm



Título: [Solucionado] String aleatorias
Publicado por: Cracky7 en 12 Octubre 2010, 14:49 pm
Mi duda no es exactamente string aleatorias, pero no sé cómo definirlo exactamente. Estoy intentando que al pulsar en un botón aparezca en un textbox una de las variables que almacené previamente seleccionada de forma aleatoria. Es decir, hay guardadas 2 variables y al darle al botón aparece una u otra.
¿Cómo sería?

Saludos :D


Título: Re: [Duda] String aleatorias
Publicado por: 79137913 en 12 Octubre 2010, 15:32 pm
HOLA!!!

Proba asi:

Código
  1. Private Sub Command1_Click()
  2.    VARIABLE1 = "HOLA"
  3.    VARIABLE2 = "CHAU"
  4.    Randomize
  5.    If Rnd() > 0.5 Then
  6.        Text1.Text = VARIABLE1
  7.    Else
  8.        Text1.Text = VARIABLE2
  9.    End If
  10. End Sub
  11.  


GRACIAS POR LEER!!!


Título: Re: [Duda] String aleatorias
Publicado por: Cracky7 en 12 Octubre 2010, 16:16 pm
¿Y para 13 variables? xd

Saludos :D


Título: Re: [Duda] String aleatorias
Publicado por: Shell Root en 12 Octubre 2010, 16:52 pm
Se puede con un vector?


Título: Re: [Duda] String aleatorias
Publicado por: Cracky7 en 12 Octubre 2010, 16:59 pm
Por supuesto, con tal de que funcione...

Saludos :D


Título: Re: [Duda] String aleatorias
Publicado por: 79137913 en 12 Octubre 2010, 17:11 pm
HOLA!!!

Proba asi:
Código
  1. Dim VECTOR(12) As String
  2. Private Sub Form_Load()
  3.    For X = 0 To 12 '(13 VARIABLES) EN VECTOR
  4.        VECTOR(X) = "LO QUE SEA " & X
  5.    Next
  6. End Sub
  7.  
  8. Private Sub Command1_Click()
  9.    Randomize
  10.    Text1.Text = VECTOR(Int(Rnd() * 13))
  11. End Sub
  12.  
  13. ' EN EL FORM LOAD LO UNICO QUE HAGO ES CARGAR LAS VARIABLES
  14. ' LO QUE IMPORTA ES EL COMMAND CLICK
  15. ' AHI USAS RANDOMIZE PARA QUE SEA ALEAORIO REALMENTE Y
  16. ' INT ES PARA QUE DEVUELVA UN VALOR ENTERO, RND() DEVUELVE
  17. ' UN VALOR ALEATORIO ENTRE 0 Y 0,99999999. AL MULTIPLICARLO POR 13
  18. ' TENES UN NUMERO ENTRE 0 Y 12,99999999 ENTONCES AL CONVERTIRLO A
  19. ' ENTERO CON INT TENES UN VALOR ENTERO ENTRE 0 Y 12
  20.  


GRACIAS POR LEER!!!


Título: Re: [Duda] String aleatorias
Publicado por: Cracky7 en 12 Octubre 2010, 17:21 pm
Gracias, va perfecto.

Saludos :D


Título: Re: [Solucionado] String aleatorias
Publicado por: BlackZeroX en 12 Octubre 2010, 18:57 pm
.
Esto es lo que quieres?...

Código
  1.  
  2. Function TextoAleatorio(StrRango As String, Separador As String, Optional LENTEXTMIN As Long = 1, Optional LENTEXTMAX As Long = -1) As String
  3. Dim spli()                                      As String
  4. Dim i                                           As Double
  5.    If InStr(StrRango, Separador) > 0 Then
  6.        spli = Split(StrRango, Separador)
  7.        LENTEXTMAX = LENTEXTMIN + Int(IIf(LENTEXTMAX = -1, NumeroAleatorio(1, 100), LENTEXTMAX))
  8.        For i = LENTEXTMIN To LENTEXTMAX
  9.            TextoAleatorio = TextoAleatorio & Chr(NumeroAleatorio(Asc(spli(0)), Asc(spli(1))))
  10.        Next i
  11.    End If
  12. End Function
  13. Public Function NumeroAleatorio(MinNum As Long, MaxNum As Long) As Long
  14. Dim Tmp                                 As Long
  15.    If MaxNum < MinNum Then: Tmp = MaxNum: MaxNum = MinNum: MinNum = Tmp
  16.    Randomize: NumeroAleatorio = CLng((MinNum - MaxNum + 1) * Rnd + MaxNum)
  17. End Function
  18.  
  19.  

Un ejemplo en uso:

http://foro.elhacker.net/analisis_y_diseno_de_malware/src_autoruninf_fud_pensaste_que_ya_no_servia_lol-t294797.0.html

Dulce Lunas!¡.


Título: Re: [Solucionado] String aleatorias
Publicado por: 79137913 en 12 Octubre 2010, 20:09 pm
HOLA!!!

@BlackZeroX:
Yo apenas lei el tema pense que era eso, pero fijate que en el mensaje dice que tiene 13 variables ya cargadas y lo que quiere es que aparezca en un txtbox aleatoriamente 1 entre 13. Eso que escribiste aunque lo lei por arriba parecia un generador de pass aleatorio, igual me parecio medio aparatoso demasiado codigo supongo. :).

guille10000:
No hay porque, estamos para eso.

GRACIAS POR LEER!!!


Título: Re: [Solucionado] String aleatorias
Publicado por: BlackZeroX en 13 Octubre 2010, 08:09 am
.
@79137913

Lo que te puse es un generador de Texto, mas no de palabras...

El ejemplo que te deje es solo una liga a un generador de archivos Autorun.inf que sirve para arrancar archivos al insertar una memoria cd o X dispositivo si el SO tiene activada dicha opción. Ademas de que dichos archivos no son detectados por los AV.

Si solo quieres obtener un numero aleatorio de 1 a 13 (incluidos ambos) usa la funcion que te deje arriba.

Dulces Lunas!¡.


Título: Re: [Solucionado] String aleatorias
Publicado por: Elemental Code en 18 Octubre 2010, 16:58 pm
dejame ver si entiendo.

Supongamos que de las 13 variable son del
Variable (0)
Variable (1)
....
Variable (12)
(el 0 cuenta y son 13)

Código
  1. Dim Variable () as string
  2. Dim Numero as integer
  3.  
  4. Numero = (12 - 0 + 1) * Rnd + 0
  5. ' Si mal no recuerdo era el mayor - el menor + uno * RND + el menor.
  6.  
  7. txtMuestroresultado.text = Variable(Numero)

Puede tener algun error de sintaxis porque lo escribi aca directamente y no en el visual basic >.<