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
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.
Saludos a G3RAR284, espero que te sea útil.
