| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 468 人关注过本帖
标题:救急!谁写过CCD扫描系统的?
只看楼主 加入收藏
呀潘
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2012-11-24
收藏
 问题点数:0 回复次数:2 
救急!谁写过CCD扫描系统的?
急!急!急!我写了一个星期了,还是搞不明白!有那位大师帮帮忙
我用的是奥特梅尔LD线扫描相机和高速PCI 数据采集卡,就是不知怎么样读取数据和设置采集卡,下面是我写的程序各位帮看看那里出了问题

'启动采集
Public Declare Function lvDataAaqStart Lib "lvpci.dll" Alias "_lvDataAaqStart@16" (ByVal nDevNo As Byte, ByVal nMode As Byte, ByVal nDAQByte As Long, ByVal nTrigMode As Byte) As Long
'结束采集
Public Declare Function lvDataAaqEnd Lib "lvpci.dll" Alias "_lvDataAaqEnd@4" (ByVal nDevNo As Byte) As Long
'数据采集函数
Public Declare Function lvGetData Lib "lvpci.dll" Alias "_lvGetData@8" (ByVal nDevNo As Byte, ByRef rc As Long) As Long
Function 采集卡()
cc = lvDeviceIsOpen(0) '查询采集卡是否打开
If cc = False Then lvDeviceOpen (0) '如果采集设备没打开就打开采集卡设备
If cc = True Then lvDeviceClose (0) '如果采集设备打开就关闭采集卡设备
End Function
Private Sub 单次采集_Click()

If cc = True Then
ccd = lvDataAaqStart(0, 0, 524288, 0) '启动采集
Timer2.Enabled = True
Else
采集卡
End If
End Sub
Private Sub Timer2_Timer()

cdd = lvGetData(0, rc) '数据采集
Label1.Caption = cdd   '问题出在这里CDD返回的是零。我设置返回的错误代码是“中断超时”
ccd = rc '数据采集返回提示信息
Timer3.Enabled = True
Timer2.Enabled = False
End Sub
Private Sub Timer3_Timer()
ccd = lvDataAaqEnd(0) '结束采集
Timer3.Enabled = False
End Sub

[ 本帖最后由 呀潘 于 2012-12-1 12:33 编辑 ]
搜索更多相关主题的帖子: 扫描 采集卡 
2012-11-29 21:02
呀潘
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2012-11-24
收藏
得分:0 
我找到问题所在了!
2012-12-01 20:14
呀潘
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2012-11-24
收藏
得分:0 
现在新的问题又出现了,我读取了扫描数据后,再扫描数据就没返应了。也就是我取出了第一次扫描数据。第次扫描的数据还是内存零位,扫描第二次的时候系统自动存到内存1位去了,零位还是原来的数据。怎么样才能取出后就清空存内原来的地址。有高手的请指教下!
2012-12-01 20:20
快速回复:救急!谁写过CCD扫描系统的?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015607 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved