buenas estoy intentando hacer un cronometro sencillo, pero el problema es que quiero que me mida hasta las milesimas :-\
He encontrao un codigo que hace uno, pero solo llega hasta las centésimas, como seria para las milesimas?
pa las milesimas es simple., con el timer en interval 1
el timer usa como valos milesimas ,. osea,. valor=1000milesimas=1segundo
tonces pones el interval en 1 y listo,. ahi tenes milesimas
para las centesimas calculo que seria un interval de 100
suerte
El MaRo!
Con el intervalo del Timer puesto al 1, 1000 (1 seg) el propio intervalo está en milésimas.
Salu2
eso es elmaro, te has adelantado a mi respuesta mientras la ponía, bueno, no t he podido ayudar, pero... por un minuto, jeje, enga saludos
jajjaaj a mi me a pasado eso,. y postie exactamente lo mismo que abian postiado :P,. despeu me preguntaron si era los mismo jajaja,. y les conte la istoria :P(me abi ido a comer y no abia presionado el poton publicar xD)
jejeje, es la primera vez que me pasa, pero si te fijas es exactamente lo mismo lo de los 2 xD, pues nada, salu2
El caso es que probando eso que me decis, por ejemplo creo un textBox y un timer. El valor interval de timer lo pongo oa 1 y pongo el siguiente codigo
Private Sub Timer1_Timer()
Text1.Text = 1 + Val(Text1.Text)
End Sub
en el text box sale un numero que se incrementa, pero al ritmo de las centesimas, en vez de las milesimas. Por ejemplo cuando va por el 512 por decir un numero, el 5 aumenta cada segundo, el 1 decimas y el 2 centesimas. Y yo lo busco es que me muestre tambien las milesimas.
Espero haberme explicado con claridad.
Un saludo
hola que tal,. bueno recien llego de trabajar y te doy esto,. aver si te sirve,. espero que si
pon este code en un timer con interval = 1
Static seg
Static cent
Static mil
mil = mil + 1
If mil = 9 Then
mil = 0
cent = cent + 1
End If
If cent = 9 Then
cent = 0
seg = seg + 1
End If
Label1 = seg & " - " & cent & " - " & mil
espero que te sirva,. es muy simple,. si tenes duda pregunta nomas
un saludo
El MaRo!
Cita de: elmaro en 8 Agosto 2006, 00:24 AM
hola que tal,. bueno recien llego de trabajar y te doy esto,. aver si te sirve,. espero que si
pon este code en un timer con interval = 1
Static seg
Static cent
Static mil
mil = mil + 1
If mil = 9 Then
mil = 0
cent = cent + 1
End If
If cent = 9 Then
cent = 0
seg = seg + 1
End If
Label1 = seg & " - " & cent & " - " & mil
espero que te sirva,. es muy simple,. si tenes duda pregunta nomas
un saludo
El MaRo!
Lo unico que me sale en label es
- - 1
dime que hago mal :S
pon refrehs cada vez que cambies el valor del label...
Cita de: Hans el Topo en 8 Agosto 2006, 00:54 AM
pon refrehs cada vez que cambies el valor del label...
uf perdoname, pero estoy un poco verde en VB todavia. Me lo podrias explicar
Y otra cosa, en el codigo anterior, donde esta el timer? :S
Gracias y un saludo
Cita de: kikev10 en 8 Agosto 2006, 01:00 AM
Cita de: Hans el Topo en 8 Agosto 2006, 00:54 AM
pon refrehs cada vez que cambies el valor del label...
uf perdoname, pero estoy un poco verde en VB todavia. Me lo podrias explicar
Y otra cosa, en el codigo anterior, donde esta el timer? :S
Gracias y un saludo
lo del código anterior... eso es el código del timer... xD
y el refresh va tras cambiar el valor del label
label=lokesea
label.refresh
vale ya salen las tres cifras incrementandose, pero son 'segundos' 'decimas' y 'centesimas'... sigue sin salir las milesimas
o lo que realmente lo que pasa es que no estan las deciamas??
perdon, pero me estoy liando :S
mira,. recien mire un cronometro que tengo aca,. y no aparecen mas mediciones,. aparecen esas tres que te puse,. despeu de eso aparecen los minutos y las horas,.
vaya, pues necesito que me mida minutos, segundos, decimas, centesimas y milesimas, al estilo de
1:46.329
a ver si a alguien se le ocurre algo
mmmmmmmmmm
bueno deja pensar,. yo me voy al gimnacio a entrenar los musculos un rato :P y cuadno vuelv a la noche veo si te puedo acer un codigo para vos y te lo posteo
suerte,. y explicame tu "estilo"
Citar
vaya, pues necesito que me mida minutos, segundos, decimas, centesimas y milesimas, al estilo de
1:46.329
el numero ese que muestra?'
el 1 es minutos?? el 46 son segundos?' y el 329??? decimas, centesims y milesimas? ^o)
Cita de: elmaro en 8 Agosto 2006, 01:40 AM
mmmmmmmmmm
bueno deja pensar,. yo me voy al gimnacio a entrenar los musculos un rato :P y cuadno vuelv a la noche veo si te puedo acer un codigo para vos y te lo posteo
suerte,. y explicame tu "estilo"
Citar
vaya, pues necesito que me mida minutos, segundos, decimas, centesimas y milesimas, al estilo de
1:46.329
el numero ese que muestra?'
el 1 es minutos?? el 46 son segundos?' y el 329??? decimas, centesims y milesimas? ^o)
si, efectivamente, es:
1 (minutos)
46 (segundos)
3 (decimas)
2 (centesimas)
9 (milesimas)
gracias por las molestias :)
bueno.... no voy a postiar el code xq ay algunos que otros controles y no me voy a poner a explicar como va cada uno,. aunke sea simple xD
en fin,. me tomo un ratito hacerlo,. y te lo dejo aki,. espero te sirva,. cuentame como te andubo y demas
y tenme en cuenta :) que es l primera vez que armo un "proyecto" para alguien jeje
saludos y avisa como te fue
Cronometro:
http://www.badongo.com/file/1194963
El MaRo!
muchisimas gracias elmaro! es tal lo que buscaba, ahora lo integrare en mi programita
muchas gracias
solo una cosa mas elmaro, que significa esta parte del codigo
Private Sub Form_Load()
Me.Show
Vmil1 = 0
Vcen1 = 0
Vdec1 = 0
Vseg1 = 0
Vmin1 = 0
End Sub
Sobretodo lo que no llego a entender es lo de Me.show
gracias de nuevo
Private Sub Form_Load()
Me.Show
Vmil1 = 0
Vcen1 = 0
Vdec1 = 0
Vseg1 = 0
Vmin1 = 0
End Sub
eso es para que cuadno aparezca el formulario en el label aparezca 0:0:0.000,. si no est eso aparece :::. ya que el timer que muestr el cronometro est en enable desde el principio
y el me.show es para que te muestre el formulario,. xq lo puse en visible=false,. para uevear un rato :P