Visual Basic - Contador con ceros delante

Life is soft - evento anual de software empresarial

Contador con ceros delante

Publicado por Carlos (9 intervenciones) el 07/04/2016 15:45:25

Buen día

Quiero crear un contador que tenga la siguiente estructura

0000001

cuando pase a decenas se muestre

0000010

Siempre las posiciones del contador tienen que ser 7.

Es sencillo, pero no consigo hacerlo me ayudan please.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Contador con ceros delante

Publicado por Cris (33 intervenciones) el 07/04/2016 18:16:04

He conseguido hacerlo pero "trampeando" un poco, supongo que habrá otra manera más limpiar de hacerlo.

Label1.Caption = Val(Label1.Caption) + 1

If Label1.Caption <= 9 Then

Text1.Text = "000000" + Label1.Caption

Label1.Caption = Text1.Text

ElseIf Label1.Caption <= 99 Then

Text1.Text = "00000" + Label1.Caption

Label1.Caption = Text1.Text

End If

Un saludo

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 1

Val: 3.117

Contador con ceros delante

Publicado por Andres Leonardo (1798 intervenciones) el 07/04/2016 20:39:44

Podriasn intentarlo asi.

Text1.Text = format(Label1.Caption,"0000000" )

SAludos

Valora esta respuesta

Comentar

Pos: 1

Val: 3.117

Contador con ceros delante

Publicado por Andres Leonardo (1798 intervenciones) el 07/04/2016 21:14:47

Otra seria usar el String que no la conocia jejejeje

Text1.Text  =  String(7-len(Label1.Caption) , "0") & Label1.Caption

Valora esta respuesta

Comentar

Problema con tipo de datos con puerto serial y mschart

A3erp (NEXUS)