elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Problema con generador de numeros
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Problema con generador de numeros  (Leído 2,299 veces)
bautistasbr

Desconectado Desconectado

Mensajes: 268


Ver Perfil
Problema con generador de numeros
« en: 11 Julio 2006, 09:37 am »

Estoy haciendo un generador de numeros y letras para q salgan al hazar.Las a puesto un timer para q se generen solos,pero el problema es q siempre genera los mismos.Mi codigo es este

Private Sub Command1_Click()
With Text1
.Text = "": .Tag = 1
While .Tag <= 14
.Text = .Text & Int((9 * Rnd) + 1) ' Genera un valor aleatorioentre el 1 y el 9
.Tag = .Tag + 1
Wend
End With

End Sub

Private Sub Timer1_Timer()
Call Command1_Click     'interval 20'
End Sub

Private Sub Timer2_Timer()
Timer1.Enabled = False
Timer2.Enabled = False  'interval 5000'
End Sub

como puedo hacer para q no me genere siempre los mismos numeros?? Como puedo añadirle letras?

Gracias


En línea

BenRu
The Prodigy


Desconectado Desconectado

Mensajes: 4.006


Ver Perfil
Re: Problema con generador de numeros
« Respuesta #1 en: 11 Julio 2006, 10:03 am »

El de los numeros es muy simple...para hacer el de letras puedes hacer dos cosas:
1. Hacer un case incluyendo todas las letras que quieras
2. Pasar el ejemplo que te voy a poner, en vez de salirte el numero, que te salga como ascii "equivalencia"

Te pondre la primera...si te interesa la segunda, me lo dices y te lo  codeo.

Código:
'Numeros y letras aleatorias by BenRu


Private Sub Command1_Click()
    Dim Num As Byte
    Num = Int(255 - 1) * Rnd + 0
    Text1.Text = Num
End Sub

Private Sub Command2_Click()
Dim AlgorritmoLetra As Integer
Dim AlgorritmoLetra2 As String

    AlgorritmoLetra = Int((4 * Rnd) + 1) 'Cambia el 4 por el numero de Case que vallas a poner
   
    Select Case AlgorritmoLetra
        Case 1
            AlgorritmoLetra2 = "a"
        Case 2
            AlgorritmoLetra2 = "b"
        Case 3
            AlgorritmoLetra2 = "c"
        Case 4
            AlgorritmoLetra2 = "d"
        End Select
Text2.Text = AlgorritmoLetra2
End Sub

Private Sub Form_Load()
Randomize
End Sub



« Última modificación: 11 Julio 2006, 10:04 am por BenRu » En línea

bautistasbr

Desconectado Desconectado

Mensajes: 268


Ver Perfil
Re: Problema con generador de numeros
« Respuesta #2 en: 11 Julio 2006, 10:39 am »

me gusta el code,pero no hay una forma de unir los numeros con las letras en  el mismo textbox??

otra cosa.Hay alguna posibilidad de q se repitan las cadenas generadas?
porq no quiero q se repitan
En línea

BenRu
The Prodigy


Desconectado Desconectado

Mensajes: 4.006


Ver Perfil
Re: Problema con generador de numeros
« Respuesta #3 en: 11 Julio 2006, 10:54 am »

me gusta el code,pero no hay una forma de unir los numeros con las letras en  el mismo textbox??

Donde estan los Case tambien puedes meter numeros, signos o lo que quieras.

Citar
otra cosa.Hay alguna posibilidad de q se repitan las cadenas generadas?

Si, simplemente son numeros aleatorios
En línea

bautistasbr

Desconectado Desconectado

Mensajes: 268


Ver Perfil
Re: Problema con generador de numeros
« Respuesta #4 en: 11 Julio 2006, 11:19 am »

no hay alguna forma para q salgan todas a la vez pero tambien con orden aleatorio?
En línea

soplo
Ex-Staff
*
Desconectado Desconectado

Mensajes: 3.592

Debian rool'z


Ver Perfil
Re: Problema con generador de numeros
« Respuesta #5 en: 11 Julio 2006, 20:14 pm »

Hola
Como tú entenderás para obtener números aleatorios no se hace "magia". Hay un algoritmo que calcula los números.

Ese algoritmo calcula los números basándose en algo. Si parte de la misma base obtiene los mismos números. Por eso debes decir que para hacer el algoritmo parta de algo diferente cada vez.

La base numérica que se utiliza para partir el algoritmo se cambia con la orden randomize.
Código:
randomize (numero)

Si cambias de número cambias de valores. Con el mismo número siempre los mismos valores.

Por eso la costumbre suele ser partir del número de serie de la fecha o cualquier cosa semejante
Código:
randomize now
por ejemplo para que parta con el número correspondiente a la fecha/hora actual.

 ;D
En línea

Callar es asentir ¡No te dejes llevar!
bautistasbr

Desconectado Desconectado

Mensajes: 268


Ver Perfil
Re: Problema con generador de numeros
« Respuesta #6 en: 11 Julio 2006, 22:41 pm »

os doy las gracias a todos por vuestros consejos.Me sirven de gran ayuda

Gracias
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
una reswpuesta mas al problema de inversion de numeros
Ejercicios
angelxxi 0 4,511 Último mensaje 27 Abril 2011, 21:13 pm
por angelxxi
generador de números y suma de los mismos
Scripting
vidusa 4 3,073 Último mensaje 31 Marzo 2012, 21:30 pm
por vidusa
problema l requerir números « 1 2 »
Programación C/C++
7hongo7 13 5,603 Último mensaje 20 Febrero 2013, 18:49 pm
por 7hongo7
[c]generador de numeros aleatoreos( se puede usar con la hora)
Programación C/C++
daryo 0 1,474 Último mensaje 22 Septiembre 2013, 17:30 pm
por daryo
Necesito ayuda con un generador de numeros al azar
Programación C/C++
JuanTheTropper 2 1,386 Último mensaje 5 Diciembre 2018, 05:11 am
por CalgaryCorpus
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines