电脑值班系统的研发.docVIP

电脑值班系统的研发 庞喜庆 山西北方晋东化工有限责任公司计量检测中心 摘要：在对样品进行30天甚至数月的温湿度试验中，需要有人日夜加班，每隔1小时记录一次温湿度数据，但是，在夜里准时地1小时记录一次数据将会使人非常疲劳。为了减轻劳动强度，提高记录精度，开发了电脑值班系统，该系统能控制电脑在给定的时刻拍摄照片并存储，拍摄时间间隔可以任意设定，这样，就可以代替人工，对温湿度、设备状态、样品状态等进行长期的、定时的记录，该系统记录时刻精确，可以代替工人人工记录温湿度，也可以推广到其它需要长时间观察记录的工作。 关键词：摄像头、VB语言 系统介绍 系统包括摄像头和电脑，控制软件采用VB语言编写。 操作方法 在界面上黑色的文本框中输入开始时刻和间隔时间即可自动拍摄并存储照片。 3. 使用效果 能够精确按时拍摄并储存仪表的图片，工人可以定期查阅图片，即可知道所有的温湿度数据。 4. 软件程序  Declare Function（Function的意思：1.函式、函数 函数 2.功能；用途 ）是引用dll的声明方法 avicap32.dll是视频捕捉程序，有一套专用的语句来调用，即下面的语句 Alias是别名函数，它后面跟的是原来的旧名字 _好像是指把两个句子连起来的符号，回车断开会错误报警 byval通过值传递，也就是拷贝内存中的值的意思 Public,用于声明对所有模块中的所有其它过程都可以使用的过程.Private,用于声明只能在包含该声明的模块中使用的过程。 Private Declare Function capCreateCaptureWindow Lib avicap32.dll _ Alias capCreateCaptureWindowA ( _ ByVal lpszWindowName As String, _ ByVal dwStyle As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal nWidth As Long, _ ByVal nHeight As Long, _ ByVal hWndParent As Long, _ ByVal nID As Long) As Long const是定义常量的函数 Private Const WS_CHILD = Private Const WS_VISIBLE = Private Const WM_USER = H400 Private Const WM_CAP_START = H400 Private Const WM_CAP_EDIT_COPY = (WM_CAP_START + 30) Private Const WM_CAP_DRIVER_CONNECT = (WM_CAP_START + 10) Private Const WM_CAP_SET_PREVIEWRATE = (WM_CAP_START + 52) Private Const WM_CAP_SET_OVERLAY = (WM_CAP_START + 51) Private Const WM_CAP_SET_PREVIEW = (WM_CAP_START + 50) Private Const WM_CAP_DRIVER_DISCONNECT = (WM_CAP_START + 11) Private Preview_Handle As Long Private Declare Function SendMessage Lib user32 _ Alias SendMessageA ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Function CapturePicture(nCaptureHandle As Long) As StdPicture Clipboard.Clear SendMessage nCaptureHandle, WM_CAP_EDIT_COPY, 0, 0 Set CapturePicture = Clipboard.GetData End Function Private Sub Command1_Click() 按下命令1按钮，储存图像到目标文件 SavePicture Picture1.Picture, e:\温度记录图片\ + Text7.Text + 日 + phtime + 点 + pmtime + .bmp End Sub Private Sub Command2_Click() 命令2，储存到图片窗