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

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


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

Desconectado Desconectado

Mensajes: 56


Ver Perfil
Generador de numeros
« en: 26 Mayo 2007, 22:01 pm »

Buenas!Miren estoy tratndo de encontrar un programa que automaticamente me rellene los numeros intermedios.Ej: del 100000 al 1000000000000000 y que me haga un txt con todos los numeros intermedios, no se si me explico pretendo tener algun programa que haga como el wlandescrypter de generar las letras pero esto con numeros. Esto es lo que me han ayudado y ahora me dejaron tirado:

Private Sub Command1_Click()
Dim i As Double
Dim start As Double, fin As Double, siguiente As Double

Open "C:\prueba.txt" For Append As #1

start = Int(Text1.Text)
fin = Int(Text2.Text)

For i = start To fin
    siguiente = i
  ' MsgBox "numero" & siguiente
Print #1, siguiente
  '  Print #1, "esta es una línea"

Next i
MsgBox "fin"
Close #1
End Sub

PD: Son para las wep de r-wlanXX.. gracias


En línea

pedro004

Desconectado Desconectado

Mensajes: 56


Ver Perfil
Re: Generador de numeros
« Respuesta #1 en: 26 Mayo 2007, 22:44 pm »

Ahhhh....el de arriba funciona pero me genera tambien los ultimos cinco digitos y yo quiero que los ultimos 5 digitos sean 0 (ceros) y que no cambien solo los del medio ejemplo:
203XXXX00000 asi gracias


En línea

pedro004

Desconectado Desconectado

Mensajes: 56


Ver Perfil
Re: Generador de numeros
« Respuesta #2 en: 27 Mayo 2007, 00:20 am »

pues he buskado muxo y nada.no encuentro nada para hacerlo ( :-[
En línea

GrTk

Desconectado Desconectado

Mensajes: 185



Ver Perfil
Re: Generador de numeros
« Respuesta #3 en: 27 Mayo 2007, 02:00 am »

Dim i As Double

Open "C:\prueba.txt" For Output As #1

start = Val(Text1.Text)
fin = Val(Text2.Text)

For i = 0 To 9999

 
Write #1, Val("203" + Format(Str(siguiente), "0000") + "00000")
 

Next i
MsgBox "fin"
Close #1


me genera
esto

203000000000
203000100000
203000200000
203000300000
203000400000
203000500000
203000600000
203000700000
203000800000
203000900000
203001000000
203001100000
203001200000
203001300000
203001400000
(...)
203998800000
203998900000
203999000000
203999100000
203999200000
203999300000
203999400000
203999500000
203999600000
203999700000
203999800000
203999900000

es eso lo que queres?
En línea

Ferсhu


Desconectado Desconectado

Mensajes: 1.215

Menos palabras y Mas codigos.


Ver Perfil WWW
Re: Generador de numeros
« Respuesta #4 en: 27 Mayo 2007, 03:44 am »

O podes generar numeros del 0 al 9999 y al resultado multiplicarlo por 100.000, le sumas 203.000.000.000 y listo te genera los numeros q querias.
En línea

pedro004

Desconectado Desconectado

Mensajes: 56


Ver Perfil
Re: Generador de numeros
« Respuesta #5 en: 28 Mayo 2007, 15:32 pm »

Muchas gracias ferchu me sirvio mucho...con lo simple que es el programa no se por que no hay mas... :-\
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
generador de números y suma de los mismos
Scripting
vidusa 4 3,425 Último mensaje 31 Marzo 2012, 21:30 pm
por vidusa
[c]generador de numeros aleatoreos( se puede usar con la hora)
Programación C/C++
daryo 0 1,678 Ú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,702 Último mensaje 5 Diciembre 2018, 05:11 am
por CalgaryCorpus
Generador de QR sin librería
.NET (C#, VB.NET, ASP)
bybaal 0 1,973 Último mensaje 21 Marzo 2021, 20:06 pm
por bybaal
Generador de musica
.NET (C#, VB.NET, ASP)
Julia13 3 3,965 Último mensaje 26 Junio 2022, 02:16 am
por Serapis
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines