Здравствуйте, сейчас я вам покажу как работать с вебкамерой на vb.net.
Нам понадобится класс [Ссылки могут видеть только зарегистрированные пользователи. ].
Создаем новый проект, добавляем класс. (Проект - Добавить класс).
Вставляем весь текст из класса выше.
Переходим к форме
Добавляем PictureBox на форму. Растягиваем на всю форму.
[Ссылки могут видеть только зарегистрированные пользователи. ]
Добавляем
Код:
Dim cam As New iCam
[Ссылки могут видеть только зарегистрированные пользователи. ]
В событие FormLoad добавляем
Код:
cam.initCam(PictureBox1.Handle.ToInt32)
[Ссылки могут видеть только зарегистрированные пользователи. ]
Если все норм, то при запуске вы увидите картинку со своей камеры.
Что бы сохранить, узнать фпс, сменить фпс, стартовать, остановить показ картинки добавим кнопки на форму.
[Ссылки могут видеть только зарегистрированные пользователи. ]
В код напишем
Код:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim pic As New PictureBox
pic.Image = cam.copyFrame(PictureBox1, New RectangleF(0, 0, PictureBox1.Width, PictureBox1.Height))
pic.Image.Save("123.bmp")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim myFrames As String
myFrames = InputBox("Введите FPS")
cam.setFrameRate(CInt(myFrames))
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
MsgBox(cam.FPS)
End Sub
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If cam.iRunning Then
MsgBox("Камера уже включена")
Else
cam.initCam(PictureBox1.Handle.ToInt32)
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If cam.iRunning Then
cam.closeCam()
Else
MsgBox("Камера уже выключена")
End If
End Sub
[Ссылки могут видеть только зарегистрированные пользователи. ]
Готово. Спасибо за внимание.
Исходник:
[Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
________________
Последний раз редактировалось OrBiT_DaRk; 18.05.2013 в 09:02.
Код:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ругается на странном языке на эту строчку(
У тебя кнопка есть?
На форме должна быть кнопка с названием Button1. Это видно на последнем скриншоте.