Question

我想问用VB怎么编程数据采集显示

Answer 1

vb的底层(系统级的)功能函数先天不足，推荐用c/vc++的

追问

强制用VB

追答

你需要采集什么类型的数据？考虑过采用什么格式的文件进行交换？

换一种说法就是：需要及时动态的采集，还是数据汇总后再一起导入呢？

追问

数值数据

及时和存储数据都有

追答

数据源是什么类型的？接口怎么安排的？
相当于问：数据要怎么取，监视对象是什么？

追问

PLC给出开关量信号，通过com端，MScomm采集，Msflexgird显示输出，我这个思路 能实现吗

追答

想法没问题，不过在这之前，你要——
了解以下的通讯基础和准备工作，才去写编码：
1、串口硬件接法，是多少pin的，大多是即DB9、三线（2,3,5）的
2、串口通讯协议，波特率、校验位、数据位…
3、串口通讯协议，数据格式，即要读取的数据是从什么位置开始，什么格式…
4、方法是，你先用PC上的串口助手之类的软件，看能否与之通讯
5、用PC上的串口助手之类的软件能通讯了，再去实现你自己的串口通信编程
6、还有，多数设备/仪器/仪表的通讯是RS485或RS422，它是二根线
7、你要用RS485-RS232转换器进行转接（电脑上都是RS232串口）
8、转换器一般几十到上百元，买到有用、能用的就可以（这事长经验）
9、如果电脑无串口，还要配个USB-232，即RS232的USB转接线

Answer 2

一般是使用串口通信，不知你要使用哪种端口通信。

追问

RA232

错了，RS232

追答

给你个实例，要做你这个比较麻烦！要使用MSComm 控件。

MSComm 控件示例

下面这个简单的例子演示了用调制解调器进行基本的串行通讯：

Private Sub Form_Load ()
  ' 保存输入子串的缓冲区
  Dim Instring As String
  ' 使用 COM1。
  MSComm1.CommPort = 1
  ' 9600 波特，无奇偶校验，8 位数据，一个停止位。
  MSComm1.Settings = "9600,N,8,1"
  ' 当输入占用时，
  ' 告诉控件读入整个缓冲区。
  MSComm1.InputLen = 0
  ' 打开端口。
  MSComm1.PortOpen = True
  ' 将 attention 命令送到调制解调器。
  MSComm1.Output = "ATV1Q0" & Chr$(13) ' 确保
  ' 调制解调器以"OK"响应。
  ' 等待数据返回到串行端口。
  Do
     DoEvents
  Buffer$ = Buffer$ & MSComm1.Input
  Loop Until InStr(Buffer$, "OK" & vbCRLF)
  ' 从串行端口读 "OK" 响应。

  ' 关闭串行端口。
  MSComm1.PortOpen = False
End Sub

注意   MSComm
控件可以采用轮询或事件驱动的方法从端口获取数据。这个简单的例子使用了轮询方法。关于事件驱动方法的例子请参阅 OnComm 事件的帮助。

追问

结果显示Buffer$ 未定义

未定义解决

这个程序要怎么连接食物

实物

追答

这只是一个实例，Buffer$是一个字符串变量，你可以自己定义。

做这个没这么简单，你要知道下位机传上来的数据是什么数据，数据发送的方式等等。这个不是一两天能弄出来的。

追问

下位机传来的事开关量，工作量感觉不小