Autor
|
Tema: [DUDA] Contador con ceros a la izquierda (Leído 2,724 veces)
|
HJZR4
Desconectado
Mensajes: 101
C0N0C1M13NT0
|
Bueno pues mi duda es básicamente el título. ¿Cómo puedo hacer un contador que muestre los ceros a la izquierda? Dada antes una longitud claro...
Ejemplo: 00000 00001 00002 ... 00150 00151 ...
Se me ha ocurrido que una cadena de caracteres se puede hacer, pero necesitaría cuatrocientasmil líneas de código.
Espero que podais echarme una mano... Gracias
|
|
|
En línea
|
Para aprender solo hay una solución: LeeR y Preguntar
|
|
|
seba123neo
|
Hola,proba... Private Sub Command1_Click() Static i As Integer i = i + 1 Me.Caption = Format(i, "0000") End Sub
saludos.
|
|
|
En línea
|
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.
Neil deGrasse Tyson
|
|
|
APOKLIPTICO
Desconectado
Mensajes: 3.871
Toys in the attic.
|
Seba123neo, esa funcion solo te va a agregar 4 ceros. Esta funcion te agrega la cantidad de ceros q quieras y en tiempo de ejecucion: Function addzeros(maxzeros As Byte, number As String) As String Dim i As Long addzeros = number For i = 1 To maxzeros - Len(number) DoEvents addzeros = "0" & addzeros Next i End Function
[offtopic] 1000 fucking posts!!! [/offtopic]
|
|
|
En línea
|
AMD Phenom II 1075T X6 @ 290 Mhz x 11 (HT 2036 Mhz NB Link 2616 Mhz) 1.23 Vcore ASUS M4A89GTD-PRO/USB3 2x2gb G-Skill RipjawsX DDR3 1600 Mhz CL7 (7-8-7-24-25-1T) Seagate 500 Gb XFX HD4850 512Mb GDDR3. 650 Mhz/995 Mhz 1.1 Tflops.
|
|
|
cobein
|
Private Sub Form_Load() Dim lNum As Long Dim lZeros As Long lNum = 20 lZeros = 10 Debug.Print Right$(String(lZeros, "0") & lNum, lZeros) End Sub
|
|
|
En línea
|
|
|
|
vivachapas
Desconectado
Mensajes: 612
|
lo acabo de hacer no se si te servira XD... es una lammerada jaja Private Sub Command1_Click() Dim uno As String Dim dos As String Dim final As String Dim faltan As Byte uno = 2 dos = 156 faltan = 5 - Len(uno) final = "" For i = 1 To faltan final = final & "0" Next final = final & uno MsgBox final final = "" faltan = 5 - Len(dos) For i = 1 To faltan final = final & "0" Next final = final & dos MsgBox final End Sub
espero te sirva.. Saludos
|
|
|
En línea
|
|
|
|
Angeldj27
Desconectado
Mensajes: 199
Ahorra Agua... Beba Cerveza
|
Creo que lo que el quiere seria esto o yo lo aria asi TxtCodigo.Text = Format(Val(NumTemp) + 1, "#####00000")
Asi quedaria 00001 y el siguiente 00002 le pone los ceros a la izquierda Saludos..
|
|
|
En línea
|
"Que vamos a hacer Mañana?..... Lo mismo que hacemos todos los dias Pinky tratar de Conquistar el Mundoooo!!!!!
|
|
|
ssccaann43 ©
Desconectado
Mensajes: 792
¬¬
|
El ejemplo q posteo cobein le funciona... 
|
|
|
En línea
|
 - Miguel Núñez Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio... "I like ^TiFa^"
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
[DUDA] Contador de vocales. Medio-Solucionado xD
Programación C/C++
|
pitka
|
9
|
7,347
|
4 Diciembre 2010, 18:18 pm
por EddyC
|
|
|
Enteros con ceros al inicio AYUDA
Programación C/C++
|
cesarjgrd.18
|
6
|
1,697
|
7 Noviembre 2011, 02:17 am
por BlackZeroX (Astaroth)
|
|
|
duda contador
Desarrollo Web
|
K-roleck
|
1
|
1,030
|
16 Noviembre 2011, 21:19 pm
por #!drvy
|
|
|
Mostrar ceros a la izquierda en un entero en C++
« 1 2 »
Programación C/C++
|
erest0r
|
19
|
16,033
|
6 Septiembre 2013, 15:23 pm
por Eternal Idol
|
|
|
Duda contador 74169
Electrónica
|
JonaLamper
|
3
|
4,672
|
13 Febrero 2014, 02:40 am
por pax01
|
|