elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Cronometrar mi Aplicación
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Cronometrar mi Aplicación  (Leído 1,269 veces)
Pitoniso

Desconectado Desconectado

Mensajes: 118


Ver Perfil
Cronometrar mi Aplicación
« en: 23 Marzo 2006, 20:12 pm »

Option Explicit

Private Inicio As Single, Dif As Single, Total As Single
Dim segun As Integer
Dim minu As Integer
Dim hor As Integer
Dim resumen As String


Private Sub Command1_Click()
Dim Total
Open "C:\Total.txt" For Output Shared As #1
    Write #1, Dif
Close #1
Unload Me
End Sub

Private Sub Form_Load()
If (Dir("C:\Total.txt") <> "") Then
    Exit Sub
Else
    Open "C:\Total.txt" For Output Shared As #1
        Write #1, 60 'Aqui pones la cantidad de tiempo en segundos que deseas que la aplicación trabaje
    Close #1
End If

Open "C:\Inicio.txt" For Output Shared As #1
   Write #1, Timer
Close #1
End Sub

Private Sub Timer1_Timer()
Static contador As Integer
contador = contador + 1
segun = segun + 1
    If segun = 60 Then
        minu = minu + 1
        segun = 0
    End If
    If minu = 60 Then
        hor = hor + 1
        minu = 0
    End If
    resumen = Format(hor, "00") & ":" & Format(minu, "00") & ":" & Format(segun, "00")
    Etiqueta1.Caption = resumen

Open "C:\Inicio.txt" For Input As #1
   Input #1, Inicio
Close #1
Open "C:\Total.txt" For Input As #1
    Input #1, Total
Close #1
Dif = Total - segun
Debug.Print Dif
Open "C:\Dif.txt" For Output Shared As #1
    Write #1, Dif
Close #1
If Dif = 0 Then
    MsgBox "Se acabo tu Tiempo", vbCritical, "Time Out"
    Unload Me
Else
    Exit Sub
End If
End Sub

Se que no es el mejor pero PINCHA...

Haber si alguien se embulla y me ayuda a guardar los tiempos en ves de TXT en el Registro... Salu2...

Posteenn


En línea

.:CorTeX:.

Desconectado Desconectado

Mensajes: 135


The Gimp User


Ver Perfil WWW
Re: Cronometrar mi Aplicación
« Respuesta #1 en: 23 Marzo 2006, 21:10 pm »

Pues hay una forma de hacerlo, es con una funcion que se llama savesetting y otra getsetting, si quieres mas info postealo aqui...


En línea

Orgullosamente Colombiano


Pitoniso

Desconectado Desconectado

Mensajes: 118


Ver Perfil
Re: Cronometrar mi Aplicación
« Respuesta #2 en: 23 Marzo 2006, 21:31 pm »

Pues postea lo de como guardarlo en el Registro

Salu2
En línea

.:CorTeX:.

Desconectado Desconectado

Mensajes: 135


The Gimp User


Ver Perfil WWW
Re: Cronometrar mi Aplicación
« Respuesta #3 en: 23 Marzo 2006, 21:55 pm »

Pues mejor te dejo un link en el que te explican todo muy bien, y ya luego tu lo configuras para tu App, ok?

http://www.elguille.info/NET/dotnet/get_save_SettingCS.htm
En línea

Orgullosamente Colombiano


Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Como cronometrar un programa hecho en C
Programación C/C++
leophysicist1987 5 4,167 Último mensaje 22 Febrero 2012, 03:00 am
por rir3760
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines