一个程序员的命运是否能够改变，就看各位了（急）

Question

现有一工厂要求我作一套MRP，的条件是同时安搞此厂的电视闭路临控工程，
对于电视闭路监控本人一无所知，请各位给点意见，需要什么设备和工程费用的收费标准求企业闭路电临控工程的设计方案和设备（急）

Answer 1

电脑爱好者今年的前半年合订本有个:用计算机摄像头设计自动安全防盗系统的vb程序,我知道可能对你的项目没什么关系和帮助,但是应该有启发吧.我发给你吧,vb的,文章还是去看爱好者吧!《用计算机摄像头设计自动安全防盗系统》相关程序代码
__________________________________________________________________________________________
Option Explicit'罗技摄像头常量定义
Const UIELEMENT_STATUSBAR = 3
Const NOTIFICATIONMSG_MOTION = 1
Const PROPERTY_MOTION_DETECTION_MODE = 19
'声音播放API及常量定义
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Const SND_SYNC = &H0 '声音同步播放
Const SND_ASYNC = &H1 '声音非同步播放
Const SND_NODEFAULT = &H2 '如果声音文件不存在也不产生错误
Const SND_FILENAME = &H20000 '声音是文件类型的'---------------------------Dim sAlertSFN As String, bSensitive As Byte, fIsSound As Boolean, fIsAlert As Boolean
'说明：
'sAlertSFN    存储用于报警时播放的声音文件的变量
'bSensitive    存储警报界限的变量
'fIsSound     存储声卡是否存在的变量
'fIsAlert      存储是否有声音报警的变量Private Sub chkIsAlert_Click()
fIsAlert = chkIsAlert.Value '设定是否有声音报警
End SubPrivate Sub cmdSetSensi_Click()
bSensitive = txtSensi.Text '设定报警界限值
Call DisenableCustom
End SubPrivate Sub Form_Load()
'为了避免发生错误，先确定计算机是否有声卡
If waveOutGetNumDevs() > 0 Then
    fIsSound = True
Else
    fIsSound = False
End If'初始化视频入口
VideoPortal.PrepareControl "报警器", "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\报警器", 0 '指定摄像头配置保存位置、初始化摄像头
VideoPortal.EnableUIElements UIELEMENT_STATUSBAR, 0, 1 '初始化用户接口
'尝试连接到摄像头
If VideoPortal.ConnectCamera2() = 0 Then
    MsgBox "不能连接到任何罗技摄像头"
    Exit Sub
End If
'已找到摄像头，打开预览
VideoPortal.EnablePreview = 1
'打开动作检测事件
EnableMotionDetection
'设置用于报警时播放的声音文件
sAlertSFN = App.Path & "\alarm.wav"
bSensitive = 15 '初始化灵敏度15(中)
txtSensi.Text = bSensitive '使自定义框里显示默认值
fIsAlert = True '是否有声音报警
Call DisenableCustom
End SubPrivate Sub EnableMotionDetection()
'打开运动检测事件(罗技全系列摄像头均支持)
VideoPortal.SetCameraPropertyLong PROPERTY_MOTION_DETECTION_MODE, 1
End SubPrivate Sub Form_Unload(Cancel As Integer)
'关闭运动检测事件
VideoPortal.SetCameraPropertyLong PROPERTY_MOTION_DETECTION_MODE, 0
End SubPrivate Sub Optsensi_Click(Index As Integer)
Select Case Index
Case 0
    bSensitive = 5 '高灵敏度
Case 1
    bSensitive = 15 '中灵敏度
Case 2
    bSensitive = 25 '低灵敏度
Case 3
    Call EnableCustom    '自定义灵敏度
    Exit Sub
End SelecttxtSensi = bSensitive '同步自定义框里显示当前的报警界限值
Call DisenableCustom
End SubPrivate Sub txtSensi_Change()
If txtSensi > 100 Or txtSensi < 1 Then txtSensi = 30 '检测自定义框输入的值是否合法
vsSensi.Value = txtSensi.Text '同步自定义框和垂直滚动条的值
End SubPrivate Sub VideoPortal_PortalNotification(ByVal lMsg As Long, ByVal lParam1 As Long, ByVal lParam2 As Long, ByVal lParam3 As Long)
If lMsg = NOTIFICATIONMSG_MOTION Then '如果接到的是动作通知的话
lblSensiDebug = lParam1 '显示当前检测到的改变，值保存在变量lParam1中(0-100的值，值越大说明检测到的动作越大)
    If lParam1 > bSensitive Then '如果超出了正常范围，则产生动作
        Call SnapPicture '捕捉当时画面
        If fIsSound And fIsAlert Then Call PlaySound(sAlertSFN, 0&, SND_ASYNC Or SND_FILENAME Or SND_NODEFAULT) '报警
    End If
End If
End SubPrivate Sub vsSensi_Change()
'同步自定义框和垂直滚动条的值
txtSensi.Text = vsSensi.Value
End SubSub DisenableCustom()
'使自定义选项不可更改
txtSensi.Enabled = False
cmdSetSensi.Enabled = False
vsSensi.Enabled = False
End SubSub EnableCustom()
'使自定义选项可更改
txtSensi.Enabled = True
cmdSetSensi.Enabled = True
vsSensi.Enabled = True
End SubSub SnapPicture()
'捕捉当前画面为BMP文件
Dim Text As String, Filename As String
Text = "●Rec " & Date & " " & Time() '在图像中下部分显示日期时间
Filename = App.Path & "\图像捕捉于" & Date & Format(Time(), "AMPMhh点mm分ss秒") & ".bmp" '捕捉后保存BMP文件的路径和文件名
VideoPortal.StampTextColor = &HFF& '在图像中下部分显示的文字颜色
VideoPortal.StampFontName = "Arial" '在图像中下部分显示的文字字体
VideoPortal.StampPointSize = 10 '在图像中下部分显示的文字大小
VideoPortal.StampTextShadow = True '是否为在图像中下部分显示文字加上阴影
VideoPortal.StampTransparentBackground = True '在图像中下部分显示的文字是否透明
VideoPortal.StampTextShadowColor = &HFFFFFF '在图像中下部分显示文字阴影的背景
VideoPortal.PictureToFile 0, 24, Filename, Text '执行将当前画面保存为BMP文件
End Sub

Answer 2

先拿到硬件，看硬件和计算机的接口如何，是否有相关的开发包，也就是SDK，如果有就应该容易了，当作一次尝试的机会，

Answer 3

UP!UP!!UP!!!
祝你早日收工！！拿到银子！！！