 Autor
|
Tema: progressbar porcentaje (Leído 6,262 veces)
|
alfa_28
 Desconectado
Mensajes: 19
|
hola amigos me pueden dar una mano en esto
para que haga el proceso es asi:
private sub timer1_timer()
pr.max=100
for x= 1 to 100
pr.value=x
if x = x +1 then
pr.max=x
endif
next x
end sub
bueno aqui quiero que segun al proceso que empiese a contar en porcentaje del 0 al 100%
espero respuestas y saludos a todos
|
|
|
|
|
En línea
|
|
|
|
|
Hendrix
|
if x = x +1 then
pr.max=x
endif
Eso no se va a komplir nunka, puesto que estas comparando un resultado kno el mismo resutlado + 1.....asi que nunka entrara aki dentro. Salu2
|
|
|
|
|
En línea
|
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián |
|
|
Zeroql
Desconectado
Mensajes: 957
Todo lo k sucede sucede por una razon
|
for x=0 to 100-1
pr.value=x
next x
eso es todo.
|
|
|
|
|
En línea
|
Dime y lo olvido, enseñame y lo recuerdo, involucrame y lo aprendo. /.-ZEROQL.-\ ----- #937675# |
|
|
alfa_28
Desconectado
Mensajes: 19
|
if x = x +1 then
pr.max=x
endif
Eso no se va a komplir nunka, puesto que estas comparando un resultado kno el mismo resutlado + 1.....asi que nunka entrara aki dentro. Salu2 Hola que tal pues yo te digo que lo programes el cod que yo puse y veras que ssi funciona. pero el problema es que segun el proseso haga un conteo de 0 a 100% y ese conteo se muestre en un label1 de todos modos gracias y saludos......
|
|
|
|
|
En línea
|
|
|
|
Zibra
Desconectado
Mensajes: 9
|
if x = x +1 then
pr.max=x
endif
Eso no se va a komplir nunka, puesto que estas comparando un resultado kno el mismo resutlado + 1.....asi que nunka entrara aki dentro. Salu2 Hola que tal pues yo te digo que lo programes el cod que yo puse y veras que ssi funciona. pero el problema es que segun el proseso haga un conteo de 0 a 100% y ese conteo se muestre en un label1 de todos modos gracias y saludos...... eso se puede cumplir por que estan en el sub de timer, no se mucho de esto pero yo hice algo parecido pero alreves osea que el conteo se valla de 25 hasta abajo y cuando llege a 0 se pare, si te sirve ese code dime y lo pongo
|
|
|
|
|
En línea
|
|
|
|
Zeroql
Desconectado
Mensajes: 957
Todo lo k sucede sucede por una razon
|
vean mucjhachos se me olvido algo: es dim cont
provate sub timer1_timer()
cont=cont+1
if x< 100 then
x.value=cont
end if
end sub |
|
|
|
|
En línea
|
Dime y lo olvido, enseñame y lo recuerdo, involucrame y lo aprendo. /.-ZEROQL.-\ ----- #937675# |
|
|
alfa_28
Desconectado
Mensajes: 19
|
Hola que tal
Ya mandame el cod igo para probarlo a ver si me sirve
gracias
..................saludos
|
|
|
|
|
En línea
|
|
|
|
Zibra
Desconectado
Mensajes: 9
|
en este code se usa variables, supongo que sabes usarlas, es solo una y de tipo integer, tambien te puse el code todo los botones y labels para que veas todo, el del timer tambien esta claro  Dim tiempo As Integer
Private Sub Command1_Click()
Text1.Text = "10"
End Sub
Private Sub Command2_Click()
Text1.Text = "30"
End Sub
Private Sub Command3_Click()
Text1.Text = "15"
End Sub
Private Sub Command4_Click()
Text1.Locked = False
End Sub
Private Sub Command5_Click()
If Command5.Caption = "Empezar" Then
Label5.Visible = True
Command5.Caption = "Parar"
Timer1.Interval = 1000
Timer1.Enabled = True
Else
Label5.Visible = False
Command5.Caption = "Empezar"
Timer1.Enabled = False
End If
End Sub
Private Sub Timer1_Timer()
tiempo = Text1.Text
If tiempo <> 0 Then
tiempo = tiempo - 1
Text1.Text = tiempo
Else
Timer1.Enabled = False
Label5.Visible = False
Text1.Text = ""
Command5.Caption = "Empezar"
Beep
End If
End Sub
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Porcentaje de usuarios por país?
Foro Libre
|
Aikanáro Anário
|
0
|
1,599
|
27 Mayo 2011, 00:18 am
por Aikanáro Anário
|
|
|
|
Sumar un porcentaje
« 1 2 »
Programación C/C++
|
cazagavilan
|
12
|
11,464
|
25 Julio 2011, 06:48 am
por cazagavilan
|
|
|
|
Problema con ProgressBar
Programación Visual Basic
|
scavdr
|
2
|
2,395
|
24 Agosto 2012, 21:10 pm
por scavdr
|
|
|
|
Ayuda con wininet (ftpgetfile y ftpputfile), Detectar porcentaje transferido
Programación C/C++
|
70N1
|
2
|
2,530
|
6 Septiembre 2013, 20:50 pm
por 70N1
|
|
|
|
Añadir porcentaje al progressBar
.NET (C#, VB.NET, ASP)
|
Meta
|
5
|
11,816
|
1 Marzo 2016, 10:39 am
por Eleкtro
|
 |
