Mensajes

puedes utilizar esta funcion

Código [Seleccionar] Expandir


Private Function Existe(ByVal file As String) As Boolean
On Local Error Resume Next
Existe = Len(Dir$(file))
End Function


i para ver si existe un archivo pones asi:

Código [Seleccionar] Expandir


if existe("c:\archivo.bmp") then ' si el archivo existe...
lo que sea
end if

o puedes poner asi:

Código [Seleccionar] Expandir


if not existe("c:\archivo.bmp") then ' si el archivo no existe...
lo que sea
end if


espero te sirva
saludos




El MaRo!

Código [Seleccionar] Expandir


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

[Cronometro:]

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!

mmmmmmmmmm
bueno deja pensar,. yo me voy al gimnacio a entrenar los musculos un rato y cuadno vuelv a la noche veo si te puedo acer un codigo para vos y te lo posteo
suerte,. y explicame tu "estilo"

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)

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,.

buena data,. bastante interesante,. a mi tampoco se me abia ocurrido

[interval = 1]

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

Código [Seleccionar] Expandir


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!

jajjaaj a mi me a pasado eso,. y postie exactamente lo mismo que abian postiado ,. despeu me preguntaron si era los mismo jajaja,. y les conte la istoria (me abi ido a comer y no abia presionado el poton publicar xD)

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!

exelentes los tuto de direcX
grcias x la info


El MaRo!