Har suttit och lekt med en WebbCamera ansluten på USB porten

Programarkivet:Webbkamera inspektion.

Om någon vill kolla skulle gärna vilja ha goda råd hur filtret skall konstrueras.
Just nu består filtret av denna enkla konstruktion.
Programmet kollar om det blivit förändring i bilden mellan två tidsintervall.
Filterbilden skall i princip vara helt svart om ingen förändring skett.
Så är tanken.
<code>
'orginalbilden
GetBitmapBits Picture1.Image, arrayLen, PicOrgArray(1)
For i = 1 To arrayLen
If PicNewArray(i) - PicOrgArray(i) < 1000 Then
PicNewArray(i) = 0
Else
PicNewArray(i) = PicOrgArray(i) Xor PicNewArray(i)
End If
Next 'i
'Skicka tillbaka bilden till gransknings picture
SetBitmapBits Picture2.Image, arrayLen, PicNewArray(1)
'refresh
Picture2.Refresh
</code>

Edit: Har modifierat filtret nu efter DownLoad 14

Programarkivet:Webbkamera inspektion.
<code>
If PicNewArray(i) = PicOrgArray(i) Then
PicNewArray(i) = 0
</code>

Kommer du ihåg att vi diskuterade detta för 6 år sen?

Länk till den tråden: [Motion]

Ja fae.... vad tiden går.Hade ingen WebbKamera då. Hade glömt den tråden.
Ämnet har blivit hett igen i ett projekt jag är med i.

Har kommit ganska långt nu. Sitter och fnular på det optimala filtret.

När man jämför 2 pixelvärde måste man tolerera liten avvikelse dom emellan.
Det är detta jag nu försöker reda ut. Tex. RGB 00 00 FF och 00 00 F2 (Vb stuket)
skall behandlas som röd båda och göra att jag sätter den pixeln 00 00 00 Dvs Svart.

Kolla
Programarkivet:Webbkamera inspektion.

Så Ni förstår min intuition

Projektet färdigt

Kolla Programarkivet:Webbkamera inspektion. för att se resultatet

Oki detta skojiga projekt färdigt.Efter Download 48
Detta får bli slutprodukt.

Programarkivet:Webbkamera inspektion.
<b>Ett litet prog som kräver att du har en Webbkamera ansluten

Bygg gärna vidare.
Lägg bifogade ezVidc60.ocx och .osa i Windows\System32
Eventuellt så får Ni köra Register.bat också.

Man kan kolla om det blivit förändring i bilden mellan 2 olika SnapShot
se bifogad bild (bil passerar på gatan utanför)

Obs du kan nu klicka i Filterbilden för att kolla position</b>

Kunde inte hålla mig.
Har uppdaterat programmet efter DownLoad 74 tips/råd från Forumet.

Har infört en känslighets-Slider med Varningsfunktion
Programarkivet:Webbkamera inspektion.
<code>
'******************** Varnings känslighet ********************
'Varnings signal. Plats för justering av * 4 ( 3 - 6 gissar jag)
'Här fordras mer experiment
If diffCounter > (100 - Slider1.Value) * 4 Then
Shape1.FillColor = vbRed
Else
Shape1.FillColor = &HC0FFFF
End If
'*************************************************************
</code>

Lite FeedBack kan jag väl få !?
Programarkivet:Webbkamera inspektion.

Går det att använda ? Får Ni det att funka ? Finns det redan bättre ?
Är ideen användbar om den förbättras ? mm. mm. ?