Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Crear Cronometro Visible en Excel

Estas en el tema de Crear Cronometro Visible en Excel en el foro de Visual Basic clásico en Foros del Web. Tengo un problema y he investigado pero no he podido. Necesito colocar un cronometro visible en una hoja de Excel y que cuando llegue a ...
  #1 (permalink)  
Antiguo 23/06/2012, 20:11
 
Fecha de Ingreso: enero-2012
Ubicación: Bogota
Mensajes: 16
Antigüedad: 12 años, 6 meses
Puntos: 0
Exclamación Crear Cronometro Visible en Excel

Tengo un problema y he investigado pero no he podido. Necesito colocar un cronometro visible en una hoja de Excel y que cuando llegue a cero emita un sonido. Por favor necesito que me ayuden y que si se puede que sea muy detallado el proceso ya que soy demasiado novato con visual.

Mil gracias
  #2 (permalink)  
Antiguo 25/06/2012, 07:48
Avatar de lojoam  
Fecha de Ingreso: marzo-2012
Ubicación: Springfield
Mensajes: 32
Antigüedad: 12 años, 4 meses
Puntos: 7
De acuerdo Respuesta: Crear Cronometro Visible en Excel

Cita:
Iniciado por juancarlosto Ver Mensaje
Tengo un problema y he investigado pero no he podido. Necesito colocar un cronometro visible en una hoja de Excel y que cuando llegue a cero emita un sonido. Por favor necesito que me ayuden y que si se puede que sea muy detallado el proceso ya que soy demasiado novato con visual.

Mil gracias
Buenas juan, aquí he probado 2 formas de cronometrar y te paso el código, en un label el cronometro crece y en el otro decrece. Creo que esta bien sencillo de entender, para probarlo tendrías q usar los mismos nombres de los controles en el formulario (Son 2 lbls y un cmdbutton)
Espero te sirva, Salutte

Código vb:
Ver original
  1. Private Sub cmdIniciar_Click()
  2. If cmdIniciar.Caption = "Iniciar" Then
  3.     Timer1.Enabled = True
  4.     cmdIniciar.Caption = "Detener"
  5. Else
  6.     Timer1.Enabled = False
  7.     cmdIniciar.Caption = "Iniciar"
  8. End If
  9. End Sub
  10.  
  11. Private Sub Form_Load()
  12.     cmdIniciar.Caption = "Iniciar"
  13.     Timer1.Interval = 1000
  14.     Lblmas.Caption = "00:00:00"
  15.     Lblmenos.Caption = "01:00:00"
  16. End Sub
  17.  
  18. Private Sub Label1_Click()
  19.  
  20. End Sub
  21.  
  22. Private Sub Timer1_Timer()
  23.     Lblmas.Caption = Format(CDate(Lblmas.Caption) + CDate("00:00:01"), "Hh:mm:ss")
  24.  
  25.     Lblmenos.Caption = Format(CDate(Lblmenos.Caption) - _
  26.                                    CDate("00:00:01"), "Hh:mm:ss")
  27.     If Lblmenos.Caption < CDate("00:00:00") Then
  28.         Lblmenos.Caption = "01:00:00"
  29.     End If
  30.  
  31. End Sub
  #3 (permalink)  
Antiguo 25/06/2012, 08:05
Avatar de lojoam  
Fecha de Ingreso: marzo-2012
Ubicación: Springfield
Mensajes: 32
Antigüedad: 12 años, 4 meses
Puntos: 7
Respuesta: Crear Cronometro Visible en Excel

Y el Timer (que figura como Timer1) tambien seria el 4to control en el form que necesitarias.
Respecto a que es en Excel tu consulta y que recien re-leo la verdad no estoy seguro de que puedas agregarle un cronometro a Excel desde VB...

Etiquetas: cronometro, excel, visible, visual
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 19:47.