jueves, 10 de diciembre de 2015

Fotomaton y Alguna Cosa Mas con Visual Basic. NET

Se trata de una pequeña aplicacion que implementa una forma de crear un Fotomaton con la Webcam y utilizar las imagenes obtenidas para generar Fotos con Textos y Dibujos, Felicitaciones Personalizadas, etc.




Descarga del Proyecto Completo Onedrive

9 comentarios:

  1. Buenas me encanta su trabajo era haber si podia hacer un recibidor de email que podamos ver los email que nos mandan de nuestros correo gmail,hotmail.

    ResponderEliminar
    Respuestas
    1. Hola: La verdad es que eso de recibir mails en una aplicacion es un tema que no me interesa mucho. Hice esto:
      http://visualbasictutoriales.blogspot.com.es/2014/04/recibir-y-gestionar-mails-basico-con.html
      Como base para los que quieran profundizar sobre el tema.
      Saludos.

      Eliminar
  2. Hola era haber si podia hacer con este mismo proyecto como pestañas y que tenga su propia extensión y se pueda abrir todas las pestañas con la extensión

    ResponderEliminar
  3. Hola: Lo siento no entiendo lo que planteas. ¿Podrias darme mas detalles?¿Te refieres a que en lugar de un formulario separado para la construccion de la imagen utilice pestañas?¿Que extension?¿Un ejemplo...etc?.
    Saludos.

    ResponderEliminar
  4. Una propia y que sea por pestañas y que cuando abras el documento esten las pestañas

    ResponderEliminar
    Respuestas
    1. Hola: Lo siento sigo sin entender lo que planteas. Podrias iniciarla tu e indicarme donde tienes problemas. Saludos.

      Eliminar
  5. Hola compañero. Te sigo desde hace tiempo y la verdad es que aprendo muchísimo contigo y para mí eres de gran ayuda en todos los sentidos, sobre todo .NET.
    Tengo una pregunta referente a este código. Al realizar una captura se te abre una ventana de diálogo pidiéndote el Hardware que deseas. Existe una opción que siempre te coja el mismo y por tanto no te pida qué cámara utilizas?
    Me refiero a esto:
    Dim CAMARAS As VideoCaptureDeviceForm = New VideoCaptureDeviceForm() 'DIALOGO CAMARAS DISPONIBLES

    Muchas gracias!
    Javi

    ResponderEliminar
    Respuestas
    1. Hola:
      Prueba sustituir todo el codigo de ButtonCAMARA por este otro:
      If ButtonCAMARA.BackColor = Color.Black Then
      Dim CAMARAS As FilterInfoCollection = New FilterInfoCollection(FilterCategory.VideoInputDevice)
      CAMARA = New VideoCaptureDevice(CAMARAS(2).MonikerString) '0 SI ES LA PRIMERA CAMARA,1 LA SEGUNDA,2 LA TERCERA Y ASI SUCESIVAMENTE. EN MI CASO ES 2(TERCERA CAMARA)
      AddHandler CAMARA.NewFrame, New NewFrameEventHandler(AddressOf CAPTURAR) ' EJECUTARA CADA VEZ QUE SE GENERE UNA IMAGEN
      CAMARA.VideoResolution = CAMARA.VideoCapabilities(0) 'TAMAÑO DE IMAGENES 0 PARA LA PRIMERA RESOLUCION,1 PARA LA SEGUNDA Y ASI SUCESIVAMENTE.
      CAMARA.Start() 'INICIA LA PRESENTACION DE IMAGENES EN EL PICTUREBOX
      ButtonCAMARA.BackColor = Color.Red 'ESTA PRESENTANDO IMAGENES
      Else
      Try
      CAMARA.Stop() 'CIERRA LA CAMARA Y EL THREAD ASOCIADO
      Catch ex As Exception
      End Try
      ButtonCAMARA.BackColor = Color.Black ' NO ESTA PRESENTANDO IMAGENES
      End If

      Ten en cuenta el numero de orden de la camara que quieres utilizar permanentemente.
      Saludos.

      Eliminar
  6. Hola, desde hace un par de días me pasa que en Windows 7 64b cuando ejecuto cualquier aplicación de webcam la captura se verde o negra. He descargado tu aplicación y si la ejecuto con depuración (F5) si me captura la webcam correctamente pero si la ejecuto sin depuración (Ctrl+F5) la webcam no funciona. Si genero el ejecutable tampoco funciona, sin embargo en Skype o la propia aplicación de webcam de logitech si funciona. La webcam que utilizo es una Logiteck C170. En Windows 10 funciona perfectamente.

    Me estoy volviendo loco no entiengo porque se ve verde, si alguien me puede ayudar se lo agradezco.

    ResponderEliminar