怎么把实时采集的数据传递给编的vb处理软件?
现在是在编个可以处理荧光光谱数据的软件,由于本人是学机械的,对编程不是很熟悉,希望各位编程高手能教我怎么把数据传递给vb编程软件,是不是要进行程序编写,谢谢!数据采集器都...
现在是在编个可以处理荧光光谱数据的软件,由于本人是学机械的,对编程不是很熟悉,希望各位编程高手能教我怎么把数据传递给vb编程软件,是不是要进行程序编写,谢谢!
数据采集器都有,我要做的就是把数据显示在vb小软件上,然后对数据进行基本的处理!二楼的哥们能给我提供些利用控件显示采集的数据的代码吗?非常感谢! 展开
数据采集器都有,我要做的就是把数据显示在vb小软件上,然后对数据进行基本的处理!二楼的哥们能给我提供些利用控件显示采集的数据的代码吗?非常感谢! 展开
展开全部
可以先把数据转为.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
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
展开全部
你打算用什么接口来传递数据
COM、LPT或USB
若已有电脑采集设备
那么一般会随机付供VB等程序使用的动态链接库
如果没有你要自己做硬件接口
这就需要很强的电子或单片机技术与电脑接口知识
至于用VB接收那都是容易的事
都有现成的控件
---
采集器软件都是设备公司自行编制
不尽相同,我没有具体设备实在帮不了你什么忙
不过这类设备一般都提供VB例程,你不妨研究研究
你如果自己能搞定数据接收
再按你们的需要显示到界面我到可以提供点帮助
COM、LPT或USB
若已有电脑采集设备
那么一般会随机付供VB等程序使用的动态链接库
如果没有你要自己做硬件接口
这就需要很强的电子或单片机技术与电脑接口知识
至于用VB接收那都是容易的事
都有现成的控件
---
采集器软件都是设备公司自行编制
不尽相同,我没有具体设备实在帮不了你什么忙
不过这类设备一般都提供VB例程,你不妨研究研究
你如果自己能搞定数据接收
再按你们的需要显示到界面我到可以提供点帮助
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你编的是什么软件啊?能发给我看看嘛?我现在也要编一个数据采集软件,发到我的邮箱185781298@qq.com 谢谢
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
硬件接口问题。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询