Visual Basic - Secuencia numerica

Life is soft - evento anual de software empresarial
 
Vista:

Secuencia numerica

Publicado por Juan (3 intervenciones) el 10/10/2005 19:34:53
Un saludo a todos ,

Haber quien me puede ayudar a crear una aplicación que me genere en un txt.

una base de datos 700000 numeros usando esta secuencia : arrancando de estenumero 04069203000191
se le suman 10 millones y se restan 6, pero cada 10 numeros se le suman los 10 millones y se le suma 41, espero haberme explicado bien . necesito un programa que me genere a partir de ese numero todos los que le siguen hasta llegar mas o menos a setecientos mil . pero tienen que cumplir con esa secuencia que indiqué antes ..

Quien me puede dar una idea ? el programa generaria algo asi , pero necesito 700000 .

04069203000191
04069213000185
04069223000179
04069233000173
04069243000167
04069253000161
04069263000155
04069273000149
04069283000143
04069293000137
04069313000178
04069323000172
04069333000166
04069343000160
04069353000154
04069363000148
04069373000142
04069383000136
04069393000130
04069403000124
04069423000165
04069433000159

Espero haberme explicado
Como podria hacerlo ?

Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Secuencia numerica

Publicado por Carlos (43 intervenciones) el 10/10/2005 23:24:56
Que tal Juan, el código que pongo crea la secuencia que indicas.
NOTA: El límite del ciclo for es un valor introducido en una caja de texto, esto por si necesitas generar más números o en su defecto una cantidad menor.
Dim I As long, INICIO As long, CONTADOR As Integer
INICIO = 40069203000191#
List1.AddItem INICIO
For I = 0 To Val(txtLimite)
If CONTADOR < 9 Then
INICIO = INICIO + 10000000 - 6
Open "C:\CADENAS.TXT" For Append As #1
Write #1, cadena
Close #1
'List1.AddItem INICIO
Else
INICIO = INICIO + (10000000 + 41)
CONTADOR = 0
Open "C:\CADENAS.TXT" For Append As #1
Write #1, cadena
Close #1
'List1.AddItem INICIO
End If
CONTADOR = CONTADOR + 1
Next I
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Secuencia numerica

Publicado por Juan (3 intervenciones) el 10/10/2005 23:48:38
Gracias Carlos me salvastes !

¿Como podria hacer para indicarle al programa que en caso que las 2 ultimas cifras queden asi 00 , las cambie por un 97 . y que siga generando pero que cuente a partir de este numero

Por ej :

4069973000100 (al generar esta cadena debe cambiarla por un 97 y seguir el conteo como siempre a partir de este numero)

Debe quedar asi : 4069973000197 , y seguir generando contando de este numero es decir haria esto : 4069973000197 - 10000000 -6 y seguiria generando como siempre .....

Espero haberme explicado .

Como se podria hacer ?

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar