Autor
|
Tema: Tomar una palabra random de una lista de palabras en un .txt (Leído 3,980 veces)
|
extreme69
Desconectado
Mensajes: 178
Be BlackHat but don't forget your principles.
|
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 am por extreme69 »
|
En línea
|
|
|
|
Elemental Code
Desconectado
Mensajes: 622
Im beyond the system
|
asi se genera un numero pseudoaleatorio 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
|
I CODE FOR $$$ Programo por $$$ Hago tareas, trabajos para la facultad, lo que sea en VB6.0 Mis programas
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
. 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: cRndNumbersNRDulces Lunas!¡.
|
|
« Última modificación: 14 Noviembre 2011, 00:26 am por BlackZeroX (Astaroth) »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
|
|
|
En línea
|
|
|
|
CAR3S?
Desconectado
Mensajes: 343
Level xXx
|
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 am por nukje »
|
En línea
|
|
|
|
extreme69
Desconectado
Mensajes: 178
Be BlackHat but don't forget your principles.
|
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. 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 am por extreme69 »
|
En línea
|
|
|
|
CAR3S?
Desconectado
Mensajes: 343
Level xXx
|
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 saludos
|
|
|
En línea
|
|
|
|
x64core
Desconectado
Mensajes: 1.908
|
Ya lo hice, borre algún moderador WFT? 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
|
|
|
|
Pablo Videla
|
Creo que el tipo ya explico su situacion , no es necesario los insultos, eso lo pueden dejar en el foro libre donde pueden sacarse la madre y la hermana cuando quieran.
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Palabra al azar en textBox de una lista?(vb2008)
.NET (C#, VB.NET, ASP)
|
usuario oculto
|
3
|
4,331
|
28 Febrero 2009, 23:50 pm
por Skeletron
|
|
|
(BATCH) Tomar valor de una lista
« 1 2 »
Scripting
|
FerJGS
|
15
|
8,374
|
24 Agosto 2010, 01:26 am
por FerJGS
|
|
|
Software para lista de palabras
Hacking
|
DonQuimi
|
2
|
2,278
|
15 Septiembre 2011, 05:15 am
por .:UND3R:.
|
|
|
Tomar variables desde txt usando grupos de palabras
Scripting
|
AlonsoBytes
|
1
|
2,129
|
17 Noviembre 2014, 17:43 pm
por Eleкtro
|
|
|
Obtener el porcentaje de oraciones con 1 palabra, 2 palabras, 3 palabras, etc.
Scripting
|
Wil630
|
5
|
4,207
|
2 Noviembre 2015, 22:58 pm
por Wil630
|
|