基于VB.Net的康耐视Visionmpro的全部代码

最新推荐文章于 2024-10-15 13:30:59 发布

原创

最新推荐文章于 2024-10-15 13:30:59 发布 · 368 阅读

1 ·

CC 4.0 BY-SA版权

宋童童-tongtongsong

本文介绍了一款使用 VisionPro 进行实时图像处理的应用程序，包括加载不同摄像头的工作配置、启动实时图像显示及图像窗口最大化的功能实现。

本文已参与「新人创作礼」活动，一起开启掘金创作之路。

话不多说，上图：

除了我们之前讲到的知识外，本次程序里面还增加了一些通讯以及文件处理的相关函数

加载程序的名字

```vb '******加载程序名************ Private Sub LoadJobName(ByVal CameraIndex As Integer) Try Select Case CameraIndex Case 1 cmbC1Job.Items.Clear() For i As Integer = 1 To C1.JobNum cmbC1Job.Items.Add(C1.JobName(i)) Next cmbC1Job.Text = Parm.StartJob(1) Case 2 cmbC2Job.Items.Clear() For i As Integer = 1 To C2.JobNum cmbC2Job.Items.Add(C2.JobName(i)) Next cmbC2Job.Text = Parm.StartJob(2) Case 3 cmbC3Job.Items.Clear() For i As Integer = 1 To C3.JobNum cmbC3Job.Items.Add(C3.JobName(i)) Next cmbC3Job.Text = Parm.StartJob(3) Case 4 cmbC4Job.Items.Clear() For i As Integer = 1 To C4.JobNum cmbC4Job.Items.Add(C4.JobName(i)) Next cmbC4Job.Text = Parm.StartJob(4) End Select Catch ex As Exception 'LogAdd("LoadJobName" & ex.Message, False) MessageBox.Show(ex.Message) End Try

End Sub

``` 就是读取文件夹下的文件名

visionpro实时图像

```vb Private Sub btnLiveC1Click(sender As Object, e As EventArgs) Handles btnLiveC1.Click, btnLiveC2.Click, btnLiveC3.Click, btnLiveC4.Click Dim btnLive As ToolStripButton = sender Select Case btnLive.Name Case "btnLiveC1" gSelectCamNum = 1 Try If btnLiveC1.Text = "实时图像" Then CogRDisC1.StaticGraphics.Clear() CogRDisC1.InteractiveGraphics.Clear() C1.Acq.Operator.OwnedExposureParams.Exposure = CDbl(C1.ExposureTime(C1.SelectJobNum)) CogRDisC1.StartLiveDisplay(C1.Acq.Operator) CogRDisC1DoubleClick(sender, e) btnLiveC1.Text = "停止实时" btnRunC1.Enabled = False btnEditC1.Ena