hola queria qeu me den una mano con un proyecto de colegio
tengo qeu capturar imagenes con la webcam pero unicamnete cuando,
se detecte movimiento en ella, hay uno muy parecido aca en esta web
pero esta en delphi , lo nesesito en VB se los agradeceria mucho,
aca les dejo hasta donde pude llegar,
http://usuarios.lycos.es/xevian05/utilidades/
(cogigo cam)
desde ya muchas gracias
Publicado:
Vie Ago 31, 2007 2:03 pm
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: capturar imagenes
Anuncios
xevian escribió:
hola queria qeu me den una mano con un proyecto de colegio
tengo qeu capturar imagenes con la webcam pero unicamnete cuando,
...
(cogigo cam)
desde ya muchas gracias
a su correspondiente Visual Basic, aunque hemos de decirte que no lo hemos podido probar, ni siquiera compilar, pero seguramente te sirva para empezar:
Código:
Private Sub tmrMain_Timer()
Dim error As Integer
Dim i, j As Integer
Dim hayMovimiento As Boolean
Dim imagenAnterior As PictureBox
Dim imagenActual As PictureBox
On Error Resume Next
SendMessage mCapHwnd, GET_FRAME, 0, 0
SendMessage mCapHwnd, COPY, 0, 0
'picOutput.Picture = Clipboard.GetData
'Clipboard.Clear
If idResultado <> 0 Then
'capturamos la imagen actual
SendMessage mCapHwnd, GET_FRAME, 0, 0
SendMessage mCapHwnd, COPY, 0, 0
imagenActual.Picture = imagenAnterior.Picture
'la imagen anterior está guardada en el portapapeles, la obtenemos
imagenAnterior.Picture = Clipboard.GetData
error = 0
'recorremos todos los píxeles de la imagen actual
For i = 0 To imagenActual.Width
For j = 0 To imagenActual.Height
'comparamos el pixel de la imagen actual con el correspondiente
'a la imagen anterior
error = error + Abs(GetPixel(imagenActual.hdc, i, j) - _
GetPixel(imagenActual.hdc, i, j))
Next j
Next i
'mostramos el porcentaje de error
txtMovimiento.Text = CStr(Int(error / 20000000) / 100)
hayMovimiento = tbSensibilidad.Position < CDbl(txtError.Text)
End If
End Sub
En cuanto lo tengamos terminado, si te parece bien, lo colocamos como descarga en esta web.
Publicado:
Mar Sep 04, 2007 5:45 pm
xevian Usuario
Registrado: Aug 31, 2007 Mensajes: 2
Asunto: Re: capturar imagenes
Anuncios
alonsojpd escribió:
En cuanto lo tengamos terminado, si te parece bien, lo colocamos como descarga en esta web.
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A
, lo nesesito en VB se los agradeceria mucho,
