Visual Basic - numero con ceros a la izquierda (loteria)

Life is soft - evento anual de software empresarial
   
Vista:

numero con ceros a la izquierda (loteria)

Publicado por Flapas (4 intervenciones) el 21/10/2010 21:15:07
Hola, pues resulta que estoy haciendo un programa que da numeros de loteria, y no se como puedo hacer para que valla sumando un numero cada vez que lo ejecuto

00001
+1 = 00002
+1 = 00003
..... ..... .....

Alguien me puede ayudar? Muchas gracias
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:numero con ceros a la izquierda (loteria)

Publicado por FELIPE (41 intervenciones) el 21/10/2010 21:51:09
Hola,
prueba con este codigo

dim cad as string

dim inc as integer

private sub command1_click()
inc=0

inc=inc+1

' cad = izquierda(cadena,numero de caracteres a extraer)
cad=right("00000" & cstr(inc),5)
end sub

'cad = "00001"
'cad = "00002"
'cad = "00003"
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:numero con ceros a la izquierda (loteria)

Publicado por Javier (44 intervenciones) el 23/10/2010 15:47:08
Buenas, te paso una forma de hacerlo.

Private Sub Command1_Click()
ceros Text1
End Sub

Sub ceros(UnTexbox As Object) ' rutina para poner ceros y sumar 1
A = UnTexbox.Text ' cogemos el contenido del text
If A <> "" And Len(A) < 6 Then ' si esta vacio o es mas largo de 6


For i = 1 To 5 ' recorremos uno a uno el contenido del text
If Mid(A, i, 1) > 0 Then Exit For ' si encuentra un numero mayor a 0 sale
Next
B = Mid(A, i) ' captamos el numero
B = Val(B) + 1 ' transformamos a numerico y le sumamos uno
C = Len(B) ' contamos

For i = 1 To 5 - C ' llenamos la variable de ceros
D = D & "0"
Next


UnTexbox.Text = D & B ' devolvemos el valor
Else
UnTexbox.Text = "00001"
End If

UnTexbox.SetFocus

End Sub
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