Generador de Numeros

[GidHarvey]

Buenas Tardes amigos de FDW
Bueno es mi primer post en esta zona, espero que me ayuden amigos.
Bueno necesito hacer un generador de numeros, la primera fila seria de 3 casillas de 4 numeros cada una y luego la segunda fila una sola casilla pero con de 11 numeros, no eh encontrado tutoriales y como siempre me ayudan en este foro pues les pregunto, aqui les dejo una imagen por si no me explico bien. porfavor ayudenme.

http://img223.imageshack.us/img223/6...rdenumeros.jpg

de antemano muchas gracias ATTe Gidharvey

[agus0]

Numeros al azar?
seria asi:

Código PHP:

  Private Function Aleatorio(Minimo As Long, Maximo As Long) As Long
Randomize  inicializar la semilla
Aleatorio = CLng((Minimo - Maximo) * Rnd + Maximo)
End Function
 
Private Sub Command1_Click()
Text1.Text = Aleatorio(1000, 9999)
Text2.Text = Aleatorio(1000, 9999)
Text3.Text = Aleatorio(1000, 9999)
Text4.Text = Aleatorio(100000, 999999)
Text4.Text = Text4.Text & Aleatorio(10000, 99999)
End Sub 
   

[GidHarvey]

Muchas Gracias agus0 una pregunta, ese codigo tendria un boton para darle click y genere diversos codigo cada vez que uno aprete un boton verdad?

[agus0]

Iniciado por GidHarvey

Muchas Gracias agus0 una pregunta, ese codigo tendria un boton para darle click y genere diversos codigo cada vez que uno aprete un boton verdad?

Si. cada vez que haces click genera un codigo al azar nuvo.

Que puede estar entre 1000 y 9999 en los primeros tres

y en el cuarto, la primera parte puede estar entre 100000 y 9999999 & la segunda parte entre 100000 y 99999 pero lo hice en dos partes para que no se desvordara ;)

Cualquier duda avisame, aun que cambiando el tipo de variables se podria hacer de una el cuarto

[David]

Sólo como una nota, Randomize debería utilizarse una única vez (al iniciar el programa, por ejemplo) en lugar de cada vez que se vaya a utilizar Rnd. De lo contrario, la serie se repite después de una cierta cantidad de números generados.

[agus0]

Iniciado por David

Sólo como una nota, Randomize debería utilizarse una única vez (al iniciar el programa, por ejemplo) en lugar de cada vez que se vaya a utilizar Rnd. De lo contrario, la serie se repite después de una cierta cantidad de números generados.

Como seria david mi codigo "Correjido" por que no entiendo bien lo que decis

[GidHarvey]

Iniciado por David

Sólo como una nota, Randomize debería utilizarse una única vez (al iniciar el programa, por ejemplo) en lugar de cada vez que se vaya a utilizar Rnd. De lo contrario, la serie se repite después de una cierta cantidad de números generados.

Iniciado por agus0

Como seria david mi codigo "Correjido" por que no entiendo bien lo que decis

David seria posible como dice agus0 que corrigieras el codigo de el para ver como es? si es que se puede porfavor, y como se tendria que colocar en el Visual Basic, saludos y muchas gracias a los 2, cuando lo tenga listo lo subo para que me digan que tal me quedo.

ATTe Gidharvey

[David]

A esto me refiero:

Código vb:

Option Explicit
Private Function Aleatorio(Minimo As Long, Maximo As Long) As Long
Aleatorio = CLng((Minimo - Maximo) * Rnd + Maximo)
End Function
Private Sub Command1_Click()
Text1.Text = Aleatorio(1000, 9999)
Text2.Text = Aleatorio(1000, 9999)
Text3.Text = Aleatorio(1000, 9999)
Text4.Text = Aleatorio(100000, 999999)
Text4.Text = Text4.Text & Aleatorio(10000, 99999)
End Sub
Private Sub Form_Load()
Randomize Timer 'Llamar a Randomize una única vez
End Sub
 

[GidHarvey]

David Muchas Gracias, Edito el mensaje anterio, mira lei algunos tutoriales y algunos libros y logre esto en mi codigo pero me da 9 errores, aqui pongo 2 capturas para que me digas en que estoy fallando y como seria el dise~o del generador de numeros, perdona si te molesto pero el que no pregunta es tonto espero que me ayudes porfavor y me digas que es lo que falla y que le falta a este generador. saludos y de antemano muchas gracias.

http://img380.imageshack.us/img380/7/captura1.jpg

http://img49.imageshack.us/img49/2241/captura2.jpg

[pkj]

Tu fallo está en que no has creado los controles necesarios en el formulario.

Tienes que crear un formulario con 4 textbox llamados de text1 a text4 y colocados como en la foto que pusiste al comienzo, y un boton llamado command1 para generar números cada vez que lo pulsas.

El error del timer te lo debe dar por que usas un VB más moderno y lo usará de otra manera.

De momento quita esa línea y prueba. Cuando funcione buscas como se usa Timer en ese VB, o alguien te lo habrá explicado aquí.

Saludos

PD: En la segunda foto veo que has creado los controles, aunque hay uno de más. El problema se deberá a que en tu VB los textbox al crearlos no se llaman text1, text2 sino textbox1, textbox2...
Solo tienes que cambiarles el nombre. El botón tendrá el mismo problema. Debe llamarse Command1 o cambiarlo en la declaración de la Sub Command1 por el nombre de tu botón.

[GidHarvey]

Iniciado por pkj

Tu fallo está en que no has creado los controles necesarios en el formulario.

Tienes que crear un formulario con 4 textbox llamados de text1 a text4 y colocados como en la foto que pusiste al comienzo, y un boton llamado command1 para generar números cada vez que lo pulsas.

El error del timer te lo debe dar por que usas un VB más moderno y lo usará de otra manera.

De momento quita esa línea y prueba. Cuando funcione buscas como se usa Timer en ese VB, o alguien te lo habrá explicado aquí.

Saludos

PD: En la segunda foto veo que has creado los controles, aunque hay uno de más. El problema se deberá a que en tu VB los textbox al crearlos no se llaman text1, text2 sino textbox1, textbox2...
Solo tienes que cambiarles el nombre.

Probare ahora mismo lo que me dices amigo, estoy pendiente al foro, saludos y muchas gracias.

[pkj]

Mira de nuevo la Post Data...
Aparte, la falta del randomize solo hace menos aleatoria la extracción de números, de modo que funcionar debe funcionar sin él. Después busca información sobre ello para tu version del VB y seguramente habra ejemplos usando Timer o su equivalente en tu VB.

Que se dé bien.

[GidHarvey]

Iniciado por pkj

Mira la Post Data...

pkj muchas gracias, eso ya lo edite y me elimino errores que tenia muchas gracias de verdad pero todavia me quedan 3 errores y no se a que se deven, aqui te cuelgo 2 imagenes del codigo y ahora puse el timer creo que faltaba verdad?
bueno saludos a todos los que me han ayudado.

http://img97.imageshack.us/img97/489/captura1c.jpg

http://img208.imageshack.us/img208/4751/captura2h.jpg

[pkj]

Es que has metido la función dentro de la sub del botón.

Ponla debajo. Despues del End Sub del boton.

[pkj]

Perdon. Solo tienes que cortar la primera declarción de tu button1 y pegarla en lugar de la linea del Private Sub Command1.

[GidHarvey]

Iniciado por pkj

Perdon. Solo tienes que cortar la primera declarción de tu button1 y pegarla en lugar de la linea del Private Sub Command1.

hola pkj, no entiendo mucho, como seria el codigo... ahora solo tengo 2 errores.

aqui te dejo el codigo y la imagen de los 2 errores que me quedan :S

http://img258.imageshack.us/img258/7/captura1.jpg

Código:

Public Class Form1

    Option Explicit

    Private Function Aleatorio(ByVal Minimo As Long, ByVal Maximo As Long) As Long

        Aleatorio = CLng((Minimo - Maximo) * Rnd() + Maximo)

    End Function

    Private Sub Button_Click()

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = Aleatorio(1000, 9999)

        TextBox2.Text = Aleatorio(1000, 9999)

        TextBox3.Text = Aleatorio(1000, 9999)

        TextBox4.Text = Aleatorio(100000, 999999)

        TextBox4.Text = TextBox4.Text & Aleatorio(10000, 99999)

    End Sub

    Private Sub Form_Load()

        Randomize(Timer1) 'Llamar a Randomize una única vez

    End Sub
End Class

[pkj]

Es que mi VB no crea el código igual y tendria que escribirlo todo.

Pegamelo que lo cambie.

[GidHarvey]

Iniciado por pkj

Es que mi VB no crea el código igual y tendria que escribirlo todo.

Pegamelo que lo cambie.

hay lo pegue y a~adi una imagen con los 2 errores que tengo

[David]

Siempre es mejor que especifiques desde el inicio la versión con la que estás trabajando.
Tema transladado desde la sección de Visual Basic clásico.

En .NET existe la clase Random para generar números pseudo-aleatorios.

Saludos.

[pkj]

La imagen no la puedo usar para copiar su texto.
Necesito en formato texto el código completo o tendré que escribir las declaraciones a mano.

[pkj]

opps perdon, ya lo veo

[pkj]

Código :

Option Explicit
 
Public Class Form1
 
 
    Private Function Aleatorio(ByVal Minimo As Long, ByVal Maximo As Long) As Long
 
        Aleatorio = CLng((Minimo - Maximo) * Rnd() + Maximo)
 
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        TextBox1.Text = Aleatorio(1000, 9999)
 
        TextBox2.Text = Aleatorio(1000, 9999)
 
        TextBox3.Text = Aleatorio(1000, 9999)
 
        TextBox4.Text = Aleatorio(100000, 999999)
 
        TextBox4.Text = TextBox4.Text & Aleatorio(10000, 99999)
 
    End Sub
 
    Private Sub Form_Load()
 
        'Randomize(Timer1) 'Llamar a Randomize una única vez
 
    End Sub
End Class
 

Así deberia funcionar. Si da error ahí, deshabilita tambíen la línea del Option Explicit que solo es para obligarte a declarar las variables.
Estudia la página que dice David si tienes problemas con el RND o quieres mejores resultados (y estás usando .NET, algo de lo que no estoy muy seguro)

[GidHarvey]

pkj, tu codigo funciono genial, ahora si tengo 0 errores y genera, lo unico que habia que arreglar al codigo que tu tienes es

Código:

#
#
        TextBox4.Text = Aleatorio(100000, 999999)
#
 
#
        TextBox5.Text = Aleatorio(10000, 99999)

eso seria todo para que funcione. Muchas gracias pkj te pasaste y muchas gracias David por la ayuda, me estudiare el link que mandaste para orientarme mas, ya que es el segundo dia con VB.

PD: como lo guardo para abrirlo como programa

[pkj]

He cargado un PC virtual que tengo con VB 2005 y así me ha funcionado:

Código :

Public Class Form1
  Private Function Aleatorio(ByVal Minimo As Long, ByVal Maximo As Long) As Single
    Aleatorio = Int((Minimo - Maximo) * Rnd()) + Maximo
  End Function
  Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    TextBox1.Text = CStr(Aleatorio(1000, 9999))
    TextBox2.Text = CStr(Aleatorio(1000, 9999))
    TextBox3.Text = CStr(Aleatorio(1000, 9999))
    TextBox4.Text = CStr(Aleatorio(100000, 999999))
    TextBox4.Text = TextBox4.Text & CStr(Aleatorio(100000, 999999))
  End Sub
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Randomize() 'Llamar a Randomize una única vez
  End Sub
 

La única diferencia que debe haber con tu código es la declaración del evento click del boton, de modo que para tu VB el código sería:

Código :

Public Class Form1
  Private Function Aleatorio(ByVal Minimo As Long, ByVal Maximo As Long) As Single
    Aleatorio = Int((Minimo - Maximo) * Rnd()) + Maximo
  End Function
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    TextBox1.Text = CStr(Aleatorio(1000, 9999))
    TextBox2.Text = CStr(Aleatorio(1000, 9999))
    TextBox3.Text = CStr(Aleatorio(1000, 9999))
    TextBox4.Text = CStr(Aleatorio(100000, 999999))
    TextBox4.Text = TextBox4.Text & CStr(Aleatorio(100000, 999999))
  End Sub
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Randomize() 'Llamar a Randomize una única vez
  End Sub
 

Ha sido un placer.

PD: Esto no es .NET

[GidHarvey]

pkj muchas gracias por tu ayuda amigo, eres un master, ya lo tengo listo funciona y randomiza genial, lo unico que no se como guardarlo como .exe :P xD haber si alguien me dice, uso el Visual Basic 2008 saludos y muchas gracias a los que me ayudaron

[pkj]

En mi VB para compilarlo es en la primera opción del menu Generar.
En el 2008 puede que no.
De todas formas creo que para ejecutarlo cuando depuras se crea el .exe en una carpeta del proyecto. Solo tienes que copiarlo.

Aparte tengo que decir que he estado mirando y parece ser que si que es .NET esto.
El caso es que yo lo probé con vb .NET 2003 y lo recuerdo bastante más complicado que VB 2005, pero según la wikipedia parece ser que si que son .NET. Pido disculpas.

Saludos.