duda con random - VB-MUNDO

visual_v · #1 (**permalink**) 08-02-2007, 10:45:50

Una vez más acudo a vos en busca de soluciones

Os planteo mi problema...
Tengo una caja de texto, un boton y un fichero con distintas lineas.

Contenido del fichero:

Código:

4 -> indica la cantidad de lineas a tratar
0 -> numero de linea
00 -> dato que introduzco en la caja de texto
1 -> numero de linea 
11 -> dato que introduzco en la caja de texto
2 -> numero de linea
22 -> dato que introduzco en la caja de texto
3 -> numero de linea
33 -> dato que introduzco en la caja de texto

Lógicamente las flechas y comentarios no los tengo puestos en el fichero, es para aclararos el funcionamiento.

Codigo:

Código:

Private Sub Command1_Click()

Dim cantidad As String
Dim j As Integer
Dim linea As String

    Open App.Path & "\random.txt" For Input As #1
    Line Input #1, cantidad
    
    Randomize
    j = Rnd(cantidad)
    Label1.Caption = j
    
       Line Input #1, linea
                
                If linea = j Then
                   Line Input #1, x
                   Text1.Text = x 'vamos añadiendo los caracteres leídos a Text1
                Else
                    While linea <> j
                        Line Input #1, x
                        linea = x
                    Wend
                    If linea = j Then
                         Line Input #1, x
                        Text1.Text = x 'vamos añadiendo los caracteres leídos a Text1
                    End If
                End If
        
        Close #1
        
    
    
End Sub

Mi idea es que j => numero aleatorio coincida con el numero de linea, entonces si el numero de linea coincide con j leo el "contenido" de linea y lo muestro en la caja de texto. Es decir si por ejemplo j = 0 y linea = 0 muestro en la caja de texto 00 si no son iguales recorro el fichero hasta encontrar el numero de linea que coincide con numero aleatorio (j).

Mi duda viene cuando compruebo si el programa funciona y entonces descubro que solo me origina los numeros aleatorio 0 y 1, ¿porque?

GRACIAS !!!

Si no me explico bien, por favor decidmelo

acalanto · #2 (**permalink**) 08-02-2007, 10:52:50

Para generar número aleatorios en un rango de límite determinado, debes emplear la siguiente fórmula

NumeroAleatorio = Int((LIMITESUP * Rnd) + 1)

donde LIMITESUP representa el máximo valor que deseas (Valores entre 0 y LIMITESUP)

Espero te resulte útil.

visual_v · #3 (**permalink**) 08-02-2007, 11:31:25

Ante todo agradecerte Acalanto tu ayuda.

Tu propuesta me viene casi bien, ¿pq casi bien?
Por que cuando escribo...

Código:

 j = Int((cantidad * Rnd) + 1)

Me va originando numeros, y cuando j = 4 me muestra un error: "la entrada de datos ha sobrepasado el final de archivo"
Si quito el "+1" lo hace bien pero solo hasta el 3, logicamente exluye la última línea

¿En que me equivoco?
GRACIAS !!

acalanto · #4 (**permalink**) 08-02-2007, 12:54:53

Pero esto te ocurre porque en ningún momento controlas que has rebasado el tamaño del fichero. Intentas ller más allá de su capacidad y por lo tanto, se produce el error que manifiestas.

La verdad es que me resulta complejo comprender la estructura de fichero que tienes montada. No te parece que sería mucho mejor acceder a la información mediante un fichero tipo Random (acceso aleatorio) o Binario ??

En todo caso prueba el siguiente código a ver si te funciona:

Código:

Private Sub Command1_Click() 
    Dim cantidad     As String 
    Dim j                As Integer
    dim x                As String 
    Dim linea          As String 
    dim exist          As boolean
    'Aseguramos errores inesperados
    On Local Error resume next 
    'Apertura del fichero de datos 
    Open App.Path & "\random.txt" For Input As #1 
    Line Input #1, cantidad 
    'Generamos el número pseudo-aleatorio
    Randomize 
    j = Int((cantidad * Rnd) + 1)
    'Verificamos que no sobrepase el valor de cantidad
    if j > cantidad then j=cantidad
    'Informamos del número a buscar 
    Label1.Caption = j
    'Lectura de fichero controlando el final del mismo 
    exist = false 
    do until eof(1)
       Line Input #1, linea 
       if linea = j then          
                   'Lectura del dato 
                   Line Input #1, x 
                   exist = true
                   'Encontrada la primera coincidencia, abandonamos el bucle
                   exit do
       end if 
    Loop
   Close #1 
   'Asignamos resultado
   if exist = true then 
       Text1.Text = x 
   else
       Text1.Text="no encontrado"
   end if 
End Sub

Fíjate bien que en el código que adjuntas dejas muchas cosas al azar; otras no se corresponden demasiado con la estructura de fichero que manifiestas al inicio de tu planteamiento. Dejar cosas al azar se traduce, en la mayor parte de los casos, en obtener datos que no corresponden a lo esperado, además de provocar errores incontrolados de la aplicación, con las nefastas consecuencias que siempre supone y que ya conocemos.