Cronómetro para controlar la duración de tus videos de yotutube

Controlar la duración 

de tus videos de youtube: Herramienta Cronómetro

 Esta es una pequeña herramienta que me he hecho para controlar la duración de mis videotutoriales. Es fácilmente adaptable a vuestras necesidades.


Al iniciarla presenta un formulario, que nos solicita los datos que nos mostrará en la posterior pantalla de presentación.

Luego se activa la pantalla de presentación, donde ya podremos iniciar la grabación del video y poner en marcha el cronometro (pulsar el botón "iniciar").

 Con el botón "recortar" haremos que se reduzca el formulario y solo aparezca el cronómetro.

Hay un pequeño botón junto al marcador de  los segundo, el cual al pulsarlo, se vera de nuevo el formulario.

Este botón cuando el cronometro llegue a cero, aparecerá intermitente.
Código de los dos formularios:
Formulario Fmain:

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

ME.center

ComboBoxgestorpantalla.Add("Gnome")

ComboBoxgestorpantalla.Add("KDE")

ComboBoxgestorpantalla.Add("XFCE")

ComboBoxgestorpantalla.Add("Unity")

ValueBoxfecha.value = Now

END

PUBLIC SUB Button1_Click()

ME.visible = FALSE

FormPresentar.show()

END

PUBLIC SUB ButtonSalir_Click()

ME.close()

END

FormularioPresentar:

' Gambas class file

PUBLIC a AS Integer

PUBLIC b AS Integer

PUBLIC c AS Integer

PUBLIC d AS Integer

PUBLIC SUB Form_Open()

ME.center

ME.Caption = "Tiempo..."

minutos.value = 15 'tiempo inicial en minutos

segundos.value = 0 'tiempo inicial en segundos

a = segundos.value

b = minutos.value * 60

tema.Text = FMain.TextBoxTema.text

parte.text = FMain.TextBoxparte.Text

version.text = FMain.TextBoxgambas.Text

distroygestor.text = FMain.TextBoxgnulinux.text & " , " & FMain.ComboBoxgestorpantalla.text

fecha.Text = "Fecha: " & Format(FMain.ValueBoxfecha.value, "dd/mm/yyyy")

END

PUBLIC SUB ToolButton1_Click()

cronometrodescontar.Enabled = TRUE

c = (a + b) / 60

d = (a + b) MOD 60

END

PUBLIC SUB cronometrodescontar_Timer()

IF c = 0 AND d = 0 THEN

IF ToggleButton1.Background = Color.Red THEN

ToggleButton1.Background = Color.green

ELSE

ToggleButton1.Background = Color.Red

ENDIF

ELSE

IF d = 0 THEN

c = c - 1

d = d + 59

ELSE

d = d - 1

ENDIF

'show the countdown

minutos.Value = c

segundos.Value = d

ENDIF

END

PUBLIC SUB Button1_Click()

FormPresentar.w = 159

FormPresentar.h = 49

END

PUBLIC SUB ToggleButton1_Click()

FormPresentar.w = 800

FormPresentar.h = 640

END

PUBLIC SUB form_Close()

FMain.Visible = TRUE

END

 

PUBLIC SUB Button2_Click()

IF cronometrodescontar.Enabled = TRUE THEN

cronometrodescontar.Enabled = FALSE

Button2.text = "sigue"

ELSE

IF cronometrodescontar.Enabled = FALSE THEN

cronometrodescontar.Enabled = TRUE

Button2.text = "stop"

ENDIF

ENDIF

END

Os dejo aquí el enlace para descargar el código fuente completo

Nota:
28 / 08 / 2011: Mejora incluida, ahora podemos parar el reloj y continuar. Para realizar paradas en la grabación del video.