怎么把实时采集的数据传递给编的vb处理软件?

现在是在编个可以处理荧光光谱数据的软件,由于本人是学机械的,对编程不是很熟悉,希望各位编程高手能教我怎么把数据传递给vb编程软件,是不是要进行程序编写,谢谢!数据采集器都... 现在是在编个可以处理荧光光谱数据的软件,由于本人是学机械的,对编程不是很熟悉,希望各位编程高手能教我怎么把数据传递给vb编程软件,是不是要进行程序编写,谢谢!
数据采集器都有,我要做的就是把数据显示在vb小软件上,然后对数据进行基本的处理!二楼的哥们能给我提供些利用控件显示采集的数据的代码吗?非常感谢!
展开
 我来答
golago
2008-07-23
知道答主
回答量:15
采纳率:0%
帮助的人:0
展开全部
可以先把数据转为.TXT文件,在用文件读入到VB中,下面是一个写一个矩阵到文件中,在读出来。你可以参考读文件的部分。
Dim a(5, 5) As Integer, b(5, 5) As Integer, c(5, 5) As Integer, i As Integer, j As Integer
Private Sub Command1_Click() '写文件
Randomize
Open App.Path + "\myfile1.txt" For Append As #1
For i = 1 To 5
For j = 1 To 5
a(i, j) = Rnd * 89 + 10.5
Print #1, a(i, j);
Next j
Print #1,
Next i
Close #1
End Sub

Private Sub Command2_Click() '读文件,输出到Pictures中
Open App.Path + "\myfile1.txt" For Input As #1
For i = 1 To 5
For j = 1 To 5
Input #1, b(i, j)
Picture1.Print Tab(4 * j - 3); b(i, j);
Next j
Next i
Close #1
End Sub

Private Sub Command3_Click() '读文件,转置矩阵,输出
Open App.Path + "\myfile1.txt" For Input As #1
For i = 1 To 5
For j = 1 To 5
Input #1, c(i, j)
Next j
Next i
For i = 1 To 5
For j = 1 To 5
Picture2.Print Tab(4 * j - 3); c(j, i);
Next j
Next i
Close #1
End Sub

Private Sub Command4_Click() '清屏
Picture1.Cls
Picture2.Cls
Open App.Path + "\myfile1.txt" For Output As #1
Close #1
End Sub

Private Sub Command5_Click() '退出
End
End Sub
兰馨谷
2008-07-22 · TA获得超过149个赞
知道小有建树答主
回答量:361
采纳率:0%
帮助的人:399万
展开全部
你打算用什么接口来传递数据
COM、LPT或USB
若已有电脑采集设备
那么一般会随机付供VB等程序使用的动态链接库
如果没有你要自己做硬件接口
这就需要很强的电子或单片机技术与电脑接口知识
至于用VB接收那都是容易的事
都有现成的控件

---
采集器软件都是设备公司自行编制
不尽相同,我没有具体设备实在帮不了你什么忙
不过这类设备一般都提供VB例程,你不妨研究研究
你如果自己能搞定数据接收
再按你们的需要显示到界面我到可以提供点帮助
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
hasayaya
2012-04-24
知道答主
回答量:10
采纳率:0%
帮助的人:1.5万
展开全部
你编的是什么软件啊?能发给我看看嘛?我现在也要编一个数据采集软件,发到我的邮箱185781298@qq.com 谢谢
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
尘入蜓孟影食1038
2008-07-22 · TA获得超过3512个赞
知道大有可为答主
回答量:2307
采纳率:87%
帮助的人:1348万
展开全部
硬件接口问题。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式