görüntü işleme kod_son

Görüntü işleme kod_son

Info iconThis preview shows pages 1–3. Sign up to view the full content.

View Full Document Right Arrow Icon

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: Sheet1 Page 1 author@Serdar Katna 31.10.2009 10:00-19:23 Public Class FormWebcam Dim resim As Bitmap Dim gri As Bitmap Dim sb As Bitmap Dim kamera As Boolean Dim sayac As Boolean Dim tracker As Integer Dim x As Integer Dim y As Integer Dim objeNo As Integer Dim posX(3) As Integer Dim posY(3) As Integer Private Sub posReset() For i = 0 To 3 posX(i) = 0 posY(i) = 0 Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If kamera = False Then KameraAc() kamera = True Button3.Enabled = False posReset() Else MsgBox("Kamera zaten ak.", MsgBoxStyle.Critical, " Hata!") End If End Sub Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click If kamera Then FotografCek() kamera = False resim = picCapture.Image toGray() toBW() picCapture.Image = sb sb = picCapture.Image Button3.Enabled = True Else MsgBox("Kamera kapal.", MsgBoxStyle.Critical, " Hata!") End If End Sub Private Sub toBW() Dim renk As Color Sheet1 Page 2 Dim i As Integer Dim j As Integer For i = 0 To 319 For j = 0 To 239...
View Full Document

Page1 / 5

Görüntü işleme kod_son

This preview shows document pages 1 - 3. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online