Ejecutar una orden despues de 15 segundos
Publicado por Agusb (2 intervenciones) el 05/08/2019 18:19:30
Buenas trades amigos, les comento estoy creando un programita que por medio de un boton va grabando un video que guarda en mi disco duro, quiero que esta grabación se detenga al pasar 15 segundos, he intentado con ciclo pero no me funciona, aun no manejo muy bien el timer y he hecho varios intentos pero no he podido hacerlo (pude hacer como una especie de cronometro para que el usuario lo vea), copio y pego el codigo que tengo hecho:
Aca busco poner el codigo que al pasar 15 segundos la grabacion se detenga (y asi no usar el boton de abajo)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim iresult As Integer
Dim Opc As Integer
Opc = Int(Rnd() * 1000
AxVideoCap1.WMVProfile = 0
AxVideoCap1.OutputWMV = True
AxVideoCap1.CaptureFileName = "C:\\test\\" & Opc & ".wmv"
AxVideoCap1.CaptureMode = True
AxVideoCap1.CaptureAudio = True
AxVideoCap1.CaptureVideo = True
AxVideoCap1.Device = 0
AxVideoCap1.VideoFormat = 0
AxVideoCap1.SyncMode = 1
AxVideoCap1.VideoStandard = 0
AxVideoCap1.AudioInputPin = 0
iresult = AxVideoCap1.Start()
Timer1.Enabled = True ---- > este timer es para el cronometro que ve el usuario
If iresult = -1 Then
MessageBox.Show("Grabacion Fallida")
End If
Aca busco poner el codigo que al pasar 15 segundos la grabacion se detenga (y asi no usar el boton de abajo)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
AxVideoCap1.CaptureMode = False ------> este es un boton para detener la grabacionAxVideoCap1.Stop()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label2.Text = Val(Label2.Text) - 1 ---------> este es el label que muestra al usuario el tiempoIf Label2.Text = 0 Then Timer1.Enabled = False
End Sub
End Class
Valora esta pregunta
0
