Kamera görüntüsü alan VisualBasic programı kodları - Payidar.NET

**Wsinf** · #1 (**Daim**) 26.02.08, 16:36

Çok zor olmayan bir kodlama ile VB de yazacağımız program aracılığıyla kamera görütüsü alabiliyoruz arkadaşlar. Görüntü almaktan kastım, msn kamerasını falan kaydetme değildir. sadece Pc ye takılı olan ve tanıtılmış kameranızın kendi yaptığınız programda çalışmasını sağlamaktır..

Bunu yapan birçok program var ama kendi yaptığımız programı kullamak başka bi tat verir tabiki

Başlıyoruz:
Form a 3 tane command button 1 de picture kontrolu ekleyelim. butonun birinin adını cmdCapture, birini cmdClose , diğerinide cmdVideoFormat olarak değiştirin picture kontrolunun ismini değiştirmemize gerek yok.

Private Sub cmdClose_Click()
Dim temp As Long
If startcap = True Then
temp = SendMessage(hwdc, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)
startcap = False
End If
End Sub

Private Sub cmdVideoFormat_Click()
Dim temp As Long
If startcap = True Then
temp = SendMessage(hwdc, WM_CAP_DLG_VIDEOFORMAT, 0&, 0&)
End If
End Sub

'Bu kısım forma yazılacak
Dim hwdc As Long
Dim startcap As Boolean

PrivateSub cmdCapture_Click()
Dim temp As Long
Dim temp1 As Long
hwdc = capCreateCaptureWindow("Dixanta Vision System", ws_child Or ws_visible, 0, 0, 320, 240, Picture1.hWnd, 0)
If (hwdc <> 0) Then
temp = SendMessage(hwdc, wm_cap_driver_connect, 0, 0)
temp = SendMessage(hwdc, wm_cap_set_preview, 1, 0)
temp = SendMessage(hwdc, WM_CAP_SET_PREVIEWRATE, 30, 0)
startcap = True
Else
MsgBox"kamera takılı değil veya Bulunamadı", vbCritical, "UYARI"
EndIf

EndSub

'bu kısım module yazılacak (module oluşturmayı bilmeyenler belirtirse yardımcı olurum)
Global Const ws_child As Long = &H40000000
Global Const ws_visible As Long = &H10000000

Global Const WM_USER = 1024
Global Const wm_cap_driver_connect = WM_USER + 10
Global Const wm_cap_set_preview = WM_USER + 50
Global Const WM_CAP_SET_PREVIEWRATE = WM_USER + 52
Global Const WM_CAP_DRIVER_DISCONNECT As Long = WM_USER + 11
Global Const WM_CAP_DLG_VIDEOFORMAT As Long = WM_USER + 41

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal a As String, ByVal b As Long, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As Integer, ByVal g As Long, ByVal h As Integer) As Long

Programı yazarken karşılaşacağınız her türlü sorunu buraya belirtebilirsiniz. Pm yolu ile iletilen sorunların çüzümünü diğer üyeler göremiyeceği için burda belirtmenizi önemle rica ediyorum ki belki aynı sorunla başka bir üye karşılaşır ve sormasına gerek kalmaz..

freezer-fire · #2 (**Daim**) 19.03.08, 09:28

ben modül oluşturmayı bilmiyorum açıklarsan sevinirim. henüz yeni başladım.

**Wsinf** · #3 (**Daim**) 19.03.08, 12:24

VB de module (modül) oluşturmak için top menüden (üstteki, file - edit vs vs ) project > add module diyoruz ve çıkan pencerede module ü seçerek open diyoruz. gelen boş ekran bizim module komutlarını yazacağımız yerdir. module ile işimiz bitince kapatabiliriz daha sonra ulaşmak için ise ekranın sağına dayalı project 1 öğelerinden modules un altındaki son yazdığımız modüle ulaşabilir ve değişiklik yapabiliriz..

Konu Seçenekleri
Yazıcıdaki Görüntüsünü Göster Sayfayı E-Mail'le gönder
Modları Göster
Normal Mod Ağaç Modununa Geç Otomatik Konu Moduna Geç

Okuduğunuz Konuya Benzer Konular
Konu	Konuyu Açan	Forum	Cevaplar	Son Mesaj
VisualBasic .net de mdiform	nepnepim	Visual Basic .NET	0	13.02.08 11:57
Bir kaç kaza görüntüsü daha.......	---SY---	Araba Hastaları	5	20.12.06 21:07
Piramitlerin iç görüntüsü	عاكف ار	Sanat Eserleri	0	16.12.06 18:20
Alan Kodları	Beysehirli	Faydalı Bilgiler	0	28.11.06 21:02

Konuyu görüntüleyen(ler): 1 (0 üye ve 1 ziyaretçi)