elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.
 
Inicio Ayuda Buscar Ingresar Registrarse
29 Mayo 2012, 09:08  


Tema destacado: [Overclocking] Récords de overclock del foro

+  Foro de elhacker.net
|-+  Programación
| |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo, raul338)
| | |-+  Tomar una palabra random de una lista de palabras en un .txt		 0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Tomar una palabra random de una lista de palabras en un .txt  (Leído 863 veces)
extreme69

Desconectado Desconectado

Mensajes: 166


Be BlackHat but don't forget your principles.


Ver Perfil
Tomar una palabra random de una lista de palabras en un .txt
« en: 13 Noviembre 2011, 23:56 »
Código:
Dim strWords() As String
Dim iFile As Long
Dim strFilename As String
Dim strData As String

strFilename = app.path "\words.txt"

iFile = FreeFile

Open strFilename For Input As #iFile

    strData = Input$(LOF(iFile), #iFile)

Close #iFile



strWords() = Split(strData, vbNewLine)

Dim variable As String

Text1.Text = strWords(Int(Rnd * UBound(strWords)))
« Última modificación: 14 Noviembre 2011, 07:08 por extreme69 » En línea
Elemental Code


Desconectado Desconectado

Mensajes: 499


Im beyond the system


Ver Perfil
Re: Tomar una palabra random de una lista de palabras en un .txt
« Respuesta #1 en: 14 Noviembre 2011, 00:00 »
asi se genera un numero pseudoaleatorio

Código
Private Function RandomNumBetween(ByVal LowerLimit As Long, ByVal UpperLimit As Long) As Long
 Randomize Timer
  ' This function returns a pseudo-random number between
  ' the specified limits (inclusive).
  RandomNumBetween = Rnd * (UpperLimit - LowerLimit) + LowerLimit
End Function

esta mal tu algoritmo para generar el numero aleatorio o te falta el "randomize (seed)" timer es un valor del sistema que si no me equivoco es la cantidad de segundos hasta la medianoche, por lo cual nunca va a ser el mismo
En línea
BlackZeroX (Astaroth)
Wiki

Desconectado Desconectado

Mensajes: 2.832


I'Love...!¡.


Ver Perfil WWW
Re: Tomar una palabra random de una lista de palabras en un .txt
« Respuesta #2 en: 14 Noviembre 2011, 00:19 »
.
Código
 
Private Sub Form_Load()
Dim i As Integer
    For i = 0 To 99
        Debug.Print numRandom(1, 3)
    Next
End Sub
 
Private Sub lSwap(ByRef l1 As Long, ByRef l2 As Long)
'   //  Intercambia el contenido de las variables.
    l2 = l2 Xor l1
    l1 = l1 Xor l2
    l2 = l2 Xor l1
End Sub
 
Private Function fixNumbers(ByRef lMin As Long, ByRef lMax As Long) As Boolean
'   //  Corrige los valores dados.
    If lMax < lMin Then
        Call lSwap(lMin, lMax)
        fixNumbers = True
    End If
End Function
 
Private Function numRandom(ByVal lMin As Long, ByVal lMax As Long) As Long
'   //  Genera un Numero aleatorio de acuerdo a un rango dado.
    Call fixNumbers(lMin, lMax)
    Call Randomize
    numRandom = (lMin - lMax) * Rnd + lMax
End Function
 
 

Si quieres una clase mas completa: cRndNumbersNR

Dulces Lunas!¡.
« Última modificación: 14 Noviembre 2011, 00:26 por BlackZeroX (Astaroth) » En línea
Web Principal-->[ Blog(VB6) | Host File (Public & Private) | Scan Port | (New)MyInfraPC (Descubre mi Contraseña venefi. $) ]



The Dark Shadow is my passion.
El infierno es mi Hogar, mi novia es Lilith y el metal mi
raul338
Moderador
***
Desconectado Desconectado

Mensajes: 2.372


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Tomar una palabra random de una lista de palabras en un .txt
« Respuesta #3 en: 14 Noviembre 2011, 00:23 »
Cita de: extreme69 en 13 Noviembre 2011, 23:56
Ya lo hice, borre algún moderador :P

:huh: :huh:
En línea
CAR3S?


Desconectado Desconectado

Mensajes: 331


Level xXx


Ver Perfil
Re: Tomar una palabra random de una lista de palabras en un .txt
« Respuesta #4 en: 14 Noviembre 2011, 04:38 »
Edito y esta vez con más respeto......

o vives en una put*a nube o no te gusta compartir.

crees que haberlo solucionado es motivo para eliminar un th? si asi fuera, google no existiria. no existiria la info en internet...

creo que comes *****

por otro lado, si no quieres compartir el codigo (ENCIMA VENIS A PEDIR AYUDA), mejor vete a otro lado................. aun no me queda claro como puedes decir eso ._.
« Última modificación: 14 Noviembre 2011, 04:44 por nukje » En línea
extreme69

Desconectado Desconectado

Mensajes: 166


Be BlackHat but don't forget your principles.


Ver Perfil
Re: Tomar una palabra random de una lista de palabras en un .txt
« Respuesta #5 en: 14 Noviembre 2011, 07:01 »
Cita de: nukje en 14 Noviembre 2011, 04:38
Edito y esta vez con más respeto......

o vives en una put*a nube o no te gusta compartir.

crees que haberlo solucionado es motivo para eliminar un th? si asi fuera, google no existiria. no existiria la info en internet...

creo que comes *****

por otro lado, si no quieres compartir el codigo (ENCIMA VENIS A PEDIR AYUDA), mejor vete a otro lado................. aun no me queda claro como puedes decir eso ._.

No hay necesidad de ser agresivo, si te va mal en la vida no castigues a gente inocente, por otro lado, ¡que locura! después de leer tu maleducado comentario cualquiera pensaría que el que come ***** eres tu :)

El thread lo abrí para consultar algo que a los pocos minutos me dí cuenta de donde estaba el error, lo solucioné y por lo tanto me pareció innecesario seguir con el thread. De todas formas, el código SI lo postié, simplemente luego lo edité, no es cuestión de egoísmo alguno.

Código:
Private Sub change_Click()
Dim strWords() As String
Dim iFile As Long
Dim strFilename As String
Dim strData As String

strFilename = app.path "\words.txt"

iFile = FreeFile

Open strFilename For Input As #iFile

    strData = Input$(LOF(iFile), #iFile)

Close #iFile



strWords() = Split(strData, vbNewLine)

Dim variable As String

Text1.Text = strWords(Int(Rnd * UBound(strWords)))
End Sub

Ahora estoy viendo las otras opciones que me plantean, aunque esto no es para algo muy simple que realmente no necesita un resultado único, sino más bien darle un orden sin necesidad de elegirlo, gracias BlackZeroX, está excelente.
« Última modificación: 14 Noviembre 2011, 07:10 por extreme69 » En línea
CAR3S?


Desconectado Desconectado

Mensajes: 331


Level xXx


Ver Perfil
Re: Tomar una palabra random de una lista de palabras en un .txt
« Respuesta #6 en: 14 Noviembre 2011, 16:42 »
se me fue la mano, y si, tengo problemas que no te importan y ultimamente me afectan demasiado.

lo siento, peero ahora ya lo sabes  ;D saludos
En línea
RHL


Desconectado Desconectado

Mensajes: 968


mental


Ver Perfil
Re: Tomar una palabra random de una lista de palabras en un .txt
« Respuesta #7 en: 16 Noviembre 2011, 19:49 »
Citar
Ya lo hice, borre algún moderador
WFT?  :huh:
No es por nada pero estas loco, aqui no es de pedir ayuda y cuando lo resolves queres borrar el tema
que lammer  eres
En línea
DonVidela


Desconectado Desconectado

Mensajes: 1.622



Ver Perfil WWW
Re: Tomar una palabra random de una lista de palabras en un .txt
« Respuesta #8 en: 17 Noviembre 2011, 00:02 »
Creo que el tipo ya explico su situacion  :xD,  no es necesario los insultos, eso lo pueden dejar en el foro libre donde pueden sacarse la madre y la hermana cuando quieran.  :P
En línea
Aprendiendo: Java , C# , pl/sql, mysql , sql server, PHP , Access, JSF, Facelets, JSP, CakePHP, JQuery

http://pablovidela.wordpress.com
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Palabra al azar en textBox de una lista?(vb2008)
.NET 		usuario oculto 3 2,017 Último mensaje 28 Febrero 2009, 23:50
por Skeletron
Lista de palabras espanolas
Hacking Básico 		razta 2 2,743 Último mensaje 24 Febrero 2009, 23:55
por Bht Sata
reemplazar una palabra en una lista
Programación C/C++ 		mapers 3 616 Último mensaje 25 Abril 2010, 10:00
por darkraider
(BATCH) Tomar valor de una lista « 1 2 »
Scripting 		FerJGS 15 2,230 Último mensaje 24 Agosto 2010, 01:26
por FerJGS
Software para lista de palabras
Hacking Básico 		jkphreak 2 454 Último mensaje 15 Septiembre 2011, 05:15
por .:UND3R:.
Powered by SMF 1.1.16 | SMF © 2006-2008, Simple Machines