Fotos de programación VB

De hecho, este último es similar al primero. Este último solo necesita llamar a la cámara y luego comparar la imagen actual de la cámara con la segunda anterior ~

Función de declaración privada GetPixel Lib "gdi32" ( ByVal hdc es Long, ByVal X es Long, ByVal Y es Long) es Long

Función de declaración privada SetPixelV Lib "gdi32" (ByVal hdc es Long, ByVal X es Long, ByVal Y es Long, ByVal crColor es Long) es Long

Subcomando privado 1_Click()

Continúe con el siguiente paso si ocurre un error

Atenuar a, b es único

Dim X, Y, c1, c2 es tan largo

Para X = 0 en Imagen1. ScaleWidth / 5 - 1

Para Y = 0 a Imagen1. ScaleHeight / 5 - 1

c 1 = obtener píxel(imagen 1.hdc,X,Y)

c2 = GetPixel(Imagen2.hdc,X,Y)

Si c1 = c2, entonces a = a + 1

b = b + 1

Entonces

Entonces

Imprimir Formato (a/b * 100, "00.0") y "%"

Conector final

Esta es la imagen comparativa que muestra la similitud. Imagen 1. ¡ScaleHeight/5 es para acelerar el procesamiento!